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
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
|
PAGE ,132
TITLE PARSE CODE AND CONTROL BLOCKS FOR PRINTER.SYS
;****************** START OF SPECIFICATIONS **************************
;
; MODULE NAME: PARSER.ASM
;
; DESCRIPTIVE NAME: PARSES THE DEVICE= STATEMENT IN CONFIG.SYS FOR
; PRINTER.SYS
;
; FUNCTION: THE COMMAND LINE PASSED TO PRINTER.SYS IN THE CONFIG.SYS
; STATEMENT IS PARSED TO CHECK FOR CORRECT SYNTAX. A TABLE
; IS SETUP CONTAINING THE VALUES FOUND.
;
; ENTRY POINT: PARSER
;
; INPUT: ES:DI POINTS TO REQUEST HEADER
;
; AT EXIT:
; NORMAL: TABLE SET UP WITH VALUES FOUND.
;
; ERROR: 0 RETURNED IN FIRST WORD OF TABLE.
;
; INTERNAL REFERENCES:
;
; ROUTINES: SYSPARSE - PARSING CODE
;
; DATA AREAS: PARMSx - PARSE CONTROL BLOCK FOR SYSPARSE
;
; EXTERNAL REFERENCES:
;
; ROUTINES: N/A
;
; DATA AREAS: TABLE - TO CONTAIN VALUES FOUND IN DEVICE= LINE
;
; NOTES:
;
; REVISION HISTORY:
; AN000; - DOS Version 4.00
; AN001 - GHG Changes had to made for P897. The PARSER was
; changed to need the '=' in the keywords.
;
; Label: "DOS DISPLAY.SYS Device Driver"
; "Version 4.00 (C) Copyright 1988 Microsoft
; "Licensed Material - Program Property of Microsoft"
;
;
;****************** END OF SPECIFICATIONS ****************************
;*Modification history ********************************************************
;AN001; p1482 - PRINTER.SYS refused to initialize 10/6/87 J.K.
;AN002; p2686 No range checking on n parameter for printer.sys 12/11/87 J.K.
;******************************************************************************
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; The following is the table structure of the parser. All fields are
; two bytes field (accept for the device and id name)
;
; TABLE HEADER :
; ��������������
; ����������������������������Ŀ
; � N = Number of devices. �
; ����������������������������Ĵ
; � Device # 1 offset ����������������>��������������������������Ŀ
; ����������������������������Ĵ � �
; � Device # 2 offset � � Table_1 (a) �
; ����������������������������Ĵ � �
; � Device # 3 offset � ����������������������������
; ����������������������������Ĵ
; � Device # 4 offset �
; ������������������������������
;
;
; N = 1,2,3 or 4. A two bytes number indicating the number of device specified.
; DEVICE # N OFFSET : a two bytes offset address to table_1. (ie. Device #1 offset
; is a pointer to table_1 (a). Device #2 offset is a pointer to table_1
; (b)...etc.). If an error was detected in the command N is set to zero.
;
;
;
; TABLE_1 :
; ���������
;
; ����������������������������Ŀ ��������������������������Ŀ
; � N = Number of Offsets. � � �
; ����������������������������Ĵ ������ij Table_2 (a) �
; � Device Name offset ������� � �
; ����������������������������Ĵ ����������������������������
; � Device Id offset �������Ŀ
; ����������������������������Ĵ � ��������������������������Ŀ
; � Device HWCP offset �����Ŀ � � �
; ����������������������������Ĵ � ����ij Table_3 (a) �
; � Device Desg offset ���Ŀ � � �
; ����������������������������Ĵ � � ����������������������������
; � "Reserved" � � �
; ������������������������������ � � ��������������������������Ŀ
; � � � �
; � ������ij Table_4 (a) �
; � � �
; � ����������������������������
; � ��������������������������Ŀ
; � � �
; ��������ij Table_5 (a) �
; � �
; ����������������������������
;
;
; N=Length of table_1, or the number of offsets contained in table_1.
; The offsets are pointers (two bytes) to the parameters value of the device.
; "Reserved" : a two byte memory reserved for future use of the "PARMS" option.
;
;
; TABLE_2 :
; ���������
;
; ����������������������������Ŀ
; � N = Length of devices name �
; ����������������������������Ĵ
; � Device name �
; ������������������������������
;
; N = Length of device name. Device length is always 8 byte long.
; Device Name : the name of the device (eg. LPT1, CON, PRN). The name
; is paded with spaces to make up the rest of the 8 characters.
;
;
;
; TABLE_3 :
; ���������
;
; ����������������������������Ŀ
; � N = Length of Id name. �
; ����������������������������Ĵ
; � Id Name �
; ������������������������������
;
; N = Length of id name. Id name length is always 8 byte long.
; Id Name : the name of the id (eg. EGA, VGA). The name
; is paded with spaces to make up the rest of the 8 character.
;
;
;
; TABLE_4 :
; ���������
;
; ����������������������������Ŀ
; � N = Length of table. �
; ����������������������������Ĵ
; � HWCP # 1 �
; ����������������������������Ĵ
; � HWCP # 2 �
; ����������������������������Ĵ
; � . �
; � . �
; � . �
; ����������������������������Ĵ
; � HWCP # 10 �
; ������������������������������
;
;
; N = Length of table in words. Or the number of HWCP's.
; HWCP # N : a hardware code page number converted to binary. The maximum
; number of pages allowed is 10.
;
;
;
; TABLE_5 :
; ���������
;
; ����������������������������Ŀ
; � N = Length of table. �
; ����������������������������Ĵ
; � Designate �
; ����������������������������Ĵ
; � Font �
; ������������������������������
;
; N = Lenght of table. 0 - nothing was specified
; 1 - Only a designate was specified.
; 2 - Designate and font were given. If the Desg field
; was left empty in the DEVICE command then the
; Designate field is filled with 0FFFFH.
; Designate, Font : Are the Desg. and Font binary numbers.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.XLIST
INCLUDE STRUC.INC ; Structured macros ;AN000;
.LIST
INCLUDE CPSPEQU.INC ;AN000;
PUBLIC PARSER ; near procedure for parsing DEVICE= statement ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Set assemble switches for parse code
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DateSW EQU 0 ;AN000;
DrvSW EQU 0 ;AN000;
SwSW EQU 0 ;AN000;
Val1SW EQU 1 ;;AN002; ;AN000;
Val2SW EQU 0 ;AN000;
Val3SW EQU 0 ;AN000;
CSEG SEGMENT PARA PUBLIC 'CODE' ;AN000;
ASSUME CS:CSEG,DS:NOTHING,ES:NOTHING ;AN000;
EXTRN TABLE:WORD ; table for variable storage used by INIT module. ;AN000;
EXTRN DEVICE_NUM:WORD ;AN000;
.XLIST
INCLUDE PARSE.ASM ; Parsing code ;AN000;
.LIST
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PARM control block for parsing PRINTER.SYS - DEVICE= command statement.
; Command line looks like:
;
; DEVICE=[d:][path]PRINTER.SYS LPT#[:]=(type[,[hwcp][,n]])
; or
; DEVICE=[d:][path]PRINTER.SYS LPT#[:]=(type[,[(hwcp1,hwcp2,...)][,n]])
;
; The command line will be parsed from left to right, taking care of the
; nesting of complex lists as they occur.
;
; The first level of control blocks is shown below.
; Complex list control blocks follow.
; Null VALUE LIST and RESULT BUFFER are placed after all other PARSE control
; blocks.
;
; d:\path\PRINTER.SYS lpt#=(complex list)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARMS1 LABEL WORD ;AN000;
DW PARMSX1 ;AN000;
DB 0 ; no extra delimeters or EOLs. ;AN000;
PARMSX1 LABEL BYTE ;AN000;
DB 1,1 ; min,max positional operands ;AN000;
DW D_NAME ; pointer to control block ;AN000;
DB 0 ; no switches ;AN000;
DB 1 ; 1 or more keywords ;AN000;
DW PRT_LIST ; pointer to control block ;AN000;
D_NAME LABEL WORD ;AN000;
DW 0200H ; file spec ;AN000;
DW 0001H ; cap result by file table ;AN000;
DW RESULT_BUF ; result ;AN000;
DW NOVALS ; no value checking done ;AN000;
DB 0 ; no keyword/switch synonyms ;AN000;
PRT_LIST LABEL WORD ;AN000;
DW 0402H ; complex list, repeats allowed ;AN000;
DW 0002H ; cap result by char table ;AN000;
DW RESULT_BUF ; result ;AN000;
DW NOVALS ; no value checking done ;AN000;
DB 8 ; 4 keywords ;AN000;
DB "PRN=",0 ;GHG Ŀ ;AN001;
DB "LPT1=",0 ;GHG � 4 possible keywords ;AN001;
DB "LPT2=",0 ;GHG � ;AN001;
DB "LPT3=",0 ;GHG �� ;AN001;
DB "PRN:=",0 ;GHG Ŀ ;AN001;
DB "LPT1:=",0 ;GHG � 4 possible keywords ;AN001;
DB "LPT2:=",0 ;GHG � with colon ;AN001;
DB "LPT3:=",0 ;GHG �� ;AN001;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PARM control block for second level of nesting.
; ie. complex list from first level of nesting
;
; (type, hwcp or complex list, n)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARMS2 LABEL WORD ;AN000;
DW PARMSX2 ;AN000;
DB 0 ; no extra delimeters or EOLs. ;AN000;
PARMSX2 LABEL BYTE ;AN000;
DB 1,3 ; min,max positional operands ;AN000;
DW PRT_TYPE ; pointer to control block ;AN000;
DW HWCP ; pointer to control block ;AN000;
DW CP_PREPS ; pointer to control block ;AN000;
DB 0 ; no switches ;AN000;
DB 0 ; no keywords ;AN000;
PRT_TYPE LABEL BYTE ;AN000;
DW 2000H ; sstring ;AN000;
DW 0002H ; cap by char table ;AN000;
DW RESULT_BUF ; result ;AN000;
DW NOVALS ; value list ;AN000;
DB 0 ; no keyword/switch synonyms ;AN000;
HWCP LABEL BYTE ;AN000;
DW 8401H ; numeric or complex list (optional) ;AN000;
DW 0 ; no functions ;AN000;
DW RESULT_BUF ; result ;AN000;
DW NOVALS ; no value checking done ;AN000;
DB 0 ; no keyword/switch synonyms ;AN000;
CP_PREPS LABEL BYTE ;AN000;
DW 8001H ; numeric (optional) ;AN000;
DW 0 ; no functions ;AN000;
DW RESULT_BUF ; result ;AN000;
DW N_Val_Range ;AN002; value list ;AN000;
DB 0 ; no keyword/switch synonyms ;AN000;
N_Val_Range label byte
db 1 ;AN002; Range defintion
db 1 ;AN002; Number of ranges
db 1 ;AN002; item tag
dd 0, 12 ;AN002; 0 - 12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PARM control block for third level of nesting.
; ie. complex list from second nesting level
;
; (hwcp1,hwcp2,...)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARMS3 LABEL WORD ;AN000;
DW PARMSX3 ;AN000;
DB 0 ; no extra delimeters or EOLs. ;AN000;
PARMSX3 LABEL BYTE ;AN000;
DB 1,1 ; min,max positional operands ;AN000;
DW HWCPS ; pointer to control block ;AN000;
DB 0 ; no switches ;AN000;
DB 0 ; no keywords ;AN000;
HWCPS LABEL BYTE ;AN000;
DW 8003H ; numeric, repeats allowed ;AN000;
DW 0 ; no functions ;AN000;
DW RESULT_BUF ; result ;AN000;
DW NOVALS ; no value checking done ;AN000;
DB 0 ; no keyword/switch synonyms ;AN000;
; Null VALUE LIST and RESULT BUFFER for all PARSE control blocks
NOVALS LABEL BYTE ;AN000;
DB 0 ; no value checking done ;AN000;
RESULT_BUF LABEL BYTE ;AN000;
RESULT_TYPE DB ? ; type returned (number, string, etc.) ;AN000;
DB ? ; matched item tag (if applicable) ;AN000;
SYN_PTR DW ? ; synonym ptr (if applicable) ;AN000;
RESULT_VAL DD ? ; value ;AN000;
OK_FLAG DB ON ; FLAG INDICATING PARSE STATUS ;AN000;
NUM_LOOP DB ZERO ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PROCEDURE_NAME: PARSER
;
; FUNCTION:
; THIS PROCEDURE PARSES THE DEVICE= PARAMETERS FROM THE INIT REQUEST
; BLOCK.
;
; AT ENTRY: ES:DI POINTS TO REQUEST HEADER
;
; AT EXIT:
; NORMAL: TABLE SET UP WITH VALUES FOUND
;
; ERROR: 0 LOADED IN FIRST WORD OF TABLE
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARSER PROC NEAR ;AN000;
PUSH DX ;AN000;
PUSH DI ;AN000;
PUSH ES ;AN000;
PUSH BX ;AN000;
PUSH DS ; ;AN000;
PUSH SI ; ;AN000;
CLD ; ;AN000;
LDS SI,RH.RH0_BPBA ; ;AN000;
PUSH CS ; establish ES .. ;AN000;
POP ES ; addressability to data ;AN000;
LEA DI,PARMS1 ; point to PARMS control block ;AN000;
XOR CX,CX ; clear both CX and DX for ;AN000;
XOR DX,DX ; SYSPARSE ;AN000;
CALL SYSPARSE ; move pointer past file spec ;AN000;
CALL SYSPARSE ; do first parse ;AN000;
LEA BX,TABLE ; ;AN000;
.WHILE <AX NE RC_EOL> AND ; EOL?...then end parse...and.. ;AN000;
.WHILE <OK_FLAG EQ ON> ; make sure that flag still ok.. ;AN000;
.IF <AX NE RC_NO_ERROR> ; parse error? ;AN000;
MOV OK_FLAG,OFF ; yes...reset flag ;AN000;
.ELSE ; ;AN000;
.SELECT ; ;AN000;
.WHEN <RESULT_TYPE EQ COMPLEX>; complex string found? ;AN000;
INC DEVICE_NUM ; increment count ;AN000;
INC BX ; point to next device table ;AN000;
INC BX ; ;AN000;
.IF <DEVICE_NUM GT FOUR> ; more than one? ;AN000;
MOV OK_FLAG,OFF ; yes....we have an error ;AN000;
.ELSE ; no .. ;AN000;
PUSH BX ; ;AN000;
MOV BX,CS:[BX] ; ;AN000;
CALL COPY_NAME ; ;AN000;
MOV NUM_LOOP,ZERO ; ;AN000;
CALL PARSE_MAIN ; process complex string.. ;AN000;
POP BX ; ;AN000;
.ENDIF ; ;AN000;
.OTHERWISE ; not a complex string so.. ;AN000;
MOV OK_FLAG,OFF ; we have a problem...reset flag ;AN000;
.ENDSELECT ; ;AN000;
.ENDIF ; ;AN000;
PUSH BX ; ;AN000;
CALL SYSPARSE ; continue parsing.. ;AN000;
POP BX ; ;AN000;
.ENDWHILE ; ;AN000;
.IF <OK_FLAG EQ OFF> ; flag indicating error? ;AN000;
MOV DEVICE_NUM,ZERO ; yes...set device number to 0 ;AN000;
STC ; ;AN000;
.ELSE ; ;AN000;
CLC ; ;AN000;
.ENDIF ; ;AN000;
POP SI ; ;AN000;
POP DS ; ;AN000;
POP BX ; ;AN000;
POP ES ; ;AN000;
POP DI ; ;AN000;
POP DX ; ;AN000;
RET ; ;AN000;
PARSER ENDP ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PROCEDURE_NAME: PARSE_MAIN
;
; FUNCTION:
; THIS PROCEDURE PARSES THE LPT=( ) COMPLEX LIST DEVICE= LINE FOUND
; IN CONFIG.SYS
;
; AT ENTRY: RESULT BUFFER CONTAINS POINTER TO COMPLEX STRING
;
; AT EXIT:
; NORMAL: TABLE SET UP WITH VALUES FOUND
;
; ERROR: OK_FLAG = 0
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARSE_MAIN PROC NEAR ;AN000;
PUSH BX ; ;AN000;
PUSH DI ; setup to parse the nested.. ;AN000;
PUSH DS ; complex string...but save.. ;AN000;
PUSH SI ; current parsing status. ;AN000;
PUSH CX ; ;AN000;
XOR CX,CX ; ;AN000;
LEA DI,PARMS2 ; next control block.. ;AN000;
LDS SI,RESULT_VAL ; point to stored string ;AN000;
PUSH BX ; ;AN000;
CALL SYSPARSE ; ;AN000;
POP BX ; ;AN000;
.WHILE <AX NE RC_EOL> AND ; not EOL? and.. ;AN000;
.WHILE <OK_FLAG EQ ON> ; error flag still ok? ;AN000;
INC NUM_LOOP ; ;AN000;
.IF <AX NE RC_NO_ERROR> ; check for parse errors ;AN000;
MOV OK_FLAG,OFF ; yes....reset error flag ;AN000;
.ELSE ; no...process ;AN000;
PUSH BX ; ;AN000;
.SELECT ; ;AN000;
.WHEN <RESULT_TYPE EQ STRING> ; simple string ;AN000;
MOV BX,CS:[BX].DI_OFFSET ; ;AN000;
CALL PARSE_STR ; yes...process ;AN000;
.WHEN <RESULT_TYPE EQ NUMBER> ; number?.. ;AN000;
.IF <NUM_LOOP EQ TWO> ; ;AN000;
MOV BX,CS:[BX].DCP_OFFSET ;AN000;
.ELSE ; ;AN000;
MOV BX,CS:[BX].DD_OFFSET ;AN000;
.ENDIF ; ;AN000;
MOV AX,WORD PTR RESULT_VAL ; get value into word form ;AN000;
.IF <AX NE ZERO> ;AN000;
INC WORD PTR CS:[BX] ; ;AN000;
MOV WORD PTR CS:[BX+2],AX ; load that value. ;AN000;
.ENDIF ;AN000;
.WHEN <RESULT_TYPE EQ COMPLEX> ; complex string? ;AN000;
MOV BX,CS:[BX].DCP_OFFSET ; ;AN000;
CALL PARSE_COMP ; yes...process ;AN000;
.OTHERWISE ; anything else is.. ;AN000;
MOV OK_FLAG,OFF ; an error...reset flag. ;AN000;
.ENDSELECT ; ;AN000;
CALL SYSPARSE ; continue parsing ;AN000;
POP BX ; ;AN000;
.ENDIF ; ;AN000;
.ENDWHILE ; ;AN000;
POP CX ; restore original parse.. ;AN000;
POP SI ; registers. ;AN000;
POP DS ; ;AN000;
POP DI ; ;AN000;
POP BX ; ;AN000;
RET ; ;AN000;
PARSE_MAIN ENDP ;AN000;
;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PROCEDURE_NAME: PARSE_COMP
;
; FUNCTION:
; THIS PROCEDURE PARSES A COMPLEX LIST FOUND WITHIN THE LPT=( )
; COMPLEX LIST.
;
; AT ENTRY: RESULT BUFFER CONTAINS POINTER TO COMPLEX STRING
;
; AT EXIT:
; NORMAL: TABLE SET UP WITH VALUES FOUND
;
; ERROR: OK_FLAG = 0
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARSE_COMP PROC NEAR ;AN000;
PUSH DI ; setup ro parse the nested.. ;AN000;
PUSH DS ; complex string..saving the.. ;AN000;
PUSH SI ; current parse status. ;AN000;
PUSH CX ; ;AN000;
MOV DI,BX ; ;AN000;
PUSH DI ; ;AN000;
XOR CX,CX ; ;AN000;
LEA DI,PARMS3 ; next control block ;AN000;
LDS SI,RESULT_VAL ; point to stored string. ;AN000;
PUSH BX ; ;AN000;
CALL SYSPARSE ; ;AN000;
POP BX ; ;AN000;
.WHILE <AX NE RC_EOL> AND ; not EOL?...and.. ;AN000;
.WHILE <OK_FLAG EQ ON> AND ; error flag still okay? ;AN000;
.WHILE <AX NE RC_OP_MISSING> ; ;AN000;
.IF <AX NE RC_NO_ERROR> ; parse error?...or.. ;AN000;
MOV OK_FLAG,OFF ; found?....yes..reset flag. ;AN000;
.ELSE ; no...process.. ;AN000;
INC WORD PTR CS:[BX] ; increment counter ;AN000;
.IF <<WORD PTR CS:[BX]> LE TEN> ;AN000;
POP DI ; ;AN000;
MOV AX,WORD PTR RESULT_VAL ; get numeric value into word ;AN000;
MOV WORD PTR CS:[DI+2],AX ; ;AN000;
INC DI ; ;AN000;
INC DI ; ;AN000;
PUSH DI ; ;AN000;
PUSH BX ; ;AN000;
LEA DI,PARMS3 ; ;AN000;
CALL SYSPARSE ; continue parsing ;AN000;
POP BX ; ;AN000;
.ELSE ; ;AN000;
MOV OK_FLAG,OFF ; ;AN000;
.ENDIF ; ;AN000;
.ENDIF ; ;AN000;
.ENDWHILE ; ;AN000;
POP DI ; ;AN000;
POP CX ; restore previous parse.. ;AN000;
POP SI ; registers. ;AN000;
POP DS ; ;AN000;
POP DI ; ;AN000;
RET ; ;AN000;
PARSE_COMP ENDP ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PROCEDURE_NAME: PARSE_STR
;
; FUNCTION:
; THIS PROCEDURE PARSES A STRING FOUND WITHIN THE LPT=( ) STATEMENT
;
; AT ENTRY: RESULT BUFFER POINTS TO ASCIIZ STRING
;
; AT EXIT:
; NORMAL: TABLE SET UP WITH VALUES FOUND
;
; ERROR: STRING > 8 - OK_FLAG SET OFF
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARSE_STR PROC NEAR ;AN000;
PUSH DI ; get source and.. ;AN000;
PUSH DS ; destination registers.. ;AN000;
PUSH SI ; setup. ;AN000;
PUSH CX ; ;AN000;
LDS SI,RESULT_VAL ; ;AN000;
MOV DI,BX ; ;AN000;
MOV CS:[DI].N_LENGTH,EIGHT ; ;AN000;
INC DI ; ;AN000;
INC DI ; ;AN000;
MOV CX,EIGHT ; ;AN000;
LODSB ; load first character. ;AN000;
.WHILE <AL NE ZERO> AND ; while not at end of ASCIIZ do.. ;AN000;
.WHILE <CX NE ZERO> ; ;AN000;
STOSB ; store.. ;AN000;
LODSB ; load next character.. ;AN000;
DEC CX ; ;AN000;
.ENDWHILE ; ;AN000;
.IF <CX EQ ZERO> ;AN000;
MOV OK_FLAG,OFF ;AN000;
.ENDIF ;AN000;
POP CX ; value found. ;AN000;
POP SI ; restore registers. ;AN000;
POP DS ; ;AN000;
POP DI ; ;AN000;
RET ;AN000;
PARSE_STR ENDP ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; PROCEDURE_NAME: COPY_NAME
;
; FUNCTION:
; THIS PROCEDURE COPIES THE FOUND STRING VALUE INTO THE TABLE.
;
; AT ENTRY: N/A
;
; AT EXIT:
; NORMAL: TABLE UPDATED
;
; ERROR: N/A
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
COPY_NAME PROC NEAR ;AN000;
PUSH DI ; get source and.. ;AN000;
PUSH DS ; destination registers.. ;AN000;
PUSH SI ; setup. ;AN000;
PUSH CS ; ;AN000;
POP DS ; ;AN000;
MOV SI,SYN_PTR ; ;AN000;
MOV DI,CS:[BX].DN_OFFSET ; ;AN000;
MOV CS:[DI].N_LENGTH,EIGHT ; ;AN000;
INC DI ; ;AN000;
INC DI ; ;AN000;
LODSB ; load first character. ;AN000;
.WHILE <AL NE ZERO> ; while not at end of ASCIIZ do.. ;AN000;
.IF <AL NE ':'> AND ;ignore colon ;AN001;
.IF <AL NE '='> ; or = ;AN001;
STOSB ; store.. ;AN000;
.ENDIF ; ;AN000;
LODSB ; load next character.. ;AN000;
.ENDWHILE ; ;AN000;
POP SI ; restore registers. ;AN000;
POP DS ; ;AN000;
POP DI ; ;AN000;
RET ;AN000;
COPY_NAME ENDP ;AN000;
CSEG ENDS
END
|
