diff options
Diffstat (limited to 'v4.0/src/SELECT/VAR.ASM')
| -rw-r--r-- | v4.0/src/SELECT/VAR.ASM | 946 |
1 files changed, 946 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/VAR.ASM b/v4.0/src/SELECT/VAR.ASM new file mode 100644 index 0000000..0074a81 --- /dev/null +++ b/v4.0/src/SELECT/VAR.ASM | |||
| @@ -0,0 +1,946 @@ | |||
| 1 | PAGE 60,132 ;AN000; | ||
| 2 | NAME SELECT ;AN000; | ||
| 3 | TITLE VARIABLES - DOS - SELECT.EXE ;AN000; | ||
| 4 | SUBTTL var.asm ;AN000; | ||
| 5 | .ALPHA ;AN000; | ||
| 6 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 7 | ; | ||
| 8 | ; VAR.ASM: Copyright 1988 Microsoft | ||
| 9 | ; | ||
| 10 | ; DATE: August 8/87 | ||
| 11 | ; | ||
| 12 | ; COMMENTS: Assemble with MASM 3.0 (using the /A option) | ||
| 13 | ; | ||
| 14 | ; Module contains variables used by SELECT. | ||
| 15 | ; | ||
| 16 | ; CHANGE HISTORY: | ||
| 17 | ; | ||
| 18 | ; | ||
| 19 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 20 | ; | ||
| 21 | INCLUDE SYSMSG.INC ;AN000; | ||
| 22 | MSG_UTILNAME <SELECT> ;AN000; | ||
| 23 | ; | ||
| 24 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 25 | ; | ||
| 26 | ; | ||
| 27 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 28 | DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000; | ||
| 29 | INCLUDE VARSTRUC.INC ;AN000; | ||
| 30 | INCLUDE SEL_FILE.INC ;AN000; | ||
| 31 | ; | ||
| 32 | PUBLIC E_ENTER,E_TAB,E_ESCAPE ;AN000; | ||
| 33 | ; | ||
| 34 | ESCAPE EQU 27 ;AN000; | ||
| 35 | ENTER EQU 13 ;AN000; | ||
| 36 | TAB EQU 9 ;AN000; | ||
| 37 | F1 EQU 59 ;AN000; | ||
| 38 | F3 EQU 61 ;AN000; | ||
| 39 | SPACE EQU 32 ;AN000; | ||
| 40 | ; | ||
| 41 | PUBLIC DRIVE_A,DRIVE_B ;AN000;JW | ||
| 42 | DRIVE_A EQU 0 ;AN000;JW | ||
| 43 | DRIVE_B EQU 1 ;AN000;JW | ||
| 44 | ; | ||
| 45 | MSG_SERVICES <MSGDATA> ;AN000; | ||
| 46 | ; | ||
| 47 | PUBLIC SUPPORT_STATUS ;AN000; | ||
| 48 | SUPPORT_STATUS DW ? ;AN000; | ||
| 49 | DW ? ;AN000; | ||
| 50 | DW ? ;AN000; | ||
| 51 | DW ? ;AN000; | ||
| 52 | DW ? ;AN000; | ||
| 53 | DW ? ;AN000; | ||
| 54 | DW ? ;AN000; | ||
| 55 | DW ? ;AN000; | ||
| 56 | DW ? ;AN000; | ||
| 57 | DW ? ;AN000; | ||
| 58 | ; | ||
| 59 | PUBLIC I_USER_INDEX ;AN000; | ||
| 60 | I_USER_INDEX DW ? ;AN000; Index value for scroll list | ||
| 61 | ; | ||
| 62 | PUBLIC N_USER_NUMERIC,MIN_INPUT_VAL,MAX_INPUT_VAL;AN000; | ||
| 63 | N_USER_NUMERIC DW ? ;AN000; Input value for numeric fields | ||
| 64 | MIN_INPUT_VAL DW ? ;AN000; Minimum value of input | ||
| 65 | MAX_INPUT_VAL DW ? ;AN000; Maximum value of input | ||
| 66 | ; | ||
| 67 | PUBLIC S_USER_STRING,P_USER_STRING,M_USER_STRING;AN000; | ||
| 68 | S_USER_STRING DW M_USER_STRING ;AN000; Length of string | ||
| 69 | P_USER_STRING DB 120 DUP(?) ;AN000; Actual string | ||
| 70 | M_USER_STRING EQU $ - P_USER_STRING ;AN000; | ||
| 71 | ; | ||
| 72 | PUBLIC N_VALID_KEYS ;AN000; | ||
| 73 | N_VALID_KEYS DW ? ;AN000; Valid keys for current input | ||
| 74 | ; | ||
| 75 | PUBLIC N_USER_FUNC, E_ENTER, E_ESCAPE, E_TAB, E_F3, E_SPACE ;AN000; | ||
| 76 | N_USER_FUNC DW ? ;AN000; Function type entered by user | ||
| 77 | E_ENTER = ENTER ;AN000; Enter key | ||
| 78 | E_ESCAPE = ESCAPE ;AN000; Escape key | ||
| 79 | E_TAB = TAB ;AN000; Tab key | ||
| 80 | E_F3 = F3*256 ;AN000; Function key 3 (F3,0) | ||
| 81 | E_SPACE = SPACE ;AN000; ; | ||
| 82 | ; | ||
| 83 | PUBLIC FK_ENT_F3, FK_ENT_F3_LEN ;AN000; | ||
| 84 | FK_ENT_F3 DB ENTER,0,F3 ;AN000; Enter, F3 | ||
| 85 | FK_ENT_F3_LEN EQU ($-FK_ENT_F3) ;AN000; | ||
| 86 | ; | ||
| 87 | PUBLIC FK_ENT_ESC, FK_ENT_ESC_LEN ;AN000; | ||
| 88 | FK_ENT_ESC DB ENTER,ESCAPE ;AN000; Enter, Esc | ||
| 89 | FK_ENT_ESC_LEN EQU ($-FK_ENT_ESC) ;AN000; | ||
| 90 | ; | ||
| 91 | PUBLIC FK_ENT_ESC_F3, FK_ENT_ESC_F3_LEN ;AN000; | ||
| 92 | FK_ENT_ESC_F3 DB ENTER,ESCAPE,0,F3 ;AN000; Enter, Esc | ||
| 93 | FK_ENT_ESC_F3_LEN EQU ($-FK_ENT_ESC_F3) ;AN000; | ||
| 94 | ; | ||
| 95 | PUBLIC FK_ENT, FK_ENT_LEN ;AN000; | ||
| 96 | FK_ENT DB ENTER ;AN000; Enter | ||
| 97 | FK_ENT_LEN EQU ($-FK_ENT) ;AN000; | ||
| 98 | ; | ||
| 99 | PUBLIC FK_TEXT, FK_TEXT_LEN ;AN000; | ||
| 100 | FK_TEXT DB ENTER,ESCAPE,0,F1,0,F3 ;AN000; Enter, ESC, F1, F3 | ||
| 101 | FK_TEXT_LEN EQU ($-FK_TEXT) ;AN000; | ||
| 102 | ; | ||
| 103 | PUBLIC FK_SCROLL, FK_SCROLL_LEN ;AN000; | ||
| 104 | FK_SCROLL DB ENTER,ESCAPE,0,F1,0,F3 ;AN000; Enter,ESC, F1, F3 | ||
| 105 | FK_SCROLL_LEN EQU ($-FK_SCROLL) ;AN000; | ||
| 106 | ; | ||
| 107 | PUBLIC FK_TAB, FK_TAB_LEN ;AN000; | ||
| 108 | FK_TAB DB TAB,ENTER,ESCAPE,0,F1,0,F3 ;AN000;Enter, ESC, F1, F3, Tab | ||
| 109 | FK_TAB_LEN EQU ($-FK_TAB) ;AN000; | ||
| 110 | ; | ||
| 111 | PUBLIC FK_REVIEW, FK_REVIEW_LEN ;AN000; | ||
| 112 | FK_REVIEW DB ENTER,SPACE,ESCAPE,0,F1,0,F3 ;AN000;Enter,ESC,F1,F3,SPACE | ||
| 113 | FK_REVIEW_LEN EQU ($-FK_REVIEW) ;AN000; | ||
| 114 | ; | ||
| 115 | PUBLIC FK_DATE, FK_DATE_LEN ;AN000; | ||
| 116 | FK_DATE DB TAB,ENTER,0,F1 ;AN000; Enter, ESC, F1, Tab | ||
| 117 | FK_DATE_LEN EQU ($-FK_DATE) ;AN000; | ||
| 118 | ; | ||
| 119 | PUBLIC FK_FORMAT, FK_FORMAT_LEN ;AN000; | ||
| 120 | FK_FORMAT DB ENTER,0,F1 ;AN000; | ||
| 121 | FK_FORMAT_LEN EQU ($-FK_FORMAT) ;AN000; | ||
| 122 | ; | ||
| 123 | PUBLIC FK_REBOOT, FK_REBOOT_LEN ;AN000; | ||
| 124 | FK_REBOOT DB ? ;AN000; only CTRL+ALT+DEL keys valid | ||
| 125 | FK_REBOOT_LEN EQU 0 ;AN000; | ||
| 126 | ; | ||
| 127 | PUBLIC ERROR_KEYS,ERROR_KEYS_LEN,E_QUIT,E_RETURN ;AN000; | ||
| 128 | ERROR_KEYS DB 0,F3,ENTER ;AN000; | ||
| 129 | ERROR_KEYS_LEN EQU $-ERROR_KEYS ;AN000; | ||
| 130 | E_QUIT EQU 1 ;AN000; | ||
| 131 | E_RETURN EQU 2 ;AN000; | ||
| 132 | ; | ||
| 133 | PUBLIC E_YES, E_NO, E_NA ;AN000; | ||
| 134 | E_YES EQU 1 ;AN000; | ||
| 135 | E_NO EQU 2 ;AN000; | ||
| 136 | E_NA EQU 6 ;AN000; | ||
| 137 | ; | ||
| 138 | PUBLIC N_SELECT_MODE, E_SELECT_MENU, E_SELECT_FDISK, E_SELECT_INV ;AN000; | ||
| 139 | N_SELECT_MODE DW ? ;AN000; SELECT command line mode | ||
| 140 | E_SELECT_MENU EQU 0 ;AN000; MENU mode | ||
| 141 | E_SELECT_FDISK EQU 1 ;AN000; FDISK mode | ||
| 142 | E_SELECT_INV EQU 0FFH ;AN000; Invalid parameter | ||
| 143 | ; | ||
| 144 | PUBLIC N_FORMAT_MODE,E_FORMAT_SELECT,E_FORMAT_NEW,E_FORMAT_USED ;AN000; | ||
| 145 | N_FORMAT_MODE DW ? ;AN000; FORMAT mode specified on command line | ||
| 146 | E_FORMAT_SELECT EQU 1 ;AN000; new disk - select to format all partitions | ||
| 147 | E_FORMAT_NEW EQU 2 ;AN000; new disk - user to format all partitions | ||
| 148 | E_FORMAT_USED EQU 3 ;AN000; used disk - user to format all partitions | ||
| 149 | ; | ||
| 150 | PUBLIC S_SPACE ;AN000; | ||
| 151 | S_SPACE DW M_SPACE ;AN000; | ||
| 152 | P_SPACE DB ' ' ;AN000; | ||
| 153 | M_SPACE EQU $ - P_SPACE ;AN000; | ||
| 154 | ; | ||
| 155 | PUBLIC S_OFF ;AN000; | ||
| 156 | S_OFF DW M_OFF ;AN000; OFF parameter | ||
| 157 | P_OFF DB 'OFF' ;AN000; | ||
| 158 | M_OFF EQU $ - P_OFF ;AN000; | ||
| 159 | ; | ||
| 160 | PUBLIC S_ON ;AN000; | ||
| 161 | S_ON DW M_ON ;AN000; ON parameter | ||
| 162 | P_ON DB 'ON' ;AN000; | ||
| 163 | M_ON EQU $ - P_ON ;AN000; | ||
| 164 | ; | ||
| 165 | PUBLIC I_WORKSPACE,N_WORK_PREV,E_WORKSPACE_BAL,E_WORKSPACE_MIN,E_WORKSPACE_MAX ;AN000; | ||
| 166 | I_WORKSPACE DW ? ;AN000; user workspace option | ||
| 167 | N_WORK_PREV DW ? ;AN000; previous workspace option | ||
| 168 | E_WORKSPACE_MIN EQU 1 ;AN000; minimize DOS functions | ||
| 169 | E_WORKSPACE_BAL EQU 2 ;AN000; balance DOS function | ||
| 170 | E_WORKSPACE_MAX EQU 3 ;AN000; maximize DOS functions | ||
| 171 | ; | ||
| 172 | PUBLIC S_ANSI,M_ANSI,F_ANSI,E_ANSI_YES,D_ANSI_1,E_ANSI_B,E_ANSI_C,E_ANSI_NO ;AN000; | ||
| 173 | S_ANSI DW M_ANSI ;AN000; ANSI command | ||
| 174 | P_ANSI DB 2 DUP(?) ;AN000; | ||
| 175 | M_ANSI EQU $ - P_ANSI ;AN000; | ||
| 176 | D_ANSI_1 DW 2 ;AN000; | ||
| 177 | DB '/X' ;AN000; | ||
| 178 | F_ANSI DW ? ;AN000; ANSI support required indicator | ||
| 179 | E_ANSI_NO = E_NO ;AN000; ANSI support not required | ||
| 180 | E_ANSI_YES = E_YES ;AN000; include ANSI.SYS command | ||
| 181 | E_ANSI_B EQU 2 ;AN000; | ||
| 182 | E_ANSI_C EQU 3 ;AN000; | ||
| 183 | ; | ||
| 184 | PUBLIC S_APPEND, F_APPEND, E_APPEND_YES, E_APPEND_NO, M_APPEND ;AN000; | ||
| 185 | PUBLIC S_APPEND_P, M_APPEND_P ;AN000;JW | ||
| 186 | S_APPEND DW M_APPEND ;AN000; APPEND command | ||
| 187 | P_APPEND DB 120 DUP(?) ;AN000; | ||
| 188 | M_APPEND EQU $ - P_APPEND ;AN000; | ||
| 189 | S_APPEND_P DW 2 ;AN000; APPEND command paramters JW | ||
| 190 | P_APPEND_P DB '/E' ;AN000; Default parameter JW | ||
| 191 | DB 38 DUP(' ') ;AN000; JW | ||
| 192 | M_APPEND_P EQU $ - P_APPEND_P ;AN000; JW | ||
| 193 | F_APPEND DW ? ;AN000; APPEND support indicator | ||
| 194 | E_APPEND_NO = E_NO ;AN000; APPEND support not required | ||
| 195 | E_APPEND_YES = E_YES ;AN000; include APPEND command | ||
| 196 | ; | ||
| 197 | PUBLIC S_BREAK, M_BREAK, ST_BREAK, MT_BREAK ;AN000; | ||
| 198 | S_BREAK DW M_BREAK ;AN000; BREAK command | ||
| 199 | P_BREAK DB 3 DUP(?) ;AN000; | ||
| 200 | M_BREAK EQU $ - P_BREAK ;AN000; | ||
| 201 | ST_BREAK DW MT_BREAK ;AN000; temp location for BREAK command | ||
| 202 | PT_BREAK DB M_BREAK DUP(?) ;AN000; | ||
| 203 | MT_BREAK EQU $ - PT_BREAK ;AN000; | ||
| 204 | ; | ||
| 205 | PUBLIC S_BUFFERS,M_BUFFERS,D_BUFFERS_1,D_BUFFERS_2,ST_BUFFERS,MT_BUFFERS ;AN000; | ||
| 206 | S_BUFFERS DW M_BUFFERS ;AN000; BUFFERS command | ||
| 207 | P_BUFFERS DB 7 DUP(?) ;AN000; | ||
| 208 | M_BUFFERS EQU $ - P_BUFFERS ;AN000; | ||
| 209 | D_BUFFERS_1 DW 2 ;AN000; | ||
| 210 | DB '20' ;AN000; | ||
| 211 | D_BUFFERS_2 DW 4 ;AN000; | ||
| 212 | DB '25,8' ;AC041;SEH for optimal performance | ||
| 213 | ST_BUFFERS DW MT_BUFFERS ;AN000; temp location for BUFFERS parameters | ||
| 214 | PT_BUFFERS DB M_BUFFERS DUP(?) ;AN000; | ||
| 215 | MT_BUFFERS EQU $ - PT_BUFFERS ;AN000; | ||
| 216 | ; | ||
| 217 | PUBLIC S_CPSW, M_CPSW, F_CPSW, E_CPSW_YES, E_CPSW_NO, E_CPSW_NA ;AN000; | ||
| 218 | PUBLIC E_CPSW_B, E_CPSW_C, ST_CPSW, MT_CPSW ;AN000; | ||
| 219 | PUBLIC N_CPSW, E_CPSW_NOT_VAL, E_CPSW_NOT_REC, E_CPSW_VALID ;AN000; | ||
| 220 | S_CPSW DW M_CPSW ;AN000; CPSW command | ||
| 221 | P_CPSW DB 3 DUP(?) ;AN000; | ||
| 222 | M_CPSW EQU $ - P_CPSW ;AN000; | ||
| 223 | F_CPSW DW ? ;AN000; CPSW support indicator | ||
| 224 | E_CPSW_NO = E_NO ;AN000; CPSW support not required | ||
| 225 | E_CPSW_YES = E_YES ;AN000; include CPSW command | ||
| 226 | E_CPSW_NA = E_NA ;AN000; CPSW not available | ||
| 227 | E_CPSW_B EQU 1 ;AN000; | ||
| 228 | E_CPSW_C EQU 1 ;AN000; | ||
| 229 | ST_CPSW DW MT_CPSW ;AN000; temp location for CPSW command | ||
| 230 | PT_CPSW DB M_CPSW DUP(?) ;AN000; | ||
| 231 | MT_CPSW EQU $ - PT_CPSW ;AN000; | ||
| 232 | N_CPSW DW ? ;AN000; code page switching indicator for country | ||
| 233 | E_CPSW_NOT_VAL EQU 0 ;AN000; code page switching not allowed | ||
| 234 | E_CPSW_NOT_REC EQU 1 ;AN000; code page switching not recommended | ||
| 235 | E_CPSW_VALID EQU 2 ;AN000; code page switching recommended | ||
| 236 | ; | ||
| 237 | PUBLIC S_FASTOPEN, M_FASTOPEN, F_FASTOPEN, E_FASTOPEN_YES ;AN000; | ||
| 238 | PUBLIC E_FASTOPEN_NO, D_FASTOPEN_1, D_FASTOPEN_2, E_FASTOPEN_C ;AN000; | ||
| 239 | S_FASTOPEN DW M_FASTOPEN ;AN000; FASTOPEN command | ||
| 240 | P_FASTOPEN DB 60 DUP(?) ;AN000; | ||
| 241 | M_FASTOPEN EQU $ - P_FASTOPEN ;AN000; | ||
| 242 | D_FASTOPEN_1 DW 10 ;AN000; | ||
| 243 | DB 'C:=(50,25)' ;AN000; | ||
| 244 | D_FASTOPEN_2 DW 12 ;AN000; | ||
| 245 | DB 'C:=(150,150)' ;AC078; SEH changed from 200,200 to 150,150 due to expanded mem problems ;AC041; SEH for optimal performance | ||
| 246 | F_FASTOPEN DW ? ;AN000; FASTOPEN support indicator | ||
| 247 | E_FASTOPEN_NO = E_NO ;AN000; FASTOPEN support not required | ||
| 248 | E_FASTOPEN_YES = E_YES ;AN000; include FASTOPEN command | ||
| 249 | E_FASTOPEN_C EQU 4 ;AN000; | ||
| 250 | ; | ||
| 251 | PUBLIC S_FCBS, M_FCBS, D_FCBS_1, ST_FCBS, MT_FCBS ;AN000; | ||
| 252 | S_FCBS DW M_FCBS ;AN000; FCBS command | ||
| 253 | P_FCBS DB 7 DUP(?) ;AN000; | ||
| 254 | M_FCBS EQU $ - P_FCBS ;AN000; | ||
| 255 | D_FCBS_1 DW 4 ;AN000; | ||
| 256 | DB '20,8' ;AN000; | ||
| 257 | ST_FCBS DW MT_FCBS ;AN000; temp location for FCBS command | ||
| 258 | PT_FCBS DB M_FCBS DUP(?) ;AN000; | ||
| 259 | MT_FCBS EQU $ - PT_FCBS ;AN000; | ||
| 260 | ; | ||
| 261 | PUBLIC S_FILES, M_FILES, D_FILES_1, D_FILES_2, ST_FILES, MT_FILES ;AN000; | ||
| 262 | S_FILES DW M_FILES ;AN000; FILES command | ||
| 263 | P_FILES DB 3 DUP(?) ;AN000; | ||
| 264 | M_FILES EQU $ - P_FILES ;AN000; | ||
| 265 | D_FILES_1 DW 2 ;AN000; | ||
| 266 | DB '20' ;AN000; | ||
| 267 | D_FILES_2 DW 1 ;AN000; | ||
| 268 | DB '8' ;AN000; | ||
| 269 | ST_FILES DW MT_FILES ;AN000; temp location for FILES command | ||
| 270 | PT_FILES DB M_FILES DUP(?) ;AN000; | ||
| 271 | MT_FILES EQU $ - PT_FILES ;AN000; | ||
| 272 | ; | ||
| 273 | PUBLIC S_GRAPHICS, M_GRAPHICS, F_GRAPHICS, E_GRAPHICS_YES ;AN000; | ||
| 274 | PUBLIC E_GRAPHICS_NO, E_GRAPHICS_B, E_GRAPHICS_C ;AN000; | ||
| 275 | S_GRAPHICS DW M_GRAPHICS ;AN000; GRAPHICS command | ||
| 276 | P_GRAPHICS DB 80 DUP(?) ;AN000; | ||
| 277 | M_GRAPHICS EQU $ - P_GRAPHICS ;AN000; | ||
| 278 | F_GRAPHICS DW ? ;AN000; GRAPHICS support indicator | ||
| 279 | E_GRAPHICS_NO = E_NO ;AN000; GRAPHICS support not required | ||
| 280 | E_GRAPHICS_YES = E_YES ;AN000; include GRAPHICS command | ||
| 281 | E_GRAPHICS_B EQU 4 ;AN000; | ||
| 282 | E_GRAPHICS_C EQU 6 ;AN000; | ||
| 283 | ; | ||
| 284 | PUBLIC F_GRAFTABL, E_GRAFTABL_YES, E_GRAFTABL_NO, E_GRAFTABL_NA ;AN000; | ||
| 285 | PUBLIC E_GRAFTABL_B, E_GRAFTABL_C ;AN000; | ||
| 286 | F_GRAFTABL DW ? ;AN000; GRAFTABL support indicator | ||
| 287 | E_GRAFTABL_NO = E_NO ;AN000; GRAFTABL support not required | ||
| 288 | E_GRAFTABL_YES = E_YES ;AN000; include GRAFTABL command | ||
| 289 | E_GRAFTABL_NA = E_NA ;AN000; GRAFTABL not available | ||
| 290 | E_GRAFTABL_B EQU 3 ;AN000; | ||
| 291 | E_GRAFTABL_C EQU 5 ;AN000; | ||
| 292 | ; | ||
| 293 | PUBLIC S_LASTDRIVE,M_LASTDRIVE,D_LASTDRIVE_1,ST_LASTDRIVE,MT_LASTDRIVE ;AN000; | ||
| 294 | S_LASTDRIVE DW M_LASTDRIVE ;AN000; LASTDRIVE command | ||
| 295 | P_LASTDRIVE DB 1 DUP(?) ;AN000; | ||
| 296 | M_LASTDRIVE EQU $ - P_LASTDRIVE ;AN000; | ||
| 297 | D_LASTDRIVE_1 DW 1 ;AN000; | ||
| 298 | DB 'E' ;AN000; | ||
| 299 | ST_LASTDRIVE DW MT_LASTDRIVE ;AN000; temp location for LASTDRIVE command | ||
| 300 | PT_LASTDRIVE DB M_LASTDRIVE DUP(?) ;AN000; | ||
| 301 | MT_LASTDRIVE EQU $ - PT_LASTDRIVE ;AN000; | ||
| 302 | ; | ||
| 303 | PUBLIC S_PATH, M_PATH, F_PATH, E_PATH_YES, E_PATH_NO ;AN000; | ||
| 304 | S_PATH DW M_PATH ;AN000; PATH command | ||
| 305 | P_PATH DB 120 DUP(?) ;AN000; | ||
| 306 | M_PATH EQU $ - P_PATH ;AN000; | ||
| 307 | F_PATH DW ? ;AN000; PATH support indicator | ||
| 308 | E_PATH_NO = E_NO ;AN000; PATH support not required | ||
| 309 | E_PATH_YES = E_YES ;AN000; include PATH command | ||
| 310 | ; | ||
| 311 | PUBLIC S_PROMPT,M_PROMPT,F_PROMPT,E_PROMPT_YES,E_PROMPT_NO,D_PROMPT_1 ;AN000; | ||
| 312 | S_PROMPT DW M_PROMPT ;AN000; PROMPT command | ||
| 313 | P_PROMPT DB 120 DUP(?) ;AN000; | ||
| 314 | M_PROMPT EQU $ - P_PROMPT ;AN000; | ||
| 315 | D_PROMPT_1 DW 4 ;AN000; | ||
| 316 | DB '$P$G' ;AN000; | ||
| 317 | F_PROMPT DW ? ;AN000; PROMPT command indicator | ||
| 318 | E_PROMPT_NO = E_NO ;AN000; PROMPT command not to be included | ||
| 319 | E_PROMPT_YES = E_YES ;AN000; include PROMPT command | ||
| 320 | ; | ||
| 321 | PUBLIC S_SHARE,M_SHARE,F_SHARE,E_SHARE_YES,E_SHARE_NO,E_SHARE_C ;AN000; | ||
| 322 | S_SHARE DW M_SHARE ;AN000; SHARE command | ||
| 323 | P_SHARE DB 15 DUP(?) ;AN000; | ||
| 324 | M_SHARE EQU $ - P_SHARE ;AN000; | ||
| 325 | F_SHARE DW ? ;AN000; SHARE support indicator | ||
| 326 | E_SHARE_NO = E_NO ;AN000; SHARE support not required | ||
| 327 | E_SHARE_YES = E_YES ;AN000; include SHARE command | ||
| 328 | E_SHARE_C EQU 7 ;AN000; | ||
| 329 | ; | ||
| 330 | PUBLIC S_SHELL, M_SHELL, F_SHELL, E_SHELL_YES, E_SHELL_NO ;AN000; | ||
| 331 | PUBLIC D_SHELL_1, D_SHELL_2, E_SHELL_B, E_SHELL_C ;AC018;SEH ;AC000;JW | ||
| 332 | S_SHELL DW M_SHELL ;AN000; SHELL command | ||
| 333 | P_SHELL DB 115 DUP(?) ;AN000; | ||
| 334 | M_SHELL EQU $ - P_SHELL ;AN000; | ||
| 335 | D_SHELL_1 DW M_SHELL_1 ;AN000; | ||
| 336 | P_SHELL_1 DB '/TRAN/MAINT/MENU/EXIT/SND/PROMPT' ;AC077;SEH ;AC000;JW | ||
| 337 | M_SHELL_1 EQU $ - P_SHELL_1 ;AN000; | ||
| 338 | D_SHELL_2 DW M_SHELL_2 ;AN000; | ||
| 339 | P_SHELL_2 DB '/TRAN/COLOR/DOS/MENU/MUL' ;AC071;SEH ;AC016;SEH ;AC000;JW | ||
| 340 | DB '/SND/MEU:SHELL.MEU/CLR:SHELL.CLR/PROMPT/MAINT/EXIT/SWAP/DATE' ;AC012;SEH ;AC000;JW | ||
| 341 | M_SHELL_2 EQU $ - P_SHELL_2 ;AN000; | ||
| 342 | F_SHELL DW ? ;AN000; SHELL support indicator | ||
| 343 | E_SHELL_NO = E_NO ;AN000; SHELL support not required | ||
| 344 | E_SHELL_YES = E_YES ;AN000; include SHELL command | ||
| 345 | E_SHELL_B = 5 | ||
| 346 | E_SHELL_C = 8 | ||
| 347 | ; | ||
| 348 | PUBLIC MACHINE_TYPE, PS2_FLAG, MOD25_OR_MOD30 ;AN000;JW | ||
| 349 | MACHINE_TYPE DB ? ;AN000;JW | ||
| 350 | PS2_FLAG DB ? ;AN000;JW | ||
| 351 | MOD25_OR_MOD30 EQU 0FAH ;AN000;JW | ||
| 352 | ; | ||
| 353 | PUBLIC S_STACKS,M_STACKS,ST_STACKS,MT_STACKS ;AN000; | ||
| 354 | S_STACKS DW M_STACKS ;AN000; STACKS command | ||
| 355 | P_STACKS DB 6 DUP(?) ;AN000; | ||
| 356 | M_STACKS EQU $ - P_STACKS ;AN000; | ||
| 357 | ST_STACKS DW MT_STACKS ;AN000; temp location for STACKS command | ||
| 358 | PT_STACKS DB M_STACKS DUP(?) ;AN000; | ||
| 359 | MT_STACKS EQU $ - PT_STACKS ;AN000; | ||
| 360 | ; | ||
| 361 | PUBLIC S_VDISK,M_VDISK,F_VDISK,E_VDISK_YES,E_VDISK_NO,E_VDISK_B,E_VDISK_C ;AN000; | ||
| 362 | S_VDISK DW M_VDISK ;AN000; VDISK command | ||
| 363 | P_VDISK DB 20 DUP(?) ;AN000; | ||
| 364 | M_VDISK EQU $ - P_VDISK ;AN000; | ||
| 365 | F_VDISK DW ? ;AN000; VDISK support indicator | ||
| 366 | E_VDISK_NO = E_NO ;AN000; VDISK support not required | ||
| 367 | E_VDISK_YES = E_YES ;AN000; include VDISK command | ||
| 368 | E_VDISK_B EQU 6 ;AN000; | ||
| 369 | E_VDISK_C EQU 9 ;AN000; | ||
| 370 | ; | ||
| 371 | PUBLIC S_VERIFY, M_VERIFY, ST_VERIFY, MT_VERIFY ;AN000; | ||
| 372 | S_VERIFY DW M_VERIFY ;AN000; VERIFY command | ||
| 373 | P_VERIFY DB 3 DUP(?) ;AN000; | ||
| 374 | M_VERIFY EQU $ - P_VERIFY ;AN000; | ||
| 375 | ST_VERIFY DW MT_VERIFY ;AN000; temp location for VERIFY command | ||
| 376 | PT_VERIFY DB M_VERIFY DUP(?) ;AN000; | ||
| 377 | MT_VERIFY EQU $ - PT_VERIFY ;AN000; | ||
| 378 | ; | ||
| 379 | PUBLIC S_XMAEM, M_XMAEM ;AN000; | ||
| 380 | S_XMAEM DW M_XMAEM ;AN000; XMAEM command | ||
| 381 | P_XMAEM DB 40 DUP(?) ;AN000; | ||
| 382 | M_XMAEM EQU $ - P_XMAEM ;AN000; | ||
| 383 | ; | ||
| 384 | PUBLIC S_XMA2EMS, M_XMA2EMS, D_XMA2EMS_1, F_XMA, E_XMA_NO, E_XMA_NA ;AN000; | ||
| 385 | PUBLIC E_XMA_YES, E_XMA_C, N_XMA, E_XMA_ABSENT, E_XMA_PRESENT ;AN000; | ||
| 386 | S_XMA2EMS DW M_XMA2EMS ;AN000; XMA2EMS command | ||
| 387 | P_XMA2EMS DB 40 DUP(?) ;AN000; | ||
| 388 | M_XMA2EMS EQU $ - P_XMA2EMS ;AN000; | ||
| 389 | D_XMA2EMS_1 DW 30 ;AN000; | ||
| 390 | DB 'FRAME=D000 P254=C000 P255=C400' ;AC044;SEH ;AC040;SEH ;AN000;JW | ||
| 391 | F_XMA DW ? ;AN000; Expanded Memory support indicator | ||
| 392 | E_XMA_NO = E_NO ;AN000; Expanded Memory support not required | ||
| 393 | E_XMA_YES = E_YES ;AN000; include XMAEM, XMA2EMS commands | ||
| 394 | E_XMA_NA = E_NA ;AN000; Expanded memory not available | ||
| 395 | E_XMA_C EQU 2 ;AN000; | ||
| 396 | N_XMA DW ? ;AN000; Expanded memory presence indicator | ||
| 397 | E_XMA_ABSENT EQU 0 ;AN000; expanded memory not present | ||
| 398 | E_XMA_PRESENT EQU 1 ;AN000; expanded memory is present | ||
| 399 | ; | ||
| 400 | PUBLIC N_MOD80, E_IS_MOD80, E_NOT_MOD80 ;AN000;JW | ||
| 401 | N_MOD80 DW ? ;AN000; Model 80 indicator | ||
| 402 | E_NOT_MOD80 EQU 0 ;AN000; is not a model 80 | ||
| 403 | E_IS_MOD80 EQU 1 ;AN000; is a model 80 | ||
| 404 | ; | ||
| 405 | PUBLIC I_DEST_DRIVE, E_DEST_DRIVE_A, E_DEST_DRIVE_B, E_DEST_DRIVE_C ;AN111;JW | ||
| 406 | I_DEST_DRIVE DW ? ;AN000; Install destination drive - set by CHECK_VALID_MEDIA | ||
| 407 | E_DEST_DRIVE_C EQU 1 ;AN000; drive C: | ||
| 408 | E_DEST_DRIVE_B EQU 2 ;AN000; drive B: | ||
| 409 | E_DEST_DRIVE_A EQU 3 ;AN111; drive A: | ||
| 410 | ; | ||
| 411 | PUBLIC N_DRIVE_OPTION, E_OPTION_B_C, E_OPTION_A_C ;AN111;JW | ||
| 412 | N_DRIVE_OPTION DW ? ;AN111; Which options to choose from JW | ||
| 413 | E_OPTION_B_C EQU 1 ;AN111; install to B or C JW | ||
| 414 | E_OPTION_A_C EQU 2 ;AN111; install to A or C JW | ||
| 415 | ; | ||
| 416 | PUBLIC N_DEST_DRIVE, E_DEST_SELECT, E_DEST_USER ;AN000; | ||
| 417 | N_DEST_DRIVE DB ? ;AN000; destination drive determined by user or SELECT | ||
| 418 | E_DEST_SELECT EQU 0 ;AN000; SELECT will determine default drive | ||
| 419 | E_DEST_USER EQU 1 ;AN000; user will select destination drive | ||
| 420 | ; | ||
| 421 | PUBLIC N_DISKETTE_TOT, N_ZERO_DISKETTE, N_DISKETTE_A, N_DISKETTE_B ;AN000; | ||
| 422 | PUBLIC E_DISKETTE_INV, E_DISKETTE_360, E_DISKETTE_720, E_DISKETTE_1200, E_DISKETTE_1440 ;AN000; | ||
| 423 | N_DISKETTE_TOT DB ? ;AN000; number of diskette drives | ||
| 424 | N_ZERO_DISKETTE EQU 0 ;AN000; | ||
| 425 | N_DISKETTE_A DB ? ;AN000; drive A: diskette status | ||
| 426 | N_DISKETTE_B DB ? ;AN000; drive B: diskette status | ||
| 427 | E_DISKETTE_INV EQU 0FFH ;AN000; diskette not present | ||
| 428 | E_DISKETTE_360 EQU 0 ;AN000; diskette media is 360K (5.25 inch) | ||
| 429 | E_DISKETTE_1200 EQU 1 ;AN000; diskette media is 1.2M (5.25 inch) | ||
| 430 | E_DISKETTE_720 EQU 2 ;AN000; diskette media is 720K (3.5 inch) | ||
| 431 | E_DISKETTE_1440 EQU 7 ;AN000; diskette media is 1.44M (3.5 inch) | ||
| 432 | ; | ||
| 433 | PUBLIC S_DEST_DRIVE,M_DEST_DRIVE,S_DRIVE_A ;AN000; | ||
| 434 | S_DEST_DRIVE DW M_DEST_DRIVE ;AN000; Destination drive to install DOS | ||
| 435 | P_DEST_DRIVE DB 'C:\' ;AN000; | ||
| 436 | M_DEST_DRIVE EQU $ - P_DEST_DRIVE ;AN000; | ||
| 437 | S_DRIVE_A DW M_DRIVE_A ;AN000; | ||
| 438 | P_DRIVE_A DB 'A:\' ;AN000; | ||
| 439 | M_DRIVE_A EQU $ - P_DRIVE_A ;AN000; | ||
| 440 | ; | ||
| 441 | PUBLIC S_C_DRIVE,S_A_DRIVE,S_B_DRIVE ;AC039;SEH;AN000;JW | ||
| 442 | S_C_DRIVE DW M_C_DRIVE ;AN000; Destination drive w/o backslash JW | ||
| 443 | P_C_DRIVE DB 'C:' ;AN000; | ||
| 444 | M_C_DRIVE EQU $ - P_C_DRIVE ;AN000; | ||
| 445 | S_A_DRIVE DW M_A_DRIVE ;AN039;SEH Destination drive w/o backslash | ||
| 446 | P_A_DRIVE DB 'A:' ;AN039;SEH | ||
| 447 | M_A_DRIVE EQU $ - P_A_DRIVE ;AN039;SEH | ||
| 448 | S_B_DRIVE DW M_B_DRIVE ;AN039;SEH Destination drive w/o backslash | ||
| 449 | P_B_DRIVE DB 'B:' ;AN039;SEH | ||
| 450 | M_B_DRIVE EQU $ - P_B_DRIVE ;AN039;SEH | ||
| 451 | ; | ||
| 452 | PUBLIC S_DOS_LOC, M_DOS_LOC, D_DOS_LOC_1 ;AN000; | ||
| 453 | S_DOS_LOC DW M_DOS_LOC ;AN000; user defined DOS location path for drive C: | ||
| 454 | P_DOS_LOC DB 37 DUP(?) ;AN000; | ||
| 455 | M_DOS_LOC EQU $ - P_DOS_LOC ;AN000; | ||
| 456 | D_DOS_LOC_1 DW 3 ;AN000; | ||
| 457 | DB 'DOS' ;AN000; | ||
| 458 | ; | ||
| 459 | PUBLIC S_INSTALL_PATH, M_INSTALL_PATH ;AN000; | ||
| 460 | S_INSTALL_PATH DW M_INSTALL_PATH ;AN000; install path including drive | ||
| 461 | P_INSTALL_PATH DB 40 DUP( ) ;AN000; | ||
| 462 | M_INSTALL_PATH EQU $ - P_INSTALL_PATH ;AN000; | ||
| 463 | ; | ||
| 464 | PUBLIC I_CTY_KYBD, E_CTY_KB_PREDEF, E_CTY_KB_USER ;AN000; | ||
| 465 | I_CTY_KYBD DW ? ;AN000; index for country and keyboard screen | ||
| 466 | E_CTY_KB_PREDEF EQU 1 ;AN000; Use predefined country/keyboard | ||
| 467 | E_CTY_KB_USER EQU 2 ;AN000; user specified country/keyboard to be used | ||
| 468 | ; | ||
| 469 | PUBLIC N_CTY_LIST, E_CTY_LIST_1, E_CTY_LIST_2 ;AN000; | ||
| 470 | N_CTY_LIST DW ? ;AN000; Country code scroll list identifier | ||
| 471 | E_CTY_LIST_1 EQU 1 ;AN000; code 001 - 046 | ||
| 472 | E_CTY_LIST_2 EQU 2 ;AN000; code 047 - 972 | ||
| 473 | ; | ||
| 474 | PUBLIC I_COUNTRY, N_COUNTRY ;AN000; | ||
| 475 | I_COUNTRY DW ? ;AN000; Index into country code list | ||
| 476 | N_COUNTRY DW ? ;AN000; Country Code | ||
| 477 | ; | ||
| 478 | PUBLIC N_KYBD_LIST, E_KYBD_LIST_1, E_KYBD_LIST_2 ;AN000; | ||
| 479 | N_KYBD_LIST DW ? ;AN000; Keyboard code scroll list identifier | ||
| 480 | E_KYBD_LIST_1 EQU 1 ;AN000; code BE - NO | ||
| 481 | E_KYBD_LIST_2 EQU 2 ;AN000; code PO - none | ||
| 482 | ; | ||
| 483 | PUBLIC I_KEYBOARD ;AN000; | ||
| 484 | I_KEYBOARD DW ? ;AN000; Index into keyboard code list | ||
| 485 | ; | ||
| 486 | PUBLIC S_KEYBOARD,N_KYBD_VAL,E_KYBD_VAL_YES,E_KYBD_VAL_NO ;AN000; | ||
| 487 | PUBLIC M_KEYBOARD,E_KYBD_VAL_DEF ;AN000; | ||
| 488 | S_KEYBOARD DW M_KEYBOARD ;AN000; | ||
| 489 | P_KEYBOARD DB 2 DUP(?) ;AN000; Keyboard code | ||
| 490 | M_KEYBOARD EQU $ - P_KEYBOARD ;AN000; | ||
| 491 | N_KYBD_VAL DB ? ;AN000; Keyboard code valid indicator | ||
| 492 | E_KYBD_VAL_NO EQU 0 ;AN000; Keyboard code is not valid | ||
| 493 | E_KYBD_VAL_YES EQU 1 ;AN000; Keyboard code is valid | ||
| 494 | E_KYBD_VAL_DEF EQU 2 ;AN000; Default keyboard (US) is to be used | ||
| 495 | ; This state is defined so that keyboard screen | ||
| 496 | ; will be displayed with "None" option | ||
| 497 | ; | ||
| 498 | PUBLIC N_DESIGNATES, N_CP_PRI, N_CP_SEC, N_CTY_RES ;AN000; | ||
| 499 | N_DESIGNATES DW ? ;AN000; number of designates | ||
| 500 | N_CP_PRI DW ? ;AN000; Primary code page | ||
| 501 | N_CP_SEC DW ? ;AN000; Secondary code page | ||
| 502 | N_CTY_RES DB ? ;AN000; reserved byte from country table | ||
| 503 | ; | ||
| 504 | PUBLIC I_KYBD_ALT, S_KYBD_ALT, M_KYBD_ALT, N_KYBD_ALT ;AN000; | ||
| 505 | PUBLIC E_KYBD_ALT_NO, E_KYBD_ALT_YES ;AN000; | ||
| 506 | I_KYBD_ALT DW ? ;AN000; Index into alternate keyboard code list | ||
| 507 | S_KYBD_ALT DW M_KYBD_ALT ;AN000; | ||
| 508 | P_KYBD_ALT DB 2 DUP(?) ;AN000; Keyboard code | ||
| 509 | M_KYBD_ALT EQU $ - P_KYBD_ALT ;AN000; | ||
| 510 | N_KYBD_ALT DB ? ;AN000; Alternate keyboards present indicator | ||
| 511 | E_KYBD_ALT_NO EQU 0 ;AN000; no alternate keyboards | ||
| 512 | E_KYBD_ALT_YES EQU 1 ;AN000; are alternate keyboards are present | ||
| 513 | ; | ||
| 514 | PUBLIC N_KYB_LOAD,E_KYB_LOAD_SUC,E_KYB_LOAD_ERR,E_KYB_LOAD_US,E_KYB_LOAD_UND ;AN000; | ||
| 515 | N_KYB_LOAD DW ? ;AN000; KEYB load status | ||
| 516 | E_KYB_LOAD_SUC EQU 1 ;AN000; no error from KEYB | ||
| 517 | E_KYB_LOAD_ERR EQU 2 ;AN000; error from KEYB | ||
| 518 | E_KYB_LOAD_US EQU 3 ;AN000; US keyboard loaded | ||
| 519 | E_KYB_LOAD_UND EQU 4 ;AN000; undefined keyboard loaded | ||
| 520 | ; | ||
| 521 | ; Country code association with Keyboard code & Code Page | ||
| 522 | PUBLIC CTY_TAB_A,CTY_TAB_A_1,CTY_A_ITEMS ;AN000; | ||
| 523 | CTY_TAB_A DB CTY_A_ITEMS ;AN000; no of entries in table | ||
| 524 | CTY_TAB_A_1 CTY_DEF < 001,E_KYBD_VAL_DEF,' ',437,850,1,E_CPSW_NOT_REC,0> ;AN000; (01) United States | ||
| 525 | CTY_DEF < 002,E_KYBD_VAL_YES,'CF',863,850,2,E_CPSW_VALID ,0> ;AN000; (02) Canada (French) | ||
| 526 | CTY_DEF < 003,E_KYBD_VAL_YES,'LA',850,437,1,E_CPSW_VALID ,0> ;AC070;SEH ;AN000; (03) Latin America | ||
| 527 | CTY_DEF < 031,E_KYBD_VAL_YES,'NL',437,850,1,E_CPSW_VALID ,0> ;AN000; (04) Netherlands | ||
| 528 | CTY_DEF < 032,E_KYBD_VAL_YES,'BE',850,437,1,E_CPSW_VALID ,0> ;AN000; (05) Belgium | ||
| 529 | CTY_DEF < 033,E_KYBD_VAL_YES,'FR',437,850,1,E_CPSW_VALID ,1> ;AN000; (06) France | ||
| 530 | CTY_DEF < 034,E_KYBD_VAL_YES,'SP',850,437,1,E_CPSW_VALID ,0> ;AN000; (07) Spain | ||
| 531 | CTY_DEF < 039,E_KYBD_VAL_YES,'IT',437,850,1,E_CPSW_VALID ,2> ;AN000; (08) Italy | ||
| 532 | CTY_DEF < 041,E_KYBD_VAL_YES,'SF',850,437,1,E_CPSW_VALID ,0> ;AN000; (09) Switzerland | ||
| 533 | CTY_DEF < 044,E_KYBD_VAL_YES,'UK',437,850,1,E_CPSW_VALID ,3> ;AN000; (10) United Kingdom | ||
| 534 | CTY_DEF < 045,E_KYBD_VAL_YES,'DK',850,865,2,E_CPSW_VALID ,0> ;AN000; (11) Denmark | ||
| 535 | CTY_DEF < 046,E_KYBD_VAL_YES,'SV',437,850,1,E_CPSW_VALID ,0> ;AN000; (12) Sweden | ||
| 536 | CTY_A_ITEMS EQU ($ - CTY_TAB_A_1) / TYPE CTY_DEF ;AN000; no of items | ||
| 537 | ; | ||
| 538 | PUBLIC CTY_TAB_B,CTY_TAB_B_1,CTY_B_ITEMS ;AN000; | ||
| 539 | CTY_TAB_B DB CTY_B_ITEMS ;AN000; no of entries in table | ||
| 540 | CTY_TAB_B_1 CTY_DEF < 047,E_KYBD_VAL_YES,'NO',850,865,2,E_CPSW_VALID ,0 > ;AN000; (01) Norway | ||
| 541 | CTY_DEF < 049,E_KYBD_VAL_YES,'GR',437,850,1,E_CPSW_VALID ,0 > ;AN000; (02) Germany | ||
| 542 | CTY_DEF < 061,E_KYBD_VAL_YES,'US',437,850,1,E_CPSW_VALID ,0 > ;AN000; (03) Australia | ||
| 543 | CTY_DEF < 081,E_KYBD_VAL_NO ,' ',000,000,0,E_CPSW_NOT_VAL,0 > ;AN000; (04) Japan | ||
| 544 | CTY_DEF < 082,E_KYBD_VAL_NO ,' ',000,000,0,E_CPSW_NOT_VAL,0 > ;AN000; (05) Korea | ||
| 545 | CTY_DEF < 086,E_KYBD_VAL_NO ,' ',000,000,0,E_CPSW_NOT_VAL,0 > ;AN000; (06) Republic of China | ||
| 546 | CTY_DEF < 088,E_KYBD_VAL_NO ,' ',000,000,0,E_CPSW_NOT_VAL,0 > ;AN000; (07) Taiwan | ||
| 547 | CTY_DEF < 351,E_KYBD_VAL_YES,'PO',850,860,2,E_CPSW_VALID ,0 > ;AN000; (08) Portugal | ||
| 548 | CTY_DEF < 358,E_KYBD_VAL_YES,'SU',850,437,1,E_CPSW_VALID ,0 > ;AN000; (09) Finland | ||
| 549 | CTY_DEF < 785,E_KYBD_VAL_NO ,' ',000,000,0,E_CPSW_NOT_VAL,0 > ;AN000; (10) Arabic Speaking | ||
| 550 | CTY_DEF < 972,E_KYBD_VAL_NO ,' ',000,000,0,E_CPSW_NOT_VAL,0 > ;AN000; (11) Hebrew Speaking | ||
| 551 | CTY_B_ITEMS EQU ($ - CTY_TAB_B_1) / TYPE CTY_DEF ;AN000; no of items | ||
| 552 | ; | ||
| 553 | ; Keyboard Codes supported | ||
| 554 | PUBLIC KYBD_TAB_A,KYBD_TAB_A_1,KYBD_A_ITEMS ;AN000; | ||
| 555 | KYBD_TAB_A DB KYBD_A_ITEMS ;AN000; no of entries in table | ||
| 556 | KYBD_TAB_A_1 KYB_DEF < 'BE', E_KYBD_ALT_NO > ;AN000; (01) Flemish | ||
| 557 | KYB_DEF < 'CF', E_KYBD_ALT_NO > ;AN000; (02) Canadian French | ||
| 558 | KYB_DEF < 'DK', E_KYBD_ALT_NO > ;AN000; (03) Danish | ||
| 559 | KYB_DEF < 'FR', E_KYBD_ALT_YES> ;AN000; (04) French | ||
| 560 | KYB_DEF < 'GR', E_KYBD_ALT_NO > ;AN000; (05) German | ||
| 561 | KYB_DEF < 'IT', E_KYBD_ALT_YES> ;AN000; (06) Italian | ||
| 562 | KYB_DEF < 'LA', E_KYBD_ALT_NO > ;AN000; (07) Latin American (Spanish) | ||
| 563 | KYB_DEF < 'NL', E_KYBD_ALT_NO > ;AN000; (08) Dutch | ||
| 564 | KYB_DEF < 'NO', E_KYBD_ALT_NO > ;AN000; (09) Norwegian | ||
| 565 | KYBD_A_ITEMS EQU ($ - KYBD_TAB_A_1) / TYPE KYB_DEF ;AN000; no of items in table | ||
| 566 | ; | ||
| 567 | PUBLIC KYBD_TAB_B,KYBD_TAB_B_1,KYBD_B_ITEMS ;AN000; | ||
| 568 | KYBD_TAB_B DB KYBD_B_ITEMS ;AN000; no of entries in table | ||
| 569 | KYBD_TAB_B_1 KYB_DEF < 'PO', E_KYBD_ALT_NO > ;AN000; (01) Portuguese | ||
| 570 | KYB_DEF < 'SF', E_KYBD_ALT_NO > ;AN000; (02) Swiss (French) | ||
| 571 | KYB_DEF < 'SG', E_KYBD_ALT_NO > ;AN000; (03) Swiss (German) | ||
| 572 | KYB_DEF < 'SP', E_KYBD_ALT_NO > ;AN000; (04) Spanish | ||
| 573 | KYB_DEF < 'SU', E_KYBD_ALT_NO > ;AN000; (05) Finnish | ||
| 574 | KYB_DEF < 'SV', E_KYBD_ALT_NO > ;AN000; (06) Swedish | ||
| 575 | KYB_DEF < 'UK', E_KYBD_ALT_YES> ;AN000; (07) UK English | ||
| 576 | KYB_DEF < 'US', E_KYBD_ALT_NO > ;AN000; (08) US English | ||
| 577 | KYB_DEF < ' ', E_KYBD_ALT_NO > ;AN000; (09) none of the above | ||
| 578 | KYBD_B_ITEMS EQU ($ - KYBD_TAB_B_1) / TYPE KYB_DEF ;AN000; no of items in table | ||
| 579 | ; | ||
| 580 | PUBLIC ALT_TAB_PTR ;AN000; | ||
| 581 | ALT_TAB_PTR DW ? ;AN000; pointer keyboard table | ||
| 582 | ; | ||
| 583 | PUBLIC ALT_KYB_ID, ALT_FRENCH, ALT_ITALIAN, ALT_UK, ALT_KYB_ID_PREV ;AN000; | ||
| 584 | ALT_KYB_ID DB ? ;AN000; keyboard code identifier | ||
| 585 | ALT_KYB_ID_PREV DB ? ;AN000; previous keyboard code identifier | ||
| 586 | ALT_FRENCH EQU 1 ;AN000; French keyboard | ||
| 587 | ALT_ITALIAN EQU 2 ;AN000; Italian keyboard | ||
| 588 | ALT_UK EQU 3 ;AN000; UK English keyboard | ||
| 589 | ; | ||
| 590 | PUBLIC ALT_KYB_TABLE, ALT_KYB_TAB_1, ALT_KYB_ITEMS ;AN000; | ||
| 591 | ALT_KYB_TABLE DB ALT_KYB_ITEMS ;AN000; no of items in table | ||
| 592 | ALT_KYB_TAB_1 ALT_KYB_DEF < 'FR', ALT_KYBD_FR, ALT_FRENCH > ;AN000; French keyboard | ||
| 593 | ALT_KYB_DEF < 'IT', ALT_KYBD_IT, ALT_ITALIAN > ;AN000; Italian keyboard | ||
| 594 | ALT_KYB_DEF < 'UK', ALT_KYBD_UK, ALT_UK > ;AN000; UK English | ||
| 595 | ALT_KYB_ITEMS EQU ($ - ALT_KYB_TAB_1) / TYPE ALT_KYB_DEF ;AN000; no of items | ||
| 596 | ; | ||
| 597 | PUBLIC ALT_KYBD_FR, ALT_KYBD_FR_1, ALT_FR_ITEMS ;AN000; | ||
| 598 | ALT_KYBD_FR DB ALT_FR_ITEMS ;AN000; Alternate French Keyboard-no of entries in table | ||
| 599 | ALT_KYBD_FR_1 FR_STRUC <'120'> ;AN000; | ||
| 600 | FR_STRUC <'189'> ;AC000;JW | ||
| 601 | ALT_FR_ITEMS EQU ($ - ALT_KYBD_FR_1) / TYPE FR_STRUC ;AN000; | ||
| 602 | ; | ||
| 603 | PUBLIC ALT_KYBD_IT, ALT_KYBD_IT_1, ALT_IT_ITEMS ;AN000; | ||
| 604 | ALT_KYBD_IT DB ALT_IT_ITEMS ;AN000; Alternate Italian keyboard-no of entries in table | ||
| 605 | ALT_KYBD_IT_1 IT_STRUC <'142'> ;AC090;JW Switched with '141 | ||
| 606 | IT_STRUC <'141'> ;AC090;JW | ||
| 607 | ALT_IT_ITEMS EQU ($ - ALT_KYBD_IT_1) / TYPE IT_STRUC ;AN000; | ||
| 608 | ; | ||
| 609 | PUBLIC ALT_KYBD_UK, ALT_KYBD_UK_1, ALT_UK_ITEMS ;AN000; | ||
| 610 | ALT_KYBD_UK DB ALT_UK_ITEMS ;AN000; no of entries in table | ||
| 611 | ALT_KYBD_UK_1 UK_STRUC <'168'> ;AN000; | ||
| 612 | UK_STRUC <'166'> ;AC000;JW | ||
| 613 | ALT_UK_ITEMS EQU ($ - ALT_KYBD_UK_1) / TYPE UK_STRUC ;AN000; | ||
| 614 | ; | ||
| 615 | PUBLIC ALT_ID_DEF ;AN000; | ||
| 616 | ALT_ID_DEF DB 0 ;AN000;DT | ||
| 617 | ; | ||
| 618 | PUBLIC S_US ;AN000; | ||
| 619 | S_US DW M_US ;AN000; | ||
| 620 | P_US DB 'US' ;AN000; | ||
| 621 | M_US EQU $ - P_US ;AN000; | ||
| 622 | ; | ||
| 623 | PUBLIC S_SWISS ;AN000; | ||
| 624 | S_SWISS DW M_SWISS ;AN000; | ||
| 625 | P_SWISS DB 'SF' ;AN000; | ||
| 626 | M_SWISS EQU $ - P_SWISS ;AN000; | ||
| 627 | ; | ||
| 628 | PUBLIC PRINTER_TABLES ;AN000; | ||
| 629 | PRINTER_TABLES EQU $ ;AN000; | ||
| 630 | PRINTER_DEF < > ;AN000; LPT1 | ||
| 631 | PRINTER_DEF < > ;AN000; LPT2 | ||
| 632 | PRINTER_DEF < > ;AN000; LPT3 | ||
| 633 | PRINTER_DEF < > ;AN000; COM1 | ||
| 634 | PRINTER_DEF < > ;AN000; COM2 | ||
| 635 | PRINTER_DEF < > ;AN000; COM3 | ||
| 636 | PRINTER_DEF < > ;AN000; COM4 | ||
| 637 | ; | ||
| 638 | PUBLIC N_NUMPRINT, MIN_NUMPRINT, MAX_NUMPRINT ;AN000; | ||
| 639 | N_NUMPRINT DW ? ;AN000; No. of printers to install | ||
| 640 | MIN_NUMPRINT EQU 0 ;AN000; | ||
| 641 | MAX_NUMPRINT EQU 7 ;AN000; | ||
| 642 | ; | ||
| 643 | PUBLIC N_SERIAL, N_PARALLEL ;AN000; | ||
| 644 | N_PARALLEL DW ? ;AN000; | ||
| 645 | N_SERIAL DW ? ;AN000; | ||
| 646 | ; | ||
| 647 | PUBLIC I_PORT, I_REDIRECT, I_PRINTER ;AN000; | ||
| 648 | I_PORT DW ? ;AN000; port number | ||
| 649 | I_REDIRECT DW ? ;AN000; serial port redirection | ||
| 650 | I_PRINTER DW ? ;AN000; index into printer list | ||
| 651 | ; | ||
| 652 | PUBLIC N_PRINTER_TYPE, E_SERIAL, E_PARALLEL ;AN000; | ||
| 653 | N_PRINTER_TYPE DB ? ;AN000; printer type | ||
| 654 | E_SERIAL EQU 53H ;AN000; Serial 'S' | ||
| 655 | E_PARALLEL EQU 50H ;AN000; Parallel 'P' | ||
| 656 | ; | ||
| 657 | PUBLIC S_MODE_PARM, M_MODE_PARM ;AN000; | ||
| 658 | S_MODE_PARM DW M_MODE_PARM ;AN000; | ||
| 659 | P_MODE_PARM DB 40 DUP(?) ;AN000; | ||
| 660 | M_MODE_PARM EQU $ - P_MODE_PARM ;AN000; | ||
| 661 | ; | ||
| 662 | PUBLIC S_CP_DRIVER, M_CP_DRIVER ;AN000; | ||
| 663 | S_CP_DRIVER DW M_CP_DRIVER ;AN000; | ||
| 664 | P_CP_DRIVER DB 22 DUP(?) ;AN000; | ||
| 665 | M_CP_DRIVER EQU $ - P_CP_DRIVER ;AN000; | ||
| 666 | ; | ||
| 667 | PUBLIC S_CP_PREPARE, M_CP_PREPARE ;AN000; | ||
| 668 | S_CP_PREPARE DW M_CP_PREPARE ;AN000; | ||
| 669 | P_CP_PREPARE DB 12 DUP(?) ;AN000; | ||
| 670 | M_CP_PREPARE EQU $ - P_CP_PREPARE ;AN000; | ||
| 671 | ; | ||
| 672 | PUBLIC S_GRAPH_PARM, M_GRAPH_PARM ;AN000; | ||
| 673 | S_GRAPH_PARM DW M_GRAPH_PARM ;AN000; | ||
| 674 | P_GRAPH_PARM DB 20 DUP(?) ;AN000; | ||
| 675 | M_GRAPH_PARM EQU $ - P_GRAPH_PARM ;AN000; | ||
| 676 | ; | ||
| 677 | PUBLIC F_REVIEW, E_REVIEW_ACCEPT, E_REVIEW_VIEW ;AN000; | ||
| 678 | F_REVIEW DW ? ;AN000; Review selection screen index | ||
| 679 | E_REVIEW_ACCEPT EQU 1 ;AN000; user will accept selections made by SELECT | ||
| 680 | E_REVIEW_VIEW EQU 2 ;AN000; user wants to view/change selections made by SELECT | ||
| 681 | ; | ||
| 682 | PUBLIC N_DISPLAY, E_CPSW_DISP, E_NOCPSW_DISP ;AN000; | ||
| 683 | N_DISPLAY DB ? ;AN000; display type indicator | ||
| 684 | E_CPSW_DISP EQU 0 ;AN000; display type will support CPSW | ||
| 685 | E_NOCPSW_DISP EQU 1 ;AN000; display type will not support CPSW | ||
| 686 | ; | ||
| 687 | PUBLIC N_YEAR, MIN_YEAR, MAX_YEAR ;AN000; | ||
| 688 | N_YEAR DW ? ;AN000; calender year | ||
| 689 | MIN_YEAR EQU 1980 ;AN000; | ||
| 690 | MAX_YEAR EQU 2079 ;AN000; | ||
| 691 | ; | ||
| 692 | PUBLIC N_MONTH, MIN_MONTH, MAX_MONTH ;AN000; | ||
| 693 | N_MONTH DW ? ;AN000; calender month | ||
| 694 | MIN_MONTH EQU 1 ;AN000; | ||
| 695 | MAX_MONTH EQU 12 ;AN000; | ||
| 696 | ; | ||
| 697 | PUBLIC N_DAY, MIN_DAY, MAX_DAY ;AN000; | ||
| 698 | N_DAY DW ? ;AN000; calender day | ||
| 699 | MIN_DAY EQU 1 ;AN000; | ||
| 700 | MAX_DAY EQU 31 ;AN000; | ||
| 701 | ; | ||
| 702 | PUBLIC N_HOUR, MIN_HOUR, MAX_HOUR ;AN000; | ||
| 703 | N_HOUR DW ? ;AN000; hour | ||
| 704 | MIN_HOUR EQU 0 ;AN000; | ||
| 705 | MAX_HOUR EQU 23 ;AN000; | ||
| 706 | ; | ||
| 707 | PUBLIC N_MINUTE, MIN_MINUTE, MAX_MINUTE ;AN000; | ||
| 708 | N_MINUTE DW ? ;AN000; minute | ||
| 709 | MIN_MINUTE EQU 0 ;AN000; | ||
| 710 | MAX_MINUTE EQU 59 ;AN000; | ||
| 711 | ; | ||
| 712 | PUBLIC N_SECOND, MIN_SECOND, MAX_SECOND ;AN000; | ||
| 713 | N_SECOND DW ? ;AN000; second | ||
| 714 | MIN_SECOND EQU 0 ;AN000; | ||
| 715 | MAX_SECOND EQU 59 ;AN000; | ||
| 716 | ; | ||
| 717 | PUBLIC PARM_BLOCK, CMD_BUFF ;AN000; | ||
| 718 | PARM_BLOCK LABEL WORD ;AN000; parameter block for EXEC_PROGRAM | ||
| 719 | DW 0 ;AN000; use parent environment | ||
| 720 | DW OFFSET CMD_BUFF ;AN000; pointer to commnad line | ||
| 721 | DW ? ;AN000; segment for command line | ||
| 722 | DW 5CH ;AN000; default FCB | ||
| 723 | DW ? ;AN000; segment for FCB | ||
| 724 | DW 6CH ;AN000; default FCB | ||
| 725 | DW ? ;AN000; segment for FCB | ||
| 726 | PARM_BLOCK_END EQU $ ;AN000; | ||
| 727 | ; | ||
| 728 | CMD_BUFF LABEL BYTE ;AN000; command line passed to EXEC_PROGRAM | ||
| 729 | DB ? ;AN000; length of command line - excluding carrier return | ||
| 730 | DB 80 DUP(?) ;AN000; | ||
| 731 | CMD_BUFF_END EQU $ ;AN000; | ||
| 732 | ; | ||
| 733 | PUBLIC S_STR40, P_STR40, M_STR40 ;AN000;JW | ||
| 734 | S_STR40 DW M_STR40 ;AN000; Temporary variable for string field | ||
| 735 | P_STR40 DB 40 DUP(?) ;AN000;JW | ||
| 736 | M_STR40 EQU $ - P_STR40 ;AN000;JW | ||
| 737 | ; | ||
| 738 | PUBLIC S_STR120_1, P_STR120_1, M_STR120_1 ;AN000; | ||
| 739 | S_STR120_1 DW M_STR120_1 ;AN000; Temporary variable for string field | ||
| 740 | P_STR120_1 DB 120 DUP(?) ;AN000; | ||
| 741 | M_STR120_1 EQU $ - P_STR120_1 ;AN000; | ||
| 742 | ; | ||
| 743 | PUBLIC S_STR120_2, M_STR120_2 ;AN000; | ||
| 744 | S_STR120_2 DW M_STR120_2 ;AN000; Temporary variable for string field | ||
| 745 | P_STR120_2 DB 120 DUP(?) ;AN000; | ||
| 746 | M_STR120_2 EQU $ - P_STR120_2 ;AN000; | ||
| 747 | ; | ||
| 748 | PUBLIC S_STR120_3, M_STR120_3 ;AN000; | ||
| 749 | S_STR120_3 DW M_STR120_3 ;AN000; Temporary variable for string field | ||
| 750 | P_STR120_3 DB 120 DUP(?) ;AN000; | ||
| 751 | M_STR120_3 EQU $ - P_STR120_3 ;AN000; | ||
| 752 | ; | ||
| 753 | PUBLIC S_STR120_4, M_STR120_4 ;AN039;SEH | ||
| 754 | S_STR120_4 DW M_STR120_4 ;AN039;SEH Temporary variable for string field | ||
| 755 | P_STR120_4 DB 120 DUP(?) ;AN039;SEH | ||
| 756 | M_STR120_4 EQU $ - P_STR120_4 ;AN039;SEH | ||
| 757 | ; | ||
| 758 | PUBLIC SC_LINE, MC_LINE ;AN000; | ||
| 759 | SC_LINE DW MC_LINE ;AN000; Temporary variable for string field | ||
| 760 | PC_LINE DB 130 DUP(?) ;AN000; | ||
| 761 | MC_LINE EQU $ - PC_LINE - 2 ;AN000; | ||
| 762 | ; | ||
| 763 | PUBLIC N_HANDLE ;AN000; | ||
| 764 | N_HANDLE DW ? ;AN000; save location for file handle | ||
| 765 | ; | ||
| 766 | PUBLIC N_WRITE_HANDLE, N_WRITE_ERR_CODE ;AN000; | ||
| 767 | N_WRITE_HANDLE DW ? ;AN000; File handle for prepared file | ||
| 768 | N_WRITE_ERR_CODE DW ? ;AN000; error code for prepared file | ||
| 769 | ; | ||
| 770 | PUBLIC N_RETCODE, N_COUNTER ;AN000; | ||
| 771 | N_RETCODE DW ? ;AN000; Return code if execution not a success | ||
| 772 | N_COUNTER DW ? ;AN000; Loop counter | ||
| 773 | ; | ||
| 774 | PUBLIC N_WORD_1, N_WORD_2, N_WORD_3, N_WORD_4, N_WORD_5, N_WORD_6,N_BYTE_1 ;AN000; | ||
| 775 | N_WORD_1 DW ? ;AN000; temp variable | ||
| 776 | N_WORD_2 DW ? ;AN000; temp variable | ||
| 777 | N_WORD_3 DW ? ;AN000; temp variable | ||
| 778 | N_WORD_4 DW ? ;AN000; temp variable | ||
| 779 | N_WORD_5 DW ? ;AN000; temp variable | ||
| 780 | N_WORD_6 DW ? ;AN000; temp variable | ||
| 781 | N_BYTE_1 DB ? ;AN025; temp variable | ||
| 782 | ; | ||
| 783 | PUBLIC SAVE_AREA ;AN000; | ||
| 784 | SAVE_AREA DB 4 DUP(?) ;AN000; save area for stack pointer before EXEC program | ||
| 785 | ; | ||
| 786 | PUBLIC N_HOUSE_CLEAN,E_CLEAN_YES,E_CLEAN_NO ;AN000; | ||
| 787 | N_HOUSE_CLEAN DB ? ;AN000; | ||
| 788 | E_CLEAN_YES EQU 1 ;AN000; erase temp files | ||
| 789 | E_CLEAN_NO EQU 0 ;AN000; no temp files to erase | ||
| 790 | ; | ||
| 791 | PUBLIC N_DSKCPY_ERR,E_DSKCPY_RETRY,E_DSKCPY_OK ;AN000;JW | ||
| 792 | N_DSKCPY_ERR DB 0 ;AN000;JW | ||
| 793 | E_DSKCPY_RETRY EQU 1 ;AN000; retry diskcopy | ||
| 794 | E_DSKCPY_OK EQU 0 ;AN000; diskcopy successful | ||
| 795 | ; | ||
| 796 | PUBLIC E_CR, E_LF ;AN000; | ||
| 797 | E_CR EQU 0DH ;AN000; | ||
| 798 | E_LF EQU 0AH ;AN000; | ||
| 799 | ; | ||
| 800 | ; EQUATES FOR FIELD TYPES DEFINED IN DISK STATUS STRUCTURE | ||
| 801 | ; EQUATES FOR N_PART_NAME ; Partition name | ||
| 802 | PUBLIC E_PART_PRI_DOS, E_PART_EXT_DOS, E_PART_LOG_DRI ;AN000; | ||
| 803 | PUBLIC E_FREE_MEM_EDOS, E_FREE_MEM_DISK, E_PART_OTHER ;AN000; | ||
| 804 | E_PART_PRI_DOS EQU 1 ;AN000; Primary DOS partition | ||
| 805 | E_PART_EXT_DOS EQU 2 ;AN000; Extended DOS partition | ||
| 806 | E_PART_LOG_DRI EQU 3 ;AN000; Logical Drive | ||
| 807 | E_FREE_MEM_EDOS EQU 4 ;AN000; Free space in Extended DOS partition | ||
| 808 | E_FREE_MEM_DISK EQU 5 ;AN000; Free disk space - undefined partition | ||
| 809 | E_PART_OTHER EQU 6 ;AN000; other partition types i.e not DOS or EDOS | ||
| 810 | |||
| 811 | ; EQUATES FOR N_PART_STATUS ; Partition status | ||
| 812 | PUBLIC E_PART_UNFORMAT, E_PART_FORMAT ;AN000; | ||
| 813 | E_PART_UNFORMAT EQU 0 ;AN000; partition is unformatted | ||
| 814 | E_PART_FORMAT EQU 1 ;AN000; partition is formatted | ||
| 815 | ; | ||
| 816 | ; EQUATES FOR N_PART_TYPE ; Partition type | ||
| 817 | PUBLIC E_PART_FAT, E_PART_KSAM, E_PART_UNDEF, E_PART_IGNORE ;AN000; | ||
| 818 | E_PART_FAT EQU 1 ;AN000; FAT | ||
| 819 | E_PART_KSAM EQU 2 ;AN000; KSAM | ||
| 820 | E_PART_UNDEF EQU 3 ;AN000; not assigned | ||
| 821 | E_PART_IGNORE EQU 4 ;AN000; other partition types i.e not FAT or KSAM | ||
| 822 | ; | ||
| 823 | PUBLIC N_DISK_1, E_DISK_1, N_DISK_2, E_DISK_2 ;AN000; | ||
| 824 | PUBLIC E_DISK_INV, E_DISK_NO_PART, E_DISK_VAL_PART ;AN000; | ||
| 825 | N_DISK_1 DW ? ;AN000; first fixed disk status | ||
| 826 | N_DISK_2 DW ? ;AN000; second fixed disk status | ||
| 827 | E_DISK_1 EQU 1 ;AN000; | ||
| 828 | E_DISK_2 EQU 2 ;AN000; | ||
| 829 | E_DISK_INV EQU 0 ;AN000; fixed disk not present | ||
| 830 | E_DISK_NO_PART EQU 1 ;AN000; fixed disk present : no DOS or EDOS partitions | ||
| 831 | E_DISK_VAL_PART EQU 2 ;AN000; fixed disk present : DOS or EDOS partitions exist | ||
| 832 | ; | ||
| 833 | PUBLIC N_DISK_1_S1,N_DISK_2_S1,E_DISK_PRI,E_DISK_EXT_DOS ;AN000; | ||
| 834 | PUBLIC E_DISK_LOG_DRI,E_DISK_EDOS_MEM,E_DISK_FREE_MEM ;AN000; | ||
| 835 | N_DISK_1_S1 DW ? ;AN000; detailed status of first fixed drive | ||
| 836 | N_DISK_2_S1 DW ? ;AN000; detailed status or second fixed drive | ||
| 837 | E_DISK_PRI EQU 01H ;AN000; Primary DOS partition exists | ||
| 838 | E_DISK_EXT_DOS EQU 02H ;AN000; Extended DOS partitions exists | ||
| 839 | E_DISK_LOG_DRI EQU 04H ;AN000; Logical drives exist in Extended Dos partitions | ||
| 840 | E_DISK_EDOS_MEM EQU 08H ;AN000; Free space exists in Extended DOS partition | ||
| 841 | E_DISK_FREE_MEM EQU 10H ;AN000; Free disk space exists | ||
| 842 | ; | ||
| 843 | PUBLIC N_DISK_1_S2, N_DISK_2_S2,E_SPACE_NONE,E_SPACE_EDOS,E_SPACE_DISK ;AN000; | ||
| 844 | N_DISK_1_S2 DW 0 ;AN000; | ||
| 845 | N_DISK_2_S2 DW 0 ;AN000; | ||
| 846 | E_SPACE_NONE EQU 0 ;AN000; no free space in EDOS and DISK | ||
| 847 | E_SPACE_EDOS EQU 1 ;AN000; free space in EDOS | ||
| 848 | E_SPACE_DISK EQU 2 ;AN000; no EDOS but free space in disk | ||
| 849 | ; | ||
| 850 | PUBLIC F_PARTITION, E_PART_DEFAULT, E_PART_USER ;AN000; | ||
| 851 | F_PARTITION DW 1 ;AN000; partition size division option | ||
| 852 | E_PART_DEFAULT EQU 1 ;AN000; default partition sizes are to be used | ||
| 853 | E_PART_USER EQU 2 ;AN000; user will define partition sizes | ||
| 854 | ; | ||
| 855 | PUBLIC I_DESTINATION, E_ENTIRE_DISK, E_PATH_ONLY ;AN000;JW | ||
| 856 | I_DESTINATION DW 1 ;AN000; destination on c: disk option JW | ||
| 857 | E_ENTIRE_DISK EQU 1 ;AN000; replace files across entire disk JW | ||
| 858 | E_PATH_ONLY EQU 2 ;AN000; replace files in dos path only JW | ||
| 859 | ; | ||
| 860 | PUBLIC F_FORMAT, E_FORMAT_FAT, E_FORMAT_NO ;AN000; | ||
| 861 | F_FORMAT DW ? ;AN000; | ||
| 862 | E_FORMAT_FAT EQU 1 ;AN000; format partition with FAT | ||
| 863 | E_FORMAT_NO EQU 2 ;AN000; do not format partition | ||
| 864 | ; | ||
| 865 | PUBLIC N_DISK1_MODE, E_DISK1_INSTALL, E_DISK1_REPLACE ;AN000; | ||
| 866 | N_DISK1_MODE DW ? ;AN000; install mode for fixed disk | ||
| 867 | E_DISK1_INSTALL EQU 1 ;AN000; install DOS-no partitions | ||
| 868 | E_DISK1_REPLACE EQU 2 ;AN000; replace DOS-partitions exist | ||
| 869 | ; | ||
| 870 | PUBLIC DISK_1_TABLE,DISK_1_VAL_ITEM,DISK_1_START,M_DISK_1_ITEMS ;AN000; | ||
| 871 | DISK_1_TABLE DB M_DISK_1_ITEMS ;AN000; maximum no of items in table | ||
| 872 | DISK_1_VAL_ITEM DB 0 ;AN000; number of valid entries in table | ||
| 873 | DISK_1_START DB (100*TYPE DISK_STATUS) DUP (0) ;AN000; | ||
| 874 | M_DISK_1_ITEMS EQU ($ - DISK_1_START) / TYPE DISK_STATUS ;AN000; | ||
| 875 | ; | ||
| 876 | PUBLIC DISK_2_TABLE,DISK_2_VAL_ITEM,DISK_2_START,M_DISK_2_ITEMS ;AN000; | ||
| 877 | DISK_2_TABLE DB M_DISK_2_ITEMS ;AN000; maximum no of items in table | ||
| 878 | DISK_2_VAL_ITEM DB 0 ;AN000; number of valid entries in table | ||
| 879 | DISK_2_START DB (100*TYPE DISK_STATUS) DUP (0) ;AN000; | ||
| 880 | M_DISK_2_ITEMS EQU ($ - DISK_2_START) / TYPE DISK_STATUS ;AN000; | ||
| 881 | ; | ||
| 882 | PUBLIC N_NAME_PART,N_SIZE_PART,N_STATUS_PART,P_DRIVE_PART,N_TYPE_PART,N_LEVEL1_PART,N_LEVEL2_PART,N_LEVEL3_PART,N_LEVEL4_PART ;AC065;SEH add check for version number ;AN000; | ||
| 883 | N_NAME_PART DB 0 ;AN000; partition name | ||
| 884 | N_SIZE_PART DW 0 ;AN000; partition size | ||
| 885 | N_STATUS_PART DB 0 ;AN000; partition status | ||
| 886 | N_TYPE_PART DB 0 ;AN000; partition type | ||
| 887 | P_DRIVE_PART DB ' ' ;AN000; drive letter assigned | ||
| 888 | N_LEVEL1_PART DB 0 ;AN065; SEH version number (1st part) for DOS 4.00 1st part = blank | ||
| 889 | N_LEVEL2_PART DB 0 ;AN065; SEH version number (2nd part) for DOS 4.00 2nd part = 4 | ||
| 890 | N_LEVEL3_PART DB 0 ;AN065; SEH version number (3rd part) for DOS 4.00 3rd part = . | ||
| 891 | N_LEVEL4_PART DB 0 ;AN065; SEH version number (4th part) for DOS 4.00 4th part = 0 | ||
| 892 | ; | ||
| 893 | PUBLIC N_DISK_NUM,E_DISK_ROW,E_DISK_COL,E_DRIVE_ROW,E_DRIVE_COL ;AN000; | ||
| 894 | N_DISK_NUM DB ? ;AN000; holder for ascii disk number | ||
| 895 | E_DISK_ROW EQU 0 ;AN000; row for fixed disk number (0 based) | ||
| 896 | E_DISK_COL EQU 19 ;AN000; column for fixed disk number | ||
| 897 | E_DRIVE_ROW EQU 0 ;AN000; row for logical drive letter (0 based) | ||
| 898 | E_DRIVE_COL EQU 19 ;AN000; column for logical drive letter | ||
| 899 | ; | ||
| 900 | PUBLIC STACK_INDEX, SELECT_STACK, STACK_SIZE ;AN000; | ||
| 901 | STACK_INDEX DB 00H ;AN000; no. of entries in stack | ||
| 902 | SELECT_STACK DW 50 DUP(?) ;AN000; stack entries | ||
| 903 | STACK_SIZE EQU $ - SELECT_STACK ;AN000; size of SELECT stack | ||
| 904 | ; | ||
| 905 | PUBLIC N_DEST,E_DEST_DOS,E_DEST_SHELL ;AN000; | ||
| 906 | N_DEST DB ? ;AN000; | ||
| 907 | E_DEST_DOS EQU 1 ;AN000; | ||
| 908 | E_DEST_SHELL EQU 2 ;AN000; | ||
| 909 | ; | ||
| 910 | ; Variables which return information if a critical error occurs. | ||
| 911 | ; INT_24_ERROR returns the error code from the critical error routine | ||
| 912 | ; INT_24_FLAG is set if a critical error occurs. It is not enough | ||
| 913 | ; to check if INT_24_ERROR is non-zero, since a value of zero is a critical error. | ||
| 914 | PUBLIC INT_24_ERROR, INT_24_FLAG ;AN000; | ||
| 915 | INT_24_ERROR DW 0 ;AN000; | ||
| 916 | INT_24_FLAG DB 0 ;AN000; | ||
| 917 | ; | ||
| 918 | ; Area to save the old interrupt 23h vector for restoration when the program is done. | ||
| 919 | PUBLIC OLD_INT_23 ;AN074;SEH ctrl-break | ||
| 920 | OLD_INT_23 DD 0 ;AN074;SEH | ||
| 921 | ; Area to save the old interrupt 24h vector for restoration when the program is done. | ||
| 922 | PUBLIC OLD_INT_24 ;AN000; | ||
| 923 | OLD_INT_24 DD 0 ;AN000; | ||
| 924 | ; Area to save the old interrupt 2Fh vector for restoration when the program is done. | ||
| 925 | PUBLIC OLD_INT_2F ;AN000; | ||
| 926 | OLD_INT_2F DD 0 ;AN000; | ||
| 927 | ; | ||
| 928 | PUBLIC MEM_SIZE ;AN000; | ||
| 929 | MEM_SIZE DW 0 ;AN000;DT installed memory in machine | ||
| 930 | ; | ||
| 931 | PUBLIC FORMAT_WHICH, STARTUP, SHELL ;AN000; | ||
| 932 | FORMAT_WHICH DB ? ;AN111; indicator for which disk (720) to format JW | ||
| 933 | STARTUP EQU 0 ;AN111; format startup | ||
| 934 | SHELL EQU 1 ;AN111; format shell | ||
| 935 | ; | ||
| 936 | PUBLIC DISK_PANEL, SEARCH_FILE ;AN000;JW | ||
| 937 | DISK_PANEL DW ? ;AN000;JW Holds panel number for INSERT_DISK | ||
| 938 | SEARCH_FILE DW ? ;AN000;JW Holds offset of file to search for | ||
| 939 | |||
| 940 | PUBLIC SUB_ERROR ;AN000;JW Holds error code of sub process | ||
| 941 | SUB_ERROR DB ? ;AN000;JW | ||
| 942 | |||
| 943 | include msgdcl.inc | ||
| 944 | ; | ||
| 945 | DATA ENDS ;AN000; | ||
| 946 | END ;AN000; | ||