]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/CMD/MODE/MODE.SKL

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