1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
PAGE ,132 ;
TITLE ASSPARM.SAL - ASSIGN SYSTEM COMMAND LINE PARSER
;****************** START OF SPECIFICATIONS *****************************
; MODULE NAME: ASSGPARM.SAL
;
; DESCRIPTIVE NAME: Include the DOS system PARSER in the SEGMENT
; configuration expected by the modules of ASSIGN.
;
;FUNCTION: The common code of the DOS command line PARSER is optimized by
; the setting of certain switches that cause the conditional
; assembly of only the required portions of the common PARSER.
; The segment registers are ASSUMED according to the type .EXE.
;
; ENTRY POINT: SYSPARSE, near
;
; INPUT:
; ES - has seg id of the SEGMENT
; that contains the input control blocks,
; defined below.
;
; DI - offset into ES of the PARMS INPUT BLOCK
;
; DS - has seg id of the SEGMENT
; that contains the DOS input COMMAND
; string, which is originally presented at 81h
; in the PSP.
;
; SI - offset into DS of the text of the DOS input COMMAND string
; as originally presented at 81H in the PSP.
;
; DX - zero
;
; CX - ordinal value, intially zero, updated on each subsequent call
; to the value returned in CX on the previous call.
;
; CS - points to the segment containing the
; INCLUDE PARSE.SAL statement
;
; DS - also points to the segment containing the INCLUDE
; PARSE.SAL statement.
;
; EXIT-NORMAL: Output registers:
; AX - return code:
; RC_No_Error equ 0 ; No error
; RC_EOL equ -1 ; End of command line
;
; DX - Offset into ES of the selected RESULT BLOCK.
; BL - terminated delimiter code
; CX - new operand ordinal
; SI - set past scanned operand
;
; EXIT-ERROR: Output registers:
; AX - return code:
; RC_Too_Many equ 1 ; Too many operands
; RC_Op_Missing equ 2 ; Required operand missing
; RC_Not_In_SW equ 3 ; Not in switch list provided
; RC_Not_In_Key equ 4 ; Not in keyword list provided
; RC_Out_Of_Range equ 6 ; Out of range specified
; RC_Not_In_Val equ 7 ; Not in value list provided
; RC_Not_In_Str equ 8 ; Not in string list provided
; RC_Syntax equ 9 ; Syntax error
;
; INTERNAL REFERENCES:
; ROUTINES: SYSPARSE:near (INCLUDEd in PARSE.SAL)
;
; DATA AREAS: none
;
; EXTERNAL REFERENCES:
; ROUTINES: none
;
; DATA AREAS: control blocks pointed to by input registers.
;
; NOTES:
; This module should be processed with the ASMUT preprocessor
; with the re-alignment not requested, as:
;
; SALUT ASSPARM,NUL;
;
; To assemble these modules, the sequential
; ordering of segments may be used.
;
; For LINK instructions, refer to the PROLOG of the main module,
; ASSIGN.SAL
;
; REVISION HISTORY: A000 Version 4.00: add PARSER, System Message Handler,
;
; COPYRIGHT: "Microsoft DOS ASSIGN Utility"
; "Version 4.00 (C)Copyright 1988 Microsoft Corp"
; "Licensed Material - Program Property of Microsoft "
;
;****************** END OF SPECIFICATIONS *****************************
IF1
%OUT COMPONENT=ASSIGN, MODULE=ASSPARM.SAL...
ENDIF
; = = = = = = = = = = = =
HEADER <MACRO DEFINITION>
; = = = = = = = = = = = =
HEADER MACRO TEXT
.XLIST
SUBTTL TEXT
.LIST
PAGE
ENDM
; = = = = = = = = = = = =
HEADER <SYSPARSE - SYSTEM COMMAND LINE PARSER> ; ;AN000;
CODE SEGMENT PARA PUBLIC ; ;AN000;
ASSUME CS:CODE,DS:CODE,ES:CODE,SS:CODE ; ;AN000;
PUBLIC SYSPARSE ;SUBROUTINE ENTRY POINT ;AN000;
CAPSW EQU 1 ;SUPPORT FILENAME TBL CAPS
FARSW EQU 0 ;PARSER CALL NEAR
FILESW EQU 0 ;CHECK FOR FILESPEC
DATESW EQU 0 ;SUPPRESS DATE CHECKING
TIMESW EQU 0 ;SUPPRESS TIME CHECKING
CMPXSW EQU 0 ;SUPPRESS CHECKING COMPLEX LIST
NUMSW EQU 0 ;SUPPRESS CHECKING NUMERIC VALUE
KEYSW EQU 0 ;SUPPRESS KEYWORD SUPPORT
VAL1SW EQU 0 ;SUPPRESS SUPPORT OF VALUE DEFINITION 1
VAL2SW EQU 0 ;SUPPRESS SUPPORT OF VALUE DEFINITION 2
VAL3SW EQU 1 ;SUPPORT OF VALUE DEFINITION 3
DRVSW EQU 0 ;SUPPORT OF DRIVE ONLY FORMAT
QUSSW EQU 0 ;SUPPRESS SUPPORT OF QUOTED STRING FORMAT
IF1 ; ;AN000;
%OUT COMPONENT=ASSIGN, SUBCOMPONENT=PARSE, MODULE=PARSE.ASM...
%OUT COMPONENT=ASSIGN, SUBCOMPONENT=PARSE, MODULE=PSDATA.INC...
ENDIF ; ;AN000;
;PARSE WORK AREA & EQUATES
.xlist
INCLUDE PARSE.ASM
.list
CODE ENDS
END
|
