summaryrefslogtreecommitdiff
path: root/v4.0/src/SELECT/SELECT7.ASM
diff options
context:
space:
mode:
authorGravatar Mark Zbikowski2024-04-25 21:24:10 +0100
committerGravatar Microsoft Open Source2024-04-25 22:32:27 +0000
commit2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch)
tree80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/SELECT/SELECT7.ASM
parentMerge pull request #430 from jpbaltazar/typoptbr (diff)
downloadms-dos-main.tar.gz
ms-dos-main.tar.xz
ms-dos-main.zip
MZ is back!HEADmain
Diffstat (limited to 'v4.0/src/SELECT/SELECT7.ASM')
-rw-r--r--v4.0/src/SELECT/SELECT7.ASM464
1 files changed, 464 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/SELECT7.ASM b/v4.0/src/SELECT/SELECT7.ASM
new file mode 100644
index 0000000..5882cd0
--- /dev/null
+++ b/v4.0/src/SELECT/SELECT7.ASM
@@ -0,0 +1,464 @@
1
2
3PAGE 55,132 ;AN000;
4NAME SELECT ;AN000;
5TITLE SELECT - DOS - SELECT.EXE ;AN000;
6SUBTTL SELECT7.asm ;AN000;
7.ALPHA ;AN000;
8;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9;
10; SELECT7.ASM : Copyright 1988 Microsoft
11;
12; DATE: August 8/87
13;
14; COMMENTS: Assemble with MASM 3.0 (using the /A option)
15;
16; Panel flow is defined in the following files:
17;
18; � SELECT1.ASM
19; ;AN000; SELECT2.ASM
20; ;AN000; SELECT3.ASM
21; ;AN000; SELECT4.ASM
22; ;AN000; SELECT5.ASM
23; ;AN000; SELECT6.ASM
24;
25;
26; Module contains code for :
27; - Format the drives
28; - Copy files
29;
30; CHANGE HISTORY:
31;
32; ;AN009; DT added support for creation of the DOSSHELL.BAT as a
33; separately installed file. (D233)
34; ;AN002; GHG for P1146
35; ;AN003; GHG for D234
36; ;AN004; GHG for P65
37; ;AN005; DT for single drive support
38; ;AN006; JW for dos location choice (global or path only)
39; ;AN007; JW fixed deletion of select.* when installation is to the root
40; ;AN072; DT Overlay parser and pcinput if memory = 256KB
41;
42;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
43DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
44DATA ENDS ;AN000;
45;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
46;
47;
48;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
49.XLIST ;AN000;
50 INCLUDE PANEL.MAC ;AN000;
51 INCLUDE SELECT.INC ;AN000;
52 INCLUDE PAN-LIST.INC ;AN000;
53 INCLUDE CASTRUC.INC ;AN000;
54 INCLUDE STRUC.INC ;AN000;
55 INCLUDE MACROS.INC ;AN000;
56 INCLUDE MACROS7.INC ;AN009;DT
57 INCLUDE EXT.INC ;AN000;
58 INCLUDE VARSTRUC.INC ;AN000;
59 INCLUDE ROUT_EXT.INC ;AN000;
60.LIST ;AN000;
61;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
62 ;
63 EXTRN DEALLOCATE_HELP:FAR ;AN000;DT
64 EXTRN DEALLOCATE_BLOCK:FAR ;AN000;DT
65 EXTRN ALLOCATE_BLOCK:FAR ;AN000;DT
66 EXTRN DEALLOCATE_MEMORY_CALL:FAR ;AN000;DT
67 EXTRN ALLOCATE_MEMORY_CALL:FAR ;AN000;DT
68 ;
69;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
70SELECT SEGMENT PARA PUBLIC 'SELECT' ;AN000;
71 ASSUME CS:SELECT,DS:DATA ;AN000;
72 ;
73 INCLUDE CASEXTRN.INC ;AN000;
74 ;
75 EXTRN EXIT_SELECT:near ;AN000;
76 EXTRN CREATE_CONFIG_SYS:NEAR ;AN000;
77 EXTRN CREATE_AUTOEXEC_BAT:NEAR ;AN000;
78 EXTRN CREATE_SHELL_BAT:NEAR ;AN009;DT
79 ;
80 EXTRN EXIT_DOS:near ;AN004;GHG
81 EXTRN INSTALL_ERROR:near ;AN004;GHG
82 EXTRN EXIT_SELECT:NEAR ;AN004;GHG
83 EXTRN PROCESS_ESC_F3:near ;AN004;GHG
84 EXTRN EXIT_DOS_CONT:NEAR ;AN004;GHG
85 ;
86 PUBLIC CONTINUE_360 ;AN000;
87;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
88;
89; CODE CONTINUES.....
90;
91;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
92;;;;;;;;;;INSTALL 360KB DISKETTE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
93;
94; Display copying files from INSTALL diskette
95;
96;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
97CONTINUE_360: ;AN000;
98 ;;;
99 ;;;
100 .IF < N_DISKETTE_A eq E_DISKETTE_360 > near ;AN000;
101 ;
102 INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
103 PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 2 message
104 DISPLAY_PANEL ;AN000;
105 ;
106 .IF < MEM_SIZE eq 256 > ;AN000;DT
107 DEALLOCATE_MEMORY ;AN000;DT
108 .ENDIF ;AN000;DT
109 ;
110 ;;;S_STR120_1 = "a:*.* c:\path /a parameter for REPLACE
111 MERGE_STRING S_STR120_1,M_STR120_1,S_A_STARS,S_INSTALL_PATH ;AN000;
112 APPEND_STRING S_STR120_1,M_STR120_1,S_SLASH_A ;AN000;
113 ;
114; .IF < I_DESTINATION eq E_ENTIRE_DISK > ;AN006;JW
115; .THEN ;AN006;
116; ;;;S_STR120_3 = "a:*.* c:\ /s /r parameter for REPLACE
117; COPY_STRING S_STR120_3,M_STR120_3,S_REPLACE_PAR1 ;AN006;JW
118; .ELSE ;AN006;
119 ;;;S_STR120_3 = "a:*.* c:\<path> parameter for REPLACE
120 MERGE_STRING S_STR120_3,M_STR120_3,S_A_STARS,S_INSTALL_PATH ;AN006;JW
121 APPEND_STRING S_STR120_3,M_STR120_3,S_SLASH_R ;AN000;JW
122; .ENDIF ;AN006;
123 ;
124 ;;;change attributes of some files so they are not copied
125 CHANGE_ATTRIBUTE HIDE_STARTUP, E_HIDE_STARTUP ;AN000;
126 ;
127 ;;;replace files in drive C: with new files on INSTALL diskette
128 EXEC_PROGRAM S_REPLACE,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
129 .IF c ;AN000;
130 .IF < MEM_SIZE eq 256 > ;AN000;DT
131 CALL GET_OVERLAY ;AN000;DT Get panels
132 .ENDIF ;AN000;
133 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
134 RESTORE_ATTRIBUTE HIDE_STARTUP,E_HIDE_STARTUP ;AN000;
135 .ENDIF ;AN000;
136 ;
137 ;;;S_STR120_1 = "a:*.* C:\<path> /A" ;
138 ;;;copy NEW files on INSTALL diskette to install path ;
139 EXEC_PROGRAM S_REPLACE,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
140 .IF c ;AN000;
141 .IF < MEM_SIZE eq 256 > ;AN000;DT
142 CALL GET_OVERLAY ;AN000;DT Get panels
143 .ENDIF ;AN000;
144 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
145 RESTORE_ATTRIBUTE HIDE_STARTUP,E_HIDE_STARTUP ;AN000;
146 .ENDIF ;AN000;
147 ;
148 RESTORE_ATTRIBUTE HIDE_STARTUP,E_HIDE_STARTUP ;AN000;
149;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
150;
151; Prompt the user to remove the INSTALL (source) diskette
152; and insert the OPERATING 1 (source) diskette.
153;
154;;;;;;;;;;SHELL 360KB DISKETTE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
155;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
156 ;
157 .IF < MEM_SIZE eq 256 > ;AN000;DT
158 CALL GET_OVERLAY ;AN000;DT Get panels
159 .ENDIF ;AN000;
160 ;
161 ;;;insert OPERATING 1 diskette in drive A: ;
162 INSERT_DISK SUB_REM_SELECT_360, S_DOS_UTIL1_DISK ;AN000;JW
163;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
164;
165; Display copying files
166;
167; NOTE: The REPLACE command is now issued from the hard disk
168; (since it is not found on any other disk)
169;
170;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
171 INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
172 PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 2 message
173 DISPLAY_PANEL ;AN000;
174 ;
175 .IF < MEM_SIZE eq 256 > ;AN000;DT
176 DEALLOCATE_MEMORY ;AN000;DT
177 .ENDIF ;AN000;DT
178 ;
179 ;;;S_STR120_1 = "a:*.* c:\path /a parameter for REPLACE
180 MERGE_STRING S_STR120_1,M_STR120_1,S_A_STARS,S_INSTALL_PATH ;AN000;
181 APPEND_STRING S_STR120_1,M_STR120_1,S_SLASH_A ;AN000;
182 ;
183 COMPARE_STRINGS S_INSTALL_PATH, S_DEST_DRIVE ;AN000; compare to C:\
184 .IF < nc > ;AN000; if the same
185 MERGE_STRING S_STR120_2,M_STR120_2,S_INSTALL_PATH,S_REPLACE ;AN000;
186 .ELSE ;AN000;
187 MERGE_STRING S_STR120_2,M_STR120_2,S_INSTALL_PATH,S_SLASH ;AN000;
188 APPEND_STRING S_STR120_2,M_STR120_2,S_REPLACE;AN000;
189 .ENDIF ;AN000;
190 ;
191 ;;;replace files in drive C: with new files on OPERATING 1 diskette
192 EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
193 .IF c ;AN000;
194 .IF < MEM_SIZE eq 256 > ;AN000;DT
195 CALL GET_OVERLAY ;AN000;DT Get panels
196 .ENDIF ;AN000;
197 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
198 .ENDIF ;AN000;
199 ;
200 ;;;S_STR120_1 = "a:*.* C:\<path> /A" ;
201 ;;;copy NEW files on OPERATING 1 diskette to install path
202 EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
203 .IF c ;AN000;
204 .IF < MEM_SIZE eq 256 > ;AN000;DT
205 CALL GET_OVERLAY ;AN000;DT Get panels
206 .ENDIF ;AN000;
207 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
208 .ENDIF ;AN000;
209;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
210;
211; insert the OPERATING #2 diskette.
212;
213;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
214 ;
215 .IF < MEM_SIZE eq 256 > ;AN000;DT
216 CALL GET_OVERLAY ;AN000;DT Get panels
217 .ENDIF ;AN000;DT
218 ;
219 ;;; insert OPERATING #2 diskette in drive A: ;
220 INSERT_DISK SUB_INS_OPER2, S_DOS_UTIL2_DISK ;AN000;JW
221;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
222;
223; Display copying files from OPERATING #2
224;
225;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
226 INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
227 PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
228 DISPLAY_PANEL ;AN000;
229 ;
230 .IF < MEM_SIZE eq 256 > ;AN000;DT
231 DEALLOCATE_MEMORY ;AN000;DT
232 .ENDIF ;AN000;DT
233 ;
234 ;;;replace files in drive C: with new files on OPERATING 2 diskette
235 EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
236 .IF c ;AN000;
237 .IF < MEM_SIZE eq 256 > ;AN000;DT
238 CALL GET_OVERLAY ;AN000;DT Get panels
239 .ENDIF ;AN000;
240 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
241 .ENDIF ;AN000;
242 ;
243 ;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
244 ;;;copy NEW files on OPERATING 2 diskette to install path
245 EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
246 .IF c ;AN000;
247 .IF < MEM_SIZE eq 256 > ;AN000;DT
248 CALL GET_OVERLAY ;AN000;DT Get panels
249 .ENDIF ;AN000;
250 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
251 .ENDIF ;AN000;
252;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
253;
254; insert the OPERATING #3 diskette.
255;
256;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
257 ;
258 .IF < MEM_SIZE eq 256 > ;AN000;DT
259 CALL GET_OVERLAY ;AN000;DT Get panels
260 .ENDIF ;AN000;DT
261 ;
262 ;;; insert OPERATING #3 diskette in drive A: ;
263 INSERT_DISK SUB_REM_UTIL1_360, S_DOS_UTIL3_DISK ;AN000;JW
264;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
265;
266; Display copying files from OPERATING #3
267;
268;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
269 INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
270 PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
271 DISPLAY_PANEL ;AN000;
272 ;
273 .IF < MEM_SIZE eq 256 > ;AN000;DT
274 DEALLOCATE_MEMORY ;AN000;DT
275 .ENDIF ;AN000;DT
276 ;
277 ;;;replace files in drive C: with new files on OPERATING 2 diskette
278 EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
279 .IF c ;AN000;
280 .IF < MEM_SIZE eq 256 > ;AN000;DT
281 CALL GET_OVERLAY ;AN000;DT Get panels
282 .ENDIF ;AN000;
283 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
284 .ENDIF ;AN000;
285 ;
286 ;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
287 ;;;copy NEW files on OPERATING 2 diskette to install path
288 EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
289 .IF c ;AN000;
290 .IF < MEM_SIZE eq 256 > ;AN000;DT
291 CALL GET_OVERLAY ;AN000;DT Get panels
292 .ENDIF ;AN000;
293 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
294 .ENDIF ;AN000;
295;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
296;
297; insert the SELECT diskette.
298;
299;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
300 ;
301 .IF < MEM_SIZE eq 256 > ;AN000;DT
302 CALL GET_OVERLAY ;AN000;DT Get panels
303 .ELSE ;AN000;DT
304 ;;; insert the SELECT diskette in drive A ;
305 INSERT_DISK SUB_REM_SHELL_360, S_DOS_SEL_360 ;AN000;JW
306 .ENDIF ;AN000;DT
307;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
308;
309; Display copying files from SELECT diskette
310;
311;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
312 INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
313 PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
314 DISPLAY_PANEL ;AN000;
315 ;
316 .IF < MEM_SIZE eq 256 > ;AN000;DT
317 DEALLOCATE_MEMORY ;AN000;DT
318 .ENDIF ;AN000;DT
319 ;
320 ;;;replace files in drive C: with new files on SELECT diskette
321 EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
322 .IF c ;AN000;
323 .IF < MEM_SIZE eq 256 > ;AN000;DT
324 CALL GET_OVERLAY ;AN000;DT Get panels
325 .ENDIF ;AN000;
326 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
327 .ENDIF ;AN000;
328 ;
329 ;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
330 ;;;copy new files on SELECT diskette to install path ;
331 EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR;AN000; copy new files
332 .IF c ;AN000;
333 .IF < MEM_SIZE eq 256 > ;AN000;DT
334 CALL GET_OVERLAY ;AN000;DT Get panels
335 .ENDIF ;AN000;
336 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
337 .ENDIF ;AN000;
338 ;
339;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
340;
341; maybe insert the SHELL diskette.
342;
343;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
344
345 .IF < f_shell eq e_shell_yes > near
346 ;
347 .IF < MEM_SIZE eq 256 > ;AN000;DT
348 CALL GET_OVERLAY ;AN000;DT Get panels
349 .ENDIF ;AN000;DT
350 ;
351 INSERT_DISK SUB_INS_MSSHELL_A, S_DOS_SHEL_DISK ;AN000;JW
352;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
353;
354; Display copying files from SHELL diskette
355;
356;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
357 INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
358 PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
359 DISPLAY_PANEL ;AN000;
360 ;
361 .IF < MEM_SIZE eq 256 > ;AN000;DT
362 DEALLOCATE_MEMORY ;AN000;DT
363 .ENDIF ;AN000;DT
364 ;
365 ;;;replace files in drive C: with new files on SHELL diskette
366 EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
367 .IF c ;AN000;
368 .IF < MEM_SIZE eq 256 > ;AN000;DT
369 CALL GET_OVERLAY ;AN000;DT Get panels
370 .ENDIF ;AN000;
371 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
372 .ENDIF ;AN000;
373 ;
374 ;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
375 ;;;copy NEW files on SHELL diskette to install path
376 EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR;AN000; copy new files
377 .IF c ;AN000;
378 .IF < MEM_SIZE eq 256 > ;AN000;DT
379 CALL GET_OVERLAY ;AN000;DT Get panels
380 .ENDIF ;AN000;
381 HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
382 .ENDIF ;AN000;
383
384 .endif ; optional shell support
385
386
387 ;Delete select files from C: drive ;
388 COMPARE_STRINGS S_INSTALL_PATH, S_DEST_DRIVE ;AN007; compare to C:\
389 .IF < nc > ;AN007; if installed to the root
390 MERGE_STRING S_STR120_1,M_STR120_1,S_C_DRIVE,S_SELDAT_C ;AN000;
391 ERASE_FILE S_STR120_1 ;AN000;DT
392 MERGE_STRING S_STR120_1,M_STR120_1,S_C_DRIVE,S_SELEXE_C ;AN000;
393 ERASE_FILE S_STR120_1 ;AN000;DT
394 .ELSE near ;AN007; else installed to a directory
395 MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_SELDAT_C ;AN000;
396 ERASE_FILE S_STR120_1 ;AN000;DT
397 MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_SELEXE_C ;AN000;
398 ERASE_FILE S_STR120_1 ;AN000;DT
399 MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_AUTOEX_C ;AN000;
400 ERASE_FILE S_STR120_1 ;AN000;DT
401 MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_CONSYS_C ;AN000;
402 ERASE_FILE S_STR120_1 ;AN000;DT
403 .ENDIF ;AN007;
404 ;
405 .ENDIF ;AN000;
406;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
407;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;
408;
409; End of 360KB support
410;
411; Installation completed. inform user to reboot
412;
413; Search for the installed CONFIG.340 , and
414; we issue a different panel to describe the '.340' files.
415;
416;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
417 ;
418 .IF < MEM_SIZE eq 256 > ;AN000;DT
419 ALLOCATE_MEMORY ;AN000;DT
420 CALL INITIALIZE ;AN000;DT and read them in
421 .ENDIF ;AN000;DT
422 ;
423 INIT_PQUEUE PAN_COMPLETE1 ;AN000; initialize queue
424 .IF < I_DESTINATION ne E_ENTIRE_DISK > ;AN010;JW
425 PREPARE_PANEL PAN_PARTIAL ;AN010;JW
426 .ELSE ;AN010;JW
427 FIND_FILE S_CONFIG_REN, E_FILE_ATTR ;AN003;GHG Look for '.340' files
428 .IF < c > ;AN003;GHG
429 PREPARE_PANEL SUB_COMP_VER ;AN003;GHG prepare DOS install message
430 .ELSE ;AN003;GHG
431 PREPARE_PANEL SUB_COMP_REP ;AN003;GHG prepare DOS Replace message
432 .ENDIF ;AN003;GHG
433 .ENDIF ;AN010;
434 ;
435 PREPARE_PANEL SUB_COMP_KYS_1 ;AN000;
436 DISPLAY_PANEL ;AN000;
437 SAVE_PANEL_LIST ;AN000;
438 ;
439 GET_FUNCTION FK_REBOOT ;AN000; User has to reboot
440;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
441;
442;
443;
444;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
445PUBLIC GET_OVERLAY ;AN000;
446GET_OVERLAY PROC NEAR ;AN000;
447 .IF < N_DISKETTE_A ne E_DISKETTE_720 > ;AN063;SEH
448 CLEAR_SCREEN ;AN000;
449 DISPLAY_MESSAGE 12 ;AN000;DT Insert SELECT diskette
450 .REPEAT ;AN000;
451 GET_FUNCTION FK_ENT ;AN000; get user entered function
452 FIND_FILE S_DOS_SEL_360, E_FILE_ATTR ;AN000;
453 .LEAVE < nc > ;AN000;
454 DISPLAY_MESSAGE 11 ;AN000;DT Beep
455 .UNTIL ;AN000;
456 .ENDIF ;AN063;SEH
457 ALLOCATE_MEMORY ;AN000;DT
458 CALL INITIALIZE ;AN000;DT and read them in
459 RET ;AN000;
460GET_OVERLAY ENDP ;AN000;
461 ;
462SELECT ENDS ;AN000;
463 END ;AN000;
464 \ No newline at end of file
HIC SVNT DRACONES