ORG 0000H
LJMP ST
ORG 000BH
LJMP INTTO
INTTO:CLR ET0
CLR TR0
MOV TMOD,#01H
MOV TL0,#0B0H
MOV TH0,#3CH
SETB TR0
DJNZ R4,SUCCESS
ADSS: MOV A,R4
JNZ OUT
INC 70H
MOV R4,#20
MOV A,70H
CJNE A,#10,OUT
ADS:MOV R4,#20
LJMP CLR0
INC 71H
XRL A,#06H
JNZ OUT
ADMM:MOV R4,#20
LJMP CLR0
INC 72H
XRL A,#09H
JNZ OUT
ADM:MOV R4,#20
LJMP CLR0
INC 73H
XRL A,#06H
JNZ OUT
ADHH:MOV R4,#20
LJMP CLR0
INC 74H
XRL A,#03H
JNZ OUT
ADH:MOV R4,#20
LJMP CLR0
INC 75H
XRL A,#02H
SUCCESS:SETB ET0
RETI
OUT:LJMP DISPLAY
CLR0:MOV @R0,#00H
RET
ST:MOV TMOD,#01H
MOV TL0,#0B0H
MOV TH0,#3CH
SETB EA
SETB ET0
SETB TR0
MOV R4,#20
MOV 75H,#00H
MOV 74H,#00H
MOV 73H,#00H
MOV 72H,#00H
MOV 71H,#00H
MOV 70H,#00H
LJMP DISPLAY
DISPLAY:MOV R1,#70H
MOV R5,#01H
PLAY:MOV A,R5
MOV P1,#0FFH
MOV P3,A
MOV A,@R1
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P1,A
LCALL DL1MS
INC R1
MOV A,R5
JB ACC.5,ENDOUT
RL A
MOV R5,A
LJMP PLAY
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH,88H,0C7H
DL1MS:MOV R6,#14H
DL1:MOV R7,#19H
DL2:DJNZ R7,DL2
DJNZ R6,DL1
RET
ENDOUT:MOV P3,#00H
MOV P1,#0FFH
LJMP ADSS