title	Module from library BASE_3 : XFPARS
	name	('XFPARS')
	maclib	baselib.lib

; Parse a line with check of dot and exception list

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

;		Version 1.0 September 1991

; ENTRY	Reg pair <DE> points to a two address parse
;	parameter block
;	Reg pair <HL> points to exception list started with
;	number of characters in the list

; EXIT	On normal return, carry will be reset and reg pair <HL>
;	points either to next item or holds zero on end.
;	Accu holds 0 if no dot found or one if dot found in
;	file name
;	On error return, the carry flag will be set

	entry	xfpars

	ext	fparse,$prdelm,$prptr

xfpars:
	call	$prdelm		; Check delimiter
	call	fparse		; Parse
	jp	$prptr		; Fix pointer

	end