title	Module from library BASE_4 : CREATC
	name	('CREATC')
	maclib	baselib.lib

; Create new directory entry and check if on disk

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 August 1986

; ENTRY	Reg pair <DE> points to FCB

; EXIT	On normal return carry is reset
;	On error carry will be set

	entry	creatc

	extrn	open,create

creatc:
	call	open		; Check if on disk
	jp	c,create	; No, create new one
	scf			; Exit with error
	ret

	end