summaryrefslogtreecommitdiff
path: root/v4.0/src/DEV/KEYBOARD/KDFIT142.ASM
diff options
context:
space:
mode:
authorGravatar Mark Zbikowski2024-04-25 21:24:10 +0100
committerGravatar Microsoft Open Source2024-04-25 22:32:27 +0000
commit2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch)
tree80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/DEV/KEYBOARD/KDFIT142.ASM
parentMerge pull request #430 from jpbaltazar/typoptbr (diff)
downloadms-dos-main.tar.gz
ms-dos-main.tar.xz
ms-dos-main.zip
MZ is back!HEADmain
Diffstat (limited to 'v4.0/src/DEV/KEYBOARD/KDFIT142.ASM')
-rw-r--r--v4.0/src/DEV/KEYBOARD/KDFIT142.ASM864
1 files changed, 864 insertions, 0 deletions
diff --git a/v4.0/src/DEV/KEYBOARD/KDFIT142.ASM b/v4.0/src/DEV/KEYBOARD/KDFIT142.ASM
new file mode 100644
index 0000000..7b07247
--- /dev/null
+++ b/v4.0/src/DEV/KEYBOARD/KDFIT142.ASM
@@ -0,0 +1,864 @@
1
2
3
4
5 PAGE ,132
6 TITLE DOS - Keyboard Definition File
7
8;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
9;; DOS - - NLS Support - Keyboard Defintion File
10;; (c) Copyright 1988 Microsoft
11;;
12;; This file contains the keyboard tables for Spanish.
13;;
14;; Linkage Instructions:
15;; Refer to KDF.ASM.
16;;
17;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18 ;;
19 INCLUDE KEYBSHAR.INC ;; ;AN000;
20 INCLUDE POSTEQU.INC ;; ;AN000;
21 INCLUDE KEYBMAC.INC ;; ;AN000;
22 ;; ;AN000;
23 PUBLIC IT1_LOGIC ;; ;AN000;
24 PUBLIC IT1_437_XLAT ;; ;AN000;
25 PUBLIC IT1_850_XLAT ;; ;AN000;
26 ;; ;AN000;
27CODE SEGMENT PUBLIC 'CODE' ;; ;AN000;
28 ASSUME CS:CODE,DS:CODE ;; ;AN000;
29 ;; ;AN000;
30;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
31;; Standard translate table options are a liner search table ;AN000;
32;; (TYPE_2_TAB) and ASCII entries ONLY (ASCII_ONLY) ;AN000;
33;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
34 ;; ;AN000;
35STANDARD_TABLE EQU TYPE_2_TAB+ASCII_ONLY ;AN000;
36 ;; ;AN000;
37;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
38;;*************************************** ;AN000;
39;; IT State Logic ;AN000;
40;;*************************************** ;AN000;
41;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
42 ;; ;AN000;
43 ;; ;AN000;
44IT1_LOGIC: ;AN000;
45 ;AN000;
46 DW LOGIC_END-$ ;; length ;AN000;
47 ;; ;AN000;
48 DW 0 ;; special features ;AN000;
49 ;; ;AN000;
50 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; COMMANDS START HERE ;AN000;
51 ;; ;AN000;
52;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
53;; OPTIONS: If we find a scan match in ;AN000;
54;; an XLATT or SET_FLAG operation then ;AN000;
55;; exit from INT 9. ;AN000;
56;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
57 ;; ;AN000;
58 OPTION EXIT_IF_FOUND ;; ;AN000;
59 ;; ;AN000;
60 ;; ;AN000;
61;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
62;; Dead key definitions must come before ;AN000;
63;; dead key translations to handle ;AN000;
64;; dead key + dead key. ;AN000;
65;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
66 ;; ;AN000;
67 IFF EITHER_ALT,NOT ;; ;AN000;
68 ANDF EITHER_CTL,NOT ;; ;AN000;
69 IFF EITHER_SHIFT ;; ;AN000;
70 SET_FLAG DEAD_UPPER ;; ;AN000;
71 ELSEF ;; ;AN000;
72 SET_FLAG DEAD_LOWER ;; ;AN000;
73 ENDIFF ;; ;AN000;
74 ENDIFF ;; ;AN000;
75 ;; ;AN000;
76;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
77;; ACUTE ACCENT TRANSLATIONS ;AN000;
78;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
79 ;; ;AN000;
80ACUTE_PROC: ;; ;AN000;
81 ;; ;AN000;
82 IFF ACUTE,NOT ;; ;AN000;
83 GOTO DIARESIS_PROC ;; ;AN000;
84 ENDIFF ;; ;AN000;
85 ;; ;AN000;
86 RESET_NLS ;; ;AN000;
87 IFF R_ALT_SHIFT,NOT ;; ;AN000;
88 XLATT ACUTE_SPACE ;; ;AN000;
89 ENDIFF ;; ;AN000;
90 IFF EITHER_CTL,NOT ;; ;AN000;
91 ANDF EITHER_ALT,NOT ;; ;AN000;
92 IFF EITHER_SHIFT ;; ;AN000;
93 IFF CAPS_STATE ;; ;AN000;
94 XLATT ACUTE_LOWER ;; ;AN000;
95 ELSEF ;; ;AN000;
96 XLATT ACUTE_UPPER ;; ;AN000;
97 ENDIFF ;; ;AN000;
98 ELSEF ;; ;AN000;
99 IFF CAPS_STATE ;; ;AN000;
100 XLATT ACUTE_UPPER ;; ;AN000;
101 ELSEF ;; ;AN000;
102 XLATT ACUTE_LOWER ;; ;AN000;
103 ENDIFF ;; ;AN000;
104 ENDIFF ;; ;AN000;
105 ENDIFF ;; ;AN000;
106 ;; ;AN000;
107INVALID_ACUTE: ;; ;AN000;
108 PUT_ERROR_CHAR ACUTE_LOWER ;; If we get here then either the XLATT ;AN000;
109 BEEP ;; failed or we are ina bad shift state. ;AN000;
110 GOTO NON_DEAD ;; Either is invalid so BEEP and fall ;AN000;
111 ;; through to generate the second char. ;AN000;
112 ;; Note that the dead key flag will be ;AN000;
113 ;; reset before we get here. ;AN000;
114 ;; ;AN000;
115;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
116;; DIARESIS ACCENT TRANSLATIONS ;AN000;
117;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
118 ;; ;AN000;
119DIARESIS_PROC: ;; ;AN000;
120 ;; ;AN000;
121 IFF DIARESIS,NOT ;; ;AN000;
122 GOTO GRAVE_PROC ;; ;AN000;
123 ENDIFF ;; ;AN000;
124 ;; ;AN000;
125 RESET_NLS ;; ;AN000;
126 IFF R_ALT_SHIFT,NOT ;; ;AN000;
127 XLATT DIARESIS_SPACE ;; exist for 437 so beep for ;AN000;
128 ENDIFF ;; ;AN000;
129 IFF EITHER_CTL,NOT ;; ;AN000;
130 ANDF EITHER_ALT,NOT ;; ;AN000;
131 IFF EITHER_SHIFT ;; ;AN000;
132 IFF CAPS_STATE ;; ;AN000;
133 XLATT DIARESIS_LOWER ;; ;AN000;
134 ELSEF ;; ;AN000;
135 XLATT DIARESIS_UPPER ;; ;AN000;
136 ENDIFF ;; ;AN000;
137 ELSEF ;; ;AN000;
138 IFF CAPS_STATE ;; ;AN000;
139 XLATT DIARESIS_UPPER ;; ;AN000;
140 ELSEF ;; ;AN000;
141 XLATT DIARESIS_LOWER ;; ;AN000;
142 ENDIFF ;; ;AN000;
143 ENDIFF ;; ;AN000;
144 ENDIFF ;; ;AN000;
145 ;; ;AN000;
146INVALID_DIARESIS: ;; ;AN000;
147 PUT_ERROR_CHAR DIARESIS_SPACE ;; standalone accent ;AN000;
148 BEEP ;; Invalid dead key combo. ;AN000;
149 GOTO NON_DEAD ;; ;AN000;
150 ;; ;AN000;
151;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
152;; GRAVE ACCENT TRANSLATIONS ;AN000;
153;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
154 ;; ;AN000;
155GRAVE_PROC: ;; ;AN000;
156 ;; ;AN000;
157 IFF GRAVE,NOT ;; ;AN000;
158 GOTO CIRCUMFLEX_PROC ;; ;AN000;
159 ENDIFF ;; ;AN000;
160 ;; ;AN000;
161 RESET_NLS ;; ;AN000;
162 IFF R_ALT_SHIFT,NOT ;; ;AN000;
163 XLATT GRAVE_SPACE ;; ;AN000;
164 ENDIFF ;; ;AN000;
165 IFF EITHER_CTL,NOT ;; ;AN000;
166 ANDF EITHER_ALT,NOT ;; ;AN000;
167 IFF EITHER_SHIFT ;; ;AN000;
168 IFF CAPS_STATE ;; ;AN000;
169 XLATT GRAVE_LOWER ;; ;AN000;
170 ELSEF ;; ;AN000;
171 XLATT GRAVE_UPPER ;; ;AN000;
172 ENDIFF ;; ;AN000;
173 ELSEF ;; ;AN000;
174 IFF CAPS_STATE,NOT ;; ;AN000;
175 XLATT GRAVE_LOWER ;; ;AN000;
176 ELSEF ;; ;AN000;
177 XLATT GRAVE_UPPER ;; ;AN000;
178 ENDIFF ;; ;AN000;
179 ENDIFF ;; ;AN000;
180 ENDIFF ;; ;AN000;
181 ;; ;AN000;
182INVALID_GRAVE: ;; ;AN000;
183 PUT_ERROR_CHAR GRAVE_LOWER ;; standalone accent ;AN000;
184 BEEP ;; Invalid dead key combo. ;AN000;
185 GOTO NON_DEAD ;; ;AN000;
186 ;; ;AN000;
187;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
188;; CIRCUMFLEX ACCENT TRANSLATIONS ;AN000;
189;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
190 ;; ;AN000;
191CIRCUMFLEX_PROC: ;; ;AN000;
192 ;; ;AN000;
193 IFF CIRCUMFLEX,NOT ;; ;AN000;
194 GOTO NON_DEAD ;; ;AN000;
195 ENDIFF ;; ;AN000;
196 ;; ;AN000;
197 RESET_NLS ;; ;AN000;
198 IFF R_ALT_SHIFT,NOT ;; ;AN000;
199 XLATT CIRCUMFLEX_SPACE ;; ;AN000;
200 ENDIFF ;; ;AN000;
201 IFF EITHER_CTL,NOT ;; ;AN000;
202 ANDF EITHER_ALT,NOT ;; ;AN000;
203 IFF EITHER_SHIFT ;; ;AN000;
204 IFF CAPS_STATE ;; ;AN000;
205 XLATT CIRCUMFLEX_LOWER ;; ;AN000;
206 ELSEF ;; ;AN000;
207 XLATT CIRCUMFLEX_UPPER ;; ;AN000;
208 ENDIFF ;; ;AN000;
209 ELSEF ;; ;AN000;
210 IFF CAPS_STATE,NOT ;; ;AN000;
211 XLATT CIRCUMFLEX_LOWER ;; ;AN000;
212 ELSEF ;; ;AN000;
213 XLATT CIRCUMFLEX_UPPER ;; ;AN000;
214 ENDIFF ;; ;AN000;
215 ENDIFF ;; ;AN000;
216 ENDIFF ;; ;AN000;
217 ;; ;AN000;
218INVALID_CIRCUMFLEX: ;; ;AN000;
219 PUT_ERROR_CHAR CIRCUMFLEX_LOWER ;; standalone accent ;AN000;
220 BEEP ;; Invalid dead key combo. ;AN000;
221 GOTO NON_DEAD ;; ;AN000;
222 ;; ;AN000;
223 ;; ;AN000;
224;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
225;; Upper, lower and third shifts ;AN000;
226;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
227 ;; ;AN000;
228NON_DEAD: ;; ;AN000;
229 ;; ;AN000;
230 IFKBD G_KB+P12_KB ;; Avoid accidentally translating ;AN000;
231 ANDF LC_E0 ;; the "/" on the numeric pad of the ;AN000;
232 EXIT_STATE_LOGIC ;; G keyboard ;AN000;
233 ENDIFF ;; ;AN000;
234;;***BD ADDED FOR ALT, CTRL CASES ;; ;AN000;
235 IFF EITHER_CTL,NOT ;; ;AN000;
236 IFF ALT_SHIFT ;; ALT - case ;AN000;
237 ANDF R_ALT_SHIFT,NOT ;; ;AN000;
238 XLATT ALT_CASE ;; ;AN000;
239 ENDIFF ;; ;AN000;
240 ELSEF ;; ;AN000;
241 IFF EITHER_ALT,NOT ;; CTRL - case ;AN000;
242 XLATT CTRL_CASE ;; ;AN000;
243 ENDIFF ;; ;AN000;
244 ENDIFF ;; ;AN000;
245;;***BD END OF ADDITION ;AN000;
246 ;; ;AN000;
247 IFF EITHER_ALT,NOT ;; Lower and upper case. Alphabetic ;AN000;
248 ANDF EITHER_CTL,NOT ;; keys are affected by CAPS LOCK. ;AN000;
249 IFF EITHER_SHIFT ;; Numeric keys are not. ;AN000;
250;;***BD ADDED FOR NUMERIC PAD ;AN000;
251 IFF NUM_STATE,NOT ;; ;AN000;
252 XLATT NUMERIC_PAD ;; ;AN000;
253 ENDIFF ;; ;AN000;
254;;***BD END OF ADDITION ;AN000;
255 XLATT NON_ALPHA_UPPER ;; ;AN000;
256 IFF CAPS_STATE ;; ;AN000;
257 XLATT ALPHA_LOWER ;; ;AN000;
258 ELSEF ;; ;AN000;
259 XLATT ALPHA_UPPER ;; ;AN000;
260 ENDIFF ;; ;AN000;
261 ELSEF ;; ;AN000;
262;;***BD ADDED FOR NUMERIC PAD ;AN000;
263 IFF NUM_STATE ;; ;AN000;
264 XLATT NUMERIC_PAD ;; ;AN000;
265 ENDIFF ;; ;AN000;
266;;***BD END OF ADDITION ;AN000;
267 XLATT NON_ALPHA_LOWER ;; ;AN000;
268 IFF CAPS_STATE ;; ;AN000;
269 XLATT ALPHA_UPPER ;; ;AN000;
270 ELSEF ;; ;AN000;
271 XLATT ALPHA_LOWER ;; ;AN000;
272 ENDIFF ;; ;AN000;
273 ENDIFF ;; ;AN000;
274 ELSEF ;; ;AN000;
275 IFF EITHER_SHIFT,NOT ;; ;AN000;
276 IFKBD XT_KB+AT_KB ;; ;AN000;
277 IFF EITHER_CTL ;; ;AN000;
278 ANDF ALT_SHIFT ;; ;AN000;
279 XLATT THIRD_SHIFT ;; ;AN000;
280 ENDIFF ;; ;AN000;
281 ELSEF ;; ;AN000;
282 IFF EITHER_CTL,NOT ;; ;AN000;
283 ANDF R_ALT_SHIFT ;; ;AN000;
284 XLATT THIRD_SHIFT ;; ;AN000;
285 ENDIFF ;; ;AN000;
286 ENDIFF ;; ;AN000;
287 ENDIFF ;; ;AN000;
288 ENDIFF ;; ;AN000;
289 ;; ;AN000;
290 EXIT_STATE_LOGIC ;; ;AN000;
291 ;; ;AN000;
292LOGIC_END: ;; ;AN000;
293 ;; ;AN000;
294 ;; ;AN000;
295;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
296;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
297;;;*************************************** ;AN000;
298;; IT Common Translate Section ;AN000;
299;; This section contains translations for the lower 128 characters ;AN000;
300;; only since these will never change from code page to code page. ;AN000;
301;; In addition the dead key "Set Flag" tables are here since the ;AN000;
302;; dead keys are on the same keytops for all code pages. ;AN000;
303;;*************************************** ;AN000;
304;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
305 ;; ;AN000;
306 PUBLIC IT1_COMMON_XLAT ;; ;AN000;
307IT1_COMMON_XLAT: ;; ;AN000;
308 ;; ;AN000;
309 DW COMMON_XLAT_END-$ ;; length of section ;AN000;
310 DW -1 ;; code page ;AN000;
311 ;; ;AN000;
312 ;; ;AN000;
313;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
314;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
315;; CODE PAGE: Common ;AN000;
316;; STATE: Upper Shift Dead Key ;AN000;
317;; KEYBOARD TYPES: G + P12 ;AN000;
318;; TABLE TYPE: Flag Table ;AN000;
319;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
320;; ;; ;AN000;
321;; DW COM_DK_UP_K1_END-$ ;; length of state section ;AN000;
322;; DB DEAD_UPPER ;; State ID ;AN000;
323;; DW G_KB+P12_KB ;; Keyboard Type ;AN000;
324;; DB -1,-1 ;; Buffer entry for error character ;AN000;
325;; ;; Set Flag Table ;AN000;
326;; DW 1 ;; number of entries ;AN000;
327;; DB 13 ;; scan code ;AN000;
328;; FLAG CIRCUMFLEX ;; flag bit to set ;AN000;
329;; ;; ;AN000;
330;;COM_DK_UP_K1_END: ;; ;AN000;
331;; ;; ;AN000;
332;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
333;;*************************************** ;AN000;
334;;***BD - ADDED FOR ALT CASE ;AN000;
335;;****************************** ;AN000;
336;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
337;; CODE PAGE: Common ;AN000;
338;; STATE: Alt Case ;AN000;
339;; KEYBOARD TYPES: All ;AN000;
340;; TABLE TYPE: Translate ;AN000;
341;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
342 ;; ;AN000;
343 DW COM_ALT_K1_END-$ ;; length of state section ;AN000;
344 DB ALT_CASE ;; State ID ;AN000;
345 DW ANY_KB ;; Keyboard Type ;AN000;
346 DB -1,-1 ;; Buffer entry for error character ;AN000;
347 ;; ;AN000;
348 DW COM_ALT_K1_T1_END-$ ;; Size of xlat table ;AN000;
349 DB TYPE_2_TAB ;; xlat options: ;AN000;
350 DB 0 ;; 3 number of entries ;AN000;
351;;***BD THIS ENTRY IS A TEST ENTRY ;AN000;
352;; DB 53,225,0 ;; TEST ENTRY ;AN000;
353; DB 53,0,82H ;; valid alt - ;AN000;
354; DB 12,-1,-1 ;; invalid alt - ;AN000;
355; DB 13,-1,-1 ;; invalid alt = ;AN000;
356COM_ALT_K1_T1_END: ;; ;AN000;
357 ;; ;AN000;
358 DW 0 ;; Size of xlat table - null table ;AN000;
359 ;; ;AN000;
360COM_ALT_K1_END: ;; ;AN000;
361 ;; ;AN000;
362;;****************************** ;AN000;
363;;***BD - ADDED FOR CTRL CASE ;AN000;
364;;****************************** ;AN000;
365;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
366;; CODE PAGE: Common ;AN000;
367;; STATE: Ctrl Case ;AN000;
368;; KEYBOARD TYPES: G_KB+P12_KB+AT ;AN000;
369;; TABLE TYPE: Translate ;AN000;
370;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
371 ;; ;AN000;
372 DW COM_CTRL_K1_END-$ ;; length of state section ;AN000;
373 DB CTRL_CASE ;; State ID ;AN000;
374 DW G_KB+P12_KB+AT_KB ;; Keyboard Type ;AN000;
375 DB -1,-1 ;; Buffer entry for error character ;AN000;
376 ;; ;AN000;
377 DW COM_CTRL_K1_T1_END-$ ;; Size of xlat table ;AN000;
378 DB TYPE_2_TAB ;; xlat options: ;AN000;
379 DB 2 ;; number of entries ;AN000;
380;;***BD THIS ENTRY IS A TEST ENTRY ;AN000;
381;; DB 53,226,0 ;; TEST ENTRY ;AN000;
382 DB 43,-1,-1 ;; invalid slash ;AN000;
383 DB 41,28,41 ;; valid slash ;AN000;
384COM_CTRL_K1_T1_END: ;; ;AN000;
385 ;; ;AN000;
386 DW 0 ;; Size of xlat table - null table ;AN000;
387 ;; ;AN000;
388COM_CTRL_K1_END: ;; ;AN000;
389 ;; ;AN000;
390;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
391;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
392;; CODE PAGE: Common ;;change **********CNS ************** ;AN000;
393;; STATE: Numeric Key Pad ;AN000;
394;; KEYBOARD TYPES: All except the p12 ;AN000;
395;; TABLE TYPE: Translate ;AN000;
396;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
397 ;; ;AN000;
398 DW COM_PAD_K1_END-$ ;; length of state section ;AN000;
399 DB NUMERIC_PAD ;; State ID ;AN000;
400 DW G_KB+AT_KB+XT_KB ;; Keyboard Type ;AN000;
401 DB -1,-1 ;; Buffer entry for error character ;AN000;
402 ;; ;AN000;
403 DW COM_PAD_K1_T1_END-$ ;; Size of xlat table ;AN000;
404 DB STANDARD_TABLE ;; xlat options: ;AN000;
405 DB 1 ;; number of entries ;AN000;
406 DB 83,',' ;; decimal seperator = , ;AN000;
407COM_PAD_K1_T1_END: ;; ;AN000;
408 ;; ;AN000;
409 DW 0 ;; Size of xlat table - null table ;AN000;
410 ;; ;AN000;
411COM_PAD_K1_END: ;; ;AN000;
412;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
413;; CODE PAGE: Common ;AN000;
414;; STATE: Non-Alpha Lower Case ;AN000;
415;; KEYBOARD TYPES: G_KB+P12_KB ;AN000;
416;; TABLE TYPE: Translate ;AN000;
417;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
418 ;; ;AN000;
419 DW COM_NA_LO_K1_END-$ ;; length of state section ;AN000;
420 DB NON_ALPHA_LOWER ;; State ID ;AN000;
421 DW G_KB+P12_KB ;; Keyboard Type ;AN000;
422 DB -1,-1 ;; Buffer entry for error character ;AN000;
423 ;; ;AN000;
424 DW COM_NA_LO_K1_T1_END-$ ;; Size of xlat table ;AN000;
425 DB STANDARD_TABLE ;; xlat options: ;AN000;
426 DB 10 ;; number of entries ;AN000;
427 DB 41,"\" ;; \ ;AN000;
428 DB 12,"'" ;; ' ;AN000;
429 DB 13,141 ;; grave i - ¡; ;AN000;
430 DB 27,'+' ;; + ;AN000;
431 DB 86,'<' ;; < ;AN000;
432 DB 53,'-' ;; - ;AN000;
433 DB 39,149 ;; grave o - • ;AN000;
434 DB 40,133 ;; grave a - …; ;AN000;
435 DB 43,151 ;; grave u - —; ;AN000;
436 DB 26,138 ;; grave e - Š; ;AN000;
437COM_NA_LO_K1_T1_END: ;; ;AN000;
438 ;; ;AN000;
439 DW 0 ;; Size of xlat table - null table ;AN000;
440 ;; ;AN000;
441COM_NA_LO_K1_END: ;; ;AN000;
442 ;; ;AN000;
443;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
444;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
445;; CODE PAGE: Common ;AN000;
446;; STATE: Non-Alpha Lower Case ;AN000;
447;; KEYBOARD TYPES: AT ;AN000;
448;; TABLE TYPE: Translate ;AN000;
449;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
450 ;; ;AN000;
451 DW COM_NA_LO_K2_END-$ ;; length of state section ;AN000;
452 DB NON_ALPHA_LOWER ;; State ID ;AN000;
453 DW AT_KB ;; Keyboard Type ;AN000;
454 DB -1,-1 ;; Buffer entry for error character ;AN000;
455 ;; ;AN000;
456 DW COM_NA_LO_K2_T1_END-$ ;; Size of xlat table ;AN000;
457 DB STANDARD_TABLE ;; xlat options: ;AN000;
458 DB 9 ;; number of entries ;AN000;
459 DB 41,"<" ;; < ;AN000;
460 DB 12,"'" ;; ' ;AN000;
461 DB 13,141 ;; grave i - ¡; ;AN000;
462 DB 27,'+' ;; + ;AN000;
463 DB 53,'-' ;; - ;AN000;
464 DB 39,149 ;; grave o - • ;AN000;
465 DB 40,133 ;; grave a - …; ;AN000;
466 DB 43,151 ;; grave u - —; ;AN000;
467 DB 26,138 ;; grave e - Š; ;AN000;
468COM_NA_LO_K2_T1_END: ;; ;AN000;
469 ;; ;AN000;
470 DW 0 ;; Size of xlat table - null table ;AN000;
471 ;; ;AN000;
472COM_NA_LO_K2_END: ;; ;AN000;
473 ;; ;AN000;
474;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
475;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
476;; CODE PAGE: Common ;AN000;
477;; STATE: Non-Alpha Lower Case ;AN000;
478;; KEYBOARD TYPES: XT + ;AN000;
479;; TABLE TYPE: Translate ;AN000;
480;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
481 ;; ;AN000;
482 DW COM_NA_LO_K3_END-$ ;; length of state section ;AN000;
483 DB NON_ALPHA_LOWER ;; State ID ;AN000;
484 DW XT_KB ;; Keyboard Type ;AN000;
485 DB -1,-1 ;; Buffer entry for error character ;AN000;
486 ;; ;AN000;
487 DW COM_NA_LO_K3_T1_END-$ ;; Size of xlat table ;AN000;
488 DB STANDARD_TABLE ;; xlat options: ;AN000;
489 DB 9 ;; number of entries ;AN000;
490 DB 12,"'" ;; ' ;AN000;
491 DB 13,141 ;; grave i - ¡; ;AN000;
492 DB 27,'+' ;; + ;AN000;
493 DB 43,'<' ;; < ;AN000;
494 DB 53,'-' ;; - ;AN000;
495 DB 39,149 ;; grave o - • ;AN000;
496 DB 40,133 ;; grave a - …; ;AN000;
497 DB 41,151 ;; grave u - —; ;AN000;
498 DB 26,138 ;; grave e - Š; ;AN000;
499COM_NA_LO_K3_T1_END: ;; ;AN000;
500 ;; ;AN000;
501 DW 0 ;; Size of xlat table - null table ;AN000;
502 ;; ;AN000;
503COM_NA_LO_K3_END: ;; ;AN000;
504 ;; ;AN000;
505;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
506;; CODE PAGE: Common ;AN000;
507;; STATE: Non-Alpha Upper Case ;AN000;
508;; KEYBOARD TYPES: G_KB+P12 ;AN000;
509;; TABLE TYPE: Translate ;AN000;
510;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
511 ;; ;AN000;
512 DW COM_NA_UP_K1_END-$ ;; length of state section ;AN000;
513 DB NON_ALPHA_UPPER ;; State ID ;AN000;
514 DW G_KB+P12_KB ;; Keyboard Type ;AN000;
515 DB -1,-1 ;; Buffer entry for error character ;AN000;
516 ;; ;AN000;
517 DW COM_NA_UP_K1_T1_END-$ ;; Size of xlat table ;AN000;
518 DB STANDARD_TABLE ;; xlat options: ;AN000;
519 DB 18 ;; number of entries ;AN000;
520 DB 41,07CH ;; Solid vertical bar - | ;AN000;
521 DB 3,'"' ;; ;AN000;
522 DB 4,'œ' ;; ;AN000;
523 DB 7,'&' ;; ;AN000;
524 DB 8,'/' ;; ;AN000;
525 DB 9,'(' ;; ;AN000;
526 DB 10,')' ;; ;AN000;
527 DB 11,'=' ;; ;AN000;
528 DB 12,'?' ;; ;AN000;
529 DB 13,'^' ;; ;AN000;
530 DB 26,130 ;; acute e - ‚; ;AN000;
531 DB 39,135 ;; c - cedilla - ‡ ;AN000;
532 DB 27,'*' ;; ;AN000;
533 DB 40,0F8H ;; ø - degree symbol ;AN000;
534 DB 86,'>' ;; ;AN000;
535 DB 51,';' ;; ;AN000;
536 DB 52,':' ;; ;AN000;
537 DB 53,'_' ;; ;AN000;
538 ;; ;AN000;
539COM_NA_UP_K1_T1_END: ;; ;AN000;
540 ;; ;AN000;
541 DW 0 ;; Size of xlat table - null table ;AN000;
542 ;; ;AN000;
543COM_NA_UP_K1_END: ;; ;AN000;
544 ;; ;AN000;
545 ;; ;AN000;
546;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
547;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
548;; CODE PAGE: Common ;AN000;
549;; STATE: Non-Alpha Upper Case ;AN000;
550;; KEYBOARD TYPES: AT ;AN000;
551;; TABLE TYPE: Translate ;AN000;
552;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
553 ;; ;AN000;
554 DW COM_NA_UP_K2_END-$ ;; length of state section ;AN000;
555 DB NON_ALPHA_UPPER ;; State ID ;AN000;
556 DW AT_KB ;; Keyboard Type ;AN000;
557 DB -1,-1 ;; Buffer entry for error character ;AN000;
558 ;; ;AN000;
559 DW COM_NA_UP_K2_T1_END-$ ;; Size of xlat table ;AN000;
560 DB STANDARD_TABLE ;; xlat options: ;AN000;
561 DB 18 ;; number of entries ;AN000;
562 DB 41,'>' ;; > ;AN000;
563 DB 3,'"' ;; ;AN000;
564 DB 4,'œ' ;; ;AN000;
565 DB 7,'&' ;; ;AN000;
566 DB 8,'/' ;; ;AN000;
567 DB 9,'(' ;; ;AN000;
568 DB 10,')' ;; ;AN000;
569 DB 11,'=' ;; ;AN000;
570 DB 12,'?' ;; ;AN000;
571 DB 13,'^' ;; ;AN000;
572 DB 26,130 ;; acute e - ‚; ;AN000;
573 DB 39,'@' ;; @ AT sign replaces c - cedilla - ‡ ;AN000;
574 DB 27,'*' ;; ;AN000;
575 DB 40,'#' ;; # sign replaces ø - degree symbol ;AN000;
576 DB 86,'>' ;; ;AN000;
577 DB 51,';' ;; ;AN000;
578 DB 52,':' ;; ;AN000;
579 DB 53,'_' ;; ;AN000;
580 ;; ;AN000;
581COM_NA_UP_K2_T1_END: ;; ;AN000;
582 ;; ;AN000;
583 DW 0 ;; Size of xlat table - null table ;AN000;
584 ;; ;AN000;
585COM_NA_UP_K2_END: ;; ;AN000;
586 ;; ;AN000;
587 ;; ;AN000;
588;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
589;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
590;; CODE PAGE: Common ;AN000;
591;; STATE: Non-Alpha Upper Case ;AN000;
592;; KEYBOARD TYPES: XT + ;AN000;
593;; TABLE TYPE: Translate ;AN000;
594;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
595 ;; ;AN000;
596 DW COM_NA_UP_K3_END-$ ;; length of state section ;AN000;
597 DB NON_ALPHA_UPPER ;; State ID ;AN000;
598 DW XT_KB ;; Keyboard Type ;AN000;
599 DB -1,-1 ;; Buffer entry for error character ;AN000;
600 ;; ;AN000;
601 DW COM_NA_UP_K3_T1_END-$ ;; Size of xlat table ;AN000;
602 DB STANDARD_TABLE ;; xlat options: ;AN000;
603 DB 17 ;; number of entries ;AN000;
604 DB 3,'"' ;; ;AN000;
605 DB 4,'œ' ;; ;AN000;
606 DB 7,'&' ;; ;AN000;
607 DB 8,'/' ;; ;AN000;
608 DB 9,'(' ;; ;AN000;
609 DB 10,')' ;; ;AN000;
610 DB 11,'=' ;; ;AN000;
611 DB 12,'?' ;; ;AN000;
612 DB 13,'^' ;; ;AN000;
613 DB 26,130 ;; acute e - ‚; ;AN000;
614 DB 39,'@' ;; @ AT sign replaces c - cedilla - ‡ ;AN000;
615 DB 27,'*' ;; ;AN000;
616 DB 40,'#' ;; # sign replaces ø - degree symbol ;AN000;
617 DB 43,'>' ;; ;AN000;
618 DB 51,';' ;; ;AN000;
619 DB 52,':' ;; ;AN000;
620 DB 53,'_' ;; ;AN000;
621 ;; ;AN000;
622COM_NA_UP_K3_T1_END: ;; ;AN000;
623 ;; ;AN000;
624 DW 0 ;; Size of xlat table - null table ;AN000;
625 ;; ;AN000;
626COM_NA_UP_K3_END: ;; ;AN000;
627 ;; ;AN000;
628 ;; ;AN000;
629;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
630;; CODE PAGE: Common ;AN000;
631;; STATE: Third Shift ;AN000;
632;; KEYBOARD TYPES: G_KB ;AN000;
633;; TABLE TYPE: Translate ;AN000;
634;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
635 ;; ;AN000;
636 DW COM_THIRD_K1_END-$ ;; length of state section ;AN000;
637 DB THIRD_SHIFT ;; State ID ;AN000;
638 DW G_KB ;; Keyboard Type ;AN000;
639 DB -1,-1 ;; Buffer entry for error character ;AN000;
640 ;; ;AN000;
641 DW COM_THIRD_K1_T1_END-$ ;; Size of xlat table ;AN000;
642 DB STANDARD_TABLE ;; xlat options: ;AN000;
643 DB 8 ;; number of entries ;AN000;
644 DB 4,'#' ;; ;AN000;
645 DB 8,'{' ;; ;AN000;
646 DB 9,'[' ;; ;AN000;
647 DB 10,']' ;; ;AN000;
648 DB 11,'}' ;; ;AN000;
649 DB 16,'@' ;; ;AN000;
650 DB 27,'~' ;; ;AN000;
651 DB 43,"`" ;; grave symbol or closing single quote ;AN000;
652COM_THIRD_K1_T1_END: ;; codepoint 60h ;AN000;
653 ;; ;AN000;
654 DW 0 ;; Last xlat table ;AN000;
655COM_THIRD_K1_END: ;; ;AN000;
656 ;; ;AN000;
657;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
658;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
659;; CODE PAGE: Common ;AN000;
660;; STATE: Third Shift ;AN000;
661;; KEYBOARD TYPES: P12_KB ;AN000;
662;; TABLE TYPE: Translate ;AN000;
663;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
664 ;; ;AN000;
665 DW COM_THIRD_PK1_END-$ ;; length of state section ;AN000;
666 DB THIRD_SHIFT ;; State ID ;AN000;
667 DW P12_KB ;; Keyboard Type ;AN000;
668 DB -1,-1 ;; Buffer entry for error character ;AN000;
669 ;; ;AN000;
670 DW COM_THIRD_PK1_T1_END-$ ;; Size of xlat table ;AN000;
671 DB STANDARD_TABLE ;; xlat options: ;AN000;
672 DB 4 ;; number of entries ;AN000;
673 DB 26,'[' ;; ;AN000;
674 DB 27,']' ;; ;AN000;
675 DB 39,'@' ;; ;AN000;
676 DB 40,'#' ;; ;AN000;
677COM_THIRD_PK1_T1_END: ;; ;AN000;
678 ;; ;AN000;
679 DW 0 ;; Last xlat table ;AN000;
680COM_THIRD_PK1_END: ;; ;AN000;
681 ;; ;AN000;
682;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
683;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
684;; CODE PAGE: Common ;AN000;
685;; STATE: Third Shift ;AN000;
686;; KEYBOARD TYPES: AT ;AN000;
687;; TABLE TYPE: Translate ;AN000;
688;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
689 ;; ;AN000;
690 DW COM_THIRD_K2_END-$ ;; length of state section ;AN000;
691 DB THIRD_SHIFT ;; State ID ;AN000;
692 DW AT_KB ;; Keyboard Type ;AN000;
693 DB -1,-1 ;; Buffer entry for error character ;AN000;
694 ;; ;AN000;
695 DW COM_THIRD_K2_T1_END-$ ;; Size of xlat table ;AN000;
696 DB STANDARD_TABLE ;; xlat options: ;AN000;
697 DB 3 ;; number of entries ;AN000;
698 DB 41,'\' ;; ;AN000;
699 DB 26,'[' ;; ;AN000;
700 DB 27,']' ;; ;AN000;
701COM_THIRD_K2_T1_END: ;; ;AN000;
702 ;; ;AN000;
703 DW 0 ;; Last xlat table ;AN000;
704COM_THIRD_K2_END: ;; ;AN000;
705 ;; ;AN000;
706;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
707;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
708;; CODE PAGE: Common ;AN000;
709;; STATE: Third Shift ;AN000;
710;; KEYBOARD TYPES: XT + ;AN000;
711;; TABLE TYPE: Translate ;AN000;
712;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
713 ;; ;AN000;
714 DW COM_THIRD_K3_END-$ ;; length of state section ;AN000;
715 DB THIRD_SHIFT ;; State ID ;AN000;
716 DW XT_KB ;; Keyboard Type ;AN000;
717 DB -1,-1 ;; Buffer entry for error character ;AN000;
718 ;; ;AN000;
719 DW COM_THIRD_K3_T1_END-$ ;; Size of xlat table ;AN000;
720 DB STANDARD_TABLE ;; xlat options: ;AN000;
721 DB 3 ;; number of entries ;AN000;
722 DB 43,'\' ;; ;AN000;
723 DB 26,'[' ;; ;AN000;
724 DB 27,']' ;; ;AN000;
725COM_THIRD_K3_T1_END: ;; ;AN000;
726 ;; ;AN000;
727 DW 0 ;; Last xlat table ;AN000;
728COM_THIRD_K3_END: ;; ;AN000;
729 ;; ;AN000;
730;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
731 DW 0 ;; Last State ;AN000;
732COMMON_XLAT_END: ;; ;AN000;
733 ;; ;AN000;
734 ;; ;AN000;
735 ;; ;AN000;
736;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
737;;*************************************** ;AN000;
738;; IT Specific Translate Section for 437 ;AN000;
739;; 437 IS COMPLETELY COVERED BY THE COMMON TABLE. ;AN000;
740;;*************************************** ;AN000;
741;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
742 ;; ;AN000;
743 PUBLIC IT1_437_XLAT ;; ;AN000;
744IT1_437_XLAT: ;; ;AN000;
745 ;; ;AN000;
746 DW CP437_XLAT_END-$ ;; length of section ;AN000;
747 DW 437 ;; ;AN000;
748;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
749;; CODE PAGE: 437 ;AN000;
750;; STATE: Non-Alpha Upper case ;AN000;
751;; KEYBOARD TYPES: G_KB+P12+AT ;AN000;
752;; TABLE TYPE: Translate ;AN000;
753;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
754 ;; ;AN000;
755 DW CP437_NA_UP_K1_END-$ ;; length of state section ;AN000;
756 DB NON_ALPHA_UPPER ;; State ID ;AN000;
757 DW G_KB+P12_KB+AT_KB ;; Keyboard Type ;AN000;
758 DB -1,-1 ;; error character = standalone accent ;AN000;
759 ;; ;AN000;
760 DW CP437_NA_UP_T1_K1_END-$ ;; Size of xlat table ;AN000;
761 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options: ;AN000;
762 DB 1 ;; number of scans ;AN000;
763 DB 43,015H ;; Section symbol -  ;AN000;
764 CP437_NA_UP_T1_K1_END: ;; ;AN000;
765 ;; ;AN000;
766 DW 0 ;; Size of xlat table - null table ;AN000;
767 ;; ;AN000;
768 CP437_NA_UP_K1_END: ;; ;AN000;
769 ;; ;AN000;
770;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
771;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
772;; CODE PAGE: 437 ;AN000;
773;; STATE: Non-Alpha Upper case ;AN000;
774;; KEYBOARD TYPES: XT + ;AN000;
775;; TABLE TYPE: Translate ;AN000;
776;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
777 ;; ;AN000;
778 DW CP437_NA_UP_K2_END-$ ;; length of state section ;AN000;
779 DB NON_ALPHA_UPPER ;; State ID ;AN000;
780 DW XT_KB ;; Keyboard Type ;AN000;
781 DB -1,-1 ;; error character = standalone accent ;AN000;
782 ;; ;AN000;
783 DW CP437_NA_UP_T1_K2_END-$ ;; Size of xlat table ;AN000;
784 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options: ;AN000;
785 DB 1 ;; number of scans ;AN000;
786 DB 41,015H ;; Section symbol -  ;AN000;
787 CP437_NA_UP_T1_K2_END: ;; ;AN000;
788 ;; ;AN000;
789 DW 0 ;; Size of xlat table - null table ;AN000;
790 ;; ;AN000;
791 CP437_NA_UP_K2_END: ;; ;AN000;
792 ;; ;AN000;
793;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
794 DW 0 ;; LAST STATE ;AN000;
795 ;; ;AN000;
796CP437_XLAT_END: ;; ;AN000;
797 ;; ;AN000;
798;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
799;;*************************************** ;AN000;
800;; IT Specific Translate Section for 850 ;AN000;
801;;*************************************** ;AN000;
802;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
803 ;; ;AN000;
804 PUBLIC IT1_850_XLAT ;; ;AN000;
805IT1_850_XLAT: ;; ;AN000;
806 ;; ;AN000;
807 DW CP850_XLAT_END-$ ;; length of section ;AN000;
808 DW 850 ;; ;AN000;
809 ;; ;AN000;
810 ;; ;AN000;
811;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
812;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
813;; CODE PAGE: 850 ;AN000;
814;; STATE: Non-Alpha Upper case ;AN000;
815;; KEYBOARD TYPES: G_KB+P12+AT ;AN000;
816;; TABLE TYPE: Translate ;AN000;
817;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
818 ;; ;AN000;
819 DW CP850_NA_UP_K1_END-$ ;; length of state section ;AN000;
820 DB NON_ALPHA_UPPER ;; State ID ;AN000;
821 DW G_KB+P12_KB+AT_KB ;; Keyboard Type ;AN000;
822 DB -1,-1 ;; error character = standalone accent ;AN000;
823 ;; ;AN000;
824 DW CP850_NA_UP_T1_K1_END-$ ;; Size of xlat table ;AN000;
825 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options: ;AN000;
826 DB 1 ;; number of scans ;AN000;
827 DB 43,0F5H ;; Section symbol -  ;AN000;
828 CP850_NA_UP_T1_K1_END: ;; ;AN000;
829 ;; ;AN000;
830 DW 0 ;; Size of xlat table - null table ;AN000;
831 ;; ;AN000;
832 CP850_NA_UP_K1_END: ;; ;AN000;
833 ;; ;AN000;
834;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
835;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
836;; CODE PAGE: 850 ;AN000;
837;; STATE: Non-Alpha Upper case ;AN000;
838;; KEYBOARD TYPES: XT ;AN000;
839;; TABLE TYPE: Translate ;AN000;
840;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
841 ;; ;AN000;
842 DW CP850_NA_UP_K2_END-$ ;; length of state section ;AN000;
843 DB NON_ALPHA_UPPER ;; State ID ;AN000;
844 DW XT_KB ;; Keyboard Type ;AN000;
845 DB -1,-1 ;; error character = standalone accent ;AN000;
846 ;; ;AN000;
847 DW CP850_NA_UP_T1_K2_END-$ ;; Size of xlat table ;AN000;
848 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options: ;AN000;
849 DB 1 ;; number of scans ;AN000;
850 DB 41,0F5H ;; Section symbol -  ;AN000;
851 CP850_NA_UP_T1_K2_END: ;; ;AN000;
852 ;; ;AN000;
853 DW 0 ;; Size of xlat table - null table ;AN000;
854 ;; ;AN000;
855 CP850_NA_UP_K2_END: ;; ;AN000;
856 ;; ;AN000;
857;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
858 DW 0 ;; LAST STATE ;AN000;
859 ;; ;AN000;
860CP850_XLAT_END: ;; ;AN000;
861;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;AN000;
862 ;; ;AN000;
863CODE ENDS ;; ;AN000;
864 END ;; ;AN000;
HIC SVNT DRACONES