ORG 0000H
AJMP 0050H
ORG 000BH
AJMP 0100H
ORG 0050H
MOV SP,#6FH
MOV TMOD,#01H
MOV TH0,#3CH
MOV TL0,#0B0H
SETB EA
SETB ET0
SETB PT0
MOV R3,#14H
MOV R4,#0
SETB TR0
SJMP $
ORG 0100H
DJNZ R3,NEXT0
MOV R3,#14H
INC R4
CJNE R4,#1,NEXT1
L10:MOV R0,#7
MOV DPTR,#TABLE
L2:CLR A
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY1
INC DPTR
DJNZ R0,L2
SJMP NEXT0
DELAY1:MOV R1,#250
LOOP1:MOV R2,#250
LOOP2:NOP
NOP
NOP
NOP
NOP
DJNZ R2,LooP2
DJNZ R1,LooP1
RET
NEXT1: CJNE R4,#2,NEXT2
L100:MOV R0,#15
MOV DPTR,#TABLE1
L20:CLR A
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY2
INC DPTR
DJNZ R0,L20
SJMP next0
DELAY2:MOV R1,#250
L00P3:MOV R2,#250
LOOP4:NOP
NOP
NOP
NOP
NOP
DJNZ R2,LOOP4
DJNZ R1,L00P3
RET
NEXT2: CJNE R4,#3,NEXT0
L1000:MOV R0,#7
MOV DPTR,#TABLE2
L3:CLR A
MOVC A,@A+DPTR
MOV P0,A
ACALL DELAY3
INC DPTR
DJNZ R0,L3
MOV R4,#0
SJMP next0
DELAY3:MOV R1,#250
LooP5:MOV R2,#250
LOOP6:NOP
NOP
NOP
NOP
NOP
DJNZ R2,LooP6
DJNZ R1,LooP5
RET
NEXT0 : MOV TH0,#3CH
MOV TL0,#0B0H
SETB TR0
RETI
TABLE:
DB 7EH,0BDH,0DBH,0E7H,0DBH,0BDH,7EH
TABLE2:
DB 3FH,0CFH,0F3H,0FCH,0F3H,0CFH,3FH
TABLE1:
DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH,0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH
END |
