ORG 0000H
LJMP START
ORG 0003H
LJMP IN0BUT
ORG 0013H
LJMP IN1BUT
ORG 001BH
LJMP T1KOU
START:MOV SP,#60H
MOV 50H,#00
MOV 51H,#00
MOV 52H,#00
MOV 53H,#00
MOV TMOD,#10H
MOV TL1,#0F0H
MOV TH1,#0D8H
MOV DPTR,#DOT
SETB EA
SETB IT0
SETB EX0
SETB IT1
SETB EX1
SETB TR1
SETB ET1
WJ:LCALL DISPLAY
LJMP WJ
T1KOU:MOV TL1,#0F0H
MOV TH1,#0DBH
LCALL NBCD
RETI
IN0BUT:SETB TR1
RETI
IN1BUT:CLR TR1
RETI
NBCD:MOV A,50H
MOV 50H,A
ADD A,#1
MOV 50H,A
CJNE A,#0AH,EXIT
MOV 50H,#00
MOV A,51H
MOV 51H,A
ADD A,#1
MOV 51H,A
CJNE A,#0AH,EXIT
MOV 51H,#00
MOV A,52H
MOV 52H,A
ADD A,#1
MOV 52H,A
CJNE A,#0AH,EXIT
MOV 52H,#00
MOV A,53H
MOV 53H,A
ADD A,#1
MOV 53H,A
CJNE A,#0AH,EXIT
MOV 53H,#00
EXIT:RET
DISPLAY:MOV R0,#50H
MOV R3,#01H
MOV A,R3
LOOP:CJNE R0,#52H,LOOP1
MOV P2,A
MOV A,@R0
MOVC A,@A+DPTR
SUBB A,#10000000B
MOV P0,A
LCALL DL1
INC R0
MOV A,R3
JB ACC.3,ELD1
RL A
MOV R3,A
SJMP LOOP
LOOP1:MOV P2,A
MOV A,@R0
MOVC A,@A+DPTR
MOV P0,A
LCALL DL1
INC R0
MOV A,R3
JB ACC.3,ELD1
RL A
MOV R3,A
SJMP LOOP
ELD1:RET
DOT:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
DL1:MOV R7,#50
DL:MOV R6,#100
DL6:DJNZ R6,DL6
DJNZ R7,DL
RET
END
LJMP START
ORG 0003H
LJMP IN0BUT
ORG 0013H
LJMP IN1BUT
ORG 001BH
LJMP T1KOU
START:MOV SP,#60H
MOV 50H,#00
MOV 51H,#00
MOV 52H,#00
MOV 53H,#00
MOV TMOD,#10H
MOV TL1,#0F0H
MOV TH1,#0D8H
MOV DPTR,#DOT
SETB EA
SETB IT0
SETB EX0
SETB IT1
SETB EX1
SETB TR1
SETB ET1
WJ:LCALL DISPLAY
LJMP WJ
T1KOU:MOV TL1,#0F0H
MOV TH1,#0DBH
LCALL NBCD
RETI
IN0BUT:SETB TR1
RETI
IN1BUT:CLR TR1
RETI
NBCD:MOV A,50H
MOV 50H,A
ADD A,#1
MOV 50H,A
CJNE A,#0AH,EXIT
MOV 50H,#00
MOV A,51H
MOV 51H,A
ADD A,#1
MOV 51H,A
CJNE A,#0AH,EXIT
MOV 51H,#00
MOV A,52H
MOV 52H,A
ADD A,#1
MOV 52H,A
CJNE A,#0AH,EXIT
MOV 52H,#00
MOV A,53H
MOV 53H,A
ADD A,#1
MOV 53H,A
CJNE A,#0AH,EXIT
MOV 53H,#00
EXIT:RET
DISPLAY:MOV R0,#50H
MOV R3,#01H
MOV A,R3
LOOP:CJNE R0,#52H,LOOP1
MOV P2,A
MOV A,@R0
MOVC A,@A+DPTR
SUBB A,#10000000B
MOV P0,A
LCALL DL1
INC R0
MOV A,R3
JB ACC.3,ELD1
RL A
MOV R3,A
SJMP LOOP
LOOP1:MOV P2,A
MOV A,@R0
MOVC A,@A+DPTR
MOV P0,A
LCALL DL1
INC R0
MOV A,R3
JB ACC.3,ELD1
RL A
MOV R3,A
SJMP LOOP
ELD1:RET
DOT:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
DL1:MOV R7,#50
DL:MOV R6,#100
DL6:DJNZ R6,DL6
DJNZ R7,DL
RET
END