ORG 0000H
SJMP STAR
ORG 001BH
SJMP TLS
ORG 30H
STAR: SETB P3.0
MOV R2,#0
MOV R4,#20
MOV IE,#88H
MOV TMOD,#10H
MOV TH1,#3CH
MOV TL1,#0B0H
SETB TR1
MOV A,R2
MOV B,#10
DIV AB
ACALL LED7
MOV P1,A
MOV A,B
ACALL LED7
MOV P2,A
SJMP $
TLS: MOV TH1,#3CH
MOV TL1,#0B0H
DJNZ R4,T1S0
MOV R4,#20
DJNZ R2,T1S1
CLR TR1
CLR P3.0
SJMP T1S1
T1S0: RETI
T1S1: MOV A,R2
MOV B,#10
DIV AB
ACALL LED7
MOV P1,A
MOV A,B
ACALL LED7
MOV P2,A
RETI
LED7: INC A
MOVC A,@A+PC
RET
DB 0C0H,0F9H,0A4H,0B0H
DB 99H,92H,82H,0F8H
DB 80H,90H,88H,83H
DB 0C6H,0A1H,86H,8EH
END
|