title	FNB
	subttl	Module from library C_1 : FNB
	maclib	SYSEQU.LIB

; FILE:	FNB.MAC
; DATE: 820818:1115
; FOR:	Find next blank or tab in string <BC>

; ENTRY	: Reg BC points to string
; EXIT	: Reg BC points to nonblank
;	  Accu contains nonblank

	entry	fnb

fnb:
	ld	a,(bc)		; Check blank
	cp	blank
	jr	z,fnb0		; .. skip
	cp	tab		; Check TAB
	jr	z,fnb0
	cp	endstr		; .. and end
	ret	nz
fnb0:
	inc	bc
	jr	fnb

	end