extrn	.nilchk, .xltusr, .bfinit, b.wflg, .fopnw
;
; initialize buffer hl^, size bc, attached file de^, user a
; for buffered file writes.  Create/rewind the output file.
; a,f
.bfwopen::
	call	.nilchk ! rc
	call	.xltusr
	push	h
	mov	h,a;		save user desired
	ori	b.wflg;		actually b.eof+b.wrt
	xthl;			save users, get buff ptr
	call	.bfinit;	initialize buffer
	xthl;			get users, save buff ptr
	mov	a,h
	pop	h
	jmp	.fopnw