ld	bc,-1		; BC:=(-1);
	ld	hl,1000		; HL:=1000:
loop:	add	hl,bc		; HL:=HL+BC;
	jp	nc,done		; go to DONE if carry equals zero;


	jp	loop		; go to LOOP;


done	equ	$		; start of routine where the loop exits to when done;