extrn	.ldem
;
; return bc := space available. If buffer empty return z flag
; a,f,b,c
.broom::
	push h	! push d
	inx h	! inx h;	past flags
	call	.ldem;		size
	inx h	! inx h;	advance to count
	mov a,e	! sub m ! mov c,a
	inx	h
	mov a,d ! sbb m ! mov b,a; bc := size - cnt
	mov a,m ! dcx h ! ora m; check for cnt=0
	pop d	! pop h
	rz
	mvi	a,0ffh;		default non-empty
	ret