ORG 0000H
LJMP MAIN
ORG 0200H
MAIN:
MOV SP,#5FH
LCALL DELAY
MOV R1,#3


F1:MOV P1,#00H
LCALL DELAY
MOV P1,#0FFH
LCALL DELAY
DJNZ R1,F1
NOP
MOV A,#0FFH
CLR C
F2:RRC A
  MOV P1,A
  LCALL DELAY
  JB P1.0 ,F2
 NOP
F3:RLC A
  MOV P1,A
  LCALL DELAY
  JB P1.7,F3
  NOP
  MOV P1,#7EH
LCALL DELAY
  MOV P1,#0E7H
  LCALL DELAY
  MOV P1,#0BDH
LCALL DELAY
  MOV P1,#0DBH
  LCALL DELAY
  MOV P1,#0E7H
  LCALL DELAY
   MOV  P1,#0C3H
  LCALL DELAY 
  MOV P1,#81H
  LCALL DELAY
  MOV P1,#00H
  LCALL DELAY 
  MOV P1,#0FFH
 LCALL DELAY
  MOV A,#7FH
MOV R6,#24
  MOV P1,A
LCALL DELAY 
NOP
L1:RR A
  MOV P1,A
  LCALL DELAY1
  DJNZ R6,L1
 MOV R5,#24
NOP
L2:RL A
  MOV  P1,A
  LCALL DELAY1
  DJNZ R5,L2
 MOV P1,#0FFH
NOP
 
DELAY1:
	MOV R4,#01H
     D1:MOV R3,#011H
     D2:MOV R2,#011H
    D3:DJNZ R2,D3
     DJNZ  R3,D2
     DJNZ  R4,D1
 DELAY:MOV R4,#02H
     E1:MOV R3,#0EFH
     E2:MOV R2,#0FFH
    E3:DJNZ R2,E3
     DJNZ  R3,E2
     DJNZ  R4,E1
RET
 
 LJMP MAIN
END