extrn	.lastch, .nextch, .qwhite
;
; skip blanks and tabs in input line.  Abort on illegal chars.
; return the 1st non-blank char. found.
; a,f,d,e
.skipblks::
	call	.lastch
	rc;			eoln
skip1:	call	.qwhite
	rnz;			not white space
;	"	"
; Advance to non-blank, line de^. "call .nextch ! call .skipblks"
; a,f,d,e
.nxt::	call	.nextch
	jnc	skip1
	ret;			eoln