title	SETBF
	subttl	Module from library C_1 : SETBF
	maclib	SYSEQU.LIB

; FILE:	SETBF.MAC
; DATE: 820819:1244
; FOR:	Get FILLBF or MTBUF info from block

; Set up registers for FILLBF or MTBUF call

; ENTRY	: Reg HL points to buffer+4 (Buffer size)
; EXIT	: Reg HL points to buffer start
;	  Reg DE points to FCB
;	  Reg C holds sector size

	entry	setbf

setbf:
	ld	e,(hl)		; Buffer size
	inc	hl
	ld	d,(hl)
	dec	hl
	dec	hl
	ld	(hl),d		; Pointer
	dec	hl
	ld	(hl),e
	dec	hl
	ld	b,(hl)		; Buffer end
	dec	hl
	ld	c,(hl)
	ex	de,hl		; Buffer size
	add	hl,bc		; Gets buffer start
	push	hl
	ex	de,hl
	ld	de,6
	add	hl,de
	ld	e,(hl)		; FCB addr
	inc	hl
	ld	d,(hl)
	inc	hl
	ld	c,(hl)		; Sector size
	pop	hl		; Ready to go
	ret

	end