;       SCCSID = @(#)demparse.asm	6.1 90/11/17
;	SCCSID = @(#)demparse.asm	13.11	89/10/26
;
;   Revisions:
;
;Local	DCR/
;Tag	PTM(R)	Who	When/What
;		danno	03-Mar-1989
;			Created for MVDM
;
;
;

.xlist
include v86seg.inc

.xcref
include basemaca.inc
include osmaca.inc
include oldmaca.inc
include demmac.inc
include mvdmexp.inc
include demsvc.inc
include dossymc.inc
.cref
.list
	CpuMode	386

V86CODE SEGMENT
	ASSUME	CS:V86GROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING

	EXTRN	   Get_User_Stack:NEAR

BREAK <$Parse_File_Descriptor -- Parse an arbitrary string into an FCB>

; Inputs:
;       DS:SI Points to a command line
;       ES:DI Points to an empty FCB
;       Bit 0 of AL = 1 At most one leading separator scanned off
;                   = 0 Parse stops if separator encountered
;       Bit 1 of AL = 1 If drive field blank in command line - leave FCB
;                   = 0  "    "    "     "         "      "  - put 0 in FCB
;       Bit 2 of AL = 1 If filename field blank - leave FCB
;                   = 0  "       "      "       - put blanks in FCB
;       Bit 3 of AL = 1 If extension field blank - leave FCB
;                   = 0  "       "      "        - put blanks in FCB
; Function:
;       Parse command line into FCB
; Returns:
;       AL = 1 if '*' or '?' in filename or extension, 0 otherwise
;       DS:SI points to first character after filename

	procedure   $PARSE_FILE_DESCRIPTOR,NEAR
ASSUME  DS:NOTHING,ES:NOTHING

	SVC	SVC_DEMMAKEFCB
	PUSH    SI
	invoke  get_user_stack
	POP     [SI.user_SI]
	return
EndProc $PARSE_FILE_DESCRIPTOR


V86CODE ENDS
	END
