51单片机的4×4键盘识别与74LS164驱动数码显示

;P1口外接4×4键盘，输出使用74LS164驱动一位数码显示器。
;当按下任一键时，在数码显示器上显示键值。
;程序用汇编语言编写，用PROTEUS仿真调试的画面如下：

;程序如下：

    ORG   0000H
    LJMP  START
    ORG   0030H
START:
    MOV  P1, #255
    MOV  60H, #16
MAIN:
    CALL DISPLAY
;SJMP  $
M_LOOP:
    CALL K_SCAN         ;扫描程序
    JB   ACC.4, M_LOOP
    LJMP MAIN
;---------------------------------------
DISPLAY:
    MOV  A,  60H
    MOV  DPTR, #D_TAB   ;码表首地址
    MOVC A, @A + DPTR
    CPL  A
    MOV  R2, #8
INI1:
    RRC  A
    MOV  P3.0, C        ;A中低位输出至P3.0
    CLR  P3.1           ;移位脉冲
    SETB P3.1
    DJNZ R2, INI1       ;移位8次
    RET
;-------------------------
D_TAB:                  ;段码表
    DB  03FH, 006H, 05BH, 04FH 
    DB  066H, 06DH, 07DH, 007H
    DB  07FH, 06FH, 077H, 07CH
    DB  039H, 05EH, 079H, 071H, 000H
;---------------------------------------
K_SCAN:  
    MOV  P1, #240       ;各行皆为0
    MOV  A,  P1         ;读出列
    CJNE A, #240, COW   ;有键按下转移
    SETB ACC.4          ;没有按键的标记
    RET
;-------------------------
COW:
    MOV  P1, #15        ;各列皆为0
    ADD  A, P1
    MOV  60H, A         ;保存键码
;-------------------------
    MOV  DPTR, #KEY_TAB ;键码表首地址
    MOV  R2, #0         ;从第0个开始查
K_S1:
    MOV  A, R2 
    INC  R2
    MOVC A, @A + DPTR
    CJNE A, 60H, K_S1   ;与60H内容比较，不等则继续查
    DEC  R2
    CJNE R2, #16, K_ED
    SETB ACC.4          ;没有按键的标记
    RET
;-------------------------
K_ED:                   ;有键按下
    MOV  60H, R2        ;保存按键号码
    CALL DELAY          ;消除抖动
WAIT:
    MOV  P1, #0F0H
    MOV  A, P1
    CJNE A, #0F0H, WAIT ;等待释放
    CLR  A
    RET
;-------------------------
KEY_TAB:                ;键码表
    DB  07EH, 0BEH, 0DEH, 0EEH 
    DB  07DH, 0BDH, 0DDH, 0EDH
    DB  07BH, 0BBH, 0DBH, 0EBH
    DB  077H, 0B7H, 0D7H, 0E7H
;---------------------------------------
DELAY:                  ;延时
    MOV  R5, #10
D2: MOV  R6, #2
D1: MOV  R7, #248
    DJNZ R7, $
    DJNZ R6, D1
    DJNZ R5, D2
    RET
;---------------------------------------
END