v4.0/src/SELECT/MACROS7.INC

   1 PROCESS_ESC MACRO                               ;;AN000;
   2         .IF < N_USER_FUNC eq E_ESCAPE >         ;;AN000;
   3         .THEN                                   ;;AN000;
   4            POP_HEADING                          ;;AN000;
   5         .ENDIF                                  ;;AN000;
   6         ENDM                                    ;;AN000;
   7                                                 ;;AN000;
   8 PROCESS_F3 MACRO                                ;;AN000;
   9         .IF < N_USER_FUNC eq E_F3 >             ;;AN000;
  10         .THEN                                   ;;AN000;
  11            GOTO                 EXIT_DOS        ;;AN000;
  12         .ENDIF                                  ;;AN000;
  13         ENDM                                    ;;AN000;
  14
  15 INIT_VAR_MINIMIZE MACRO
  16         INIT_VAR                S_BUFFERS, 0                            ;;AN000;set BUFFERS = null (spaces)
  17         INIT_VAR                S_FCBS, 0                               ;;AN000;set FCBS = null (spaces)
  18         INIT_VAR                F_ANSI, E_ANSI_NO                       ;;AN000;set ANSI = no
  19         INIT_VAR                S_ANSI, 0                               ;;AN000;set ANSI field = null (spaces)
  20         INIT_VAR                F_FASTOPEN, E_FASTOPEN_NO               ;;AN000;set FASTOPEN = no
  21         INIT_VAR                S_FASTOPEN, 0                           ;;AN000;set FASTOPEN = null (spaces)
  22         INIT_VAR                F_GRAPHICS, E_GRAPHICS_NO               ;;AN000;set GRAPHICS = no
  23         INIT_VAR                S_GRAPHICS, 0                           ;;AN000;set GRAPHICS field = null (spaces)
  24         COPY_STRING             S_FILES, M_FILES, D_FILES_2             ;AN000; set FILES = 8
  25         ENDM
  26
  27 INIT_VAR_BALANCE MACRO
  28         COPY_STRING             S_BUFFERS, M_BUFFERS, D_BUFFERS_1       ;;AN000;set BUFFERS = 20
  29         INIT_VAR                S_FCBS, 0                               ;;AN000;set FCBS = null (spaces)
  30         INIT_VAR                F_ANSI, E_ANSI_YES                      ;;AN000;set ANSI = yes
  31         INIT_VAR                S_ANSI, 0                               ;;AN000;set ANSI field = null (spaces)
  32         INIT_VAR                F_FASTOPEN, E_FASTOPEN_YES              ;;AN000;set FASTOPEN = yes
  33         COPY_STRING             S_FASTOPEN, M_FASTOPEN, D_FASTOPEN_1    ;;AN000;set FASTOPEN = C:=(50,25)
  34         INIT_VAR                F_GRAPHICS, E_GRAPHICS_YES              ;;AN000;set GRAPHICS = yes
  35         INIT_VAR                S_GRAPHICS, 0                           ;;AN000;set GRAPHICS field = null (spaces)
  36         COPY_STRING             S_FILES, M_FILES, D_FILES_1             ;AN000; set FILES = 20
  37         ENDM
  38
  39 INIT_VAR_MAXIMIZE MACRO
  40         COPY_STRING             S_BUFFERS, M_BUFFERS, D_BUFFERS_2       ;;AN000;set BUFFERS = 50,4
  41         COPY_STRING             S_FCBS, M_FCBS, D_FCBS_1                ;;AN000;set FCBS = 20,8
  42         INIT_VAR                F_ANSI, E_ANSI_YES                      ;;AN000;set ANSI = yes
  43         COPY_STRING             S_ANSI, M_ANSI, D_ANSI_1                ;;AN000;set ANSI field = /X
  44         INIT_VAR                F_FASTOPEN, E_FASTOPEN_YES              ;;AN000;set FASTOPEN = yes
  45         COPY_STRING             S_FASTOPEN, M_FASTOPEN, D_FASTOPEN_2    ;;AN000;set FASTOPEN = C:(150,150)
  46         INIT_VAR                F_GRAPHICS, E_GRAPHICS_YES              ;;AN000;set GRAPHICS = yes
  47         INIT_VAR                S_GRAPHICS, 0                           ;;AN000;set GRAPHICS field = null (spaces)
  48         COPY_STRING             S_FILES, M_FILES, D_FILES_1             ;AN000; set FILES = 20
  49         ENDM
  50
  51 SAVE_PARAMETERS MACRO           SAV_FILE, RET_CODE              ;;AN000;
  52         PREPARE_FILE            SAV_FILE                        ;;AN000;
  53         WORD_TO_CHAR            F_SHELL, S_STR120_1
  54         WRITE_LINE              S_STR120_1
  55         WORD_TO_CHAR            N_FORMAT_MODE, S_STR120_1       ;;AN000;
  56         WRITE_LINE              S_STR120_1                      ;;AN000;
  57         WORD_TO_CHAR            N_DISK_1, S_STR120_1            ;;AN000;
  58         WRITE_LINE              S_STR120_1                      ;;AN000;
  59         WORD_TO_CHAR            I_DESTINATION,S_STR120_1        ;;AN033;SEH  save destination, too
  60         WRITE_LINE              S_STR120_1                      ;;AN033;SEH
  61         WRITE_LINE              S_INSTALL_PATH                  ;;AN000;
  62         SAVE_FILE               SAV_FILE, RET_CODE              ;;AN000;
  63         ENDM                                                    ;;AN000;
  64
  65 CREATE_CONFIG  MACRO    CONFIG_FILE, RET_CODE                   ;;AN000;
  66         PREPARE_FILE    CONFIG_FILE                             ;;AN000;
  67         CALL            CREATE_CONFIG_SYS                       ;;AN000;
  68         SAVE_FILE       CONFIG_FILE, RET_CODE                   ;;AN000;
  69         ENDM                                                    ;;AN000;
  70
  71 CREATE_AUTOEXEC MACRO   AUTO_FILE, DEST, RET_CODE               ;;AN000;
  72         MOV             N_DEST, DEST                            ;;AN000;
  73         PREPARE_FILE    AUTO_FILE                               ;;AN000;
  74         CALL            CREATE_AUTOEXEC_BAT                     ;;AN000;
  75         SAVE_FILE       AUTO_FILE, RET_CODE                     ;;AN000;
  76         ENDM                                                    ;;AN000;
  77
  78 CREATE_SHELL  MACRO     SHELL_FILE, RET_CODE       ;;AN000;
  79         PREPARE_FILE    SHELL_FILE                 ;;AN000;
  80         CALL            CREATE_SHELL_BAT           ;;AN000;
  81         SAVE_FILE       SHELL_FILE, RET_CODE       ;;AN000;
  82         ENDM                                       ;;AN000;
  83
  84 ADD_WORD        MACRO  VAR1, VAR2               ;;AN000;
  85         MOV     AX,VAR2                         ;;AN000;
  86         ADD     VAR1,AX                         ;;AN000;
  87         ENDM                                    ;;AN000;
  88
  89 CHECK_DISPLAY   MACRO                           ;;AN000;
  90         CALL    VIDEO_CHECK                     ;;AN000;
  91         ENDM                                    ;;AN000;
  92
  93 SAVE_PANEL_LIST MACRO                           ;;AN000;
  94         MOV     AX,0ADC0H                       ;;AN000;
  95         MOV     BX,0FFFFH                       ;;AN000;
  96         INT     2FH                             ;;AN000;
  97         ENDM                                    ;;AN000;
  98
  99 PREP_FOR_ONE    MACRO  CPOS                     ;;AN000;
 100                 MOV     DH,CPOS                 ;;AN000;
 101                 CALL    DO_PREP_FOR_ONE         ;;AN000;
 102                 ENDM                            ;;AN000;
 103
 104 HOOK15          MACRO                           ;;AN000;
 105                 CALL    DO_HOOK15               ;;AN000;
 106                 ENDM                            ;;AN000;
 107
 108 UNHOOK15        MACRO                           ;;AN000;
 109                 CALL    DO_UNHOOK15             ;;AN000;
 110                 ENDM                            ;;AN000;
 111
 112 GET_INSTALLED_MEM MACRO MEMORY                  ;;AN000;
 113                 INT  12H                        ;;AN000;
 114                 MOV  MEMORY,AX                  ;;AN000;
 115                 ENDM                            ;;AN000;
 116
 117 HOOK_2F_FORMAT  MACRO                           ;;AN000;
 118                 CALL    HOOK_INT_2F_FORMAT      ;;AN000;
 119                 ENDM                            ;;AN000;
 120
 121 UNHOOK_2F       MACRO                           ;;AN000;
 122                 CALL    RESTORE_INT_2F          ;;AN000;
 123                 ENDM                            ;;AN000;
 124
 125 INCLUDE MACROS8.INC                             ;AN000;
 126 \1a