summaryrefslogtreecommitdiff
path: root/v4.0/src/SELECT/SELECT9.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/SELECT9.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/SELECT9.ASM')
-rw-r--r--v4.0/src/SELECT/SELECT9.ASM518
1 files changed, 518 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/SELECT9.ASM b/v4.0/src/SELECT/SELECT9.ASM
new file mode 100644
index 0000000..e294c6c
--- /dev/null
+++ b/v4.0/src/SELECT/SELECT9.ASM
@@ -0,0 +1,518 @@
1
2
3PAGE 55,132
4NAME SELECT
5TITLE SELECT - DOS - SELECT.EXE
6SUBTTL SELECT9.asm
7.ALPHA
8;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9;
10; SELECT9.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; � SELECT2.ASM
20; � SELECT3.ASM
21; � SELECT4.ASM
22; � SELECT5.ASM
23; � SELECT6.ASM
24;
25;
26; Module contains code for :
27; - Format the drives
28; - Copy files
29;
30; CHANGE HISTORY:
31;
32;
33;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
34DATA SEGMENT BYTE PUBLIC 'DATA'
35 EXTRN DSKCPY_ERR:BYTE
36 EXTRN DSKCPY_WHICH:BYTE
37 EXTRN DSKCPY_OPTION:BYTE
38 EXTRN DSKCPY_PAN1:WORD
39 EXTRN DSKCPY_PAN2:WORD
40 EXTRN DSKCPY_PAN3:WORD
41 EXTRN DSKCPY_SOURCE:WORD
42DATA ENDS
43;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44;
45; Define dummy segment to calculate end of program
46;
47;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
48PARSER SEGMENT PARA PUBLIC 'PARSER'
49PARSER ENDS
50
51SET_BLOCK equ 4AH
52;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
53;
54;
55;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
56.XLIST
57 INCLUDE PANEL.MAC
58 INCLUDE SELECT.INC
59 INCLUDE PAN-LIST.INC
60 INCLUDE CASTRUC.INC
61 INCLUDE STRUC.INC
62 INCLUDE MACROS.INC
63 INCLUDE MACROS7.INC
64 INCLUDE MACROS8.INC
65 INCLUDE EXT.INC
66 INCLUDE VARSTRUC.INC
67 INCLUDE ROUT_EXT.INC
68.LIST
69;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
70;
71;
72;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
73SELECT SEGMENT PARA PUBLIC 'SELECT'
74 ASSUME CS:SELECT,DS:DATA
75
76 INCLUDE CASEXTRN.INC
77
78 EXTRN EXIT_SELECT:near
79 EXTRN CREATE_CONFIG_SYS:NEAR
80 EXTRN CREATE_AUTOEXEC_BAT:NEAR
81 EXTRN CREATE_SHELL_BAT:NEAR
82 EXTRN DEALLOCATE_HELP:FAR
83 EXTRN DEALLOCATE_MEMORY_CALL:FAR
84 EXTRN ALLOCATE_BLOCK:FAR
85 EXTRN ALLOCATE_LVB:FAR
86 EXTRN GET_OVERLAY:NEAR
87 EXTRN ALLOCATE_MEMORY_CALL:FAR
88
89 PUBLIC INSTALL_TO_360_DRIVE
90 PUBLIC INSTALL_ERROR
91 PUBLIC EXIT_DOS,PROCESS_ESC_F3
92 PUBLIC EXIT_DOS_CONT
93 public Free_Parser
94
95;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
96
97INSTALL_TO_360_DRIVE:
98 .IF < MEM_SIZE eq 256 >
99 DEALLOCATE_MEMORY
100 call Free_Parser
101 .IF < C >
102 GOTO INSTALL_ERROR
103 .ENDIF
104 CALL GET_OVERLAY
105 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
106 .ENDIF
107
108 ;;;Introduction to 360KB install
109 INIT_PQUEUE PAN_INSTALL_DOS
110 PREPARE_PANEL PAN_START360
111 PREPARE_PANEL PAN_HBAR
112 PREPARE_CHILDREN
113 DISPLAY_PANEL
114
115 GET_FUNCTION FK_ENT
116
117 CALL DEALLOCATE_HELP
118
119 .IF < I_DEST_DRIVE eq E_DEST_DRIVE_A > near
120
121 ;;;diskcopy INSTALL diskette to WORKING1
122 DISKCOPY_TO DSKCPY_TO_A_360,NO_SOURCE1,S_DOS_COM_360
123 DISKCOPY_PANELS SUB_REM_DOS_A,SUB_COPYING,SUB_INS_WORK1_S360
124 .REPEAT
125 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
126 CALL HOOK_INT_2F
127 EXEC_PROGRAM S_DISKCOPY,S_DISKCOPY_PARM,PARM_BLOCK,EXEC_NO_DIR
128 CALL RESTORE_INT_2F
129 .IF < c >
130 GOTO INSTALL_ERROR
131 .ENDIF
132 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY >
133 ERASE_FILE S_AUTOEX_C
134 ERASE_FILE S_CONSYS_C
135 ERASE_FILE S_SELCOM_C
136 ERASE_FILE S_SELHLP_C
137 ERASE_FILE S_SELPRT_C
138
139 ;;;diskcopy OPERATING1 diskette to WORKING2
140 DISKCOPY_TO DSKCPY_TO_A_360,SOURCE1,S_DOS_UTIL1_DISK
141 DISKCOPY_PANELS SUB_REM_SELECT_360,SUB_COPYING,SUB_INS_WORK2_S360
142 .REPEAT
143 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
144 CALL HOOK_INT_2F
145 EXEC_PROGRAM S_DISKCOPY,S_DISKCOPY_PARM,PARM_BLOCK,EXEC_NO_DIR
146 CALL RESTORE_INT_2F
147 .IF c
148 .THEN
149 GOTO INSTALL_ERROR
150 .ENDIF
151 .LEAVE < N_DSKCPY_ERR ne E_DSKCPY_RETRY >
152 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
153 .UNTIL
154
155 ;;;diskcopy OPERATING 2 diskette to WORKING3
156 .REPEAT
157 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
158 DISKCOPY_TO DSKCPY_TO_A_360,NO_SOURCE1,S_DOS_UTIL2_DISK
159 DISKCOPY_PANELS SUB_INS_OPER2,SUB_COPYING,SUB_INS_WORK3_A
160 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
161 CALL HOOK_INT_2F
162 EXEC_PROGRAM S_DISKCOPY,S_DISKCOPY_PARM,PARM_BLOCK,EXEC_NO_DIR
163 CALL RESTORE_INT_2F
164 .IF c
165 .THEN
166 GOTO INSTALL_ERROR
167 .ENDIF
168 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY > near
169
170 ;;;diskcopy OPERATING 3 diskette to STARTUP
171 .REPEAT
172 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
173 DISKCOPY_TO DSKCPY_TO_A_360,SOURCE1,S_DOS_UTIL3_DISK
174 DISKCOPY_PANELS SUB_REM_UTIL1_360,SUB_COPYING,SUB_INS_STARTT_S360
175 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
176 CALL HOOK_INT_2F
177 EXEC_PROGRAM S_DISKCOPY,S_DISKCOPY_PARM,PARM_BLOCK,EXEC_NO_DIR
178 CALL RESTORE_INT_2F
179 .IF c
180 .THEN
181 GOTO INSTALL_ERROR
182 .ENDIF
183 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY > near
184 ERASE_FILE S_RECOVER_C
185 ERASE_FILE S_FASTOPEN_C
186 ;;;create config and autoexec files on startup diskette
187 CREATE_CONFIG S_CONSYS_C, N_RETCODE
188 .IF c
189 GOTO INSTALL_ERROR
190 .ENDIF
191 CREATE_AUTOEXEC S_AUTOEX_C,E_DEST_DOS,N_RETCODE
192 .IF c near
193 GOTO INSTALL_ERROR
194 .ENDIF
195
196 .IF < ACTIVE eq EGA > or
197 .IF < ALTERNATE eq EGA > or
198 .IF < ACTIVE eq LCD > or
199 .IF < ALTERNATE eq LCD > near
200 .THEN
201 .IF < F_VDISK eq E_VDISK_NO >
202 ERASE_FILE S_VDISK_C
203 .IF c
204 GOTO INSTALL_ERROR
205 .ENDIF
206 .ENDIF
207 .IF < F_ANSI eq E_ANSI_NO >
208 ERASE_FILE S_ANSI_C
209 .IF c
210 GOTO INSTALL_ERROR
211 .ENDIF
212 .ENDIF
213 .IF < F_APPEND eq E_APPEND_NO >
214 ERASE_FILE S_APPEND_C
215 .IF c
216 GOTO INSTALL_ERROR
217 .ENDIF
218 .ENDIF
219 .IF < F_GRAFTABL eq E_GRAFTABL_NO > or
220 .IF < F_GRAFTABL eq E_GRAFTABL_NA >
221 ERASE_FILE S_GRAFTABL_C
222 .IF c
223 GOTO INSTALL_ERROR
224 .ENDIF
225 .ENDIF
226 .IF < F_GRAPHICS eq E_GRAPHICS_NO >
227 ERASE_FILE S_GRAPHICS_C
228 ERASE_FILE S_GRAPHPRO_C
229 .IF c
230 GOTO INSTALL_ERROR
231 .ENDIF
232 .ENDIF
233 ;;;Insert SELECT diskette in drive A:
234 INSERT_DISK SUB_REM_SHELL_360, S_DOS_SEL_360
235
236 ;;;copying files from INSTALL diskette screen
237 INIT_PQUEUE PAN_INSTALL_DOS
238 PREPARE_PANEL SUB_COPYING
239 DISPLAY_PANEL
240
241 INIT_VAR SOURCE_PANEL, SUB_REM_SHELL_360
242 INIT_VAR DEST_PANEL, SUB_INS_STARTT_S360
243
244 .IF < ACTIVE eq EGA > or
245 .IF < ALTERNATE eq EGA > near
246 .THEN
247 .IF < MEM_SIZE eq 256 >
248 DEALLOCATE_MEMORY
249 .ENDIF
250 COPY_FILES2 I_DEST_DRIVE,COPY_SEL_EGA,E_SEL_EGA,S_INSTALL_PATH
251 .IF c near
252 .IF < MEM_SIZE eq 256 >
253 ALLOCATE_MEMORY
254 CALL INITIALIZE
255 .ENDIF
256 HANDLE_ERROR ERR_COPY_DISK, E_RETURN
257 .ENDIF
258 .IF < MEM_SIZE eq 256 > near
259 ALLOCATE_MEMORY
260 CALL INITIALIZE
261 .ENDIF
262 .ELSE near
263 COPY_FILES2 I_DEST_DRIVE,COPY_SEL_LCD,E_SEL_LCD,S_INSTALL_PATH ;AC111; copy files to f-disk JW
264 .IF c near
265 HANDLE_ERROR ERR_COPY_DISK, E_RETURN
266 .ENDIF
267 .ENDIF
268 .ENDIF
269
270 ;;;diskcopy MS-SHELL diskette to SHELL
271 .if <f_shell eq e_shell_yes > near
272 .REPEAT
273 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
274 DISKCOPY_TO DSKCPY_TO_A_360,SOURCE1,S_DOS_SHEL_DISK
275 DISKCOPY_PANELS SUB_INS_MSSHELL_A,SUB_COPYING,SUB_INS_SHELL_S360
276 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
277 CALL HOOK_INT_2F
278 EXEC_PROGRAM S_DISKCOPY,S_DISKCOPY_PARM,PARM_BLOCK,EXEC_NO_DIR
279 CALL RESTORE_INT_2F
280 .IF c
281 .THEN
282 GOTO INSTALL_ERROR
283 .ENDIF
284 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY > near
285 CREATE_SHELL S_SHELL_NEW, N_RETCODE
286 .IF c near
287 GOTO INSTALL_ERROR
288 .ENDIF
289 .endif
290
291 .ELSE near
292
293 ;;;diskcopy INSTALL diskette to WORKING 1
294 DISKCOPY_TO DSKCPY_TO_B,SOURCE1,S_DOS_COM_360
295 DISKCOPY_PANELS SUB_INS_WORK1_360,SUB_COPYING,NOPANEL
296 .REPEAT
297 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
298 CALL HOOK_INT_2F
299 EXEC_PROGRAM S_DISKCOPY,S_DSKCPY_TO_B,PARM_BLOCK,EXEC_NO_DIR
300 CALL RESTORE_INT_2F
301 .IF c
302 .THEN
303 GOTO INSTALL_ERROR
304 .ENDIF
305 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY >
306 ERASE_FILE S_AUTO_NEW_B
307 ERASE_FILE S_CONFIG_NEW_B
308 ERASE_FILE S_SELCOM_NEW_B
309 ERASE_FILE S_SELHLP_NEW_B
310 ERASE_FILE S_SELPRT_NEW_B
311
312 ;;;diskcopy OPERATING 1 diskette to WORKING 2
313 DISKCOPY_TO DSKCPY_TO_B,SOURCE1,S_DOS_UTIL1_DISK
314 DISKCOPY_PANELS SUB_INS_WORK2_360,SUB_COPYING,NOPANEL
315 .REPEAT
316 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
317 CALL HOOK_INT_2F
318 EXEC_PROGRAM S_DISKCOPY,S_DSKCPY_TO_B,PARM_BLOCK,EXEC_NO_DIR
319 CALL RESTORE_INT_2F
320 .IF c
321 .THEN
322 GOTO INSTALL_ERROR
323 .ENDIF
324 .LEAVE < N_DSKCPY_ERR ne E_DSKCPY_RETRY >
325 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
326 .UNTIL
327
328 ;;;diskcopy OPERATING 2 diskette to WORKING3
329 .REPEAT
330 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
331 DISKCOPY_TO DSKCPY_TO_B,SOURCE1,S_DOS_UTIL2_DISK
332 DISKCOPY_PANELS SUB_INS_WORK3_360,SUB_COPYING,NOPANEL
333 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
334 CALL HOOK_INT_2F
335 EXEC_PROGRAM S_DISKCOPY,S_DSKCPY_TO_B,PARM_BLOCK,EXEC_NO_DIR
336 CALL RESTORE_INT_2F
337 .IF c
338 .THEN
339 GOTO INSTALL_ERROR
340 .ENDIF
341 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY > near
342
343 ;;;diskcopy OPERATING 3 diskette to STARTUP
344 .REPEAT
345 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
346 DISKCOPY_TO DSKCPY_TO_B,SOURCE1,S_DOS_UTIL3_DISK
347 DISKCOPY_PANELS SUB_INS_START_360,SUB_COPYING,NOPANEL
348 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
349 CALL HOOK_INT_2F
350 EXEC_PROGRAM S_DISKCOPY,S_DSKCPY_TO_B,PARM_BLOCK,EXEC_NO_DIR
351 CALL RESTORE_INT_2F
352 .IF c
353 .THEN
354 GOTO INSTALL_ERROR
355 .ENDIF
356 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY > near
357 ERASE_FILE S_RECOVER_B
358 ERASE_FILE S_FASTOPEN_B
359 ;;;create config and autoexec files on startup diskette
360 CREATE_CONFIG S_CONFIG_NEW_B, N_RETCODE
361 .IF c
362 GOTO INSTALL_ERROR
363 .ENDIF
364 CREATE_AUTOEXEC S_AUTO_NEW_B,E_DEST_DOS,N_RETCODE
365 .IF c
366 GOTO INSTALL_ERROR
367 .ENDIF
368 .IF < ACTIVE eq EGA > or
369 .IF < ALTERNATE eq EGA > or
370 .IF < ACTIVE eq LCD > or
371 .IF < ALTERNATE eq LCD > near
372 .THEN
373 .IF < F_VDISK eq E_VDISK_NO >
374 ERASE_FILE S_VDISK_B
375 .IF c
376 GOTO INSTALL_ERROR
377 .ENDIF
378 .ENDIF
379 .IF < F_ANSI eq E_ANSI_NO >
380 ERASE_FILE S_ANSI_B
381 .IF c
382 GOTO INSTALL_ERROR
383 .ENDIF
384 .ENDIF
385 .IF < F_APPEND eq E_APPEND_NO >
386 ERASE_FILE S_APPEND_B
387 .IF c
388 GOTO INSTALL_ERROR
389 .ENDIF
390 .ENDIF
391 .IF < F_GRAFTABL eq E_GRAFTABL_NO > or
392 .IF < F_GRAFTABL eq E_GRAFTABL_NA >
393 ERASE_FILE S_GRAFTABL_B
394 .IF c
395 GOTO INSTALL_ERROR
396 .ENDIF
397 .ENDIF
398 .IF < F_GRAPHICS eq E_GRAPHICS_NO >
399 ERASE_FILE S_GRAPHICS_B
400 ERASE_FILE S_GRAPHPRO_B
401 .IF c
402 GOTO INSTALL_ERROR
403 .ENDIF
404 .ENDIF
405 ;;;Insert SELECT diskette in drive A:
406 INSERT_DISK SUB_INS_INSTALL_360, S_DOS_SEL_360
407 ;;;copying files from INSTALL diskette screen
408 INIT_PQUEUE PAN_INSTALL_DOS
409 PREPARE_PANEL SUB_COPYING
410 DISPLAY_PANEL
411 .IF < ACTIVE eq EGA > or
412 .IF < ALTERNATE eq EGA > near
413 .IF < MEM_SIZE eq 256 >
414 DEALLOCATE_MEMORY
415 .ENDIF
416 COPY_FILES2 I_DEST_DRIVE,COPY_SEL_EGA,E_SEL_EGA,S_INSTALL_PATH ;AC111; copy files to f-disk JW
417 .IF c near
418 .IF < MEM_SIZE eq 256 >
419 ALLOCATE_MEMORY
420 CALL INITIALIZE
421 .ENDIF
422 HANDLE_ERROR ERR_COPY_DISK, E_RETURN
423 .ENDIF
424 .IF < MEM_SIZE eq 256 >
425 ALLOCATE_MEMORY
426 CALL INITIALIZE
427 .ENDIF
428 .ELSEIF < ACTIVE eq LCD > or
429 .IF < ALTERNATE eq LCD >
430 COPY_FILES2 I_DEST_DRIVE,COPY_SEL_LCD,E_SEL_LCD,S_INSTALL_PATH ;AC111; copy files to f-disk JW
431 .IF c near
432 HANDLE_ERROR ERR_COPY_DISK, E_RETURN
433 .ENDIF
434 .ENDIF
435 .ENDIF
436
437 .if <f_shell eq e_shell_yes > near
438 ;;;diskcopy MS-SHELL to SHELL
439 .REPEAT
440 INSERT_DISK SUB_REM_DOS_A, S_DOS_COM_360
441 DISKCOPY_TO DSKCPY_TO_B,SOURCE1,S_DOS_SHEL_DISK
442 DISKCOPY_PANELS SUB_INS_SHELL_DISKS,SUB_COPYING,NOPANEL
443 INIT_VAR N_DSKCPY_ERR,E_DSKCPY_OK
444 CALL HOOK_INT_2F
445 EXEC_PROGRAM S_DISKCOPY,S_DSKCPY_TO_B,PARM_BLOCK,EXEC_NO_DIR
446 CALL RESTORE_INT_2F
447 .IF c
448 .THEN
449 GOTO INSTALL_ERROR
450 .ENDIF
451 .UNTIL < N_DSKCPY_ERR ne E_DSKCPY_RETRY > near
452 CREATE_SHELL S_SHELL_NEW_B, N_RETCODE
453 .IF c
454 GOTO INSTALL_ERROR
455 .ENDIF
456 .endif ; copy to shell
457
458 .ENDIF
459
460 ;;;installation complete and change diskettes screen
461 INIT_PQUEUE PAN_COMPLETE3
462 PREPARE_PANEL SUB_COMP_KYS_3
463 DISPLAY_PANEL
464 SAVE_PANEL_LIST
465 GET_FUNCTION FK_REBOOT
466
467;;;;;;;;control will not return here. user has to reboot;;;;;;;;; end of install to 1.2M or 1.44M drive
468;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
469;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
470;
471; Process the ESC/F3 keys.
472;
473;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
474PROCESS_ESC_F3:
475 .IF < N_USER_FUNC eq E_ESCAPE >
476 POP_HEADING
477 .ENDIF
478EXIT_DOS:
479 CLEAR_SCREEN2
480EXIT_DOS_CONT:
481 .IF < I_DEST_DRIVE eq E_DEST_DRIVE_C > and
482 .IF < N_HOUSE_CLEAN eq E_CLEAN_YES >
483 ERASE_FILE S_AUTO_NEW
484 ERASE_FILE S_CONFIG_NEW
485 ERASE_FILE S_SHELL_NEW
486 ERASE_FILE S_SELECT_TMP
487 CHANGE_AUTOEXEC S_AUTO_REBOOT, S_AUTO_MENU
488 .ENDIF
489
490 GOTO EXIT_SELECT
491
492INSTALL_ERROR:
493
494 .IF < DSKCPY_ERR ne DSKCPY_EXIT >
495 HANDLE_ERROR ERR_EXIT, E_QUIT
496 .ENDIF
497
498 GOTO EXIT_DOS
499
500Free_Parser:
501 MOV AH,62H
502 INT 21H
503 MOV AX,BX
504 MOV BX,PARSER
505 MOV ES,AX
506 SUB BX,AX
507 MOV AH,SET_BLOCK
508 DOSCALL
509 ret
510
511;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
512;
513;
514;
515;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
516SELECT ENDS
517 END
518 \ No newline at end of file
HIC SVNT DRACONES