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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
|
INCSW EQU 0 ;INCLUDE PSDATA.INC ;AN000;
FARSW EQU 0 ;CALL THE PARSER BY NEAR CALL
DATESW EQU 1 ; ;SUPPRESS DATE CHECKING ;AN000;
TIMESW EQU 1 ; ;SUPPRESS TIME CHECKING ;AN000;
FILESW EQU 1 ;SUPPORT CHECKING FILE SPECIFICATION ;AN000;
CAPSW EQU 1 ; ;SUPPRESS FILE TABLE CAPS ;AN000;
CMPXSW EQU 1 ; ;SUPPRESS CHECKING COMPLEX LIST
DRVSW EQU 1 ; ;SUPPRESS SUPPORT OF DRIVE ONLY FORMAT
QUSSW EQU 1 ; ;SUPPRESS SUPPORT OF QUOTED STRING FORMAT ;AN000;
NUMSW EQU 1 ; ;SUPPRESS CHECKING NUMERIC VALUE
KEYSW EQU 1 ;SUPPORT KEYWORDS ;AN000;
SWSW EQU 1 ;DO SUPPORT SWITCHES ;AN000;
VAL1SW EQU 1 ;SUPPORT VALUE DEFINITION 1 ;AN000;
VAL2SW EQU 1 ; ;SUPPRESS SUPPORT OF VALUE DEFINITION 2 ;AN000;
VAL3SW EQU 1 ;DO SUPPORT VALUE DEFINITION 3
include psdata.inc
;***********************************************************************
;-------------------------------------------------------------------
;
; parser stuff for XMA2EMS.SYS
;
;-------------------------------------------------------------------
p_block:
dw offset px_block ; address of extended parms block
db 0 ; number of extra stuff
;$P_PARMS_Blk <offset px_block, 0, 0> ; parm block
;------------------------
; extended parameter block for APPEND first load
px_block:
db 1 ; min number positional operands
db 1 ; max number positional operands
dw offset dummy_ctl ; dummy control block
db 1 ; /X only switch
dw offset X_Switch ; control block for /X switch
db 7 ; max number of keywords
dw offset frame_ctl ; offset of FRAME= keyword control block
dw offset p0_ctl ; offset of p0 keyword control block
dw offset p1_ctl ; offset of p1 keyword control block
dw offset p2_ctl ; offset of p2 keyword control block
dw offset p3_ctl ; offset of p3 keyword control block
dw offset p254_ctl ; offset of p254 keyword control block
dw offset p255_ctl ; offset of p255 keyword control block
;------------------------
dummy_ctl:
dw 0200h ;
dw 0 ; no caps
dw offset dum_result ; pointer to dummy result block
dw offset dum_values ; pointer to null values block
db 0 ; number of switches and synonyms
dum_values:
dw 0 ; null value list
X_Switch:
dw $P_Num_Val ; /X:64
dw 0002 ; caps
dw offset X_Result ; pointer to result block
dw offset X_Values ; pointer to values block, none
db 1 ; number of switches and synonyms
db "/X",0 ; only /X is valid
X_Values:
db 1 ; numeric values
db 1 ; 1 ranges
db 1 ; = 1 means good range
dd 4 ; valid values range from 4 (64Kb)...
dd 512 ; 512 (8MB)
;------------------------
frame_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset frame_result ; pointer to result block
dw offset address_values ; pointer to values block
db 1 ; number of synonyms
db "FRAME=",0
p0_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset p0_result ; pointer to result block
dw offset address_values ; pointer to values block
db 3 ; number of synonyms
db "P0=",0
db "P00=",0
db "P000=",0
p1_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset p1_result ; pointer to result block
dw offset address_values ; pointer to values block
db 3 ; number of synonyms
db "P1=",0
db "P01=",0
db "P001=",0
p2_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset p2_result ; pointer to result block
dw offset address_values ; pointer to values block
db 3 ; number of synonyms
db "P2=",0
db "P02=",0
db "P002=",0
p3_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset p3_result ; pointer to result block
dw offset address_values ; pointer to values block
db 3 ; number of synonyms
db "P3=",0
db "P03=",0
db "P003=",0
p254_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset p254_result ; pointer to result block
dw offset address_values ; pointer to values block
db 1 ; number of synonyms
db "P254=",0
p255_ctl:
dw $P_Simple_S ; used for FRAME= and Pxxx=
dw 0 ; cap by char table
dw offset p255_result ; pointer to result block
dw offset address_values ; pointer to values block
db 1 ; number of synonyms
db "P255=",0
;------------------------
address_values:
db 3 ; strings
db 0 ; zeroes here for ranges
db 0 ; and values
db 24 ; 24 possible strings
db 0A0h
dw offset A0_str
db 0A4h
dw offset A4_str
db 0A8h
dw offset A8_str
db 0ACh
dw offset AC_str
db 0B0h
dw offset B0_str
db 0B4h
dw offset B4_str
db 0B8h
dw offset B8_str
db 0BCh
dw offset BC_str
db 0C0h
dw offset C0_str
db 0C4h
dw offset C4_str
db 0C8h
dw offset C8_str
db 0CCh
dw offset CC_str
db 0D0h
dw offset D0_str
db 0D4h
dw offset D4_str
db 0D8h
dw offset D8_str
db 0DCh
dw offset DC_str
db 0E0h
dw offset E0_str
db 0E4h
dw offset E4_str
db 0E8h
dw offset E8_str
db 0ECh
dw offset EC_str
db 0F0h
dw offset F0_str
db 0F4h
dw offset F4_str
db 0F8h
dw offset F8_str
db 0FCh
dw offset FC_str
A0_str db "A000",0
A4_str db "A400",0
A8_str db "A800",0
AC_str db "AC00",0
B0_str db "B000",0
B4_str db "B400",0
B8_str db "B800",0
BC_str db "BC00",0
C0_str db "C000",0
C4_str db "C400",0
C8_str db "C800",0
CC_str db "CC00",0
D0_str db "D000",0
D4_str db "D400",0
D8_str db "D800",0
DC_str db "DC00",0
E0_str db "E000",0
E4_str db "E400",0
E8_str db "E800",0
EC_str db "EC00",0
F0_str db "F000",0
F4_str db "F400",0
F8_str db "F800",0
FC_str db "FC00",0
;------------------------
dum_result $P_Result_Blk <> ; dummy result block
X_Result $P_Result_Blk <> ; /X result block
frame_result $P_Result_Blk <> ; FRAME= result block
p0_result $P_Result_Blk <> ; p0= result block
p1_result $P_Result_Blk <> ; p1= result block
p2_result $P_Result_Blk <> ; p2= result block
p3_result $P_Result_Blk <> ; p3= result block
p255_result $P_Result_Blk <> ; p254= result block
p254_result $P_Result_Blk <> ; p255= result block
|
