1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
;��������������������������������� P R O L O G ����������������������������������������ͻ
;� �
; AN001 - P3976: Need to have all pieces of messages in MODE.SKL so have to
; implement the SYSGETMSG method of getting addressability to
; the pieces. This means that the code does a SYSGETMSG call
; which returns a pointer (DS:SI) to the message piece. The
; address is then put in the sublist block for the message
; being issued.
;� �
;��������������������������������� P R O L O G ����������������������������������������ͼ
:util MODE ;AN000;
;AN000;
:class 1 ;AN000;
;AN000;
;:use extend3 ;AN000;
;:use extend15 ;AN000;
;AN000;
:class 2 ;AN000;
;AN000;
;:use parse1 ;AN000;
;:use parse3 ;Invalid switch
;:use parse7 ;AN000;
;:use parse8 ;AN000;
;AN000;
;AN000;
:class A ;Transient messages, all MODE's messages are transient ;AN000;
;AN000;
:use 1 COMMON1 ;"Incorrect DOS Version" ;AN000;
:use 2 extend1 ;AN000;
:def 3 CR,LF,"Must specify COM1, COM2, COM3 or COM4",CR,LF ;AN000;
:def 4 CR,LF,"Resident portion of MODE loaded",CR,LF ;AN000;
:def 5 CR,LF,"Illegal device name",CR,LF ;AN000;
:def 6 CR,LF,"Printer error",CR,LF ;AN000;
:def 7 CR,LF,"LPT%1: set for 80",CR,LF ;AN000;
:def 8 CR,LF,"LPT%1: set for 132",CR,LF ;AN000;
:def 9 CR,LF,"Printer lines per inch set",CR,LF ;AN000;
:def 10 CR,LF,"Invalid baud rate specified",CR,LF ;AN000;
:def 11 CR,LF,"COM%1: %2,%3,%4,%5,%6",CR,LF ;AN000;
; DEVICE - 1, 2, 3 or 4 ;AN000;
; BAUD - 110, 150, 300, 600, 1200, 2400, 4800, 9600 etc. ;AN000;
; PARITY - n, o, e etc ;AN000;
; DATA - 5, 6, 7, or 8 ;AN000;
; STOP - 1, 1.5 or 2 ;AN000;
; P - old retry indication ;AN000;
:def 12 "0123456789" ;AN000;
:def 13 CR,LF,"Do you see the %1? (YES/NO)",CR,LF ;AN000;
;"rightmost 9?" ;goes at the end of "Do you see the" ;AN000;
;"leftmost 0?" ;goes at the end of "Do you see the" ;AN000;
; Fourteen used to be "Invalid parameters", now use message 54 for those cases.
:def 15 "LPT%1: rerouted to COM%2:",CR,LF ;AN000;
:def 16 "LPT%1: not rerouted",CR,LF ;AN000;
:def 17 CR,LF,"%1 retry on parallel printer time-out",CR,LF ;AN000;
; ONE OF THE FOLLOWING TWO WORDS IS INSERTED: ;AN000;
;"No" ;goes before "retry on parallel printer time-out" ;AN000;
;"Infinite" ;goes before "retry on parallel printer time-out" ;AN000;
:def 18 CR,LF," Unable to shift screen %1",CR,LF ;AN000;
;"left" ;goes at the end of "Unable to shift screen" ;AN000;
;"right" ;goes at the end of "Unable to shift screen" ;AN000;
; ;The offending_parameter is determined by parsing logic ;AN000;
:use 19 PARSE10 ;"Invalid parameter - %1",CR,LF ;AN000;
:def 20 CR,LF,"Invalid number of parameters",CR,LF ;AN000;
:def 21 CR,LF,"NET 042: Unable to do requested command",CR,LF ;AN000;
:def 22 CR,LF,"Infinite retry not supported on Network printer",cr,lf ;AN000;
:def 23 CR,LF,"Failure to access code page Font File",CR,LF ;AN000;
;%1 FILLED IN WITH PTR TO DEVICE NAME ;AN000;
:def 24 CR,LF,"Failure to access device: %1",CR,LF ;AN000;
:def 25 CR,LF,"Device or code page missing from font file",CR,LF ;AN000;
:def 26 CR,LF,"Font file contents invalid",CR,LF ;AN000;
:def 27 CR,LF,"Previously prepared code page replaced",CR,LF ;AN000;
:def 28 CR,LF,"Active code page for device %1 is %2",CR,LF ;AN000;
;%1 FILLED IN BY "QUERY" ROUTINE WITH PTR TO DEVICE NAME ;AN000;
;%2 FILLED IN BY "QUERY" ROUTINE WITH CODEPAGE ID ;AN000;
:def 29 CR,LF,"Device %1 not prepared",CR,LF ;AN000;
;FILLED IN BY "QUERY" ROUTINE WITH PTR TO DEVICE NAME ;AN000;
;"hardware" ;used before "codepages:" ;AN000;
;"prepared" ;AN000;
;AN000;
:class B ;nothing special, just too many messages for one class ;AN000;
;AN000;
:def 30 "%1 code pages:",CR,LF ;AN000;
:def 31 " code page %1",CR,LF ;FILLED IN BY "QUERY" ROUTINE WITH CODEPAGE ID ;AN000;
:def 32 CR,LF,"MODE %1 code page function completed",CR,LF ;AN000;
;FILLED IN with one of: ;AN000;
; "Status" ;AN000;
; "Prepare" ;AN000;
; "Select" ;AN000;
; "Refresh" ;AN000;
;AN000;
:def 33 CR,LF,"Current code page settings:",CR,LF ;table header ;AN000;
;AN000;
:def 34 " %1 - %2 code page",CR,LF ;AN000;
;%1 FILLED IN WITH CODEPAGE ID ;AN000;
;%2 FILLED IN TO POINT TO "Selected" or "System". ;AN000;
;AN000;
:def 35 " Code page not prepared",CR,LF ;AN000;
:def 36 "Code page operation not supported on this device",CR,LF ;AN000;
;AN000;
:def 37 "No code page has been SELECTED",CR,LF ;AN000;
;AN000;
:def 38 "Device error during %1",CR,LF ;AN000;
;FILLED IN TO POINT TO: ;AN000;
; "Status" ;AN000;
; "Prepare" ;AN000;
; "Select" ;AN000;
; "Refresh" ;AN000;
; "write of font file to device" ;AN000;
;AN000;
:def 39 "code page not prepared",CR,LF ;AN000;
;AN000;
:def 40 CR,LF,"Current keyboard does not support this code page",CR,LF ;AN000;
;AN000;
:def 41 CR,LF,"Error during read of font file",CR,LF ;AN000;
;AN000;
:def 42 CR,LF,"Unable to perform REFRESH operation",CR,LF ;AN000;
;AN000;
:use 43 COMMON38 ;used for formatting common messages for consistent spacing ;AN000;
;AN000;
:def 44 CR,LF,"Status for device %1:",CR,LF ;header for status reports ;AN000;
;AN000;
:def 45 "------------------" ;first part of underline under "Status for device %1:" ;AN000;
;AN000;
:def 46 "----",CR,LF ;four_char_underline ;AN000;
;AN000;
:def 47 "-----",CR,LF ;five_char_underline ;AN000;
;AN000;
:def 48 "LINES=%1",CR,LF ;AN000;
;AN000;
:def 49 "COLUMNS=%1",CR,LF ;AN000;
;AN000;
:def 50 CR,LF,"RATE and DELAY must be specified together",CR,LF ;AN000;
;AN000;
:def 51 "RATE=%1",CR,LF ;AN000;
;AN000;
:def 52 "DELAY=%1",CR,LF ;AN000;
;AN000;
:def 53 CR,LF,"Function not supported on this computer - %1",CR,LF ;AN000;
;AN000;
:def 54 CR,LF,"Required font not loaded",CR,LF ;AN000;
;AN000;
:def 55 CR,LF,"ANSI.SYS must be installed to perform requested function",CR,LF ;AN000;
;AN000;
:def 56 CR,LF,"Baud rate required",CR,LF ;AN000;
;AN000;
:def 57 "RETRY=%1",CR,LF ;AN000;
;AN000;
:use 58 PARSE9 ;"Syntax error - ???????",CR,LF ;AN000;
;Following are the definitions of pieces of messages.
;AN000;
;SHIFT_MSG - CR,LF,"Do you see the %s? (",YES,"/",NO,")",CR,LF,EOM
:def 59 "rightmost 9",0 ;AN001;RIGHTMOST DB
:def 60 "leftmost 0",0 ;AN001;LEFTMOST DB
;RETPARTO - CR,LF,"%s retry on parallel printer time-out",CR,LF,EOM
:def 61 "No",0 ;AN001;NORETRY DB
:def 62 "Infinite",0 ;AN001;INFINITE DB
;CANT_SHIFT - CR,LF," Unable to shift screen %s",CR,LF,BEEP,EOM
:def 63 "left",0 ;AN001;LEFT DB
:def 64 "right",0 ;AN001;RIGHT DB
;CPMSG8 DB "%S code pages:",CR,LF,EOM
:def 65 "Hardware",0 ;AN001;CPMSG8_HW DB
:def 66 "Prepared",0 ;AN001;CPMSG8_PR DB
;CPMSG10 DB "MODE %S code page function completed",CR,LF,EOM
;CPMSG17 DB "Device error during %S",BEEP,CR,LF,EOM
:def 67 "status",0 ;AN001;CPMSG17_QUERY CPMSG10_QUERY
:def 68 "prepare",0 ;AN001;CPMSG17_PREP CPMSG10_DES
:def 69 "select",0 ;AN001;CPMSG17_ACT CPMSG10_SELECT
:def 70 "refresh",0 ;AN001;CPMSG17_REFRESH CPMSG10_REFRESH
;CPMSG17 DB "Device error during %S",BEEP,CR,LF,EOM
:def 71 "write of font file to device",0 ;AN001;CPMSG17_WRIT
;CPMSG13 DB " %D - %S code page",CR,LF,EOM
:def 72 "selected",0 ;AN001;CPMSG13_ACT
:def 73 "system",0 ;AN001;CPMSG13_SYS
:end ;AN000;
|
