为什么数码管只能显示0 求帮助 -

标题: 为什么数码管只能显示0 求帮助 [打印本页]

作者: wadp 时间: 2020-4-14 23:36
标题: 为什么数码管只能显示0 求帮助
   ORG 0000H
   LJMP MAIN
   ORG 0030H
MAIN: ACALL KEYSCAN
   MOV A,30H
MOV DPTR,#TABLE
MOVC A,@A+DPTR
MOV P2,A
ACALL DELAY
SJMP MAIN
KEYSCAN: MOV P3,#0FH
      MOV A,P3
ANL A,#0FH
MOV R3,A
MOV P3,#0F0H
MOV A,P3
ANL A,#0F0H
ORL A,R3
CJNE A,#0FFH,KEYPRO
RET
KEYPRO: MOV R3,A
      MOV DPTR,#KEYVALUE
  MOV R4,#0FFH
KEY1: INC R4
   MOV A,R4
MOV DPTR,#KEYVALUE
   MOVC A,@A+DPTR
   MOV 20H,R3
   CJNE A,20H,KEY1
MOV A,R4
MOV 30H,A
   RET
DELAY:MOV R5,#40H
   NEXT1:MOV R6,#80H
   NEXT2:MOV R7,#90H
   DJNZ R7,$
DJNZ R1,NEXT2
DJNZ R0,NEXT1
RET
KEYVALUE:DB 0E7H,0D7H,0B7H,77H,0EBH,0DBH,0BBH,7BH
      DB 0EDH,0DDH,0BDH,7DH,0EEH,0DEH,0BEH,7EH
TABLE:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,8EH
   END

欢迎光临 (http://www.51hei.com/bbs/)