title	MAKFCB
	subttl	Module from library C_3 : MAKFCB
	maclib	SYSEQU.LIB

; FILE:	MAKFCB.MAC
; DATE: 820823:1350
; FOR:	Create FCB at <DE> from file at <HL>

; Create FCB from filename string
; ENTRY	: Reg HL points to filename string
;	  Reg DE points to FCB space
; EXIT	: Reg HL points behind FCB -> It's the start of buffer
;	  Reg DE points still to FCB
;

	entry	makfcb

	ext	cerror
	ext	@assig

makfcb:
	call	@assig		; Assign file
	jr	c,..mak.err	; .. error
	ld	hl,36
	add	hl,de		; Point behind FCB
	ret
..mak.err:
	call	cerror
	msg	<'MAKFCB: Illegal file specifier'>

	end