summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/MODE/MODESUBS.INC
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/MODE/MODESUBS.INC')
-rw-r--r--v4.0/src/CMD/MODE/MODESUBS.INC598
1 files changed, 598 insertions, 0 deletions
diff --git a/v4.0/src/CMD/MODE/MODESUBS.INC b/v4.0/src/CMD/MODE/MODESUBS.INC
new file mode 100644
index 0000000..eb0c0a8
--- /dev/null
+++ b/v4.0/src/CMD/MODE/MODESUBS.INC
@@ -0,0 +1,598 @@
1
2;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P R O L O G ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
3;º º
4
5; AX001 - P3976: Need to have all pieces of messages in MODE.SKL so have to
6; implement the SYSGETMSG method of getting addressability to
7; the pieces. This means that the code does a SYSGETMSG call
8; which returns a pointer (DS:SI) to the message piece. The
9; address is then put in the sublist block for the message
10; being issued.
11
12; AC002 - P3258: PS/2 only COM parameters were being allowed on non-PS/2
13; machines. Added checks for baud=19200, parity=mark or space,
14; data=5 or 6, stop=1.5 for both keyword and positional forms
15; in MODEPARSE.ASM. Had to enlarge the possible parm size for
16; "Function not supported on this computer - ?????????????"
17
18;º º
19;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P R O L O G ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
20
21
22;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P U B L I C S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
23;º º
24
25;PUBLICs for the sublists are handled in modemes.asm
26PUBLIC Utility_Msg_Class ;AN001;
27
28;º º
29;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ P U B L I C S ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
30
31
32;
33;*****************************************************************************
34; External data declarations
35;*****************************************************************************
36
37
38
39;
40;*****************************************************************************
41; Message Retriever equates
42;*****************************************************************************
43;
44
45INCLUDE common.stc ;contains the following structure
46
47;sublist_def STRUC
48
49; db ? ;Sublist Length, fixed
50; db ? ;Reserved, not used yet ;AN000;
51; dw ? ;offset
52;sublist_seg dw ? ;segment part of pointer to piece of message
53; db ? ;number of this piece of the message,0 indicates special end of message format ;AN000;
54; db ? ;flags
55; db ? ;maximum field width
56; db ? ;minimum field width
57; db ? ;character to use for padding
58
59;sublist_def ENDS
60
61
62
63INCLUDE modequat.inc ;contains the following two equates for this file
64
65;FLAGS field bit(s) values
66
67;Left_Align equ 0 ;00xxxxxx
68;Right_Align equ 80h ;10xxxxxx
69
70Char_Field_Char equ 0 ;a0000000
71Char_Field_ASCIIZ equ 00010000B ;a0010000
72
73;Unsgn_Bin_Byte equ 11h ;a0010001
74Unsgn_Bin_Word equ 21h ;a0100001
75Unsgn_Bin_DWord equ 31h ;a0110001
76
77Sgn_Bin_Byte equ 12h ;a0010010
78Sgn_Bin_Word equ 22h ;a0100010
79Sgn_Bin_DWord equ 32h ;a0110010
80
81Bin_Hex_Byte equ 13h ;a0010011
82Bin_Hex_Word equ 23h ;a0100011
83Bin_Hex_DWord equ 33h ;a0110011
84
85
86
87Blank equ " "
88No_Function equ 0
89No_Replace equ 0
90
91Msg_Ser_Class equ 0
92Ext_Err_Class equ 1
93Parse_Error_Class equ 2
94Utility_Msg_Class equ 0FFh
95
96Reserved equ 0
97
98Sublist_Length equ TYPE sublist_def
99
100to_be_filled_in EQU 77H ;conspicious number
101
102
103
104;
105;*****************************************************************************
106; Message Sublist Tables
107;*****************************************************************************
108;
109;The following control blocks are used for messages with
110;replaceable paramters. These control blocks are used by the
111;SysDispMsg routine.
112;
113
114;--------------------------- ;
115first_sublist LABEL BYTE
116
117sublist_invalid_switch label byte ;AN000;description of %0
118sublist_invalid_parameter label byte ;AN000;description of %0
119 ;
120 db Sublist_Length ;fixed ;AN000;
121 db Reserved ;not used yet ;AN000;
122offending_parameter_ptr LABEL WORD
123 dw offset offending_parameter ;pointer to string or binary value ;AN000;
124 dw to_be_filled_in ;
125 db 0 ;ID, special end of message format ;AN000;
126sub_typ db Left_Align+char_field_ASCIIZ ;maybe changed ;AN000;
127 db 0 ;Max width 123, 128-"MODE " ;AN000;
128 db 1 ;May be one char long ;AN000;
129 db Blank ; ;AN000;
130;--------------------------- ;
131
132sublist_err1 label byte ;AN000;description of %0
133 ;
134 db Sublist_Length ;fixed ;AN000;
135 db Reserved ;not used yet ;AN000;
136illegal_device_ptr LABEL WORD
137 dw ? ;pointer to device name string filled in by modecom;AN000;
138 dw to_be_filled_in ;
139 db 0 ;ID, special end of message format ;AN000;
140 db Left_Align+char_field_ASCIIZ ; ;AN000;
141 db 5 ;Max width, "LPT1:" ;AN000;
142 db 4 ;"COM3" ;AN000;
143 db Blank ; ;AN000;
144;--------------------------- ;
145Sublist_PT80 label byte ; ;AN000;
146 ;
147 db Sublist_Length ; ;AN000;
148 db Reserved ; ;AN000;
149 dw offset PT80N ;where the printer number is stashed ;AN000;
150 dw to_be_filled_in ; ;AN000;
151 db 1 ;ID, only one sublist ;AN000;
152 db Left_Align+Char_Field_Char ; ;AN000;
153 db 1 ; ;AN000;
154 db 1 ; ;AN000;
155 db Blank ;no filler needed but still have this field to fill
156;--------------------------- ;
157Sublist_PT132 label byte ; ;AN000;
158 ;
159 db Sublist_Length ; ;AN000;
160 db Reserved ; ;AN000;
161 dw offset PT132N ; ;AN000;
162 dw to_be_filled_in ; ;AN000;
163 db 1 ; ;AN000;
164 db Left_Align+Char_Field_Char ; ;AN000;
165 db 1 ; ;AN000;
166 db 1 ; ;AN000;
167 db Blank ; ;AN000;
168;--------------------------- ;
169Sublist_initmsg label byte ;CR,LF,"COM%c: %3s,%c,%c,%c,%c",CR,LF,EOM
170 ;
171 db Sublist_Length ; ;AN000;
172 db Reserved ; ;AN000;
173 dw offset device ; ;AN000;
174 dw to_be_filled_in ; ;AN000;
175 db 1 ;first of 6 ;AN000;
176 db Left_Align+char_field_char ;AN000;
177 db 1 ; ;AN000;
178 db 1 ;one char number between 1 and 4;AN000;
179 db Blank ; ;AN000;
180
181 db Sublist_Length ; ;AN000;
182 db Reserved ; ;AN000;
183pbaud_ptr label byte
184 dw offset pbaud ; ;AN000;
185 dw to_be_filled_in ; ;AN000;
186 db 2 ;second of 6 ;AN000;
187 db Left_Align+char_field_ASCIIZ ;AN000;
188 db 0;RPS ;19200 ;AN000;
189 db 3 ;110, 300 etc the shortest
190 db Blank ; ;AN000;
191
192 db Sublist_Length ; ;AN000;
193 db Reserved ; ;AN000;
194pparity_ptr LABEL BYTE ;allow access from invoke
195 dw offset pparity ; ;AN000;
196 dw to_be_filled_in ; ;AN000;
197 db 3 ;third of 6 ;AN000;
198 db Left_Align+char_field_char ;AN000;
199 db 1 ; ;AN000;
200 db 1 ;one char, n, o, e.
201 db Blank ; ;AN000;
202
203 db Sublist_Length ; ;AN000;
204 db Reserved ; ;AN000;
205 dw offset pdata ; ;AN000;
206 dw to_be_filled_in ; ;AN000;
207 db 4 ;fourth of 6 ;AN000;
208 db Left_Align+char_field_char ;AN000;
209 db 1 ; ;AN000;
210 db 1 ;one char number between 6 and 8;AN000;
211 db blank ;never used, will display at least the default data bits
212
213 db Sublist_Length ; ;AN000;
214 db Reserved ; ;AN000;
215pstop_ptr LABEL BYTE
216 dw offset pstop ; ;AN000;
217 dw to_be_filled_in ; ;AN000;
218 db 5 ;fifth of 6 ;AN000;
219 db Left_Align+char_field_ASCIIZ ;AN000;
220 db 0 ;big enough for "1.5" ;AN000;
221 db 1 ;one char number between 1 and 2;AN000;
222 db Blank ; ;AN000;
223
224 db Sublist_Length ; ;AN000;
225 db Reserved ; ;AN000;
226 dw offset pparm ; ;AN000;
227 dw to_be_filled_in ; ;AN000;
228 db 6 ;last of 6 ;AN000;
229 db Left_Align+char_field_char ;AN000;
230 db 1 ; ;AN000;
231 db 1 ;one char "P" or "-"
232 db Blank ; ;AN000;
233;--------------------------- ;
234Sublist_shift_msg label byte ; ;AN000;
235 ;
236 db Sublist_Length ; ;AN000;
237 db Reserved ; ;AN000;
238lftm_or_rghtm_ptr label word
239;AC001; dw offset leftmost ;filled in with pointer to "leftmost 0?" or "rightmost 9?"
240 dw ? ;AC001;filled in with pointer to "leftmost 0?" or "rightmost 9?"
241 dw to_be_filled_in ; ;AN000;
242 db 1 ;only 1 sub list ;AN000;
243 db Left_Align+char_field_ASCIIZ ;AN000;
244 db 0;RPS ;rightmost 9? ;AN000;
245 db 10 ;leftmost 0? ;AN000;
246 db Blank ; ;AN000;
247;--------------------------- ;
248Sublist_redirmsg label byte ;AN000; CR,LF,"LPT%1: rerouted to COM%2:",CR,LF,EOM
249 ;
250 db Sublist_Length ; ;AN000;
251 db Reserved ; ;AN000;
252 dw Offset REDPT ;filled with printer number
253 dw to_be_filled_in
254 db 1 ;first of 2 ;AN000;
255 db Left_Align+char_field_char ; ;AN000;
256 db 1 ; ;AN000;
257 db 1
258 db Blank ; ;AN000;
259
260 db Sublist_Length ; ;AN000;
261 db Reserved ; ;AN000;
262 dw Offset REDCOM ;filled with COM port number
263 dw to_be_filled_in
264 db 2 ;second of 2 ;AN000;
265 db Left_Align+char_field_char ; ;AN000;
266 db 1 ; ;AN000;
267 db 1
268 db Blank ; ;AN000;
269
270;--------------------------- ;
271Sublist_notremsg label byte ;AN000; CR,LF,"LPT%1: not rerouted",CR,LF,EOM
272 ;
273 db Sublist_Length ; ;AN000;
274 db Reserved ; ;AN000;
275 dw Offset NOTREDPT ;filled with printer number
276 dw to_be_filled_in
277 db 1 ;only one
278 db Left_Align+char_field_char ; ;AN000;
279 db 1 ; ;AN000;
280 db 1
281 db Blank ; ;AN000;
282
283;--------------------------- ;
284Sublist_retparto label byte ; ;AN000;
285 ;
286 db Sublist_Length ; ;AN000;
287 db Reserved ; ;AN000;
288;AC001;inf_or_no_ptr LABEL WORD ;filled in with pointer to "No" or "infinit"
289;AC001; dw offset infinite ; ;AN000;
290 dw ? ;AC001;filled in with pointer to "No" or "infinit"
291 dw to_be_filled_in ; ;AN000;
292 db 1 ; ;AN000;
293 db Left_Align+Char_Field_ASCIIZ ;AN000;
294 db 0;RPS ; ;AN000;
295 db 2 ; ;AN000;
296 db Blank ; ;AN000;
297;--------------------------- ;
298Sublist_cant_shift label byte ;"Unable to shift screen ...." ;AN000;
299 ;
300 db Sublist_Length ; ;AN000;
301 db Reserved ; ;AN000;
302LEFT_OR_RIGHT_PTR LABEL WORD ;AN000;
303;AC001; dw offset left ;FILLED WITH OFFSET OF 'left' or 'right'
304 dw ? ;AC001;FILLED WITH OFFSET OF 'left' or 'right'
305 dw to_be_filled_in ; ;AN000;
306 db 1 ; ;AN000;
307 db Left_Align+Char_Field_ASCIIZ ;AN000;
308 db 0;RPS ; ;AN000;
309 db 4 ; ;AN000;
310 db Blank ; ;AN000;
311;--------------------------- ;
312Sublist_CPMSG2 label byte ; ;AN000;
313 ;
314 db Sublist_Length ; ;AN000;
315 db Reserved ; ;AN000;
316CPMSGLST2DEV LABEL WORD ;filled with pointer to device name
317 dw ?
318 dw to_be_filled_in ; ;AN000;
319 db 1 ; ;AN000;
320 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
321 db 0 ; ;AN000;
322 db 3 ; ;AN000;
323 db Blank ; ;AN000;
324
325;--------------------------- ;
326Sublist_CPMSG6 label byte ;"Active codepage for device %S is %D",CR,LF,EOM
327 ;
328 db Sublist_Length ; ;AN000;
329 db Reserved ; ;AN000;
330CPMSGLST6DEV LABEL WORD ;filled with pointer to device name
331 dw ?
332 dw to_be_filled_in ; ;AN000;
333 db 1 ; ;AN000;
334 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
335 db 0 ; ;AN000;
336 db 3 ; ;AN000;
337 db Blank ; ;AN000;
338
339 db Sublist_Length ; ;AN000;
340 db Reserved ; ;AN000;
341 dw OFFSET CPMSGLST6CP ;pointer to area FILLED IN BY "QUERY" ROUTINE WITH CODEPAGE ID
342 dw to_be_filled_in ; ;AN000;
343 db 2 ;2nd of 2 ;AN000;
344 db Left_Align+Unsgn_Bin_Word ;AN000;00100001B
345 db 5 ;codepage numbers could be 5 digits long
346 db 1 ;theoretically could be 1 digit ;AN000;
347 db Blank ; ;AN000;
348
349;--------------------------- ;
350Sublist_CPMSG7 label byte ;"Device %1 not prepared",CR,LF,EOM
351 ;
352 db Sublist_Length ; ;AN000;
353 db Reserved ; ;AN000;
354CPMSGLST7DEV LABEL WORD ;FILLED IN BY "QUERY" ROUTINE WITH PTR TO DEVICE NAME
355 dw ?
356 dw to_be_filled_in ; ;AN000;
357 db 1 ; ;AN000;
358 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
359 db 0 ;don't know how long the device name
360 db 3 ; ;AN000;
361 db Blank ; ;AN000;
362
363;--------------------------- ;
364Sublist_CPMSG8 label byte ;"%1 codepages:",CR,LF,EOM
365 ;
366 db Sublist_Length ; ;AN000;
367 db Reserved ; ;AN000;
368 dw ? ;filled in with OFFSET TO "HARDWARE" OR "PREPARED"
369 dw to_be_filled_in ; ;AN000;
370 db 1 ; ;AN000;
371 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
372 db 0;RPS ; both "Hardware" and ;AC001;
373 db 8 ; "Prepared" are 8 chars long ;AC001;
374 db Blank ; ;AN000;
375
376
377;--------------------------- ;
378Sublist_CPMSG9 label byte ;" Codepage %d",CR,LF,EOM
379
380 db Sublist_Length ; ;AN000;
381 db Reserved ; ;AN000;
382 dw OFFSET CPMSGLST9CP ;pointer to area filled in by "DISPLAY_CPID" in modecp.sal
383 dw to_be_filled_in ; ;AN000;
384 db 1 ; ;AN000;
385 db Left_Align+Unsgn_Bin_Word ;00100001B
386 db 3
387 db 3 ; ;AN000;
388 db Blank ; ;AN000;
389
390;--------------------------- ;
391Sublist_CPMSG10 label byte ;"MODE %1 Codepage function completed",CR,LF,EOM
392 db Sublist_Length ; ;AN000;
393 db Reserved ; ;AN000;
394 dw ? ;;FILLED IN TO POINT TO:
395 ; "Status",EOM
396 ; "Prepare",EOM
397 ; "Select",EOM
398 ; "Refresh",EOM
399 ; "Global",EOM
400 dw to_be_filled_in ; ;AN000;
401 db 1 ; ;AN000;
402 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
403 db 0;RPS
404 db 5 ; ;AN000;
405 db Blank ; ;AN000;
406
407;--------------------------- ;
408Sublist_CPMSG13 label byte ;" %D - %S Codepage",CR,LF,EOM
409 ;
410 db Sublist_Length ; ;AN000;
411 db Reserved ; ;AN000;
412CPMSGLST13CP LABEL WORD ;FILLED IN WITH CODEPAGE ID
413 dw ?
414 dw to_be_filled_in ; ;AN000;
415 db 1 ; ;AN000;
416 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
417 db 0;RPS ; ;AN000;
418 db 3 ; ;AN000;
419 db Blank ; ;AN000;
420
421 db Sublist_Length ; ;AN000;
422 db Reserved ; ;AN000;
423CPMSGLST13TYP LABEL WORD ;FILLED IN TO POINT TO:
424 ; "Selected",EOM
425 ; "System",EOM
426 dw ?
427 dw to_be_filled_in ; ;AN000;
428 db 2 ;2nd of 2 ;AN000;
429 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
430 db 0;RPS ;all codepage numbers are 3 chars long
431 db 6 ; ;AN000;
432 db Blank ; ;AN000;
433
434
435;--------------------------- ;
436Sublist_CPMSG17 label byte ;"Device error during %1",BEEP,CR,LF,EOM
437 db Sublist_Length ; ;AN000;
438 db Reserved ; ;AN000;
439 dw ? ;;FILLED IN TO POINT TO:
440 ; "Status",EOM
441 ; "Prepare",EOM
442 ; "Select",EOM
443 ; "Refresh",EOM
444 ; "write of font file to device",EOM
445 dw to_be_filled_in
446 db 1 ; ;AN000;
447 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
448 db 0;RPS ;"write of font file to device",EOM
449 db 6 ;"Status",EOM
450 db Blank ; ;AN000;
451
452
453;--------------------------- ;
454Sublist_LINES_equal label byte ;"LINES=%1",CR,LF,EOM
455 db Sublist_Length ; ;AN000;
456 db Reserved ; ;AN000;
457ROW_PTR LABEL WORD ;FILLED IN TO POINT TO: "NONE", or a row value
458 dw ? ;
459 dw to_be_filled_in ;filled in at initialization time with PRINTF_CODE
460 db 1 ; ;AN000;
461row_type db Right_Align+Char_Field_ASCIIZ ; ;AN000;
462 db 0;RPS ;"NONE"
463 db 2 ;25, 43, 50 ;AN000;
464 DB blank
465
466;--------------------------- ;
467Sublist_COLUMNS_equal label byte ;"COLUMNS=%1",CR,LF,EOM
468 db Sublist_Length ; ;AN000;
469 db Reserved ; ;AN000;
470COLUMNS_PTR LABEL WORD ;FILLED IN TO POINT TO: "NONE", or a columns value
471 dw ? ;
472 dw to_be_filled_in ; ;AN000;
473 db 1 ; ;AN000;
474COLUMNS_type db Right_Align+Char_Field_ASCIIZ ; ;AN000;
475 db 0;RPS
476 db 2 ; ;AN000;
477 DB blank
478;--------------------------- ;
479Sublist_RATE_equal label byte ;"RATE=%1",CR,LF,EOM
480 db Sublist_Length ; ;AN000;
481 db Reserved ; ;AN000;
482RATE_PTR LABEL WORD ;FILLED IN TO POINT TO: "NONE", or a rate value
483 dw ? ;
484 dw to_be_filled_in ; ;AN000;
485 db 1 ; ;AN000;
486RATE_type db Right_Align+Char_Field_ASCIIZ ; ;AN000;
487 db 0;RPS
488 db 2 ; ;AN000;
489 DB blank
490;--------------------------- ;
491Sublist_DELAY_equal label byte ;"DELAY=%1",CR,LF,EOM
492 db Sublist_Length ; ;AN000;
493 db Reserved ; ;AN000;
494DELAY_PTR LABEL WORD ;FILLED IN TO POINT TO: "NONE", or a delay value
495 dw ? ;
496 dw to_be_filled_in ; ;AN000;
497 db 1 ; ;AN000;
498DELAY_type db Right_Align+Char_Field_ASCIIZ ; ;AN000;
499 db 0;RPS
500 db 1 ; ;AN000;
501 DB blank
502;--------------------------- ;
503Sublist_not_supported label byte ;"Function not supported on this computer -%1"
504 db Sublist_Length ; ;AN000;
505 db Reserved ; ;AN000;
506not_supported_PTR LABEL WORD ;FILLED IN TO POINT TO: the parameter that is not supported
507 dw OFFSET nada ;
508 dw to_be_filled_in ;filled with segment of the .COM file ;AN000;
509 db 1 ; ;AN000;
510 db Left_Align+Char_Field_ASCIIZ ; ;AN000;
511 db 0;RPS ;AC002;maximum length of the string
512 db 1 ; ;AN000;
513 DB blank
514;--------------------------- ;
515Sublist_status_for_device label byte ;"Status for device %1:"
516 db Sublist_Length ; ;AN000;
517 db Reserved ; ;AN000;
518stat_dev_ptr LABEL WORD ;FILLED IN TO POINT TO ONE of the device names in parse.asm
519 dw ? ;
520 dw to_be_filled_in ; ;AN000;
521 db 1 ; ;AN000;
522 db Right_Align+Char_Field_ASCIIZ ; ;AN000;
523dev_name_size db 4 ;changed by invoke: 3 for CON, 4 for others
524 db 3 ; ;AN000;
525 db Blank ; ;AN000;
526
527;--------------------------- ;
528
529Sublist_retry_equal label byte ;"RETRY=%1"
530 db Sublist_Length ; ;AN000;
531 db Reserved ; ;AN000;
532retry_type_ptr LABEL BYTE
533 dw ? ;
534 dw to_be_filled_in ; ;AN000;
535 db 1 ; ;AN000;
536 db Right_Align+Char_Field_ASCIIZ ; ;AN000;
537 db 0;RPS ;max size, "NONE"
538 db 1 ;min size, "E" ;AN000;
539 db Blank ; ;AN000;
540
541;--------------------------- ;
542sublist_syntax_error label byte ;AN000;description of %0
543 ;
544 db Sublist_Length ;fixed ;AN000;
545 db Reserved ;not used yet ;AN000;
546syntax_error_ptr LABEL WORD
547 dw offset offending_parameter ;pointer to string or binary value ;AN000;
548 dw to_be_filled_in ;
549 db 0 ;ID, special end of message format ;AN000;
550 db Left_Align+char_field_ASCIIZ ;AN000;
551 db 0 ;Max width 123, 128-"MODE " ;AN000;
552 db 1 ;May be one char long ;AN000;
553 db Blank ; ;AN000;
554
555
556
557
558
559
560
561Number_of_sublists EQU (($ - first_sublist) / (TYPE sublist_def))
562
563
564
565; MESSAGE PIECES
566;-------------------------------------------------------
567
568PT80N DB " " ;PT80 - CR,LF,"LPT%c: set for 80",CR,LF,EOM
569
570PT132N DB " " ;PT132 - CR,LF,"LPT%c: set for 132",CR,LF,EOM
571
572;INITMSG - CR,LF,"COM%c: %3s,%c,%c,%c,%c",CR,LF,EOM
573DEVICE DB " "
574pBAUD DB 5 DUP(" "),EOM
575pPARITY DB "e" ;DEFAULT IS EVEN PARITY
576pDATA DB "7" ;DEFAULT IS 7 DATA BITS PER BYTE
577pSTOP DB "1",EOM ;DEFAULT FOR BAUD > 110, CHANGED TO 2 FOR 110
578Pparm DB " "
579baud_19200 DB "19200",EOM
580
581;REDIRMSG - CR,LF,"LPT%c: rerouted to COM%c:",CR,LF,EOM
582REDPT DB " "
583REDCOM DB " "
584
585;NOTREMSG - CR,LF,"LPT%c: not rerouted",CR,LF,EOM
586NOTREDPT DB " "
587
588OFFENDING_PARAMETER DB 123 DUP (EOM)
589
590nada DB 8,8,8," ",0 ;backspace over the " - "
591
592CPMSGLST6CP DW 44H ;AC665;FILLED IN BY "QUERY" ROUTINE WITH CODEPAGE ID
593
594
595CPMSGLST9CP DW 99H ;FILLED IN BY "QUERY" ROUTINE WITH CODEPAGE ID
596
597
598row_value DB ? ;filled in by invoke.asm with screen lines requested or current setting
HIC SVNT DRACONES