ORG 0000H
LJMP MAIN
ORG 0100H
MAIN:
MOV 41H,#2
MOV R3,#5
MOV R4,#40H
MOV A,R4
LOOP:MOV P1,A
LCALL DNZ
RR A
DJNZ R3,LOOP
MOV R1,#5
MOV R2,#02H
MOV A,R2
LOOP2:MOV P1,A
LCALL DNZ
RL A
DJNZ R1,LOOP2
MOV 40H,#1
SHAN:
MOV 30H,#2
LOOP3:MOV P1,#0AH
LCALL DNZ
MOV P1,#00H
DJNZ 30H,LOOP3
MOV 31H,#3
LOOP4:MOV P1,#55H
LCALL DNZ
MOV P1,#00H
DJNZ 31H,LOOP4
DJNZ 40H,SHAN
DJNZ 41H,MAIN
SJMP $
DNZ:
DEL2:MOV R7,#10
DEL1:MOV R6,#100
DEL0:MOV R5,#100
DJNZ R5,DEL0
DJNZ R6,DEL1
DJNZ R7,DEL2
RET
END