]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/SELECT/SELECT7.ASM

wirehaze git hosting

projects / MS-DOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
MZ is back!
[MS-DOS.git] / v4.0 / src / SELECT / SELECT7.ASM
1
2
3 PAGE 55,132 ;AN000;
4 NAME SELECT ;AN000;
5 TITLE SELECT - DOS - SELECT.EXE ;AN000;
6 SUBTTL 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
43 DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
44 DATA 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
70 SELECT 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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
97 CONTINUE_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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
445 PUBLIC GET_OVERLAY ;AN000;
446 GET_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;
460 GET_OVERLAY ENDP ;AN000;
461 ;
462 SELECT ENDS ;AN000;
463 END ;AN000;
464 \1a
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes