ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:
mov P2 , #00
mov P0 , #01h
MOV A ,P0
LOOP:RL A
LCALL DELAY
MOV P0,A
LCALL DELAY
SJMP LOOP
DELAY:MOV R6,#255
D1:   MOV R7,#255
      DJNZ R7,$
      DJNZ R6,D1
      RET
      END