ORG 0000H
AJMP MAIN
ORG 000BH
AJMP INT
MAIN:MOV SP,#50H
MOV IE,#82H
MOV TMOD,#01H
MOV TL0,#78H
MOV TH0,#0ECH
MOV R5,#00H
SETB TR0
N0: MOV R2,#30
MOV R3,#25
MOV P1,#1EH
N01:CJNE R3,#00,$
MOV R3,#5
N02: MOV P1,#1DH
N1: MOV R4,#00H
N11: CJNE R4,#64H,$
N12: CPL P1.1
CJNE R3,#00,N1
N2: MOV R3,#30
MOV R2,#25
MOV P1,#33H
CJNE R2,#00,$
MOV P1,#2BH
MOV R2,#5
N3: MOV R4,#00H
N31: CJNE R4,#64H,$
N32: CPL P1.4
CJNE R2,#00,N3
MOV R2,#30
MOV R3,#25
SJMP N0
INT: MOV TL0,#78H
MOV TH0,#0ECH
INC R4
INC R5
CJNE R5,#0C8H,T01
MOV R5,#00H
DEC R2
DEC R3
T01: ACALL DISP
RETI
DISP: MOV B,#0AH
MOV A,R3
DIV AB
MOV 70H,A
MOV 71H,B
MOV B,#0AH
MOV A,R2
DIV AB
MOV 72H,A
MOV 73H,B
MOV R0,#70H
MOV DPTR,#TAB
MOV R1,#01H
DISP0:MOV P2,R1
MOV A,@R0
MOVC A,@A+DPTR
MOV P0,A
ACALL DLAY
INC R0
MOV A,R1
JB ACC.3,DISP1
RL A
MOV R1,A
SJMP DISP0
DISP1: RET
DLAY: MOV R7,#02H
DL: MOV R6,#0FFH
DL1: DJNZ R6,DL1
DJNZ R7,DL
RET
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,88H
END
|