summaryrefslogtreecommitdiff
path: root/v4.0/src/CMD/MODE/MODE.SKL
diff options
context:
space:
mode:
Diffstat (limited to 'v4.0/src/CMD/MODE/MODE.SKL')
-rw-r--r--v4.0/src/CMD/MODE/MODE.SKL193
1 files changed, 193 insertions, 0 deletions
diff --git a/v4.0/src/CMD/MODE/MODE.SKL b/v4.0/src/CMD/MODE/MODE.SKL
new file mode 100644
index 0000000..b93dfc5
--- /dev/null
+++ b/v4.0/src/CMD/MODE/MODE.SKL
@@ -0,0 +1,193 @@
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;
HIC SVNT DRACONES