ORG 0001H
LJMP MAIN
ORG 0030H
MAIN:MOV P1,#00000001B
lcall YC
MOV P1,#00000010B
lcall YC
MOV P1,#00000100B
lcall YC
MOV P1,#00001000B
lcall YC
MOV P1,#00010000B
lcall YC
MOV P1,#00100000B
lcall YC
MOV P1,#01000000B
lcall YC
MOV P1,#10000000B
lcall YC
LJMP MAIN
YC: MOV R1, #10
D1 : MOV R2, #100
D2 : MOV R3, #100
DJNZ R3, $
DJNZ R2, D2
DJNZ R1, D1
ret
end