summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/IFSFUNC/IFSDIR.ASM
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/IFSFUNC/IFSDIR.ASM')
-rw-r--r--v4.0/src/CMD/IFSFUNC/IFSDIR.ASM313
1 files changed, 313 insertions, 0 deletions
diff --git a/v4.0/src/CMD/IFSFUNC/IFSDIR.ASM b/v4.0/src/CMD/IFSFUNC/IFSDIR.ASM
new file mode 100644
index 0000000..dc64893
--- /dev/null
+++ b/v4.0/src/CMD/IFSFUNC/IFSDIR.ASM
@@ -0,0 +1,313 @@
1 PAGE ,132 ;  ;AN000;
2; SCCSID = @(#)ifsdir.asm 1.0 87/05/11 ;AN000;
3TITLE IFSFUNC DIRECTORY ROUTINES - Routines for IFS driver dispatch ;AN000;
4NAME NETDIR ;AN000;
5;************************************************************************************ ;AN000;
6; ;AN000;
7; DIRECTORY related IFS driver calls ;AN000;
8; ;AN000;
9; IFS_RMDIR ;AN000;
10; IFS_MKDIR ;AN000;
11; IFS_CHDIR ;AN000;
12; ;AN000;
13; Programming notes: ;AN000;
14; Old redirector segmentation preserved. ;AN000;
15; Directory routines do not generate critical errors. ;AN000;
16; ;AN000;
17; REVISION HISTORY: ;AN000;
18; A000 Original version 4.00 May 1987
19; A001 PTM 3671- check for null cds 3/88 RPS/RMG
20; ;AN000;
21; LOC - 67 ;AN000;
22; LOD - 4 ;AN000;
23; ;AN000;
24;************************************************************************************ ;AN000;
25 ;AN000;
26.xlist ;AN000;
27.xcref ;AN000;
28INCLUDE IFSSYM.INC ;AN000;
29INCLUDE IFSFSYM.INC ;AN000;
30INCLUDE DOSSYM.INC ;AN000;
31INCLUDE DEVSYM.INC ;AN000;
32.cref ;AN000;
33.list ;AN000;
34 ;AN000;
35AsmVars <IBM, Installed, Debug> ;AN000;
36 ;AN000;
37; define the base code segment of the network support first ;AN000;
38 ;AN000;
39ifsseg SEGMENT BYTE PUBLIC 'ifsseg' ;AN000;
40ifsseg ENDS ;AN000;
41 ;AN000;
42; include the rest of the segment definitions for normal MSDOS ;AN000;
43 ;AN000;
44include dosseg.asm ;AN000;
45 ;AN000;
46DATA SEGMENT WORD PUBLIC 'DATA' ;AN000;
47 ;AN000;
48 ; DOSGROUP data ;AN000;
49 Extrn WFP_START:WORD ;AN000;
50 Extrn THISCDS:DWORD ;AN000;
51 ;AN000;
52DATA ENDS ;AN000;
53 ;AN000;
54 ;AN000;
55; define our own code segment ;AN000;
56 ;AN000;
57ifsseg SEGMENT BYTE PUBLIC 'ifsseg' ;AN000;
58 ASSUME SS:DOSGROUP,CS:ifsseg ;AN000;
59 ;AN000;
60 ;IFS Data ;AN000;
61 Extrn IFSR:WORD ;AN000;
62 Extrn DEVICE_CB@_OFFSET:WORD ;AN000;
63 ;AN000;
64BREAK <IFS_RMDIR Remove an IFS Directory> ;AN000;
65;************************************************************************************ ;AN000;
66; ;AN000;
67; IFS_RMDIR ;AN000;
68; ;AN000;
69;Called by: ;AN000;
70; IFSFUNC Dispatcher ;AN000;
71; ;AN000;
72; Routines called: ;AN000;
73; CDS_TO_CD ;AN000;
74; CALL_IFS ;AN000;
75; ;AN000;
76; Inputs: ;AN000;
77; [WFP_START] Points to WFP string ;AN000;
78; [THISCDS] Points to CDS being used ;AN000;
79; ;AN000;
80; Function: ;AN000;
81; Prep IFSRH as follows: (* indicate which fields set) ;AN000;
82; * IFSR_LENGTH DW 42 ; Request length ;AN000;
83; * IFSR_FUNCTION DB 4 ; Execute API function ;AN000;
84; IFSR_RETCODE DW ? ;AN000;
85; IFSR_RETCLASS DB ? ;AN000;
86; IFSR_RESV1 DB 16 DUP(0) ;AN000;
87; * IFSR_APIFUNC DB 4 ; Remove Directory ;AN000;
88; IFSR_ERROR_CLASS DB ? ;AN000;
89; IFSR_ERROR_ACTION DB ? ;AN000;
90; IFSR_ERROR_LOCUS DB ? ;AN000;
91; IFSR_ALLOWED DB ? ;AN000;
92; IFSR_I24_RETRY DB ? ;AN000;
93; IFSR_I24_RESP DB ? ;AN000;
94; IFSR_RESV2 DB ? ;AN000;
95; * IFSR_DEVICE_CB@ DD ? ; Call CDS_TO_CD to convert CDS to CD ;AN000;
96; ; and set this as pointer to it. ;AN000;
97; IFSR_OPEN_CB@ DD ? ;AN000;
98; * IFSR_NAME@ DD ? ; [WFP_START] ;AN000;
99; ;AN000;
100; CALL routine, CALL_IFS, with pointer to CURDIR_IFSR_HDR ;AN000;
101; IF IFSR_RETCODE = 0 THEN ;AN000;
102; Call CD_TO_CDS ;AN000;
103; Clear carry ;AN000;
104; ELSE ;AN000;
105; Set carry ;AN000;
106; Put error code in AX ;AN000;
107; ENDIF ;AN000;
108; ;AN000;
109; Outputs: ;AN000;
110; Carry clear: CDS FSDA updated ;AN000;
111; Carry set on error: error_path_not_found (bad path) ;AN000;
112; error_access_denied (file/device not empty) ;AN000;
113; ;AN000;
114; Notes: DS preserved, others destroyed ;AN000;
115; ;AN000;
116;************************************************************************************ ;AN000;
117 ;AN000;
118 ;AN000;
119 procedure IFS_RMDIR,NEAR ;AN000;
120 ;AN000;
121 entry IFS_SEQ_RMDIR ;AN000;
122 ;AN000;
123 ifsr_fcn_def EXECAPI ; define ifsr fields for rmdir ;AN000;
124 ifsr_api_def RMDIR ;AN000;
125 ;AN000;
126 PUSH DS ; preserve DS ;AN000;
127 ;AN000;
128 invoke PREP_IFSR ; init ifsr, sets es:bx -> ifsr ;AN000;
129 ;AN000;
130 MOV ES:[BX.IFSR_APIFUNC],IFSRMDIR ;AN000;
131 JMP SHORT CHDIR_10 ; go finish in ifs_chdir ;AN000;
132 ;AN000;
133EndProc IFS_RMDIR ;AN000;
134 ;AN000;
135BREAK <IFS_MKDIR Create an IFS Directory> ;AN000;
136 ;AN000;
137;************************************************************************************ ;AN000;
138; ;AN000;
139; IFS_MKDIR ;AN000;
140; ;AN000;
141; Called by: IFSFUNC Dispatcher ;AN000;
142; ;AN000;
143; Routines called: CDS_TO_CD ;AN000;
144; CALL_IFS ;AN000;
145; ;AN000;
146; Inputs: ;AN000;
147; [WFP_START] Points to WFP string ;AN000;
148; [THISCDS] Points to CDS being used. Not NULL. ;AN000;
149; ;AN000;
150; Function: ;AN000;
151; Prep IFSRH as follows: (* indicate which fields set) ;AN000;
152; * IFSR_LENGTH DW 42 ; Request length ;AN000;
153; * IFSR_FUNCTION DB 4 ; Execute API function ;AN000;
154; IFSR_RETCODE DW ? ;AN000;
155; IFSR_RETCLASS DB ? ;AN000;
156; IFSR_RESV1 DB 16 DUP(0) ;AN000;
157; * IFSR_APIFUNC DB 3 ; Create Directory ;AN000;
158; IFSR_ERROR_CLASS DB ? ;AN000;
159; IFSR_ERROR_ACTION DB ? ;AN000;
160; IFSR_ERROR_LOCUS DB ? ;AN000;
161; IFSR_ALLOWED DB ? ;AN000;
162; IFSR_I24_RETRY DB ? ;AN000;
163; IFSR_I24_RESP DB ? ;AN000;
164; IFSR_RESV2 DB ? ;AN000;
165; * IFSR_DEVICE_CB@ DD ? ; Call CDS_TO_CD to convert CDS to CD ;AN000;
166; ; and set this as pointer to it. ;AN000;
167; IFSR_OPEN_CB@ DD ? ;AN000;
168; * IFSR_NAME@ DD ? ; [WFP_START] ;AN000;
169; ;AN000;
170; CALL routine, CALL_IFS, with pointer to CURDIR_IFSR_HDR ;AN000;
171; ;AN000;
172; IF IFSR_RETCODE = 0 THEN ;AN000;
173; Call CD_TO_CDS ;AN000;
174; Clear carry ;AN000;
175; ELSE ;AN000;
176; Set carry ;AN000;
177; Put error code in AX ;AN000;
178; ENDIF ;AN000;
179; ;AN000;
180; Outputs: ;AN000;
181; Carry clear: CDS FSDA updated ;AN000;
182; Carry set on error: error_path_not_found (bad path) ;AN000;
183; error_access_denied ;AN000;
184; (Attempt to re-create read only file , or ;AN000;
185; create a second volume id or create a dir) ;AN000;
186; ;AN000;
187; Notes: DS preserved, others destroyed ;AN000;
188; ;AN000;
189;************************************************************************************ ;AN000;
190 ;AN000;
191 procedure IFS_MKDIR,NEAR ;AN000;
192 ;AN000;
193 entry IFS_SEQ_MKDIR ;AN000;
194 ;AN000;
195 ifsr_fcn_def EXECAPI ; define ifsr fields for mkdir ;AN000;
196 ifsr_api_def MKDIR ;AN000;
197 ;AN000;
198 PUSH DS ; preserve DS ;AN000;
199 ;AN000;
200 invoke PREP_IFSR ; init ifsr, sets es:bx -> ifsr ;AN000;
201 ;AN000;
202 MOV ES:[BX.IFSR_APIFUNC],IFSMKDIR ;AN000;
203 JMP SHORT CHDIR_10 ; go finish in ifs_chdir ;AN000;
204 ;AN000;
205EndProc IFS_MKDIR ;AN000;
206 ;AN000;
207BREAK <IFS_CHDIR Check for validity and change directory> ;AN000;
208 ;AN000;
209 ;AN000;
210;************************************************************************************ ;AN000;
211; ;AN000;
212; IFS_CHDIR ;AN000;
213; ;AN000;
214; Called by: IFSFUNC Dispatcher ;AN000;
215; ;AN000;
216; Routines called: CDS_TO_CD ;AN000;
217; CD_TO_CDS ;AN000;
218; CALL_IFS ;AN000;
219; ;AN000;
220; Inputs: ;AN000;
221; [WFP_START] Points to WFP string ;AN000;
222; [THISCDS] Points to CDS being used. Not NUL. ;AN000;
223; ;AN000;
224; Function: ;AN000;
225; Prep IFSRH as follows: (* indicate which fields set) ;AN000;
226; * IFSR_LENGTH DW 42 ; Request length ;AN000;
227; * IFSR_FUNCTION DB 4 ; Execute API function ;AN000;
228; IFSR_RETCODE DW ? ;AN000;
229; IFSR_RETCLASS DB ? ;AN000;
230; IFSR_RESV1 DB 16 DUP(0) ;AN000;
231; * IFSR_APIFUNC DB 5 ; Change Directory ;AN000;
232; IFSR_ERROR_CLASS DB ? ;AN000;
233; IFSR_ERROR_ACTION DB ? ;AN000;
234; IFSR_ERROR_LOCUS DB ? ;AN000;
235; IFSR_ALLOWED DB ? ;AN000;
236; IFSR_I24_RETRY DB ? ;AN000;
237; IFSR_I24_RESP DB ? ;AN000;
238; IFSR_RESV2 DB ? ;AN000;
239; * IFSR_DEVICE_CB@ DD ? ; Call CDS_TO_CD to convert CDS to CD ;AN000;
240; ; and set this as pointer to it. ;AN000;
241; IFSR_OPEN_CB@ DD ? ;AN000;
242; * IFSR_NAME@ DD ? ; [WFP_START] ;AN000;
243; ;AN000;
244; CALL routine, CALL_IFS, with pointer to CURDIR_IFSR_HDR ;AN000;
245; ;AN000;
246; IF IFSR_RETCODE = 0 THEN ;AN000;
247; Call CD_TO_CDS to update CDS ;AN000;
248; Clear carry ;AN000;
249; ELSE ;AN000;
250; Set carry ;AN000;
251; Put error code in AX ;AN000;
252; ENDIF ;AN000;
253; ;AN000;
254; Outputs: ;AN000;
255; Carry clear: CDS updated. ;AN000;
256; Carry set on error: error_path_not_found (bad path) ;AN000;
257; error_access_denied ;AN000;
258; ;AN000;
259; Notes: DS preserved, others destroyed ;AN000;
260; ;AN000;
261;************************************************************************************ ;AN000;
262 ;AN000;
263 procedure IFS_CHDIR,NEAR ;AN000;
264 ;AN000;
265 ifsr_fcn_def EXECAPI ; define ifsr fields for chdir ;AN000;
266 ifsr_api_def CHDIR ;AN000;
267 ;AN000;
268 PUSH DS ; preserve DS ;AN000;
269 ;AN000;
270 invoke PREP_IFSR ; init ifsr, sets es:bx -> ifsr ;AN000;
271 ;AN000;
272 MOV ES:[BX.IFSR_APIFUNC],IFSCHDIR ;AN000;
273 ;AN000;
274CHDIR_10: ; Welcome rmdir/mkdir code ;AN000;
275 MOV ES:[BX.IFSR_LENGTH],LENGTH_CHDIR ;AN000;
276 MOV ES:[BX.IFSR_FUNCTION],IFSEXECAPI ;AN000;
277 ; ds -> dosgroup ;AN000;
278 MOV SI,WORD PTR [WFP_START] ; to access thiscds & wfp ;AN000;
279 invoke STRIP_WFP_START ; ditch leading d:\ ;AN000;
280 MOV WORD PTR ES:[BX.IFSR_NAME@],SI ;AN000;
281 MOV WORD PTR ES:[BX.IFSR_NAME@+2],DS ;AN000;
282 LDS SI,[THISCDS] ;AN000;
283 SaveReg <DS,SI> ;AN000;
284 MOV DEVICE_CB@_OFFSET,IFSR_DEVICE_CB@ ;AN000;
285 CMP SI,NULL_PTR ; skip cds work if cds null ;AN001;
286 JE CHDIR_20 ;AN001;
287 invoke CDS_TO_CD ; CDS: sets [THISIFS] ;AN000;
288 ; IFSR_DEVICE_CB@ ;AN000;
289 ; ds - ifsseg ;AN000;
290CHDIR_20: ;AN001;
291 SaveReg <CS> ; make sure ds = ifsseg ;AN001;
292 RestoreReg <DS> ;AN001;
293;************************************************
294 invoke CALL_IFS ; call fs with dir request ;AN000;
295;************************************************
296 ;AN000;
297 RestoreReg <DI,ES> ; restore cds ptr into es:di ;AN000;
298 JC CHDIR_1000 ;AN000;
299 CMP DI,NULL_PTR ; skip cds work if cds null ;AN001;
300 JE CHDIR_40 ;AN001;
301 invoke CD_TO_CDS ; update cds ;AN000;
302
303CHDIR_40: ;AN001;
304 CLC ;AN000;
305 ;AN000;
306CHDIR_1000: ; finished ;AN000;
307 POP DS ; restore DS ;AN000;
308 return ;AN000;
309 ;AN000;
310EndProc IFS_CHDIR ;AN000;
311 ;AN000;
312ifsseg ENDS ;AN000;
313 END ;AN000;
HIC SVNT DRACONES