ORG 0000H

LJMP MAIN

ORG 0100H

MAIN:

MOV R0,#0FEH

MOV R1,#4

loop1:

MOV A,R0

MOV P1,A

LCALL delay

MOV A,R0

RL A

RL A

MOV R0,A

DJNZ R1,loop1

MOV R0,#07FH

MOV R1,#4

LOOP2:

MOV A,R0

MOV P1,A

Lcall Delay

MOV A,R0

RR A

RR A

MOV R0,A

DJNZ R1,LOOP2

MOV R0,#0EFH

MOV R2,#0F7H

MOV R1,#10

MOV A,R0

ANL A,R2

loop3:

MOV P1,A

ACALL DELAY

MOV A,R0

RR A

MOV R0,A

MOV A,R2

RL A

MOV R2,A

ANL A,R0

DJNZ R1,LOOP3

SJMP $

DJNZ R4,$

DJNZ R3,D2

DJNZ R2,D1

RET

DELAY:

MOV R5,#10

D2:

MOV R6,#200

D1:

MOV R7,#248

DJNZ R7,$

DJNZ R6,D1

DJNZ R5,D2

RET

END