extrn	.iopoll, .bsta, .inrdy, .bget
;
; poll, then check for data ready
; a,f
.bgetp::
	call	.iopoll
;	"	"
; get byte from buffer hl^ when ready, else wait.  Entry for
; interrupt driven systems.  This enables interrupts/polling
; a,f
.bgetc::
	ei ! nop ! di;		allow external interrupts here
	call	.bsta;		DO NOT remove the nop.
	ani	.inrdy
	jz	.bgetp
	call	.bget
	ei
	ret