ext	fill
	public	inifcb,ifcb

; Initialize complete FCB pointed to by DE
; INIFCB initializes 32 bytes as fcb1 and fcb2
; IFCB initializes 16 bytes starting with DE->FN

inifcb:
	inc	de		; Point to file name field
	call	ifcb		; Fill 1st part of FCB
				; Fall through to IFCB to run again

;--------------------

; Initialize part of FCB whose file name field is pointed to by DE on entry.
; The file name and type are set to space characters; the EX, S2, RC, and the
; following CR (current record ) or DN (disk number) fields are set to zero.
; The S1 byte is set to the current user number.  On exit, DE points to the
; byte at offset 17 in the FCB (two bytes past the record count byte).

ifcb:
	ld	b,11		; Store 11 spaces for file name and type
	ld	a,' '
	call	fill
	ld	b,5		; Store 5 zeroes
	xor	a		; Fall thru to fill
	jp	fill		;

	end