keyboard_isturb.docVIP

;该程序通过PORTB的电平变化中断进行键盘的输入，使按下K1键时第一个数码管显示1，按下K2 ;键时第一个数码管上显示2，按下K3键时第一个数码管上显示3，按下K4键时第一个数码管上显示4 ;对键盘的扫描采用中断方式 LIST P=18F458 INCLUDE P18F458.INC ;所用的寄存器 JIANR EQU 0X20 DEYH EQU JIANR+1 DEYL EQU JIANR+2 ORG 0X00 GOTO MAIN ORG 0X08 GOTO INTSERVE ORG 0X30 ;************以下为码值转换表************** CONVERT ADDWF PCL，1 RETLW 0XF9 ;1 RETLW 0XA4 ;2 RETLW 0XB0 ;3 RETLW 0X99 ;4 RETLW 0X92 ;5 RETLW 0X82 ;6 RETLW 0XD8 ;7 RETLW 0X80 ;8 RETLW 0X90 ;9 RETLW 0X88 ;A RETLW 0X83 ;B RETLW 0XC6 ;C