v4.0/src/SELECT/SELECT9.ASM

   1
   2
   3 PAGE 55,132
   4 NAME    SELECT
   5 TITLE   SELECT - DOS - SELECT.EXE
   6 SUBTTL  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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34 DATA    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
  42 DATA    ENDS
  43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44 ;
  45 ; Define dummy segment to calculate end of program
  46 ;
  47 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  48 PARSER   SEGMENT PARA PUBLIC 'PARSER'
  49 PARSER   ENDS
  50
  51 SET_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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  73 SELECT  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
  97 INSTALL_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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 474 PROCESS_ESC_F3:
 475         .IF < N_USER_FUNC eq E_ESCAPE >
 476            POP_HEADING
 477         .ENDIF
 478 EXIT_DOS:
 479         CLEAR_SCREEN2
 480 EXIT_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
 492 INSTALL_ERROR:
 493
 494         .IF < DSKCPY_ERR ne DSKCPY_EXIT >
 495             HANDLE_ERROR    ERR_EXIT, E_QUIT
 496         .ENDIF
 497
 498         GOTO    EXIT_DOS
 499
 500 Free_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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 516 SELECT  ENDS
 517         END
 518 \1a