LXI	B,0		; BC:=0;
LOOP	EQU	$
				; [main body of loop]
	INX	B		; BC:=BC+1;
	LXI	H,-1000		; loop to stop at 1000;
	DAD	B		; HL:=HL+BC;
	JNC	LOOP		; go to LOOP if carry is zero;