;
;	CHASING LEDS USING DO-WHILE LOOP
;	VERSION 1
;
	ORG	0x0000		;PROGRAM START ADDRESS
;
LOOP:	SUB	A		;0->A
	OUT	0xFF		;A->DATA LEDS
	MVI	A,0b10000000	;128->A
AGAIN:	OUT	0xFF		;A->DATA LEDS
	RAR			;ROTATE A RIGHT INTO CARRY
	MVI	B,5		;5->B
DELAY:	DCR	B		;B-1->B
	JNZ	DELAY		;IF B!=0 THEN JUMP DELAY
	JNC	AGAIN		;IF CARRY=0 THEN JUMP AGAIN
	JMP	LOOP