;
;	CHASING LEDS USING DO-WHILE LOOP
;	VERSION 0
;
	ORG	0x0000		;PROGRAM START ADDRESS
;
LOOP:	SUB	A		;0->A
	OUT	0xFF		;A->DATA LEDS
	MVI	A,1		;1->A
AGAIN:	OUT	0xFF		;A->DATA LEDS
	ADD	A		;A+A->A (ROTATE A LEFT 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