ORG 0000H
	AJMP MAIN
	ORG 0030H
MAIN:
	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