kb.asm

51单片机矩阵键盘数码管显示及其proteus仿真

ORG 0000H
LJMP START
ORG 30H
START: 
       MOV SP,#60H
       CPL p3.0
       MOV P1,#00H
       MOV P2,#0FFH
       MOV A,P2
       CPL A
       JNZ PRESS
       LJMP START
PRESS:
       MOV P2,#0FFH
       MOV P1,#00H
       MOV R2,P2
       MOV P2,#00H
       MOV P1,#0FFH
       MOV R1,P1
;****************************************
       MOV DPTR,#KEYTAB
SCAN:  MOV R3,#00H
       
 LOOP: 
       MOV A,R3
       CLR C
       SUBB A,#14H
       JZ START
       MOV A,R3
       MOVC A,@A+DPTR
       CLR C
     ; CJNE A,R1 NEXT
       SUBB A,R1
       JNZ NEXT
       INC R3
       CPL P3.1
       MOV A,R3
       MOVC A,@A+DPTR
       CLR C
       SUBB A,R2
       JNZ NEXT2
BIMGO: CLR P3.6
       MOV A,R3
       RR A
       MOV P0,A
       LJMP START   

  NEXT:CPL P3.2
       INC R3
       INC R3
       
       LJMP LOOP
  NEXT2:
       CPL P3.3
       INC R3
       LJMP LOOP






  DBG: CLR P3.6
       MOV P0,#00H
       








KEYTAB:
    K0: DW 0FEFEH
    K1: DW 0FDFEH
    K2: DW 0FBFEH
    K3: DW 0F7FEH
    K4: DW 0EFFEH
    ;;;;;;;;;;;;;
    K5: DW 0FEFDH
    K6: DW 0FDFDH
    K7: DW 0FBFDH
    K8: DW 0F7FDH
    K9: DW 0EFFDH

 END