ORG 0000H
SJMP MAIN
ORG 001BH
SJMP IN_T1
ORG 0030H
MAIN: CLR A
MOV 40H,A
MOV 41H,A
MOV 42H,A
MOV 43H,A
MOV R2,#00
MOV R4,#80H ; (1000 0000)B
MOV 30H,#50H
MOV TMOD,#10H
MOV TH1,#0FCH
MOV TL1,#018H
SETB ET1
SETB EA
SETB TR1
SJMP $
IN_T1:
MOV TH1,#0FCH
MOV TL1,#018H
INC R2
CJNE R2,#100,DISP
MOV R2,#00
MOV A,40H
ADD A,#01
DA A
MOV 40H,A
CJNE A,#00,DISP
MOV A,41H
ADD A,#01
DA A
MOV 41H,A
CJNE A,#00,DISP
MOV A,42H
ADD A,#01
DA A
MOV 42H,A
CJNE A,#00,DISP
MOV A,43H
ADD A,#01
DA A
MOV 43H,A
CJNE A,#00,DISP
MOV 43H,#00
DISP: MOV R0,#40H
MOV R1,#50H
MOV R6,#04
LP: MOV A,@R0
ANL A,#0FH
MOV @R1,A
INC R1
MOV A,@R0
ANL A,#0F0H
SWAP A
MOV @R1,A
INC R1
INC R0
DJNZ R6,LP
MOV P0,#0FFH ;送數(shù)據(jù)
SETB P2.0
CLR P2.0
MOV A,R4 ;選數(shù)碼管
MOV P0,A
SETB P2.1
CLR P2.1
RR A
MOV R4,A
MOV R0,30H
MOV DPTR,#TAB
MOV A,@R0
MOVC A,@A+DPTR
MOV P0,A
SETB P2.0
CLR P2.0
INC 30H
MOV A,30H
CJNE A,#58H,EX
MOV 30H,#50H
EX: NOP
RETI
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H,83H,0C6H,0A1H,86H,84H
END
|
