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
|
PAGE 90,132 ;AN000;A2
TITLE DCOPYP.SAL - DISKCOPY SYSTEM COMMAND LINE PARSER
;****************** START OF SPECIFICATIONS *****************************
; MODULE NAME: DCOPYP.SAL
;
; DESCRIPTIVE NAME: Include the DOS system PARSER in the SEGMENT
; configuration expected by the modules of DISKCOPY.
;
;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 DCOPYP,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,
; DISKCOPY.SAL.
;
;PROGRAM AUTHOR: DOS 4.00 EMK
;
;****************** END OF SPECIFICATIONS *****************************
IF1 ;AN000;
%OUT COMPONENT=DISKCOPY, MODULE=DCOPYP.SAL... ;AN000;
ENDIF ;AN000;
; = = = = = = = = = = = =
HEADER <MACRO DEFINITION> ;AN000;
; = = = = = = = = = = = =
INCLUDE PATHMAC.INC ;AN015;PATHGEN MACRO
; = = = = = = = = = = = =
HEADER MACRO TEXT ;;AN000;
.XLIST ;AN000;
SUBTTL TEXT ;AN000;
.LIST ;AN000;
PAGE ;;AN000;
ENDM ;;AN000;
; = = = = = = = = = = = =
HEADER <SYSPARSE - SYSTEM COMMAND LINE PARSER> ;AN000;
CSEG SEGMENT PARA PUBLIC 'CODE' ;AN000;
ASSUME CS:CSEG,DS:CSEG,ES:CSEG,SS:CSEG ;AN000;
;DISKCOPY INPUT PARMS EXPECTED:
; [D: [d:]] [/1]
PUBLIC SYSPARSE ;AN000;SUBROUTINE ENTRY POINT
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 1 ;AN000;DO USE 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
INCSW EQU 0 ;AN000;DO NOT INCLUDE PSDATA.INC
BASESW EQU 1 ;AN014;SPECIFY, PSDATA POINTED TO BY "DS"
INCLUDE PSDATA.INC ;AN015;
PATHLABL DCOPYP ;AN015;
INCLUDE PARSE.ASM ;AN000;
PATHLABL DCOPYP ;AN015;
CSEG ENDS ;AN000;
END ;AN000;
|
