extrn	.iopoll, .bsta, .ordy, .bput
;
; poll, then check for output ready
; a,f
.bputp::
	call	.iopoll
;	"	"
; put byte (c) to buffer hl^ when ready, else wait.  Entry for
; interrupt driven systems.  This enables interrupts/polling
; a,f
.bputc::
	ei ! nop ! di;		allow external interrupts here
	call	.bsta;		DO NOT remove the nop.
	ani	.ordy
	jz	.bputp
	call	.bput
	ei
	ret