LXI	H,-1000		; HL:=(-1000);
	DAD	B		; HL:=HL+BC;
	JNC	VLOW		; go to LOW if BC register pair less than 1000;
	MOV	A,H
	ORA	L		; test if HL register pair equals zero;
	JZ	VEQUAL
VHIGH	EQU	$		; beginning of routine if BC rsgister pair greater
				;   than 1000;
VEQUAL	EQU	$		; beginning of routine if BC register pair equals 1000;

VLOW	EQU	$		; beginning of routine if BC register pair less
				;   than 1000;