ORG 0000H
LJMP MIAN
ORG 000BH
LJMP INT_T0
ORG 0030H
MIAN: MOV DPTR,#TABLE
TABLE:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
MOV R1,#200
MOV R2,#20 MOV R3,#0
MOV R4,#0
MOV R5,#0
MOV R6,#0
MOV TMOD,#02H
MOV TH0,#06H
MOV TL0,#00H
SETB EA
SETB ET0
SETB TR0
LOOP:
MOV P2,#07H
MOV A,R3
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY10ms
MOV P2,#06H
MOV A,R4
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY10ms
MOV P2,#05H
MOV A,R5
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY10ms
MOV P2,#04H
MOV A,R6
MOVC A,@A+DPTR
MOV P0,A
LCALL DELAY10ms
LJMP LOOP
INT_T0: DJNZ R1,QUIT
MOV R1,#200
DJNZ R2,QUIT
MOV R2,#20
INC R3
CJNE R3,#10,QUIT
MOV R3,#0
INC R4
CJNE R4,#10,QUIT
MOV R4,#0
INC R5
CJNE R5,#10,QUIT
MOV R5,#0
INC R6
CJNE R6,#10,QUIT
MOV R6,#0
QUIT:RETI
DELAY10ms:
MOV 40H,#10
LOOP1: MOV 41H,#200
DJNZ 41,$
DJNZ 40H,LOOP1
RET
END
|