lauflicht mit shift

cseg at 8100h

		mov A, #00001000b
M0:		mov R7, A
		mov A, 090h
		ANL A, #00000001b
		jz N1
		sjmp N2

N1:		mov A, R7
		RL A
		mov 0FAh, A
		ACALL WAIT
		sjmp M0

N2:		mov A, R7
		RR A
		mov 0FAh, A
		ACALL WAIT
		sjmp M0

WAIT: 	mov R7, A
		mov A, #0FFh
W0:		jz WFIN
		mov  R1, #0FFh
W2:		nop
		nop
		djnz R1, W2
		dec A
		sjmp W0
WFIN:	mov A, R7
		ret


end