]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/SELECT/SELECT4.ASM

wirehaze git hosting

projects / MS-DOS.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
MZ is back!
[MS-DOS.git] / v4.0 / src / SELECT / SELECT4.ASM
1
2
3 PAGE 55,132 ;AN000;
4 NAME SELECT ;AN000;
5 TITLE SELECT - DOS - SELECT.EXE ;AN000;
6 SUBTTL SELECT4.asm ;AN000;
7 .ALPHA ;AN000;
8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9 ;
10 ; SELECT4.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 ;
27 ; Module contains code for :
28 ; - DOS parameters screen
29 ; - SHELL parameters screen
30 ; - FASTOPEN parameters screen
31 ; - SHARE screen
32 ; - GRAPHICS parameter screen
33 ; - EXPANDED MEMORY parameters screen
34 ;
35 ;
36 ; CHANGE HISTORY:
37 ;
38 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
39 DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
40 DATA ENDS ;AN000;
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 ;
43 ;
44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
45 .XLIST ;AN000;
46 INCLUDE PANEL.MAC ;AN000;
47 INCLUDE SELECT.INC ;AN000;
48 INCLUDE PAN-LIST.INC ;AN000;
49 INCLUDE CASTRUC.INC ;AN000;
50 INCLUDE STRUC.INC ;AN000;
51 INCLUDE MACROS.INC ;AN000;
52 INCLUDE EXT.INC ;AN000;
53 INCLUDE VARSTRUC.INC ;AN000;
54 INCLUDE ROUT_EXT.INC ;AN000;
55 .LIST ;AN000;
56 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
57 ;
58 ;
59 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
60 ;
61 SELECT SEGMENT PARA PUBLIC 'SELECT' ;AN000;segment for far routine
62 ASSUME CS:SELECT,DS:DATA ;AN000;
63 ;
64 INCLUDE CASEXTRN.INC ;AN000;
65 ;
66 HLP_OVER EQU 00010000B ;AN000;
67 ICB_OUT EQU 0000000100000000B ;AN000;display default and accept input
68 ;
69 PUBLIC DOS_PARAMETERS_SCREEN ;AN000;
70 EXTRN EXIT_SELECT:NEAR ;AN000;
71 EXTRN PROCESS_ESC_F3:NEAR ;AN000;
72 EXTRN FIRST_DISK_SCREEN:NEAR ;AN000;
73 EXTRN VDISK_SCREEN:NEAR ;AN000;
74 EXTRN EXIT_DOS:NEAR ;AN000;
75 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
76 ;
77 ; ������������������������������������Ŀ
78 ; �DOS_PARAMETERS_SCREENS �
79 ; � �
80 ; ��������������������������������������
81 ;
82 ; The DOS PARAMETERS SCREEN is presented if the user selected to
83 ; view/change the selections generated by SELECT ( F_REVIEW = 2 ).
84 ; The screen gets various DOS parameters (PATH, APPEND, PROMPT).
85 ; The TAB key is used to move to the next item on the parameter list.
86 ; If the cursor is on the last item in the parameter list, TAB key
87 ; will cause the cursor to wrap around to the first item of the parameter list.
88 ; When the TAB key is depressed, the current parameter value is saved in
89 ; a temporary location. The temporary parameter values are copied to actual
90 ; values only when the ENTER key is depressed.
91 ; Valid keys are ENTER, ESC, F1, F3, TAB and ASCII characters.
92 ; Since the DOS parameters APPEND and PATH are only useful for hard
93 ; disk based systems, an additional check of install to drive C: has been
94 ; included. This check is not specified in the Functional Specification.
95 ; PROMPT parameter values are not checked for validity.
96 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
97 DOS_PARAMETERS_SCREEN: ;AN000; if user accepts choices
98 .IF < F_REVIEW eq E_REVIEW_ACCEPT > ;AN000;
99 .THEN ;AN000;
100 GOTO FIRST_DISK_SCREEN ;AN000; goto FIRST_DISK_SCREEN
101 .ENDIF ;AN000;
102 ;
103 .IF < I_DEST_DRIVE ne E_DEST_DRIVE_C > ;AC000; if install to drive B: or A: JW
104 .THEN ;AN000;
105 GOTO SHELL_SCREEN ;AN000; goto next screen
106 .ENDIF ;AN000;
107 ;
108 COPY_STRING S_STR120_1, M_STR120_1, S_PATH ;AN000; copy PATH to temp location
109 COPY_STRING S_STR40, M_STR40, S_APPEND_P ;AN000; copy APPEND parameters to temp location JW
110 COPY_STRING S_STR120_2, M_STR120_2,S_APPEND ;AN000; copy APPEND to temp location
111 COPY_STRING S_STR120_3, M_STR120_3,S_PROMPT ;AN000; copy PROMPT to temp location
112 ;
113 INIT_PQUEUE PAN_DOS_PARAM ;AN000; initialize queue
114 PREPARE_PANEL PAN_HBAR ;AN000; prepare horizontal bar
115 PREPARE_CHILDREN ;AN000; prepare child panels
116 INIT_STRING STR_DOS_PATH,S_STR120_1, M_PATH ;AN000; display current PATH value
117 INIT_STRING STR_DOS_APPEND_P,S_STR40,M_APPEND_P ;AN000; display current APPEND parameters value JW
118 INIT_STRING STR_DOS_APPEND,S_STR120_2,M_APPEND ;AN000; display current APPEND value
119 INIT_STRING STR_DOS_PROMPT,S_STR120_3,M_PROMPT ;AN000; display current PROMPT value
120 DISPLAY_PANEL ;AN000; display PC/DOS parameters panel
121 ;
122 INIT_VAR N_COUNTER, 1 ;AN000; set counter = 1
123 ;
124 GET_PARAMETERS: ;AN000;
125 ;
126 .REPEAT ;AN000; repeat code block
127 ;
128 .SELECT ;AN000;
129 ;
130 .WHEN < N_COUNTER eq 1 > ;AN000;
131 GET_STRING STR_DOS_PATH,S_STR120_1,M_PATH,FK_TAB ;AN000; get user parameters for PATH
132 COPY_STRING S_STR120_1,M_STR120_1,S_USER_STRING ;AN000; save parameter in temp location
133 ;
134 .WHEN < N_COUNTER eq 2 > ;AN000; JW
135 GET_STRING STR_DOS_APPEND_P,S_STR40,M_APPEND_P,FK_TAB ;AN000; get user parameters for APPEND JW
136 COPY_STRING S_STR40,M_STR40,S_USER_STRING ;AN000; save parameter in temp location JW
137 ;
138 .WHEN < N_COUNTER eq 3 > ;AN000;
139 GET_STRING STR_DOS_APPEND,S_STR120_2,M_APPEND,FK_TAB ;AN000; get user path for APPEND
140 COPY_STRING S_STR120_2,M_STR120_2,S_USER_STRING ;AN000; save parameter in temp location
141 ;
142 .OTHERWISE ;AN000;
143 GET_STRING STR_DOS_PROMPT,S_STR120_3,M_PROMPT,FK_TAB ;AN000; get user parameters for PROMPT
144 COPY_STRING S_STR120_3,M_STR120_3,S_USER_STRING ;AN000; save parameter in temp location
145 ;
146 .ENDSELECT ;AN000;
147 ;
148 INC_VAR N_COUNTER ;AN000; inc counter
149 ;
150 .IF < N_COUNTER a 4 > ;AN000; if counter > 3
151 .THEN ;AN000;
152 INIT_VAR N_COUNTER, 1 ;AN000; set counter = 1
153 .ENDIF ;AN000;
154 ;
155 .UNTIL < N_USER_FUNC eq E_ENTER > or near ;AN000; break loop if ENTER entered
156 .UNTIL < N_USER_FUNC eq E_ESCAPE > or near ;AN000; or ESCAPE entered
157 .UNTIL < N_USER_FUNC eq E_F3 > near ;AN000; or F3 entered
158 ;
159 PROCESS_ESC ;AN000;
160 PROCESS_F3 ;AN000;
161 ;
162 CHECK_DOS_PATH S_STR120_1 ;AN000; check PATH path
163 .IF c ;AN000;
164 .THEN ;AN000;
165 HANDLE_ERROR ERR_BAD_PATH, E_RETURN ;AN000;
166 INIT_VAR N_COUNTER, 1 ;AN000;
167 GOTO GET_PARAMETERS ;AN000;
168 .ENDIF ;AN000;
169 ;
170 CHECK_DOS_PATH S_STR120_2 ;AN000; check APPEND path
171 .IF c ;AN000;
172 .THEN ;AN000;
173 HANDLE_ERROR ERR_BAD_PATH, E_RETURN ;AN000;
174 INIT_VAR N_COUNTER,2 ;AN000;
175 GOTO GET_PARAMETERS ;AN000;
176 .ENDIF ;AN000;
177 ;
178 COPY_STRING S_PATH, M_PATH, S_STR120_1 ;AN000; save PATH parameter
179 COPY_STRING S_APPEND_P, M_APPEND_P, S_STR40 ;AN000; save APPEND parameter JW
180 COPY_STRING S_APPEND, M_APPEND, S_STR120_2 ;AN000; save APPEND path
181 COPY_STRING S_PROMPT, M_PROMPT, S_STR120_3 ;AN000; save PROMPT parameter
182 PUSH_HEADING DOS_PARAMETERS_SCREEN ;AN000; save screen address on SELECT STACK
183 GOTO SHELL_SCREEN ;AN000; goto the next screen (SHELL)
184 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
185 ;
186 ; ������������������������������������Ŀ
187 ; �SHELL_SCREEN �
188 ; � �
189 ; ��������������������������������������
190 ;
191 ; The SHELL PARAMETERS SCREEN is presented if the user selected to
192 ; install SHELL support and the user wants to view/change parameters.
193 ; Note.The view/change parameters condition is not specified in the May 5, 1987
194 ; Functional Specification.
195 ; The screen gets the parameters for SHELL.
196 ; Valid keys are ENTER, ESC, F1, F3 and ASCII characters.
197 ; Note.User entered parameter values are not checked for validity.
198 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
199 SHELL_SCREEN: ;AN000;
200 .IF < F_SHELL eq E_SHELL_NO > ;AN000; if SHELL support is not required
201 .THEN ;AN000;
202 GOTO FASTOPEN_SCREEN ;AN000; goto the next screen (KSAM)
203 .ENDIF ;AN000;
204 ;
205 INIT_PQUEUE PAN_SHELL ;AN000; initialize queue
206 PREPARE_PANEL PAN_HBAR ;AN000; prepare horizontal bar
207 PREPARE_CHILDREN ;AN000; prepare child panels
208 INIT_STRING STR_SHELL,S_SHELL,M_SHELL ;AN000; get SHELL parameters
209 DISPLAY_PANEL ;AN000; display SHELL panel
210 ;
211 GET_STRING STR_SHELL,S_SHELL,M_SHELL,FK_TEXT ;AN000; get SHELL parameters
212 ;
213 .IF < N_USER_FUNC eq E_ENTER > ;AN000; if user entered ENTER key
214 .THEN ;AN000;
215 COPY_STRING S_SHELL, M_SHELL, S_USER_STRING ;AN000; save new SHELL parameters
216 PUSH_HEADING SHELL_SCREEN ;AN000; save screen address on SELECT STACK
217 GOTO FASTOPEN_SCREEN ;AN000; goto the next screen (KSAM)
218 .ELSE ;AN000;
219 GOTO PROCESS_ESC_F3 ;AN000; user entered ESC or F3, take action
220 .ENDIF ;AN000;
221 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
222 ;
223 ; ������������������������������������Ŀ
224 ; �FASTOPEN_SCREEN �
225 ; � �
226 ; ��������������������������������������
227 ;
228 ; The FASTOPEN PARAMETERS SCREEN is presented if the user selected to
229 ; install FASTOPEN support and the user wants to view/change the parameters.
230 ; Note.The view/change parameters condition is not specified in the May 5, 1987
231 ; Functional Specification.
232 ; The screen gets parameters for the FASTOPEN command.
233 ; Valid keys are ENTER, ESC, F1, F3 and ASCII characters.
234 ; Note.User entered parameter values are not checked for validity.
235 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
236 FASTOPEN_SCREEN: ;AN000;
237 .IF < F_FASTOPEN eq E_FASTOPEN_NO > or ;AN000; if FASTOPEN support not required
238 .IF < I_DEST_DRIVE ne E_DEST_DRIVE_C > ;AC000;JW
239 .THEN ;AN000;
240 GOTO SHARE_SCREEN ;AN000; goto next screen (SHARE)
241 .ENDIF ;AN000;
242 ;
243 INIT_PQUEUE PAN_FASTOPEN ;AN000; initialize queue
244 PREPARE_PANEL PAN_HBAR ;AN000; prepare horizontal bar
245 PREPARE_CHILDREN ;AN000; prepare child panels
246 INIT_STRING STR_FASTOPEN,S_FASTOPEN,M_FASTOPEN ;AN000; get new parameters for FASTOPEN
247 DISPLAY_PANEL ;AN000; display FASTOPEN panel
248 ;
249 GET_STRING STR_FASTOPEN,S_FASTOPEN,M_FASTOPEN,FK_TEXT ;AN000; get new parameters for FASTOPEN
250 ;
251 .IF < N_USER_FUNC eq E_ENTER > ;AN000; if user entered ENTER key
252 .THEN ;AN000;
253 COPY_STRING S_FASTOPEN,M_FASTOPEN,S_USER_STRING ;AN000;save new parameters for FASTOPEN
254 PUSH_HEADING FASTOPEN_SCREEN ;AN000; save screen address on SELECT STACK
255 GOTO SHARE_SCREEN ;AN000; goto the next screen (SHARE)
256 .ELSE ;AN000;
257 GOTO PROCESS_ESC_F3 ;AN000; user entered ESC or F3, take action
258 .ENDIF ;AN000;
259 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
260 ;
261 ; ������������������������������������Ŀ
262 ; �SHARE_SCREEN �
263 ; � �
264 ; ��������������������������������������
265 ;
266 ; The SHARE PARAMETERS SCREEN is presented if the user selected to
267 ; install SHARE support and the user wants to view/change parameters.
268 ; Note.The view/change parameters condition is not specified in the May 5, 1987
269 ; Functional Specification.
270 ; The screen gets parameters for the SHARE command.
271 ; Valid keys are ENTER, ESC, F1, F3 and ASCII characters.
272 ; Note.User entered parameter values are not checked for validity.
273 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
274 SHARE_SCREEN: ;AN000;
275 .IF < F_SHARE eq E_SHARE_NO > or ;AN000; if SHARE support not required
276 .IF < I_DEST_DRIVE ne E_DEST_DRIVE_C > ;AC000;JW
277 .THEN ;AN000;
278 ;; INIT_VAR F_SHARE, E_SHARE_NO ;AN021;
279 GOTO GRAPHICS_SCREEN ;AN000; goto the next screen (GRAPHICS)
280 .ENDIF ;AN000;
281 ;
282 INIT_PQUEUE PAN_SHARE ;AN000; initialize queue
283 PREPARE_PANEL PAN_HBAR ;AN000; prepare horizontal bar
284 PREPARE_CHILDREN ;AN000; prepare child panels
285 INIT_STRING STR_SHARE,S_SHARE,M_SHARE ;AN000; get new parameters for SHARE
286 DISPLAY_PANEL ;AN000; display SHARE panel
287 ;
288 GET_STRING STR_SHARE,S_SHARE,M_SHARE,FK_TEXT ;AN000; get new parameters for SHARE
289 ;
290 .IF < N_USER_FUNC eq E_ENTER > ;AN000; if user entered ENTER key
291 .THEN ;AN000;
292 COPY_STRING S_SHARE, M_SHARE, S_USER_STRING ;AN000; save new parameters for SHARE
293 PUSH_HEADING SHARE_SCREEN ;AN000; save screen address on SELECT STACK
294 GOTO GRAPHICS_SCREEN ;AN000; goto the next screen (GRAPHICS)
295 .ELSE ;AN000;
296 GOTO PROCESS_ESC_F3 ;AN000; user entered ESC or F3, take action
297 .ENDIF ;AN000;
298 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
299 ;
300 ; ������������������������������������Ŀ
301 ; �GRAPHICS_SCREEN �
302 ; � �
303 ; ��������������������������������������
304 ;
305 ; The GRAPHICS PARAMETERS SCREEN is presented if the user selected to
306 ; install GRAPHICS support and the user wants to view/change parameters.
307 ; Note.The view/change parameters condition is not specified in the May 5, 1987
308 ; Functional Specification.
309 ; The screen gets parameters for the GRAPHICS command.
310 ; Valid keys are ENTER, ESC, F1, F3 and ASCII characters.
311 ; Note.User entered parameter values are not checked for validity.
312 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
313 GRAPHICS_SCREEN: ;AN000;
314 .IF < F_GRAPHICS eq E_GRAPHICS_NO > ;AN000; if GRAPHICS support not required
315 .THEN ;AN000;
316 GOTO EXP_MEMORY_SCREEN ;AN000; goto the next screen (EXPANDED_MEM)
317 .ENDIF ;AN000;
318 ;
319 GET_PRINTER_PARAMS 0, 1, N_RETCODE ;AN000;
320 .IF < N_RETCODE eq 1 > ;AN000;
321 .THEN ;AN000;
322 COPY_STRING S_GRAPHICS,M_GRAPHICS,S_GRAPH_PARM ;AN000;
323 .ENDIF ;AN000;
324 ;
325 INIT_PQUEUE PAN_GRAPHICS ;AN000; initialize queue
326 PREPARE_PANEL PAN_HBAR ;AN000; prepare horizontal bar
327 PREPARE_CHILDREN ;AN000; prepare child panels
328 INIT_STRING STR_GRAPHICS,S_GRAPHICS,M_GRAPHICS ;AN000; get new parameters for GRAPHICS
329 DISPLAY_PANEL ;AN000; display GRAPHICS panel
330 ;
331 GET_STRING STR_GRAPHICS,S_GRAPHICS,M_GRAPHICS,FK_TEXT ;AN000; get new parameters for GRAPHICS
332 ;
333 .IF < N_USER_FUNC eq E_ENTER > ;AN000; if user entered ENTER key
334 .THEN ;AN000;
335 COPY_STRING S_GRAPHICS, M_GRAPHICS, S_USER_STRING ;AN000;save new parameters for GRAPHICS
336 PUSH_HEADING GRAPHICS_SCREEN ;AN000; save screen address on SELECT STACK
337 GOTO EXP_MEMORY_SCREEN ;AN000; goto next screen (EXPANDED_MEMORY)
338 .ELSE ;AN000;
339 GOTO PROCESS_ESC_F3 ;AN000; user entered ESC or F3, take action
340 .ENDIF ;AN000;
341 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
342 ;
343 ; ������������������������������������Ŀ
344 ; �EXP_MEMORY_SCREEN �
345 ; � �
346 ; ��������������������������������������
347 ;
348 ; The EXPANDED MEMORY PARAMETERS SCREEN is presented if the user selected to
349 ; install expanded memory support and the user wants to view/change parameters.
350 ; Note.The view/change parameters condition is not specified in the May 5, 1987
351 ; Functional Specification.
352 ; The screen gets parameters for the XMAEM and XMA2EMS commands.
353 ; The expanded memory commands are only supported if memory above 1000000H
354 ; is available.
355 ; The TAB key is used to move to the next item on the parameter list.
356 ; If the cursor is on the last item in the parameter list, TAB key
357 ; will cause the cursor to wrap around to the first item of the parameter list.
358 ; When the TAB key is depressed, the current parameter value is saved in
359 ; a temporary location. The temporary parameter values are copied to actual
360 ; values only when the ENTER key is depressed.
361 ; Valid keys are ENTER, ESC, F1, F3 and ASCII characters.
362 ; Note.User entered parameter values are not checked for validity.
363 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
364 EXP_MEMORY_SCREEN: ;AN000;
365 .IF < F_XMA eq E_XMA_NO > or ;AN000; if XMA support not required
366 .IF < F_XMA eq E_XMA_NA > or ;AN000; or if XMA not available
367 .IF < I_DEST_DRIVE ne E_DEST_DRIVE_C > ;AC000; or if install to drive B: or A: JW
368 .THEN ;AN000;
369 GOTO VDISK_SCREEN ;AN000; goto the next screen (VDISK)
370 .ENDIF ;AN000;
371 ;
372 COPY_STRING S_STR120_1, M_STR120_1, S_XMAEM ;AN000; copy XMAEM to temp location
373 COPY_STRING S_STR120_2,M_STR120_2,S_XMA2EMS ;AN000; copy XMA2EMS to temp location
374 ;
375 .IF < N_MOD80 eq E_IS_MOD80 > ;AN000; JW
376 .THEN ;AN000; JW
377 INIT_PQUEUE PAN_EXP_MEMORY ;AN000; initialize queue
378 .ELSE ;AN000; JW
379 INIT_PQUEUE PAN_EXP_MEMORY2 ;AN000; initialize queue JW
380 .ENDIF ;AN000; JW
381 ;
382 PREPARE_PANEL PAN_HBAR ;AN000; prepare horizontal bar
383 PREPARE_CHILDREN ;AN000; prepare child panels
384 ;
385 .IF < N_MOD80 eq E_IS_MOD80 > ;AN000; JW
386 .THEN ;AN000; JW
387 INIT_STRING STR_XMAEM,S_STR120_1,M_XMAEM ;AN000; display parameter for XMAEM
388 .ENDIF ;AN000; JW
389 ;
390 INIT_STRING STR_XMA2EMS,S_STR120_2,M_XMA2EMS ;AN000; display XMA2EMS parameters
391 DISPLAY_PANEL ;AN000; display EXPANDED_MEMORY panel
392 ;
393 ;
394 .IF < N_MOD80 eq E_IS_MOD80 > near ;AN000; JW
395 .THEN ;AN000; JW
396 INIT_VAR N_COUNTER,1 ;AN000; set counter = 1
397 ;
398 .REPEAT ;AN000; repeat block of code
399 ;
400 .SELECT ;AN000;
401 ;
402 .WHEN < N_COUNTER eq 1 > near ;AN000;
403 GET_STRING STR_XMAEM,S_STR120_1,M_XMAEM,FK_TAB;AN000; get new parameter for XMAEM
404 COPY_STRING S_STR120_1,M_STR120_1,S_USER_STRING;AN000; save parameter in temp location
405 ;
406 .OTHERWISE ;AN000;
407 GET_STRING STR_XMA2EMS,S_STR120_2,M_XMA2EMS,FK_TAB ;AN000;get new parameter for XMA2EMS
408 COPY_STRING S_STR120_2,M_STR120_2,S_USER_STRING ;AN000; save parameter in temp location
409 ;
410 .ENDSELECT ;AN000;
411 ;
412 INC_VAR N_COUNTER ;AN000;
413 ;
414 .IF < N_COUNTER a 2 > ;AN000;
415 .THEN ;AN000;
416 INIT_VAR N_COUNTER,1 ;AN000;
417 .ENDIF ;AN000;
418 ;
419 .UNTIL < N_USER_FUNC eq E_ENTER > or near ;AN000; break loop if ENTER entered
420 .UNTIL < N_USER_FUNC eq E_ESCAPE > or near ;AN000; or ESCAPE entered
421 .UNTIL < N_USER_FUNC eq E_F3 > near ;AN000; or F3 entered
422 .ELSE ;AN000; JW
423 GET_STRING STR_XMA2EMS,S_STR120_2,M_XMA2EMS,FK_TEXT ;AN000;get new parameter for XMA2EMS JW
424 COPY_STRING S_STR120_2,M_STR120_2,S_USER_STRING ;AN000; save parameter in temp location JW
425 .ENDIF ;AN000; JW
426 ;
427 .IF < N_USER_FUNC eq E_ENTER > ;AN000; if user entered ENTER key
428 .THEN ;AN000;
429 COPY_STRING S_XMAEM, M_XMAEM, S_STR120_1 ;AN000; save new XMAEM parameter
430 COPY_STRING S_XMA2EMS, M_XMA2EMS,S_STR120_2 ;AN000; save new XMA2EMS parameter
431 PUSH_HEADING EXP_MEMORY_SCREEN ;AN000; save screen address on SELECT STACK
432 GOTO VDISK_SCREEN ;AN000; goto next screen (VDISK)
433 .ELSE ;AN000;
434 GOTO PROCESS_ESC_F3 ;AN000; user entered ESC or F3, take action
435 .ENDIF ;AN000;
436 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
437 SELECT ENDS ;AN000;
438 END ;AN000;
The original sources of MS-DOS 1.25, 2.0, and 4.0 for reference purposes