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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
|
PAGE 55,132 ;AN000;
NAME SELECT ;AN000;
TITLE SELECT - DOS - SELECT.EXE ;AN000;
SUBTTL SELECT6.asm ;AN000;
.ALPHA ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SELECT6.ASM : Copyright 1988 Microsoft
;
; DATE: August 8/87
;
; COMMENTS: Assemble with MASM 3.0 (using the /A option)
;
; Panel flow is defined in the following files:
;
; � SELECT1.ASM
; ;AN000; SELECT2.ASM
; ;AN000; SELECT3.ASM
; ;AN000; SELECT4.ASM
; ;AN000; SELECT5.ASM
; ;AN000; SELECT6.ASM
;
;
; Module contains code for :
; - Format the drives
; - Copy files
;
; CHANGE HISTORY:
;
; ;AN009; DT added support for creation of the DOSSHELL.BAT as a
; separately installed file. (D233)
; ;AN002; GHG for P1146
; ;AN003; GHG for D234
; ;AN004; GHG for P65
; ;AN005; DT for single drive support
; ;AN006; JW for dos location choice (global or path only)
; ;AN007; JW for D239 - display drive letter to format
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
EXTRN SEL_FLG:BYTE ;AN000;
EXTRN EXEC_FDISK:BYTE ;AN000;DT
EXTRN EXEC_ERR:BYTE ;AN000;DT
DATA ENDS ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Define dummy segment to calculate end of program
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PARSER SEGMENT PARA PUBLIC 'PARSER' ;AN072;
PARSER ENDS ;AN072;
SET_BLOCK equ 4AH ;AN072;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.XLIST ;AN000;
INCLUDE PANEL.MAC ;AN000;
INCLUDE SELECT.INC ;AN000;
INCLUDE CASTRUC.INC ;AN000;
INCLUDE STRUC.INC ;AN000;
INCLUDE MACROS.INC ;AN000;
INCLUDE MACROS7.INC ;AN009;DT
INCLUDE EXT.INC ;AN000;
INCLUDE VARSTRUC.INC ;AN000;
INCLUDE ROUT_EXT.INC ;AN000;
INCLUDE PAN-LIST.INC ;AN000;
.LIST ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
EXTRN DEALLOCATE_HELP:FAR ;AN000;DT
EXTRN DEALLOCATE_BLOCK:FAR ;AN000;DT
EXTRN ALLOCATE_BLOCK:FAR ;AN000;DT
EXTRN DEALLOCATE_MEMORY_CALL:FAR ;AN000;DT
EXTRN ALLOCATE_MEMORY_CALL:FAR ;AN000;DT
EXTRN GET_OVERLAY:NEAR ;AN048;SEH
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SELECT SEGMENT PARA PUBLIC 'SELECT' ;AN000;
ASSUME CS:SELECT,DS:DATA ;AN000;
;
INCLUDE CASEXTRN.INC ;AN000;
;
EXTRN EXIT_SELECT:near ;AN000;
EXTRN CREATE_CONFIG_SYS:NEAR ;AN000;
EXTRN CREATE_AUTOEXEC_BAT:NEAR ;AN000;
EXTRN CREATE_SHELL_BAT:NEAR ;AN009;DT
; EXTRN DO_PREP_FOR_ONE:NEAR ;AN009;DT
; EXTRN DO_HOOK15:NEAR ;AN009;DT
; EXTRN DO_UNHOOK15:NEAR ;AN009;DT
;
EXTRN EXIT_DOS:near ;AN004;GHG
EXTRN INSTALL_ERROR:near ;AN004;GHG
EXTRN EXIT_SELECT:NEAR ;AN004;GHG
EXTRN PROCESS_ESC_F3:near ;AN004;GHG
EXTRN DISKETTE_INSTALL:NEAR ;AN111;JW
EXTRN EXIT_DOS_CONT:NEAR ;AN004;GHG
EXTRN CONTINUE_360:NEAR ;AN004;GHG
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; CODE CONTINUES.....
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PUBLIC FORMAT_DISK_SCREEN ;AN000;
FORMAT_DISK_SCREEN: ;AN000;
;
CALL DEALLOCATE_HELP ;AN072;Help no longer needed
POS_CURSOR ;AN085;SEH position cursor at top left corner so that future "% formatted" msg appears in correct spot
CALL CURSOROFF ;AN082;SEH
;
.IF < I_DEST_DRIVE ne E_DEST_DRIVE_C > ;AN111;JW
GOTO DISKETTE_INSTALL ;AN111;JW
.ENDIF ;AN000;
;
; N_WORD_1 : disk number ;
; N_WORD_2 : index into disk table ;
; N_WORD_3 : sub panel number for specified disk ;
;
INIT_VAR N_WORD_1, 1 ;AN000; set disk no = 1
.REPEAT ;AN000; repeat code block
INIT_VAR N_WORD_2, 1 ;AN000; set index into table = 1
.IF < N_WORD_1 eq E_DISK_1 > ;AN000; if disk = 1
INIT_VAR N_DISK_NUM, '1' ;AN007; sub panel = fixed disk 1 JW
.ELSE ;AN000; else
INIT_VAR N_DISK_NUM, '2' ;AN007; sub panel = fixed disk 2 JW
.ENDIF ;AN000;
;
.REPEAT ;AN000; repeat code block
SCAN_DISK_TABLE N_WORD_1,N_WORD_2,N_RETCODE ;AN000; scan disk table
.LEAVE < N_RETCODE ne 0 > near ;AN000; break loop if no more entries
;
.IF < N_NAME_PART eq E_PART_PRI_DOS > and ;AN000; if pri part & unformatted
.IF < N_STATUS_PART eq E_PART_UNFORMAT > ;AN000;
INIT_VAR N_TYPE_PART, E_PART_FAT ;AN000; set to format as FAT
.ELSEIF < N_NAME_PART eq E_PART_LOG_DRI > near and;AN000; if log drive & unformatted
.IF < N_STATUS_PART eq E_PART_UNFORMAT > near ;AN000;
.IF < N_FORMAT_MODE eq E_FORMAT_SELECT > ;AN000; if select to format partition
INIT_VAR N_TYPE_PART, E_PART_FAT ;AN000; set to format as FAT
.ELSE near ;AN000; else
INIT_CHAR N_DISK_NUM, E_DISK_ROW, E_DISK_COL,SUB_FIXED_1 ;AN007; display the disk number JW
INIT_CHAR P_DRIVE_PART, E_DRIVE_ROW, E_DRIVE_COL,SUB_LOG_DRIVE ;AN000; display the drive letter JW
INIT_PQUEUE PAN_FORMAT ;AN000; init format panel
PREPARE_PANEL PAN_HBAR ;AN000; prepare hor. bar panel
PREPARE_PANEL SUB_FIXED_1 ;AC007; prepare disk no panel JW
PREPARE_PANEL SUB_LOG_DRIVE ;AN000;JW
PREPARE_CHILDREN ;AN000; prepare children
INIT_VAR F_FORMAT, E_FORMAT_FAT ;AN000; set option=format as FAT
INIT_SCROLL SCR_FORMAT, F_FORMAT ;AN000; init scroll list
DISPLAY_PANEL ;AN000; display panel
GET_SCROLL SCR_FORMAT,F_FORMAT,FK_FORMAT ;AN000; get option
COPY_WORD F_FORMAT, I_USER_INDEX ;AN000; save option
.IF < F_FORMAT eq E_FORMAT_FAT > ;AN000; if option=format
INIT_VAR N_TYPE_PART, E_PART_FAT ;AN000; set to format as FAT
.ENDIF ;AN000;
.ENDIF ;AN000;
.ENDIF ;AN000;
UPDATE_DISK_TABLE N_WORD_1,N_WORD_2,N_RETCODE ;AN000; update disk table
INC_VAR N_WORD_2 ;AN000; inc index into table
.UNTIL ;AN000; end of repeat block
INC_VAR N_WORD_1 ;AN000; inc disk no
.UNTIL < N_WORD_1 gt 2> near ;AN000; end of repeat block
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Format the logical drives and primary partition
; N_WORD_1 : disk number
; N_WORD_2 : index into disk table
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INIT_VAR N_WORD_1, 1 ;AN000; set disk no = 1
.REPEAT ;AN000; repeat code block
INIT_VAR N_WORD_2, 1 ;AN000; set index into disk table = 1
.REPEAT ;AN000; repeat code block
SCAN_DISK_TABLE N_WORD_1,N_WORD_2,N_RETCODE ;AN000; scan disk table
.LEAVE < N_RETCODE ne 0 > near ;AN000; break loop in index not valid
.IF < N_STATUS_PART eq E_PART_UNFORMAT > and near ;AN000; if partition not unformatted and
.IF < N_TYPE_PART eq E_PART_FAT > near ;AN000; format set to FAT
COPY_BYTE P_STR120_1, P_DRIVE_PART ;AN000; save drive letter in buffer
INIT_VAR S_STR120_1, 1 ;AN000; set length of string
APPEND_STRING S_STR120_1, M_STR120_1, S_COLON ;AN000; append colon to drive
.IF < N_NAME_PART eq E_PART_PRI_DOS > and ;AN111; if primary partition and JW
.IF < N_WORD_1 eq 1 > ;AN111; first drive JW
APPEND_STRING S_STR120_1,M_STR120_1,S_SLASH_S ;AN000; append ' /s' to drive
INIT_VAR I_DESTINATION, E_ENTIRE_DISK ;AN033; SEH install to entire disk if formatting
.ENDIF ;AN000;
APPEND_STRING S_STR120_1,M_STR120_1,S_VOL_SEL ;AN000; append "/V:DOS340 /SELECT"
CLEAR_SCREEN ;AN000; pos cursor at top of screen
INIT_PQUEUE FORMAT_DISK ;AN000; initialize queue
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
EXEC_PROGRAM S_FORMAT,S_STR120_1,PARM_BLOCK,EXEC_NO_DIR ;AN000; format partition as FAT
.IF < c > ;AN000;
MOV EXEC_ERR,TRUE ;AN000;
.ENDIF ;AN000;
;
.IF < MEM_SIZE eq 256 > near ;AN000;DT
CLEAR_SCREEN ;AN000;
DISPLAY_MESSAGE 12 ;AN000;DT Insert SELECT diskette
.REPEAT ;AN000;
GET_FUNCTION FK_ENT ;AN000; get user entered function
FIND_FILE S_DOS_SEL_360, E_FILE_ATTR;AN000;
.LEAVE < nc > ;AN000;
DISPLAY_MESSAGE 11 ;AN000;DT Beep
.UNTIL ;AN000;
ALLOCATE_MEMORY ;AN000;DT
CALL INITIALIZE ;AN000;DT and read them in
CALL DEALLOCATE_HELP ;AN072;Help no longer needed
;
INSERT_DISK SUB_INSTALL_COPY, S_AUTO_NEW ;AN000;JW Insert INSTALL COPY diskette
;
.ENDIF ;AN000;
;
.IF < EXEC_ERR eq TRUE > ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
.ENDIF ;AN000;
INC_VAR N_WORD_2 ;AN000;
.UNTIL ;AN000;
INC_VAR N_WORD_1 ;AN000;
.UNTIL < N_WORD_1 gt 2> near ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GET_TIME N_HOUR, N_MINUTE, N_SECOND ;AN000; get system time
GET_DATE N_YEAR, N_MONTH, N_DAY ;AN000; get system date
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Update date/time of CONFIG.340
; AUTOEXEC.340
; DOSSHELL.BAT in drive A: ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
OPEN_FILE S_CONFIG_NEW, 2, N_HANDLE ;AN000;
SET_FILE_DATE_TIME N_HANDLE,N_HOUR,N_MINUTE,N_SECOND,N_YEAR,N_MONTH,N_DAY ;AN000;
CLOSE_FILE N_HANDLE ;AN000;
.IF c ;AN000;
GOTO INSTALL_ERROR ;AN000;
.ENDIF ;AN000;
;
OPEN_FILE S_AUTO_NEW, 2, N_HANDLE ;AN000;
SET_FILE_DATE_TIME N_HANDLE,N_HOUR,N_MINUTE,N_SECOND,N_YEAR,N_MONTH,N_DAY ;AN000;
CLOSE_FILE N_HANDLE ;AN000;
.IF c ;AN000;
GOTO INSTALL_ERROR ;AN000;
.ENDIF ;AN000;
;
OPEN_FILE S_SHELL_NEW, 2, N_HANDLE ;AN009;DT
SET_FILE_DATE_TIME N_HANDLE,N_HOUR,N_MINUTE,N_SECOND,N_YEAR,N_MONTH,N_DAY ;AN009;DT
CLOSE_FILE N_HANDLE ;AN009;DT
.IF < c > ;AN009;DT
GOTO INSTALL_ERROR ;AN009;DT
.ENDIF ;AN009;DT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Make sure any previous AUTOEXEC.340 or CONFIG.340
; are not READ-ONLY !
; Copy CONFIG.340 & AUTOEXEC.340 from A: to root of C:
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CHMOD_FILE S_AUTO_REN ;AN017;
CHMOD_FILE S_CONFIG_REN ;AN017;
COPY_FILES2 I_DEST_DRIVE,S_CONFIG_AUTO,E_FILES,S_DEST_DRIVE ;AC111;JW
.IF < c > ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; If the user selected to replace files throughout the fixed disk:
; 1) Copy COMMAND.COM to root of C:
; 2) Check if OS/2 is installed. If it is, rename CONFIG.SYS and
; AUTOEXEC.BAT (OS2'S) to CONFIG.OS2 and AUTOEXEC.OS2. Then
; rename CONFIG.400 and AUTOEXEC.400 to CONFIG.SYS and
; AUTOEXEC.BAT.
; 3) Try to locate C:\CONFIG.SYS & C:\AUTOEXEC.BAT (if OS/2 not installed)
; If either one is already present, then leave the names
; of the new files as CONFIG.400 and AUTOEXEC.400!
; Otherwise, the CONFIG.400 and AUTOEXEC.400 become the
; new user's SYS and BAT files.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.IF < I_DESTINATION eq E_ENTIRE_DISK > near ;AN010;JW
;
.IF < MEM_SIZE eq 256 > ;AN048;SEH memory must be freed up
DEALLOCATE_MEMORY ;AN048;SEH before reading COMMAND.COM
.ENDIF ;AN048;SEH
CHMOD_FILE S_COMMAND_COM ;AN017;
COPY_FILES2 I_DEST_DRIVE,COPY_SEL_SHEL,E_SEL_SHEL,S_DEST_DRIVE ;AC010;JW
.IF < c > ;AN000;
MOV EXEC_ERR,TRUE ;AN000;
.ENDIF ;AN000;
.IF < MEM_SIZE eq 256 > near ;AN000;DT
CALL GET_OVERLAY ;AC048;SEH replaced code with this proc call
INSERT_DISK SUB_INSTALL_COPY, S_DOS_COM_360 ;AN000;JW Insert INSTALL COPY diskette
CALL DEALLOCATE_HELP ;AN072;Help no longer needed
.ENDIF ;AN000;DT
.IF < EXEC_ERR eq TRUE > ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
INIT_VAR N_WORD_1,1 ;AN065;SEH set disk no. = 1
INIT_VAR N_WORD_2,1 ;AN065;SEH set index into disk table = 1
SCAN_DISK_TABLE N_WORD_1,N_WORD_2,N_RETCODE ;AN065;SEH get version number
.IF < N_RETCODE eq 0 > near and ;AN065;SEH
.IF < N_LEVEL2_PART ne '4' > near ;AN065;SEH is it OS/2? 1st byte of DOS version number = blank; for OS/2 it's 1
RENAME_FILE S_CONFIG_C, S_OS2_CONFIG_C ;AN065;SEH rename OS/2's CONFIG.SYS to CONFIG.OS2
RENAME_FILE S_AUTO_C, S_OS2_AUTO_C ;AN065;SEH rename OS/2's AUTOEXEC.BAT to AUTOEXEC.OS2
RENAME_FILE S_CONFIG_REN, S_CONFIG_NEW_C ;AN065;SEH rename CONFIG.400 to CONFIG.SYS
.IF < c > ;AN065;SEH
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN065;SEH
.ENDIF ;AN065;SEH
RENAME_FILE S_AUTO_REN, S_AUTO_NEW_C ;AN065;SEH rename AUTOEXEC.400 to AUTOEXEC.BAT
.IF < c > near ;AN065;SEH
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN065;SEH
.ENDIF ;AN065;SEH
.ELSE near ;AN065;SEH
FIND_FILE S_CONFIG_C, E_FILE_ATTR ;AN000;GHG
.IF < c > ;AN000;GHG
FIND_FILE S_AUTO_C, E_FILE_ATTR ;AN000;GHG
.IF < c > ;AN000;GHG
RENAME_FILE S_CONFIG_REN, S_CONFIG_NEW_C;AN000;GHG new CONFIG *******
.IF < c > ;AN000;GHG
HANDLE_ERROR ERR_COPY_DISK, E_RETURN;AN000;GHG
.ENDIF ;AN000;GHG
RENAME_FILE S_AUTO_REN, S_AUTO_NEW_C ;AN000;GHG new AUTOEXEC *******
.IF < c > ;AN000;GHG
HANDLE_ERROR ERR_COPY_DISK, E_RETURN;AN000;GHG
.ENDIF ;AN000;GHG
.ENDIF ;AN000;GHG
.ENDIF ;AN000;GHG
.ENDIF ;AN065;SEH
.ENDIF ;AN010;JW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Create install path directory always !
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
MAKE_DIR_PATHS S_INSTALL_PATH ;AN000;
.IF c ;AN000;
GOTO INSTALL_ERROR ;AN000;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Make sure any previous DOSSHELL.BAT is not READ-ONLY !
; Copy DOSSHELL.BAT from A: to subdirectory of C:
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.IF < S_DOS_LOC eq 0 > ;AN058;SEH
MERGE_STRING S_STR120_1,M_STR120_1,S_DEST_DRIVE,S_SHELL_NEW ;AN058;SEH
.ELSE ;AN058;SEH
MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_SLASH ;AN017;
APPEND_STRING S_STR120_1,M_STR120_1,S_SHELL_NEW ;AN017;
.ENDIF ;AN058;SEH
CHMOD_FILE S_STR120_1 ;AN017;
COPY_FILES2 I_DEST_DRIVE,S_SHELL2,SH_FILES,S_INSTALL_PATH ;AC111;JW
.IF c ;AN009;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN009;
.ENDIF ;AN009;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Erase: AUTOEXEC.340 CONFIG.340
; DOSSHELL.BAT SELECT.TMP from drive A:
;
; Then perform cleanup of AUTOEXEC.BAT on INSTALL (source)
; diskette - ie. change to SELECT MENU!!!
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ERASE_FILE S_AUTO_NEW ;AN000;
ERASE_FILE S_CONFIG_NEW ;AN000;
ERASE_FILE S_SHELL_NEW ;AN000;
ERASE_FILE S_SELECT_TMP ;AN000; only present if reboot after FDISK
;
CHANGE_AUTOEXEC S_AUTO_REBOOT, S_AUTO_MENU ;AN000;
.IF c ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; If 256KB machine, shrink SELECT memory below the parser
; and pcinput code. This frees about another 11KB.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.IF < MEM_SIZE eq 256 > ;AN072;
;
DEALLOCATE_MEMORY ;AN072;
MOV AH,62H ;AN072;Get the PSP segment
INT 21H ;AN072;
MOV AX,BX ;AN072;save the PSP segment of SELECT
MOV BX,PARSER ;AN072;get last address of code
MOV ES,AX ;AN072;set PSP segment in ES
SUB BX,AX ;AN072;calc # of paragraphs in the program
MOV AH,SET_BLOCK ;AN072;setblock function number
DOSCALL ;AN072;free used memory
.IF < c > ;AN000;
CALL GET_OVERLAY ;AC048;SEH replaced code with this proc call
INSERT_DISK SUB_INSTALL_COPY, S_DOS_COM_360 ;AN000;JW Insert INSTALL COPY diskette
GOTO INSTALL_ERROR ;AN072;If error, exit
.ENDIF ;AN000;
.ENDIF
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; If install is to entire disk, Exec SYS to the drive C:
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.IF < I_DESTINATION eq E_ENTIRE_DISK > near ;AN010;
;
;;;copy system files from Startup diskette to drive C:
EXEC_PROGRAM S_SYS_C,S_DRIVE_C,PARM_BLOCK,EXEC_DIR ;AN000;
.IF < c > ;AN000;
MOV EXEC_ERR,TRUE ;AN000;
.ENDIF ;AN000;
.ENDIF ;AN010;JW
.IF < MEM_SIZE eq 256 > near ;AN000;DT
CALL GET_OVERLAY ;AC048;SEH replaced code with this proc call
INSERT_DISK SUB_INSTALL_COPY, S_DOS_COM_360 ;AN000;JW Insert INSTALL COPY diskette
CALL DEALLOCATE_HELP ;AN072;DT
.ENDIF ;AN000;DT
.IF < EXEC_ERR eq TRUE > ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;
;
; Display copying files from INSTALL diskette
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.IF < N_DISKETTE_A eq E_DISKETTE_720 > near or ;AN000;GHG
.IF < N_DISKETTE_A eq E_DISKETTE_1440 > near ;AN000;GHG
;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL PAN_DSKCPY_CPY ;AN000; prepare copying
DISPLAY_PANEL ;AN000; from diskette 2 msg
;
;;;S_STR120_1 = "a:*.* c:\path /a parameter for REPLACE
MERGE_STRING S_STR120_1,M_STR120_1,S_A_STARS,S_INSTALL_PATH ;AN000;
APPEND_STRING S_STR120_1,M_STR120_1,S_SLASH_A ;AN000;
;
; .IF < I_DESTINATION eq E_ENTIRE_DISK > ;AN006;JW
; .THEN ;AN006;
; ;;;S_STR120_3 = "a:*.* c:\ /s parameter for REPLACE
; COPY_STRING S_STR120_3,M_STR120_3,S_REPLACE_PAR1 ;AN006;JW
; .ELSE ;AN006;
;;;S_STR120_3 = "a:*.* c:\<path> /r parameter for REPLACE
MERGE_STRING S_STR120_3,M_STR120_3,S_A_STARS,S_INSTALL_PATH ;AN006;JW
APPEND_STRING S_STR120_3,M_STR120_3,S_SLASH_R ;AN000;JW
; .ENDIF ;AN006;
;
;;;change attributes of some files so they are not copied
CHANGE_ATTRIBUTE HIDE_SEL, E_HIDE_SEL ;AN000;
;
;;;replace files in drive C: with new files on INSTALL diskette
EXEC_PROGRAM S_REPLACE,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
RESTORE_ATTRIBUTE HIDE_SEL,E_HIDE_SEL ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A" ;
;;;copy new files on SELECT diskette to install path ;
EXEC_PROGRAM S_REPLACE,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
RESTORE_ATTRIBUTE HIDE_SEL,E_HIDE_SEL ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;restore attributes of files ;
RESTORE_ATTRIBUTE HIDE_SEL,E_HIDE_SEL ;AN000;
;
;-------------------------------------------------------------
; copy files from 720k Operate diskette
;-------------------------------------------------------------
; NOTE: The REPLACE command is now issued from the hard disk
; (since it is not found on any other disk)
COMPARE_STRINGS S_INSTALL_PATH, S_DEST_DRIVE ;AN000; compare to C:\
.IF < nc > ;AN000; if the same
MERGE_STRING S_STR120_2,M_STR120_2,S_INSTALL_PATH,S_REPLACE ;AN000;
.ELSE ;AN000;
MERGE_STRING S_STR120_2,M_STR120_2,S_INSTALL_PATH,S_SLASH ;AN000;
APPEND_STRING S_STR120_2,M_STR120_2,S_REPLACE;AN000;
.ENDIF ;AN000;
INSERT_DISK SUB_REM_SEL_A, S_DOS_UTIL1_DISK ;AN000;JW Insert Operating diskette
;
;;;display copying files from diskette 1 screen ;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL PAN_DSKCPY_CPY ;AN000; prepare copying from diskette 1 message
DISPLAY_PANEL ;AN000;
;
;;;replace files in drive C: with new files on DOS diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
;;;copy new files on DOS diskette to install path ;
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;-------------------------------------------------------------
; copy files from 720k Shell diskette
;-------------------------------------------------------------
.IF < f_shell eq e_shell_yes > near
;
INSERT_DISK SUB_INS_MSSHELL_A, S_DOS_SHEL_DISK ;AN000;JW Insert Operating diskette
;
;;;display copying files from diskette 1 screen ;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL PAN_DSKCPY_CPY ;AN000; prepare copying from diskette 1 message
DISPLAY_PANEL ;AN000;
;
;;;replace files in drive C: with new files on DOS diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
;;;copy new files on DOS diskette to install path ;
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
.ENDIF ; IF shell supported
.ENDIF ;AN000;GHG
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;;;720KB;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; End of 720KB support
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
GOTO CONTINUE_360 ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SELECT ENDS ;AN000;
END ;AN000;
|
