;
; Check hl for the value 0, preserve a.  Carry if zero
; a,f
.nilchk::
	push	b
	mov	b,a
	mov	a,h
	ora	l
	mov	a,b
	pop	b
	rnz;			non-nil pointer
	stc;			nil pointer
	ret