WEI BIT P2.7
DUAN BIT P2.6
DAT EQU P0
ORG 0000H
LJMP MAIN
ORG 0030H
MAIN:
CLR WEI
CLR DUAN
MOV SP,#60H
MOV P3,#0FH
START:
LCALL DISPLAY_SEG
LCALL KEYSCAN
SJMP START
DISPLAY_SEG:
MOV DPTR,#DUANMA
MOV A,40H
MOV B,#10
DIV AB
MOV R1,B
MOV R2,A
MOV A,R1
MOVC A,@A+DPTR
MOV DAT,A
SETB DUAN
NOP
CLR DUAN
NOP
MOV DAT,#07FH
SETB WEI
LCALL DELAY1
MOV DAT,#0FFH
CLR WEI
CJNE R2,#1,LOOP
MOV DAT,#06H
SETB DUAN
NOP
CLR DUAN
NOP
MOV DAT,#0BFH
SETB WEI
LCALL DELAY1
MOV DAT,#0FFH
CLR WEI
LOOP:RET
DELAY1:
MOV 30H,#100
DJNZ 30H,$
RET
KEYSCAN:
MOV A,P3
CJNE A,#0FH,SCAN
LJMP RE2
SCAN:
MOV R6,A
MOV P3,#0F0H
MOV A,P3
ADD A,R6
HANG11:
CJNE A,#0EEH,HANG12
MOV R0,#0
SJMP RE1
HANG12:
CJNE A,#0EDH,HANG13
MOV R0,#4
SJMP RE1
HANG13:
CJNE A,#0EBH,HANG14
MOV R0,#8
SJMP RE1
HANG14:
CJNE A,#0E7H,HANG21
MOV R0,#12
SJMP RE1
HANG21:
CJNE A,#0DEH,HANG22
MOV R0,#1
SJMP RE1
HANG22:
CJNE A,#0DDH,HANG23
MOV R0,#5
SJMP RE1
HANG23:
CJNE A,#0DBH,HANG24
MOV R0,#9
SJMP RE1
HANG24:
CJNE A,#0D7H,HANG31
MOV R0,#13
SJMP RE1
HANG31:
CJNE A,#0BEH,HANG32
MOV R0,#2
SJMP RE1
HANG32:
CJNE A,#0BDH,HANG33
MOV R0,#6
SJMP RE1
HANG33:
CJNE A,#0BBH,HANG34
MOV R0,#10
SJMP RE1
HANG34:
CJNE A,#0B7H,HANG41
MOV R0,#14
SJMP RE1
HANG41:
CJNE A,#07EH,HANG42
MOV R0,#3
SJMP RE1
HANG42:
CJNE A,#07DH,HANG43
MOV R0,#7
SJMP RE1
HANG43:
CJNE A,#07BH,HANG44
MOV R0,#11
SJMP RE1
HANG44:
CJNE A,#077H,RE2
MOV R0,#15
RE1:
MOV A,R0
MOV 40H,A
RE2:
MOV P3,#0FH
RET
DUANMA:
DB 0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71
END