ORG 0000H
			MOV A, #33H			;A = 33H
			MOV R0, #24
L1:		RR A					;ROTATE RIGHT
			MOV P2, A			;P2 = A
			ACALL DELAY
			DJNZ R0, L1
			ACALL DELAY_1S
			MOV R0, #24
L2:		RL A              ;ROATATE LEFT
			MOV P2, A			;P2 = A
			ACALL DELAY
			DJNZ R0, L2
			SJMP $
			
DELAY:	MOV R3, #200
HERE2:	MOV R4, #255
HERE:		DJNZ R4, HERE
			DJNZ R3, HERE2
			RET
			
DELAY_1S:
			MOV R1, #200
D3:		MOV R2, #200
D2:		MOV R3, #255
D1:		DJNZ R3, D1
			DJNZ R2, D2
			DJNZ R1, D3
			END