title	Module from library BASE_2 : XPARSE
	name	('XPARSE')
	maclib	baselib.lib

; Parse a line with exceptions

; 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.
;	Zero indicates end of string.
;	On error return, the carry flag will be set

	entry	xparse

	ext	parse,$prdelm,$prptr

xparse:
	call	$prdelm		; Check delimiter
	call	parse		; Parse
	jp	$prptr		; Fix pointer

	end