extrn	.bput, b.cnt
;
; Fill buffer hl^ with (c) until it holds a multiple of
; 128 bytes.  Used in final flushing of output buffers.
; CAUTION: buffer must hold at least 128 bytes
; *** ENTRY below, not here ***
; a,f
bfill1:	call	.bput;			append a byte
;	"	"
; ENTRY here.
.bfill::
	push d	! push	h;		*** <<< ENTRY <<<<
	lxi d,b.cnt ! dad d;	point to ctr field
	mov a,m	! ani 07fh
	pop h	! pop d
	jnz	bfill1
	ret