键盘扫描子程序-scankey.asm

来自「红外抄表器.rar」· 汇编 代码 · 共 62 行

;######键盘扫描子程序 SCANKEY ###########
;需要寄存器:R2,R3,R4,R5,R6
;R2-计数,R4-行号,R3-列号,R5-扫描码,R6-计数
;入口:无
;出口:KEYNUM,无键值KEYNUM中为'0FFH',有键值KEYNUM中为键值
;键值计算:(4-列号)*3+行号
;需调用函数:10MS延时函数 DLY10MS 
;######################################
SCANKEY:LCALL KEXAM              ;判断是否有键按下，A中为零则无键按下，非零则有键按下
        JNZ SCANK0              ;有键则转
        MOV KEYNUM,#0FFH        ;无键按下  KEYNUM  EQU 11H           ;键号
        LJMP ESCANK             ;转返回
SCANK0: LCALL DLY10MS           ;有键按下,延时去抖
        LCALL KEXAM            ;再次判断是否有键按下,有键按下时A中为非零值
        JNZ SCANK1             ;有键按下则转
        MOV KEYNUM,#0FFH        ;无键按下
        LJMP ESCANK
SCANK1: MOV R4,#00H             ;行号
        MOV R6,#03H             ;扫描行数
        MOV R5,#0EFH            ;第一行扫描码
SCAN10: MOV A,R5                ;输出扫描码
        MOV P1,A
        MOV A,P1
        CPL A                   ;
        ANL A,#0FH
        JNZ CHK1                ;本行有键按下
        LJMP CHK2               ;本行无键按下
CHK1:   MOV R2,#4               ;扫描列数
CHK10:  JB ACC.0,CALK1           ;该列有键按下则转
        RR A
        DJNZ R2,CHK10           ;检测按键所在列
CHK2:   MOV A,R5
        RL A
        MOV R5,A                ;修正扫描码
        INC R4                  ;行号加1
        DJNZ R6,SCAN10           ;扫描下一行
        MOV KEYNUM,#0FFH         ;未检测到按键
        LJMP ESCANK              ;返回
CALK1:  CLR C                    ;计算键值
        MOV A,#4
        SUBB A,R2               ;计算列号
        MOV B,#03H
        MUL AB
        ADD A,R4                ;计算键值
        MOV KEYNUM,A             ;存键值
KEYNO:   LCALL DLY10MS            ;         
        LCALL KEXAM              ;发全扫描信号
        JNZ KEYNO             ;健未释放则等待
		 LCALL DLY10MS           ;延时消抖
ESCANK: RET

;#########
;功能：判断是否有键被按下
;入口参数：无
;出口参数：A中为零则无键按下，非零则有键按下
;######################
KEXAM:  MOV P1,#8FH
        MOV A,P1
        CPL A
        ANL A,#0FH
        RET