ld	hl,-1000	; HL:=(-1000);
	add	hl,bc		; HL:=HL+BC;
	jp	nc,vlow		; go to LOW if BC register pair less than 1000;
	ld	a,h
	or	l		; test if HL register pair equals zero;
	jp	z,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;