extrn	.bsta, .inrdy, .bload, .bget
;
; Input (a) from buffered file via buffer hl^
; a,f
.bfgetc::
	call	.bsta
	ani	.inrdy
	jnz	.bget;		available, get it
	call	.bload
	jnc	.bfgetc;	to check for empty file
	ret;			eof found