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
|
PAGE 90,132 ;AN000;A2
TITLE DCOMPP.SAL - DISKCOMP SYSTEM COMMAND LINE PARSER
;****************** START OF SPECIFICATIONS *****************************
; MODULE NAME: DCOMPP.SAL
;
; DESCRIPTIVE NAME: Include the DOS system PARSER in the SEGMENT
; configuration expected by the modules of DISKCOMP.
;
;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 .COM.
; The Common PARSER is then INCLUDEd.
;
; 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.ASM statement
;
; DS - also points to the segment containing the INCLUDE
; PARSE.ASM 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.ASM)
;
; DATA AREAS: none
;
; EXTERNAL REFERENCES:
; ROUTINES: none
;
; DATA AREAS: control blocks pointed to by input registers.
;
; NOTES:
; This module should be processed with the SALUT preprocessor
; with the re-alignment not requested, as:
;
; SALUT DCOMPP,NUL,;
;
; To assemble these modules, the alphabetical or sequential
; ordering of segments may be used.
;
; For LINK instructions, refer to the PROLOG of the main module,
; DISKCOMP.SAL.
;
;****************** END OF SPECIFICATIONS *****************************
IF1 ;AN000;
%OUT COMPONENT=DISKCOMP, MODULE=DCOMPP.SAL... ;AN000;
ENDIF ;AN000;
; = = = = = = = = = = = =
INCLUDE PATHMAC.INC ;AN013;
CSEG SEGMENT PARA PUBLIC 'CODE' ;AN000;
ASSUME CS:CSEG,DS:CSEG,ES:CSEG,SS:CSEG ;AN000;
PUBLIC SYSPARSE ;AN000;SUBROUTINE ENTRY POINT
INCSW EQU 0 ;AC013;DO NOT INCLUDE PSDATA.INC
FARSW EQU 0 ;AN000;CALL THE PARSER BY NEAR CALL
DATESW EQU 0 ;AN000;SUPPRESS DATE CHECKING
TIMESW EQU 0 ;AN000;SUPPRESS TIME CHECKING
FILESW EQU 0 ;AN000;SUPPRESS CHECK FILE SPECIFICATION
CAPSW EQU 0 ;AN000;SUPPRESS FILE TABLE CAPS
CMPXSW EQU 0 ;AN000;SUPPRESS CHECKING COMPLEX LIST
DRVSW EQU 1 ;AN000;DO SUPPORT DRIVE ONLY FORMAT
QUSSW EQU 0 ;AN000;SUPPRESS SUPPORT OF QUOTED STRING FORMAT
NUMSW EQU 0 ;AN000;SUPPRESS CHECKING NUMERIC VALUE
KEYSW EQU 0 ;AN000;SUPPRESS KEYWORD SUPPORT
SWSW EQU 1 ;AN000;DO SUPPORT SWITCHES
VAL1SW EQU 0 ;AN000;SUPPRESS SUPPORT OF VALUE DEFINITION 1
VAL2SW EQU 0 ;AN000;SUPPRESS SUPPORT OF VALUE DEFINITION 2
VAL3SW EQU 0 ;AN000;SUPPRESS SUPPORT OF VALUE DEFINITION 3
BASESW EQU 1 ;AN012;SPECIFY, PSDATA POINTED TO BY "DS"
INCLUDE PSDATA.INC ;AN013;PARSER DATA AREA
PATHLABL DCOMPP ;AN013;
;.XLIST ;AN000;
;.XCREF ;AN000;
INCLUDE PARSE.ASM ;AN000;
.LIST ;AN000;
.CREF ;AN000;
PATHLABL DCOMPP ;AN013;
CSEG ENDS ;AN000;
END ;AN000;
|
