SJMP MAIN
ORG 0030H
MAIN: LCALL L1
LCALL L2
LCALL L3
SJMP MAIN
L1:MOV P1,#0FFH
MOV A,#1
MOV R5,#8
K1:XRL P1,A
LCALL DELAY02S
RL A
DJNZ R5,K1
RET
L2:XRL P1,#0FFH
LCALL DELAY02S
RET
L3:MOV R6,#7
MOV A,#40H
K2:XRL P1,A
LCALL DELAY02S
RR A
DJNZ R6,K2
RET
DELAY02S: MOV R4,#2
D3: MOV R3,#200
D2: MOV R2,#250
D1: DJNZ R2,D1
DJNZ R3,D2
DJNZ R4,D3
RET
END