]> wirehaze git hosting - MS-DOS.git/blob - v4.0/src/DEV/KEYBOARD/KDFFR120.ASM

wirehaze git hosting

MZ is back!
[MS-DOS.git] / v4.0 / src / DEV / KEYBOARD / KDFFR120.ASM
1 ; ACUTE lc y added
2 ; ****** CNS 12/18
3 ; ****** CNS 01/21 NUM PAD
4 PAGE ,132
5 TITLE DOS - Keyboard Definition File
6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;; DOS - - NLS Support - Keyboard Defintion File
9 ;; (c) Copyright 1988 Microsoft
10 ;;
11 ;; This file contains the keyboard tables for Belgium.
12 ;;
13 ;; Linkage Instructions:
14 ;; Refer to KDF.ASM.
15 ;;
16 ;; Modded from French - DTF 11-Sep-86
17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18 ;;
19 INCLUDE KEYBSHAR.INC ;;
20 INCLUDE POSTEQU.INC ;;
21 INCLUDE KEYBMAC.INC ;;
22 ;;
23 PUBLIC FR1_LOGIC ;;
24 PUBLIC FR1_437_XLAT ;;
25 PUBLIC FR1_850_XLAT ;;
26 ;;
27 CODE SEGMENT PUBLIC 'CODE' ;;
28 ASSUME CS:CODE,DS:CODE ;;
29 ;;
30 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
31 ;; Standard translate table options are a liner search table
32 ;; (TYPE_2_TAB) and ASCII entries ONLY (ASCII_ONLY)
33 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
34 ;;
35 STANDARD_TABLE EQU TYPE_2_TAB+ASCII_ONLY
36 ;;
37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
38 ;;***************************************
39 ;; FR State Logic
40 ;;***************************************
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 ;;
43 ;;
44 FR1_LOGIC:
45
46 DW LOGIC_END-$ ;; length
47 ;;
48 DW TYPEWRITER_CAPS_LK ;; special features
49 ;;
50 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; COMMANDS START HERE
51 ;;
52 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
53 ;; OPTIONS: If we find a scan match in
54 ;; an XLATT or SET_FLAG operation then
55 ;; exit from INT 9.
56 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
57 ;;
58 OPTION EXIT_IF_FOUND ;;
59 ;;
60 ;;
61 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
62 ;; Dead key definitions must come before
63 ;; dead key translations to handle
64 ;; dead key + dead key.
65 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
66 ;;
67 IFF EITHER_ALT,NOT ;;
68 ANDF EITHER_CTL,NOT ;;
69 IFF CAPS_STATE
70 SET_FLAG DEAD_UPPER
71 ELSEF
72 IFF EITHER_SHIFT ;;
73 SET_FLAG DEAD_UPPER ;;
74 ELSEF ;;
75 SET_FLAG DEAD_LOWER ;;
76 ENDIFF ;;
77 ENDIFF
78 ELSEF ;;
79 IFF EITHER_SHIFT,NOT ;;
80 IFKBD XT_KB+AT_KB
81 IFF EITHER_CTL ;;
82 ANDF ALT_SHIFT ;;
83 SET_FLAG DEAD_THIRD ;;
84 ENDIFF ;;
85 ELSEF
86 IFF R_ALT_SHIFT ;;
87 ANDF EITHER_CTL,NOT ;;
88 ANDF LC_E0,NOT ;;
89 SET_FLAG DEAD_THIRD ;;
90 ENDIFF ;;
91 ENDIFF
92 ENDIFF
93 ENDIFF ;;
94 ;;
95 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
96 ;; ACUTE ACCENT TRANSLATIONS
97 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
98 ;;
99 ACUTE_PROC: ;;
100 ;;
101 IFF ACUTE,NOT ;;
102 GOTO TILDE_PROC ;;
103 ENDIFF ;;
104 ;;
105 RESET_NLS ;;
106 IFF R_ALT_SHIFT,NOT ;;
107 XLATT ACUTE_SPACE ;;
108 ENDIFF ;;
109 IFF EITHER_CTL,NOT ;;
110 ANDF EITHER_ALT,NOT ;;
111 IFF EITHER_SHIFT ;;
112 IFF CAPS_STATE ;;
113 XLATT ACUTE_LOWER ;;
114 ELSEF ;;
115 XLATT ACUTE_UPPER ;;
116 ENDIFF ;;
117 ELSEF ;;
118 IFF CAPS_STATE ;;
119 XLATT ACUTE_UPPER ;;
120 ELSEF ;;
121 XLATT ACUTE_LOWER ;;
122 ENDIFF ;;
123 ENDIFF ;;
124 ENDIFF ;;
125 ;;
126 INVALID_ACUTE: ;;
127 PUT_ERROR_CHAR ACUTE_LOWER ;; If we get here then either the XLATT
128 BEEP ;; failed or we are ina bad shift state.
129 GOTO NON_DEAD ;; Either is invalid so BEEP and fall
130 ;; through to generate the second char.
131 ;; Note that the dead key flag will be
132 ;; reset before we get here.
133 ;;
134 ;;
135 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
136 ;; TILDE ACCENT TRANSLATIONS
137 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
138 ;;
139 TILDE_PROC: ;;
140 ;;
141 IFF TILDE,NOT ;;
142 GOTO DIARESIS_PROC ;;
143 ENDIFF ;;
144 RESET_NLS ;;
145 IFF R_ALT_SHIFT,NOT ;;
146 XLATT TILDE_SPACE ;;
147 ENDIFF ;;
148 IFF EITHER_CTL,NOT ;;
149 ANDF EITHER_ALT,NOT ;;
150 IFF EITHER_SHIFT ;;
151 IFF CAPS_STATE ;;
152 XLATT TILDE_LOWER ;;
153 ELSEF ;;
154 XLATT TILDE_UPPER ;;
155 ENDIFF ;;
156 ELSEF ;;
157 IFF CAPS_STATE,NOT ;;
158 XLATT TILDE_LOWER ;;
159 ELSEF ;;
160 XLATT TILDE_UPPER ;;
161 ENDIFF ;;
162 ENDIFF ;;
163 ENDIFF ;;
164 ;;
165 INVALID_TILDE: ;;
166 PUT_ERROR_CHAR TILDE_LOWER ;; standalone accent
167 BEEP ;; Invalid dead key combo.
168 GOTO NON_DEAD ;;
169 ;;
170 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
171 ;; DIARESIS ACCENT TRANSLATIONS
172 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
173 ;;
174 DIARESIS_PROC: ;;
175 ;;
176 IFF DIARESIS,NOT ;;
177 GOTO GRAVE_PROC ;;
178 ENDIFF ;;
179 ;;
180 RESET_NLS ;;
181 IFF R_ALT_SHIFT,NOT ;;
182 XLATT DIARESIS_SPACE ;; exist for 437 so beep for
183 ENDIFF ;;
184 IFF EITHER_CTL,NOT ;;
185 ANDF EITHER_ALT,NOT ;;
186 IFF EITHER_SHIFT ;;
187 IFF CAPS_STATE ;;
188 XLATT DIARESIS_LOWER ;;
189 ELSEF ;;
190 XLATT DIARESIS_UPPER ;;
191 ENDIFF ;;
192 ELSEF ;;
193 IFF CAPS_STATE ;;
194 XLATT DIARESIS_UPPER ;;
195 ELSEF ;;
196 XLATT DIARESIS_LOWER ;;
197 ENDIFF ;;
198 ENDIFF ;;
199 ENDIFF ;;
200 ;;
201 INVALID_DIARESIS: ;;
202 PUT_ERROR_CHAR DIARESIS_LOWER ;; standalone accent
203 BEEP ;; Invalid dead key combo.
204 GOTO NON_DEAD ;;
205 ;;
206 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
207 ;; GRAVE ACCENT TRANSLATIONS
208 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
209 ;;
210 GRAVE_PROC: ;;
211 ;;
212 IFF GRAVE,NOT ;;
213 GOTO CIRCUMFLEX_PROC ;;
214 ENDIFF ;;
215 ;;
216 RESET_NLS ;;
217 IFF R_ALT_SHIFT,NOT ;;
218 XLATT GRAVE_SPACE ;;
219 ENDIFF ;;
220 IFF EITHER_CTL,NOT ;;
221 ANDF EITHER_ALT,NOT ;;
222 IFF EITHER_SHIFT ;;
223 IFF CAPS_STATE ;;
224 XLATT GRAVE_LOWER ;;
225 ELSEF ;;
226 XLATT GRAVE_UPPER ;;
227 ENDIFF ;;
228 ELSEF ;;
229 IFF CAPS_STATE,NOT ;;
230 XLATT GRAVE_LOWER ;;
231 ELSEF ;;
232 XLATT GRAVE_UPPER ;;
233 ENDIFF ;;
234 ENDIFF ;;
235 ENDIFF ;;
236 ;;
237 INVALID_GRAVE: ;;
238 PUT_ERROR_CHAR GRAVE_LOWER ;; standalone accent
239 BEEP ;; Invalid dead key combo.
240 GOTO NON_DEAD ;;
241 ;;
242 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
243 ;; CIRCUMFLEX ACCENT TRANSLATIONS
244 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
245 ;;
246 CIRCUMFLEX_PROC: ;;
247 ;;
248 IFF CIRCUMFLEX,NOT ;;
249 GOTO NON_DEAD ;;
250 ENDIFF ;;
251 ;;
252 RESET_NLS ;;
253 IFF R_ALT_SHIFT,NOT ;;
254 XLATT CIRCUMFLEX_SPACE ;;
255 ENDIFF ;;
256 IFF EITHER_CTL,NOT ;;
257 ANDF EITHER_ALT,NOT ;;
258 IFF EITHER_SHIFT ;;
259 IFF CAPS_STATE ;;
260 XLATT CIRCUMFLEX_LOWER ;;
261 ELSEF ;;
262 XLATT CIRCUMFLEX_UPPER ;;
263 ENDIFF ;;
264 ELSEF ;;
265 IFF CAPS_STATE,NOT ;;
266 XLATT CIRCUMFLEX_LOWER ;;
267 ELSEF ;;
268 XLATT CIRCUMFLEX_UPPER ;;
269 ENDIFF ;;
270 ENDIFF ;;
271 ENDIFF ;;
272 ;;
273 INVALID_CIRCUMFLEX: ;;
274 PUT_ERROR_CHAR CIRCUMFLEX_LOWER ;; standalone accent
275 BEEP ;; Invalid dead key combo.
276 GOTO NON_DEAD ;;
277 ;;
278 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
279 ;; Upper, lower and third shifts
280 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
281 ;;
282 ;***************************
283 NON_DEAD: ;;
284 ;ADDED FOR DIVIDE SIGN ;;
285 IFKBD G_KB+P12_KB ;; Avoid accidentally translating
286 ANDF LC_E0 ;; the "/" on the numeric pad of the
287 IFF EITHER_CTL,NOT
288 ANDF EITHER_ALT,NOT
289 XLATT DIVIDE_SIGN ;;
290 ENDIFF
291 EXIT_STATE_LOGIC ;;
292 ENDIFF ;;
293 ;BD END OF ADDITION
294 ;****************************
295 ;NON_DEAD: ;;
296 ; ;;
297 ; IFKBD G_KB+P12_KB ;; Avoid accidentally translating
298 ; ANDF LC_E0 ;; the "/" on the numeric pad of the
299 ; EXIT_STATE_LOGIC ;; G keyboard
300 ; ENDIFF ;;
301 ;;
302 IFF EITHER_ALT,NOT ;;
303 ANDF EITHER_CTL,NOT ;;
304 IFF EITHER_SHIFT ;;
305 ;******************************************
306 ;;***BD ADDED FOR NUMERIC PAD
307 IFF NUM_STATE,NOT ;;
308 XLATT NUMERIC_PAD ;;
309 ENDIFF ;;
310 ;;***BD END OF ADDITION
311 ;*******************************************
312 IFF CAPS_STATE ;;
313 XLATT ALPHA_LOWER ;;
314 XLATT NON_ALPHA_LOWER ;;
315 ELSEF ;;
316 XLATT ALPHA_UPPER ;;
317 XLATT NON_ALPHA_UPPER ;;
318 ENDIFF ;;
319 ELSEF ;;
320 ;******************************************
321 ;;***BD ADDED FOR NUMERIC PAD
322 IFF NUM_STATE ;;
323 XLATT NUMERIC_PAD ;;
324 ENDIFF ;;
325 ;;***BD END OF ADDITION
326 ;******************************************
327 IFF CAPS_STATE ;;
328 XLATT ALPHA_UPPER ;;
329 XLATT NON_ALPHA_UPPER ;;
330 ELSEF ;;
331 XLATT ALPHA_LOWER ;;
332 XLATT NON_ALPHA_LOWER ;;
333 ENDIFF ;;
334 ENDIFF ;;
335 ELSEF ;;
336 IFF EITHER_SHIFT,NOT ;;
337 IFKBD XT_KB+AT_KB ;;
338 IFF EITHER_CTL ;;
339 ANDF ALT_SHIFT ;;
340 XLATT THIRD_SHIFT ;;
341 ENDIFF ;;
342 ELSEF ;;
343 IFF EITHER_CTL,NOT ;;
344 ANDF R_ALT_SHIFT ;;
345 XLATT THIRD_SHIFT ;;
346 ENDIFF ;;
347 ENDIFF ;;
348 IFKBD AT_KB+XT_KB ;;
349 IFF EITHER_CTL ;;
350 ANDF ALT_SHIFT ;;
351 XLATT ALT_CASE ;;
352 ENDIFF ;;
353 ENDIFF ;;
354 IFKBD G_KB+P12_KB ;;
355 IFF EITHER_CTL ;;
356 ANDF ALT_SHIFT ;;
357 IFF R_ALT_SHIFT,NOT ;;
358 XLATT ALT_CASE ;;
359 ENDIFF ;;
360 ENDIFF ;;
361 ENDIFF ;;
362 ENDIFF ;;
363 ENDIFF ;;
364 ;IFF EITHER_SHIFT,NOT ;;
365 IFKBD AT_KB+XT_KB ;;
366 IFF EITHER_CTL,NOT ;;
367 IFF ALT_SHIFT ;; ALT - case
368 XLATT ALT_CASE ;;
369 ENDIFF ;;
370 ELSEF ;;
371 XLATT CTRL_CASE ;;
372 ENDIFF ;;
373 ENDIFF ;;
374 ;;
375 IFKBD G_KB+P12_KB ;;
376 IFF EITHER_CTL,NOT ;;
377 IFF ALT_SHIFT ;; ALT - case
378 ANDF R_ALT_SHIFT,NOT ;;
379 XLATT ALT_CASE ;;
380 ENDIFF ;;
381 ELSEF ;;
382 IFF EITHER_ALT,NOT ;;
383 XLATT CTRL_CASE ;;
384 ENDIFF ;;
385 ENDIFF ;;
386 IFF EITHER_CTL ;;
387 ANDF ALT_SHIFT ;;
388 ANDF R_ALT_SHIFT,NOT ;;
389 XLATT ALT_CASE ;;
390 ENDIFF ;;
391 ENDIFF ;;
392 ;;
393 EXIT_STATE_LOGIC ;;
394 ;;
395 LOGIC_END: ;;
396 ;;
397 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
398 ;;***************************************
399 ;; BE Common Translate Section
400 ;; This section contains translations for the lower 128 characters
401 ;; only since these will never change from code page to code page.
402 ;; In addition the dead key "Set Flag" tables are here since the
403 ;; dead keys are on the same keytops for all code pages.
404 ;;***************************************
405 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
406 ;;
407 PUBLIC FR1_COMMON_XLAT ;;
408 FR1_COMMON_XLAT: ;;
409 ;;
410 DW COMMON_XLAT_END-$ ;; length of section
411 DW -1 ;; code page
412 ;;
413 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
414 ;; CODE PAGE: Common
415 ;; STATE: Alt Case
416 ;; KEYBOARD TYPES: G + P
417 ;; TABLE TYPE: Translate
418 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
419 ;;
420 DW COM_ALT_K1_END-$ ;; length of state section
421 DB ALT_CASE ;; State ID
422 DW G_KB ;P12_KB ;; Keyboard Type
423 DB -1,-1 ;; Buffer entry for error character
424 ;; Set Flag Table
425 DW COM_ALT_K1_T1_END-$ ;; Size of xlat table
426 DB TYPE_2_TAB ;;
427 DB 6 ;;8 Number of entries
428 ; DB 12,-1,-1 ;;
429 ; DB 13,0,82H ;;
430 DB 16,0,1EH ;; A
431 DB 17,0,2CH ;; Z
432 DB 30,0,10H ;; Q
433 DB 39,0,32H ;; M
434 DB 44,0,11H ;; W
435 DB 50,-1,-1 ;; U.S. 'M'
436 COM_ALT_K1_T1_END: ;;
437 ;;
438 DW 0 ;;
439 ;;
440 COM_ALT_K1_END: ;;
441 ;;
442 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
443 ;***************************************** CNS P12 Addition *****************
444 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
445 ;; CODE PAGE: Common
446 ;; STATE: Alt Case
447 ;; KEYBOARD TYPES: P12_KB
448 ;; TABLE TYPE: Translate
449 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
450 ;;
451 DW COM_ALT_PK1_END-$ ;; length of state section
452 DB ALT_CASE ;; State ID
453 DW P12_KB ;; Keyboard Type
454 DB -1,-1 ;; Buffer entry for error character
455 ;; Set Flag Table
456 DW COM_ALT_PK1_T1_END-$ ;; Size of xlat table
457 DB TYPE_2_TAB ;;
458 DB 6 ;; 10 Number of entries
459 ; DB 12,-1,-1 ;; invalid key U.S. alt -
460 ; DB 13,-1,-1 ;; invalid key U.S. alt =
461 ; DB 07,0,82H ;; alt - (minus sign)
462 ; DB 13,0,83H ;; alt = (equal sign)
463 DB 16,0,1EH ;; A
464 DB 17,0,2CH ;; Z
465 DB 30,0,10H ;; Q
466 DB 39,0,32H ;; M
467 DB 44,0,11H ;; W
468 DB 50,-1,-1 ;; U.S. 'M'
469 COM_ALT_PK1_T1_END: ;;
470 ;;
471 DW 0 ;;
472 ;;
473 COM_ALT_PK1_END: ;;
474 ;;
475 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
476 ;***************************************** CNS P12 Addition *****************
477 ;; CODE PAGE: Common
478 ;; STATE: Ctrl Case
479 ;; KEYBOARD TYPES: GKB
480 ;; TABLE TYPE: Translate
481 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
482 ;;
483 DW COM_CTRL_K1_END-$ ;; length of state section
484 DB CTRL_CASE ;; State ID
485 DW G_KB ;P12_KB ;; Keyboard Type
486 DB -1,-1 ;; Buffer entry for error character
487 ;; Set Flag Table
488 DW COM_CTRL_K1_T1_END-$ ;; Size of xlat table
489 DB TYPE_2_TAB ;;
490 DB 10 ;; Number of entries
491 DB 12,-1,-1 ;;
492 DB 13,31,13 ;;
493 DB 16,01,16 ;; A
494 DB 17,26,17 ;; Z
495 DB 30,17,30 ;; Q
496 DB 39,13,39 ;; M
497 DB 43,-1,-1 ;; \
498 DB 44,23,44 ;; W
499 DB 50,-1,-1 ;; U.S. 'M'
500 DB 86,28,86 ;;
501 COM_CTRL_K1_T1_END: ;;
502 ;;
503 DW 0 ;;
504 ;;
505 COM_CTRL_K1_END: ;;
506 ;;
507 ;;
508 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
509 ;***************************************** CNS P12 Addition *****************
510 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
511 ;; CODE PAGE: Common
512 ;; STATE: Ctrl Case
513 ;; KEYBOARD TYPES: P12_KB
514 ;; TABLE TYPE: Translate
515 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
516 ;;
517 DW COM_CTRL_PK1_END-$ ;; length of state section
518 DB CTRL_CASE ;; State ID
519 DW P12_KB ;; Keyboard Type
520 DB -1,-1 ;; Buffer entry for error character
521 ;; Set Flag Table
522 DW COM_CTRL_PK1_T1_END-$ ;; Size of xlat table
523 DB TYPE_2_TAB ;;
524 DB 12 ;; Number of entries
525 DB 12,-1,-1 ;;
526 DB 07,30,07 ;; ctl + number six key
527 DB 12,29,12 ;; ctl + ]
528 DB 13,31,13 ;;
529 DB 16,01,16 ;; A
530 DB 17,26,17 ;; Z
531 DB 30,17,30 ;; Q
532 DB 39,13,39 ;; M
533 DB 43,-1,-1 ;; \
534 DB 44,23,44 ;; W
535 DB 50,-1,-1 ;; U.S. 'M'
536 DB 9,28,9 ;; \ position (this is also the underscore position)
537 COM_CTRL_PK1_T1_END: ;;
538 ;;
539 DW 0 ;;
540 ;;
541 COM_CTRL_PK1_END: ;;
542 ;;
543 ;;
544 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
545 ;***************************************** CNS P12 Addition *****************
546 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
547 ;; CODE PAGE: Common
548 ;; STATE: Alt Case
549 ;; KEYBOARD TYPES: AT + XT
550 ;; TABLE TYPE: Translate
551 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
552 ;;
553 DW COM_ALT_K2_END-$ ;; length of state section
554 DB ALT_CASE ;; State ID
555 DW AT_KB+XT_KB ;; Keyboard Type
556 DB -1,-1 ;; Buffer entry for error character
557 ;; Set Flag Table
558 DW COM_ALT_K2_T2_END-$ ;; Size of xlat table
559 DB TYPE_2_TAB ;;
560 DB 6 ;; 9 Number of entries
561 ; DB 12,-1,-1 ;; invalid key U.S. alt -
562 ; DB 13,0,82H ;; alt - (minus sign)
563 ; DB 53,0,83H ;; alt = (equal sign)
564 DB 16,0,1EH ;; A
565 DB 17,0,2CH ;; Z
566 DB 30,0,10H ;; Q
567 DB 39,0,32H ;; M
568 DB 44,0,11H ;; W
569 DB 50,-1,-1 ;; U.S. 'M'
570 COM_ALT_K2_T2_END: ;;
571 ;;
572 DW 0 ;;
573 ;;
574 COM_ALT_K2_END: ;;
575 ;;
576 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
577 ;; CODE PAGE: Common
578 ;; STATE: Ctrl Case
579 ;; KEYBOARD TYPES: AT
580 ;; TABLE TYPE: Translate
581 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
582 ;;
583 DW COM_CTRL_K2_END-$ ;; length of state section
584 DB CTRL_CASE ;; State ID
585 DW AT_KB ;; Keyboard Type
586 DB -1,-1 ;; Buffer entry for error character
587 ;; Set Flag Table
588 DW COM_CTRL_K2_T2_END-$ ;; Size of xlat table
589 DB TYPE_2_TAB ;;
590 DB 10;11 ;; Number of entries
591 DB 12,-1,-1 ;; invalid U.S. -
592 DB 43,-1,-1 ;; invalid U.S. \
593 DB 41,28,41 ;; valid ctl + \
594 DB 07,30,07 ;; ctl + number six key
595 ; DB 13,31,13 ;; ctl - or _
596 DB 16,01,16 ;; A
597 DB 17,26,17 ;; Z
598 DB 30,17,30 ;; Q
599 DB 39,13,39 ;; M
600 DB 44,23,44 ;; W
601 DB 50,-1,-1 ;; U.S. 'M'
602 COM_CTRL_K2_T2_END: ;;
603 ;;
604 DW 0 ;;
605 ;;
606 COM_CTRL_K2_END: ;;
607 ;;
608 ;;
609 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
610 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
611 ;; CODE PAGE: Common
612 ;; STATE: Ctrl Case
613 ;; KEYBOARD TYPES: XT
614 ;; TABLE TYPE: Translate
615 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
616 ;;
617 DW COM_CTRL_K3_END-$ ;; length of state section
618 DB CTRL_CASE ;; State ID
619 DW AT_KB+XT_KB ;; Keyboard Type
620 DB -1,-1 ;; Buffer entry for error character
621 ;; Set Flag Table
622 DW COM_CTRL_K3_T3_END-$ ;; Size of xlat table
623 DB TYPE_2_TAB ;;
624 DB 6 ;; Number of entries
625 DB 12,-1,-1 ;;
626 DB 43,-1,-1 ;;
627 DB 43,28,43 ;; valid ctl + \
628 DB 07,30,07 ;; ctl + number six key
629 ; DB 13,31,13 ;; ctl - or _
630 DB 16,01,16 ;; A
631 DB 17,26,17 ;; Z
632 DB 30,17,30 ;; Q
633 DB 39,13,39 ;; M
634 DB 44,23,44 ;; W
635 DB 50,-1,-1 ;; U.S. 'M'
636 COM_CTRL_K3_T3_END: ;;
637 ;;
638 DW 0 ;;
639 ;;
640 COM_CTRL_K3_END: ;;
641 ;;
642 ;;
643 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
644 ;; CODE PAGE: Common
645 ;; STATE: Lower Shift Dead Key
646 ;; KEYBOARD TYPES: All
647 ;; TABLE TYPE: Flag Table
648 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
649 ;;
650 DW COM_DK_LO_END-$ ;; length of state section
651 DB DEAD_LOWER ;; State ID
652 DW G_KB+AT_KB+XT_KB+P12_KB ;; Keyboard Type
653 DB -1,-1 ;; Buffer entry for error character
654 ;; Set Flag Table
655 DW 1 ;; number of entries
656 DB 26 ;; scan code
657 FLAG CIRCUMFLEX ;; flag bit to set
658 ;;
659 ;;
660 COM_DK_LO_END: ;;
661 ;;
662 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
663 ;*************************************** CNS P12 Addition
664 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
665 ;; CODE PAGE: Common
666 ;; STATE: Upper Shift Dead Key
667 ;; KEYBOARD TYPES: All
668 ;; TABLE TYPE: Flag Table
669 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
670 ;;
671 DW COM_DK_UP_END-$ ;; length of state section
672 DB DEAD_UPPER ;; State ID
673 DW G_KB+AT_KB+XT_KB+P12_KB ;; Keyboard Type
674 DB -1,-1 ;; Buffer entry for error character
675 ;; Set Flag Table
676 DW 1 ;; number of entries
677 DB 26 ;; scan code
678 FLAG DIARESIS ;; flag bit to set
679 ;;
680 COM_DK_UP_END: ;;
681 ;;
682 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
683 ;; CODE PAGE: Common
684 ;; STATE: Third Shift Dead Key
685 ;; KEYBOARD TYPES: G, AT
686 ;; TABLE TYPE: Flag Table
687 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
688 ;;
689 DW COM_DK_TH_END-$ ;; length of state section
690 DB DEAD_THIRD ;; State ID
691 DW G_KB+AT_KB ;; Keyboard Type
692 DB -1,-1 ;; Buffer entry for error character
693 ;; Set Flag Table
694 DW 3 ;; number of entries
695 DB 40 ;;
696 FLAG ACUTE ;;
697 DB 43 ;;
698 FLAG GRAVE ;;
699 DB 53 ;;
700 FLAG TILDE ;;
701 ;;
702 COM_DK_TH_END: ;;
703 ;;
704 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
705 ;***************************************** CNS P12 Addition *****************
706 ;NO THRD SHIFT DEAD KEY FOR THE P12
707 ;***************************************** CNS P12 Addition *****************
708 ;; CODE PAGE: Common
709 ;; STATE: Third Shift Dead Key
710 ;; KEYBOARD TYPES: XT +
711 ;; TABLE TYPE: Flag Table
712 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
713 ;;
714 DW COM_DK_TH_K1_END-$ ;; length of state section
715 DB DEAD_THIRD ;; State ID
716 DW XT_KB ;; Keyboard Type
717 DB -1,-1 ;; Buffer entry for error character
718 ;; Set Flag Table
719 DW 3 ;; number of entries
720 DB 40 ;;
721 FLAG ACUTE ;;
722 DB 41 ;;
723 FLAG GRAVE ;;
724 DB 53 ;;
725 FLAG TILDE ;;
726 ;;
727 COM_DK_TH_K1_END: ;;
728 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
729 ;********************************************** CNS P12 Addition
730 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
731 ;; CODE PAGE: Common
732 ;; STATE: Diaresis Lower Case
733 ;; KEYBOARD TYPES: All
734 ;; TABLE TYPE: Translate
735 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
736 ;;
737 DW COM_DI_LO_END-$ ;; length of state section
738 DB DIARESIS_LOWER ;; State ID
739 DW G_KB+P12_KB+AT_KB+XT_KB ;; Keyboard Type
740 DB 249,0 ;; error character = standalone accent
741 ;;
742 DW COM_DI_LO_T1_END-$ ;; Size of xlat table
743 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
744 DB 6 ;; number of scans
745 DB 18,'\89' ;; scan code,ASCII - e
746 DB 16,'\84' ;; scan code,ASCII - a
747 DB 24,'\94' ;; scan code,ASCII - o
748 DB 22,'\81' ;; scan code,ASCII - u
749 DB 23,'\8b' ;; scan code,ASCII - i
750 DB 21,'\98' ;; scan code,ASCII - y
751 COM_DI_LO_T1_END: ;;
752 ;;
753 DW 0 ;; Size of xlat table - null table
754 ;;
755 COM_DI_LO_END: ;; length of state section
756 ;;
757 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
758 ;********************************************** CNS P12 Addition
759 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
760 ;; CODE PAGE: Common ;;change **********CNS **************
761 ;; STATE: Numeric Key Pad
762 ;; KEYBOARD TYPES: All except the p12
763 ;; TABLE TYPE: Translate
764 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
765 ;;
766 DW COM_PAD_K1_END-$ ;; length of state section
767 DB NUMERIC_PAD ;; State ID
768 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
769 DB -1,-1 ;; Buffer entry for error character
770 ;;
771 DW COM_PAD_K1_T1_END-$ ;; Size of xlat table
772 DB STANDARD_TABLE ;; xlat options:
773 DB 1 ;; number of entries
774 DB 83,',' ;; decimal seperator = ,
775 COM_PAD_K1_T1_END: ;;
776 ;;
777 DW 0 ;; Size of xlat table - null table
778 ;;
779 COM_PAD_K1_END: ;;
780 ;;
781 ;**************************************************** CODE eliminated**********
782 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; NUM PAD altered ********
783 ;; CODE PAGE: 850 CNS engraved "," out
784 ;; STATE: Numeric Pad - Divide Sign
785 ;; KEYBOARD TYPES: G
786 ;; TABLE TYPE: Translate
787 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
788 ;; ;;
789 ;; DW CP850_DIVID_END-$ ;; length of state section
790 ;; DB DIVIDE_SIGN ;; State ID
791 ;; DW G_KB+P12_KB ;; Keyboard Type
792 ;; DB -1,-1 ;; error character = standalone accent
793 ;; ;;
794 ;; DW CP850_DIVID_T1_END-$ ;; Size of xlat table
795 ;; DB TYPE_2_TAB ;; xlat options:
796 ;; DB 2 ;; number of scans
797 ;; DB 0E0H,',',0E0H ;; DIVIDE SIGN
798 ;; DB 51,',',0E0H ;;
799 ;; CP850_DIVID_T1_END: ;;
800 ;; ;;
801 ;; DW 0 ;; Size of xlat table - null table
802 ;; ;;
803 ;; CP850_DIVID_END: ;;
804 ;; ;;
805 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
806 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
807 ;; CODE PAGE: 850
808 ;; STATE: Numeric Key Pad - Multiplication
809 ;; KEYBOARD TYPES: G,
810 ;; TABLE TYPE: Translate
811 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
812 ;; ;;
813 ;; DW CP850_PAD_K1_END-$ ;; length of state section
814 ;; DB NUMERIC_PAD ;; State ID
815 ;; DW G_KB ;; Keyboard Type
816 ;; DB -1,-1 ;; Buffer entry for error character
817 ;; ;;
818 ;; DW CP850_PAD_K1_T1_END-$ ;; Size of xlat table
819 ;; DB STANDARD_TABLE ;; xlat options:
820 ;; DB 1 ;; number of entries
821 ;; DB 51,',' ; (removed *** CNS ****) ;; MULTIPLICATION SIGN
822 ;; CP850_PAD_K1_T1_END: ;;
823 ;; ;;
824 ;; DW 0 ;; Size of xlat table - null table
825 ;; ;;
826 ;; CP850_PAD_K1_END: ;;
827 ;; ;;
828 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
829 ;*********************************************************
830 ;; CODE PAGE: Common
831 ;; STATE: Alpha Lower Case
832 ;; KEYBOARD TYPES: All
833 ;; TABLE TYPE: Translate
834 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
835 ;;
836 DW COM_AL_LO_END-$ ;; length of state section
837 DB ALPHA_LOWER ;; State ID
838 DW G_KB+P12_KB+AT_KB+XT_KB ;; Keyboard Type
839 DB -1,-1 ;; Buffer entry for error character
840 ;;
841 DW COM_AL_LO_T1_END-$ ;; Size of xlat table
842 DB STANDARD_TABLE ;; xlat options:
843 DB 5 ;; number of entries
844 DB 16,'a' ;; small a
845 DB 17,'z' ;; small z
846 DB 30,'q' ;; small q
847 DB 39,'m' ;; small m
848 DB 44,'w' ;; small w
849 COM_AL_LO_T1_END: ;;
850 ;;
851 DW 0 ;; Size of xlat table - null table
852 ;;
853 COM_AL_LO_END: ;;
854 ;;
855 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
856 ;; CODE PAGE: Common
857 ;; STATE: Alpha Upper Case
858 ;; KEYBOARD TYPES: All
859 ;; TABLE TYPE: Translate
860 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
861 ;;
862 DW COM_AL_UP_END-$ ;; length of state section
863 DB ALPHA_UPPER ;; State ID
864 DW G_KB+P12_KB+AT_KB+XT_KB ;; Keyboard Type
865 DB -1,-1 ;; Buffer entry for error character
866 ;;
867 DW COM_AL_UP_T1_END-$ ;; Size of xlat table
868 DB STANDARD_TABLE ;; xlat options:
869 DB 5 ;; number of entries
870 DB 16,'A' ;; caps A
871 DB 17,'Z' ;; caps Z
872 DB 30,'Q' ;; caps Q
873 DB 39,'M' ;; caps M
874 DB 44,'W' ;; caps W
875 COM_AL_UP_T1_END: ;;
876 ;;
877 DW 0 ;; Size of xlat table - null table
878 ;;
879 COM_AL_UP_END: ;;
880 ;;
881 ;;
882 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
883 ;; CODE PAGE: Common
884 ;; STATE: Non-Alpha Lower Case
885 ;; KEYBOARD TYPES: G,
886 ;; TABLE TYPE: Translate
887 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
888 ;;
889 DW COM_NA_LO_END-$ ;; length of state section
890 DB NON_ALPHA_LOWER ;; State ID
891 DW G_KB ;P12_KB ;; Keyboard Type
892 DB -1,-1 ;; Buffer entry for error character
893 ;;
894 DW COM_NA_LO_T1_END-$ ;; Size of xlat table
895 DB STANDARD_TABLE ;; xlat options:
896 DB 20 ;; number of entries
897 DB 41,"ý" ;; superscript 2
898 DB 2,"&" ;;
899 DB 3,"\82" ;; acute - e
900 DB 4,'"' ;;
901 DB 5,"'" ;;
902 DB 6,"(" ;;
903 DB 8,"\8a" ;; grave - e
904 DB 9,"!" ;;
905 DB 10,"\87" ;; c - cedilla small
906 DB 11,"\85" ;;
907 DB 12,")" ;;
908 DB 13,"-" ;;
909 DB 27,"$" ;;
910 DB 40,"\97" ;; grave - u
911 DB 43,0E6H ;; mu
912 DB 86,'<' ;;
913 DB 50,',' ;;
914 DB 51,';' ;;
915 DB 52,':' ;;
916 DB 53,'=' ;;
917 COM_NA_LO_T1_END: ;;
918 ;;
919 DW 0 ;; Size of xlat table - null table
920 ;;
921 COM_NA_LO_END: ;;
922 ;;
923 ;;
924 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
925 ;***************************************** CNS P12 Addition *****************
926 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
927 ;; CODE PAGE: Common
928 ;; STATE: Non-Alpha Lower Case
929 ;; KEYBOARD TYPES: P12
930 ;; TABLE TYPE: Translate
931 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
932 ;;
933 DW COM_NA_LO_PK1_END-$ ;; length of state section
934 DB NON_ALPHA_LOWER ;; State ID
935 DW P12_KB ;; Keyboard Type
936 DB -1,-1 ;; Buffer entry for error character
937 ;;
938 DW COM_NA_LO_PT1_K1_END-$ ;; Size of xlat table
939 DB STANDARD_TABLE ;; xlat options:
940 DB 21 ;; number of entries
941 DB 41,"ý" ;; superscript 2
942 DB 2,"&" ;;
943 DB 3,"\82" ;; acute - e
944 DB 4,'"' ;;
945 DB 5,"'" ;;
946 DB 6,"(" ;;
947 DB 7,"-" ;;
948 DB 8,"\8a" ;; grave - e
949 DB 9,"_" ;;
950 DB 10,"\87" ;; c - cedilla small
951 DB 11,"\85" ;;
952 DB 12,")" ;;
953 DB 13,"=" ;;
954 DB 27,"$" ;;
955 DB 40,"\97" ;; grave - u
956 DB 43,"*" ;;
957 DB 86,'<' ;; +
958 DB 50,',' ;; <
959 DB 51,';' ;; -
960 DB 52,':' ;;
961 DB 53,'!' ;;
962
963 COM_NA_LO_PT1_K1_END: ;;
964 ;;
965 DW 0 ;; Size of xlat table - null table
966 ;;
967 COM_NA_LO_PK1_END: ;;
968 ;;
969 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
970 ;***************************************** CNS P12 Addition *****************
971 ;; CODE PAGE: Common
972 ;; STATE: Non-Alpha Lower Case
973 ;; KEYBOARD TYPES:AT
974 ;; TABLE TYPE: Translate
975 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
976 ;;
977 DW COM_NA_LO_K2_END-$ ;; length of state section
978 DB NON_ALPHA_LOWER ;; State ID
979 DW AT_KB ;; Keyboard Type
980 DB -1,-1 ;; Buffer entry for error character
981 ;;
982 DW COM_NA_LO_T1_K2_END-$ ;; Size of xlat table
983 DB STANDARD_TABLE ;; xlat options:
984 DB 19 ;; number of entries
985 DB 41,"<" ;;
986 DB 2,"&" ;;
987 DB 3,"\82" ;; acute - e
988 DB 4,'"' ;;
989 DB 5,"'" ;;
990 DB 6,"(" ;;
991 DB 8,"\8a" ;; grave - e
992 DB 9,"!" ;;
993 DB 10,"\87" ;; c - cedilla small
994 DB 11,"\85" ;;
995 DB 12,")" ;;
996 DB 13,"-" ;;
997 DB 27,"$" ;;
998 DB 40,"\97" ;; grave - u
999 DB 43,0E6H ;; mu
1000 DB 50,',' ;;
1001 DB 51,';' ;;
1002 DB 52,':' ;;
1003 DB 53,'=' ;;
1004 COM_NA_LO_T1_K2_END: ;;
1005 ;;
1006 DW 0 ;; Size of xlat table - null table
1007 ;;
1008 COM_NA_LO_K2_END: ;;
1009 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1010 ;; CODE PAGE: Common
1011 ;; STATE: Non-Alpha Lower Case
1012 ;; KEYBOARD TYPES: XT,
1013 ;; TABLE TYPE: Translate
1014 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1015 ;;
1016 DW COM_NA_LO_K1_END-$ ;; length of state section
1017 DB NON_ALPHA_LOWER ;; State ID
1018 DW XT_KB ;; Keyboard Type
1019 DB -1,-1 ;; Buffer entry for error character
1020 ;;
1021 DW COM_NA_LO_K1_T1_END-$ ;; Size of xlat table
1022 DB STANDARD_TABLE ;; xlat options:
1023 DB 19 ;; number of entries
1024 DB 2,"&" ;;
1025 DB 3,"\82" ;; acute - e
1026 DB 4,'"' ;;
1027 DB 5,"'" ;;
1028 DB 6,"(" ;;
1029 DB 8,"\8a" ;;
1030 DB 9,"!" ;;
1031 DB 10,"\87" ;; c - cedilla small
1032 DB 11,"\85" ;;
1033 DB 12,")" ;;
1034 DB 13,"-" ;;
1035 DB 27,"$" ;;
1036 DB 40,"\97" ;; grave - u
1037 DB 41,0E6H ;; mu
1038 DB 43,'<' ;;
1039 DB 50,',' ;;
1040 DB 51,';' ;;
1041 DB 52,':' ;;
1042 DB 53,'=' ;;
1043 COM_NA_LO_K1_T1_END: ;;
1044 ;;
1045 DW 0 ;; Size of xlat table - null table
1046 ;;
1047 COM_NA_LO_K1_END: ;;
1048 ;;
1049 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1050 ;; CODE PAGE: Common
1051 ;; STATE: Non-Alpha Upper Case
1052 ;; KEYBOARD TYPES: G,
1053 ;; TABLE TYPE: Translate
1054 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1055 ;;
1056 DW COM_NA_UP_END-$ ;; length of state section
1057 DB NON_ALPHA_UPPER ;; State ID
1058 DW G_KB ;+P12_KB ;; Keyboard Type
1059 DB -1,-1 ;; Buffer entry for error character
1060 ;;
1061 DW COM_NA_UP_T1_END-$ ;; Size of xlat table
1062 DB STANDARD_TABLE ;; xlat options:
1063 DB 20 ;; number of entries
1064 DB 2,'1' ;;
1065 DB 3,'2' ;;
1066 DB 4,'3' ;;
1067 DB 5,'4' ;;
1068 DB 6,'5' ;;
1069 DB 7,'6' ;;
1070 DB 8,'7' ;;
1071 DB 9,'8' ;;
1072 DB 10,'9' ;;
1073 DB 11,'0' ;;
1074 DB 12,0F8H ;; degree symbol
1075 DB 13,"_" ;;
1076 DB 27,"*" ;;
1077 DB 40,'%' ;;
1078 DB 43,'\9c' ;;
1079 DB 86,'>' ;;
1080 DB 50,'?' ;;
1081 DB 51,'.' ;;
1082 DB 52,'/' ;;
1083 DB 53,'+' ;;
1084 COM_NA_UP_T1_END: ;;
1085 ;;
1086 DW 0 ;; Size of xlat table - null table
1087 ;;
1088 COM_NA_UP_END: ;;
1089 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1090 ;***************************************** CNS P12 Addition *****************
1091 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1092 ;; CODE PAGE: Common
1093 ;; STATE: Non-Alpha Upper Case
1094 ;; KEYBOARD TYPES: P12
1095 ;; TABLE TYPE: Translate
1096 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1097 ;;
1098 DW COM_NA_UP_PK1_END-$ ;; length of state section
1099 DB NON_ALPHA_UPPER ;; State ID
1100 DW P12_KB ;; Keyboard Type
1101 DB -1,-1 ;; Buffer entry for error character
1102 ;;
1103 DW COM_NA_UP_PT1_K1_END-$ ;; Size of xlat table
1104 DB STANDARD_TABLE ;; xlat options:
1105 DB 21 ;; number of entries
1106 DB 2,'1' ;;
1107 DB 3,'2' ;;
1108 DB 4,'3' ;;
1109 DB 5,'4' ;;
1110 DB 6,'5' ;;
1111 DB 7,'6' ;;
1112 DB 8,'7' ;;
1113 DB 9,'8' ;;
1114 DB 10,'9' ;;
1115 DB 11,'0' ;;
1116 DB 12,0F8H ;; degree symbol
1117 DB 13,"+" ;; plus sign
1118 DB 27,09CH ;; \9c symbol
1119 DB 40,'%' ;;
1120 DB 41,"ü" ;; superscript 3
1121 DB 43,0E6H ;; æ - mu symbol
1122 DB 86,'>' ;;
1123 DB 50,'?' ;;
1124 DB 51,'.' ;;
1125 DB 52,'/' ;;
1126 DB 53,'+' ;;
1127 COM_NA_UP_PT1_K1_END: ;;
1128 ;;
1129 DW 0 ;; Size of xlat table - null table
1130 ;;
1131 COM_NA_UP_PK1_END: ;;
1132 ;;
1133 ;;
1134 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1135 ;***************************************** CNS P12 Addition *****************
1136 ;; CODE PAGE: Common
1137 ;; STATE: Non-Alpha Upper Case
1138 ;; KEYBOARD TYPES: XT +
1139 ;; TABLE TYPE: Translate
1140 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1141 ;;
1142 DW COM_NA_UP_K1_END-$ ;; length of state section
1143 DB NON_ALPHA_UPPER ;; State ID
1144 DW XT_KB ;; Keyboard Type
1145 DB -1,-1 ;; Buffer entry for error character
1146 ;;
1147 DW COM_NA_UP_T1_K1_END-$ ;; Size of xlat table
1148 DB STANDARD_TABLE ;; xlat options:
1149 DB 20 ;; number of entries
1150 DB 41,'\9c' ;;
1151 DB 2,'1' ;;
1152 DB 3,'2' ;;
1153 DB 4,'3' ;;
1154 DB 5,'4' ;;
1155 DB 6,'5' ;;
1156 DB 7,'6' ;;
1157 DB 8,'7' ;;
1158 DB 9,'8' ;;
1159 DB 10,'9' ;;
1160 DB 11,'0' ;;
1161 DB 12,0F8H ;; degree symbol
1162 DB 13,"_" ;;
1163 DB 27,"*" ;;
1164 DB 40,'%' ;;
1165 DB 43,'>' ;;
1166 DB 50,'?' ;;
1167 DB 51,'.' ;;
1168 DB 52,'/' ;;
1169 DB 53,'+' ;;
1170 COM_NA_UP_T1_K1_END: ;;
1171 ;;
1172 DW 0 ;; Size of xlat table - null table
1173 ;;
1174 COM_NA_UP_K1_END: ;;
1175 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1176 ;;
1177 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1178 ;; CODE PAGE: Common
1179 ;; STATE: Non-Alpha Upper Case
1180 ;; KEYBOARD TYPES: AT
1181 ;; TABLE TYPE: Translate
1182 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1183 ;;
1184 DW COM_NA_UP_K2_END-$ ;; length of state section
1185 DB NON_ALPHA_UPPER ;; State ID
1186 DW AT_KB ;; Keyboard Type
1187 DB -1,-1 ;; Buffer entry for error character
1188 ;;
1189 DW COM_NA_UP_T1_K2_END-$ ;; Size of xlat table
1190 DB STANDARD_TABLE ;; xlat options:
1191 DB 20 ;; number of entries
1192 DB 41,'>' ;;
1193 DB 2,'1' ;;
1194 DB 3,'2' ;;
1195 DB 4,'3' ;;
1196 DB 5,'4' ;;
1197 DB 6,'5' ;;
1198 DB 7,'6' ;;
1199 DB 8,'7' ;;
1200 DB 9,'8' ;;
1201 DB 10,'9' ;;
1202 DB 11,'0' ;;
1203 DB 12,0F8H ;; degree symbol
1204 DB 13,"_" ;;
1205 DB 27,"*" ;;
1206 DB 40,'%' ;;
1207 DB 43,'\9c' ;;
1208 DB 50,'?' ;;
1209 DB 51,'.' ;;
1210 DB 52,'/' ;;
1211 DB 53,'+' ;;
1212 COM_NA_UP_T1_K2_END: ;;
1213 ;;
1214 DW 0 ;; Size of xlat table - null table
1215 ;;
1216 COM_NA_UP_K2_END: ;;
1217 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1218 ;; CODE PAGE: Common
1219 ;; STATE: Third Shift
1220 ;; KEYBOARD TYPES: G,
1221 ;; TABLE TYPE: Translate
1222 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1223 ;;
1224 DW COM_THIRD_END-$ ;; length of state section
1225 DB THIRD_SHIFT ;; State ID
1226 DW G_KB ;+P12_KB ;; Keyboard Type
1227 DB -1,-1 ;; Buffer entry for error character
1228 ;;
1229 DW COM_THIRD_T1_END-$ ;; Size of xlat table
1230 DB STANDARD_TABLE ;; xlat options:
1231 DB 9 ;; number of entries
1232 DB 2,"|" ;;
1233 DB 3,'@' ;;
1234 DB 4,'#' ;;
1235 DB 7,'^' ;;
1236 DB 10,'{' ;;
1237 DB 11,'}' ;;
1238 DB 26,'[' ;;
1239 DB 27,']' ;;
1240 DB 86,'\' ;;
1241 COM_THIRD_T1_END: ;;
1242 ;;
1243 DW 0 ;; Last xlat table
1244 COM_THIRD_END: ;;
1245 ;;
1246 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1247 ;******************************************* CNS Addition
1248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1249 ;; CODE PAGE: Common
1250 ;; STATE: Acute Lower Case
1251 ;; KEYBOARD TYPES: All
1252 ;; TABLE TYPE: Translate
1253 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1254 ;;
1255 DW COM_AC_LO_END-$ ;; length of state section
1256 DB ACUTE_LOWER ;; State ID
1257 DW P12_KB ;; ;; Keyboard Type
1258 DB 39,0 ;; error character = standalone accent
1259 ;;
1260 DW COM_AC_LO_T1_END-$ ;; Size of xlat table
1261 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1262 DB 1 ;; number of scans
1263 DB 18,'\82' ;; scan code,ASCII - e
1264 COM_AC_LO_T1_END: ;;
1265 ;;
1266 DW 0 ;; Size of xlat table - null table
1267 ;;
1268 COM_AC_LO_END: ;;
1269 ;;
1270 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1271 ;******************************************* CNS Addition
1272 ;***************************************** CNS P12 Addition *****************
1273 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1274 ;; CODE PAGE: Common
1275 ;; STATE: Third Shift
1276 ;; KEYBOARD TYPES: P12
1277 ;; TABLE TYPE: Translate
1278 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1279 ;;
1280 DW COM_THIRD_PK1_END-$ ;; length of state section
1281 DB THIRD_SHIFT ;; State ID
1282 DW P12_KB ;; Keyboard Type
1283 DB -1,-1 ;; Buffer entry for error character
1284 ;;
1285 DW COM_THIRD_PT1_K1_END-$ ;; Size of xlat table
1286 DB STANDARD_TABLE ;; xlat options:
1287 DB 11 ;; number of entries
1288 DB 3,'~' ;;
1289 DB 4,'#' ;;
1290 DB 5,'{' ;;
1291 DB 6,'[' ;;
1292 DB 7,'|' ;;
1293 DB 8,'`' ;; grave symbol not a dead key rep
1294 DB 9,'\' ;;
1295 DB 10,'^' ;; circumflex (caret)
1296 DB 11,'@' ;;
1297 DB 12,']' ;;
1298 DB 13,'}' ;;
1299 COM_THIRD_PT1_K1_END: ;;
1300 ;;
1301 DW 0 ;; Last xlat table
1302 COM_THIRD_PK1_END: ;;
1303 ;;
1304 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1305 ;***************************************** CNS P12 Addition *****************
1306 ;; CODE PAGE: Common
1307 ;; STATE: Third Shift
1308 ;; KEYBOARD TYPES: XT
1309 ;; TABLE TYPE: Translate
1310 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1311 ;;
1312 DW COM_THIRD_K1_END-$ ;; length of state section
1313 DB THIRD_SHIFT ;; State ID
1314 DW XT_KB ;; Keyboard Type
1315 DB -1,-1 ;; Buffer entry for error character
1316 ;;
1317 DW COM_THIRD_T1_K1_END-$ ;; Size of xlat table
1318 DB STANDARD_TABLE ;; xlat options:
1319 DB 9 ;; number of entries
1320 DB 2,"|" ;;
1321 DB 3,'@' ;;
1322 DB 4,'#' ;;
1323 DB 7,'^' ;;
1324 DB 10,'{' ;;
1325 DB 11,'}' ;;
1326 DB 26,'[' ;;
1327 DB 27,']' ;;
1328 DB 43,'\' ;;
1329 COM_THIRD_T1_K1_END: ;;
1330 ;;
1331 DW 0 ;; Last xlat table
1332 COM_THIRD_K1_END: ;;
1333 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1334 ;; CODE PAGE: Common
1335 ;; STATE: Third Shift
1336 ;; KEYBOARD TYPES: AT
1337 ;; TABLE TYPE: Translate
1338 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1339 ;;
1340 DW COM_THIRD_K2_END-$ ;; length of state section
1341 DB THIRD_SHIFT ;; State ID
1342 DW AT_KB ;; Keyboard Type
1343 DB -1,-1 ;; Buffer entry for error character
1344 ;;
1345 DW COM_THIRD_T1_K2_END-$ ;; Size of xlat table
1346 DB STANDARD_TABLE ;; xlat options:
1347 DB 9 ;; number of entries
1348 DB 2,"|" ;;
1349 DB 3,'@' ;;
1350 DB 4,'#' ;;
1351 DB 7,'^' ;;
1352 DB 10,'{' ;;
1353 DB 11,'}' ;;
1354 DB 26,'[' ;;
1355 DB 27,']' ;;
1356 DB 41,'\' ;;
1357 COM_THIRD_T1_K2_END: ;;
1358 ;;
1359 DW 0 ;; Last xlat table
1360 COM_THIRD_K2_END: ;;
1361 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1362 ;; CODE PAGE: Common
1363 ;; STATE: Grave Lower
1364 ;; KEYBOARD TYPES: ALL
1365 ;; TABLE TYPE: Translate
1366 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1367 ;;
1368 DW COM_GR_LO_END-$ ;; length of state section
1369 DB GRAVE_LOWER ;; State ID
1370 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1371 DB 96,0 ;; error character = standalone accent
1372 ;;
1373 DW COM_GR_LO_T1_END-$ ;; Size of xlat table
1374 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1375 DB 5 ;; number of scans
1376 DB 18,'\8a' ;; scan code,ASCII - e
1377 DB 16,'\85' ;; scan code,ASCII - a
1378 DB 24,'\95' ;; scan code,ASCII - o
1379 DB 22,'\97' ;; scan code,ASCII - u
1380 DB 23,'\8d' ;; scan code,ASCII - i
1381 COM_GR_LO_T1_END: ;;
1382 ;;
1383 DW 0 ;; Size of xlat table - null table
1384 ;;
1385 COM_GR_LO_END: ;; length of state section
1386 ;;
1387 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1388 ;; CODE PAGE: Common
1389 ;; STATE: Grave Upper Case
1390 ;; KEYBOARD TYPES: All
1391 ;; TABLE TYPE: Translate
1392 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1393 ;;
1394 DW COM_GR_UP_END-$ ;; length of state section
1395 DB GRAVE_UPPER ;; State ID
1396 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1397 DB 96,0 ;; error character = standalone accent
1398 ;;
1399 DW COM_GR_UP_T1_END-$ ;; Size of xlat table
1400 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1401 DB 0 ;; number of scans
1402 COM_GR_UP_T1_END: ;;
1403 ;;
1404 DW 0 ;; Size of xlat table - null table
1405 ;;
1406 COM_GR_UP_END: ;; length of state section
1407 ;;
1408 ;;
1409 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1410 ;; CODE PAGE: Common
1411 ;; STATE: Grave Space Bar
1412 ;; KEYBOARD TYPES: All
1413 ;; TABLE TYPE: Translate
1414 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1415 ;;
1416 DW COM_GR_SP_END-$ ;; length of state section
1417 DB GRAVE_SPACE ;; State ID
1418 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1419 DB 96,0 ;; error character = standalone accent
1420 ;;
1421 DW COM_GR_SP_T1_END-$ ;; Size of xlat table
1422 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1423 DB 1 ;; number of scans
1424 DB 57,96 ;; STANDALONE GRAVE
1425 COM_GR_SP_T1_END: ;;
1426 ;;
1427 DW 0 ;; Size of xlat table - null table
1428 ;;
1429 COM_GR_SP_END: ;; length of state section
1430 ;;
1431 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1432 ;; CODE PAGE: Common
1433 ;; STATE: Circumflex Lower
1434 ;; KEYBOARD TYPES: All
1435 ;; TABLE TYPE: Translate
1436 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1437 ;;
1438 DW COM_CI_LO_END-$ ;; length of state section
1439 DB CIRCUMFLEX_LOWER ;; State ID
1440 DW G_KB+P12_KB+AT_KB+XT_KB ;; Keyboard Type
1441 DB 94,0 ;; error character = standalone accent
1442 ;;
1443 DW COM_CI_LO_T1_END-$ ;; Size of xlat table
1444 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1445 DB 5 ;; number of scans
1446 DB 16,'\83' ;; scan code,ASCII - a
1447 DB 18,'\88' ;; scan code,ASCII - e
1448 DB 24,'\93' ;; scan code,ASCII - o
1449 DB 22,'\96' ;; scan code,ASCII - u
1450 DB 23,'\8c' ;; scan code,ASCII - i
1451 COM_CI_LO_T1_END: ;;
1452 ;;
1453 DW 0 ;;
1454 ;;
1455 COM_CI_LO_END: ;;
1456 ;;
1457 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1458 ;; CODE PAGE: Common
1459 ;; STATE: Circumflex Upper
1460 ;; KEYBOARD TYPES: All
1461 ;; TABLE TYPE: Translate
1462 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1463 ;;
1464 DW COM_CI_UP_END-$ ;; length of state section
1465 DB CIRCUMFLEX_UPPER ;; State ID
1466 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1467 DB 94,0 ;; error character = standalone accent
1468 ;;
1469 DW COM_CI_UP_T1_END-$ ;; Size of xlat table
1470 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1471 DB 0 ;; number of scans
1472 COM_CI_UP_T1_END: ;;
1473 ;;
1474 DW 0 ;;
1475 ;;
1476 COM_CI_UP_END: ;;
1477 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1478 ;; CODE PAGE: Common
1479 ;; STATE: Circumflex Space Bar
1480 ;; KEYBOARD TYPES: All
1481 ;; TABLE TYPE: Translate
1482 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1483 ;;
1484 DW COM_CI_SP_END-$ ;; length of state section
1485 DB CIRCUMFLEX_SPACE ;; State ID
1486 DW G_KB+P12_KB+AT_KB+XT_KB ;; Keyboard Type
1487 DB 94,0 ;; error character = standalone accent
1488 ;;
1489 DW COM_CI_SP_T1_END-$ ;; Size of xlat table
1490 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1491 DB 1 ;; number of scans
1492 DB 57,94 ;; STANDALONE CIRCUMFLEX
1493 COM_CI_SP_T1_END: ;;
1494 ;;
1495 DW 0 ;; Size of xlat table - null table
1496 ;;
1497 COM_CI_SP_END: ;; length of state section
1498 ;;
1499 ;;
1500 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1501 ;; CODE PAGE: Common
1502 ;; STATE: Tilde Space Bar
1503 ;; KEYBOARD TYPES: All
1504 ;; TABLE TYPE: Translate
1505 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1506 ;;
1507 DW COM_TI_SP_END-$ ;; length of state section
1508 DB TILDE_SPACE ;; State ID
1509 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1510 DB 126,0 ;; error character = standalone accent
1511 ;;
1512 DW COM_TI_SP_T1_END-$ ;; Size of xlat table
1513 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1514 DB 1 ;; number of scans
1515 DB 57,126 ;; STANDALONE TIDLE
1516 COM_TI_SP_T1_END: ;;
1517 ;;
1518 DW 0 ;; Size of xlat table - null table
1519 ;;
1520 COM_TI_SP_END: ;; length of state section
1521 ;;
1522 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1523 DW 0 ;; Last State
1524 COMMON_XLAT_END: ;;
1525 ;;
1526 ;;
1527 ;;
1528 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1529 ;;***************************************
1530 ;; BE Specific Translate Section for 437
1531 ;;
1532 ;;***************************************
1533 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1534 ;;
1535 PUBLIC FR1_437_XLAT ;;
1536 FR1_437_XLAT: ;;
1537 ;;
1538 DW CP437_XLAT_END-$ ;; length of section
1539 DW 437 ;;
1540 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1541 ;; CODE PAGE: 437
1542 ;; STATE: Non-Alpha Lower Case
1543 ;; KEYBOARD TYPES: All
1544 ;; TABLE TYPE: Translate
1545 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1546 ;;
1547 DW CP437_NA_LO_END-$ ;; length of state section
1548 DB NON_ALPHA_LOWER ;; State ID
1549 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1550 DB -1,-1 ;; default ignore error state
1551 ;;
1552 DW CP437_NA_LO_T1_END-$ ;; Size of xlat table
1553 DB STANDARD_TABLE ;; xlat options:
1554 DB 1 ;; number of scans
1555 DB 7,15H ;; Section Symbol
1556 CP437_NA_LO_T1_END: ;;
1557 ;;
1558 DW 0 ;; Size of xlat table - null table
1559 ;;
1560 CP437_NA_LO_END: ;;
1561 ;;
1562 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1563 ;**************************************** CNS Addition
1564 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1565 ;; CODE PAGE: 437
1566 ;; STATE: Non-Alpha Upper Case
1567 ;; KEYBOARD TYPES: p12
1568 ;; TABLE TYPE: Translate
1569 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1570 ;;
1571 DW CP437_NA_UP_K1_END-$ ;; length of state section
1572 DB NON_ALPHA_UPPER ;; State ID
1573 DW P12_KB ;; Keyboard Type
1574 DB -1,-1 ;; default ignore error state
1575 ;;
1576 DW CP437_NA_UP_T1_K1_END-$ ;; Size of xlat table
1577 DB STANDARD_TABLE ;; xlat options: **** CNS 12/18
1578 DB 1 ;; number of scans
1579 DB 53,015H ;; Section symbol - \15
1580 CP437_NA_UP_T1_K1_END: ;;
1581 ;;
1582 DW 0 ;; Size of xlat table - null table
1583 ;;
1584 CP437_NA_UP_K1_END: ;;
1585 ;;
1586 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1587 ;**************************************** CNS Addition
1588 ;; CODE PAGE: 437
1589 ;; STATE: Non-Alpha Upper Case
1590 ;; KEYBOARD TYPES: G,
1591 ;; TABLE TYPE: Translate
1592 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1593 ;;
1594 DW CP437_NA_UP_END-$ ;; length of state section
1595 DB NON_ALPHA_UPPER ;; State ID
1596 DW G_KB ;+P12_KB ;; Keyboard Type
1597 DB -1,-1 ;; default ignore error state
1598 ;;
1599 DW CP437_NA_UP_T1_END-$ ;; Size of xlat table
1600 DB STANDARD_TABLE ;; xlat options:
1601 DB 1 ;; number of scans
1602 DB 41,00H ;; 3 Superscript
1603 CP437_NA_UP_T1_END: ;;
1604 ;;
1605 DW 0 ;; Size of xlat table - null table
1606 ;;
1607 CP437_NA_UP_END: ;;
1608 ;;
1609 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1610 ;***************************************** CNS P12 Addition *****************
1611 ;***************************************** CNS P12 Addition *****************
1612 ;; CODE PAGE: CP437
1613 ;; STATE: Acute Lower Case
1614 ;; KEYBOARD TYPES: All
1615 ;; TABLE TYPE: Translate
1616 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1617 ;;
1618 DW CP437_AC_LO_END-$ ;; length of state section
1619 DB ACUTE_LOWER ;; State ID
1620 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1621 DB 39,0 ;; error character = standalone accent
1622 ;;
1623 DW CP437_AC_LO_T1_END-$ ;; Size of xlat table
1624 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1625 DB 5 ;; number of scans
1626 DB 16,' ' ;; a acute
1627 DB 18,'\82' ;; e acute
1628 DB 23,'¡' ;; i acute
1629 DB 24,'¢' ;; o acute
1630 DB 22,'£' ;; u acute
1631 CP437_AC_LO_T1_END: ;;
1632 ;;
1633 DW 0 ;; Size of xlat table - null table
1634 ;;
1635 CP437_AC_LO_END: ;;
1636 ;;
1637 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1638 ;; CODE PAGE: CP437
1639 ;; STATE: Acute Upper Case
1640 ;; KEYBOARD TYPES: All
1641 ;; TABLE TYPE: Translate
1642 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1643 ;;
1644 DW CP437_AC_UP_END-$ ;; length of state section
1645 DB ACUTE_UPPER ;; State ID
1646 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1647 DB 39,0 ;; error character = standalone accent
1648 ;;
1649 DW CP437_AC_UP_T1_END-$ ;; Size of xlat table
1650 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1651 DB 1 ;; number of scans
1652 DB 18,'\90' ;; scan code,ASCII - e
1653 CP437_AC_UP_T1_END: ;;
1654 ;;
1655 DW 0 ;; Size of xlat table - null table
1656 ;;
1657 CP437_AC_UP_END: ;;
1658 ;;
1659 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1660 ;; CODE PAGE: CP437
1661 ;; STATE: Acute Space Bar
1662 ;; KEYBOARD TYPES: All
1663 ;; TABLE TYPE: Translate
1664 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1665 ;;
1666 DW CP437_AC_SP_END-$ ;; length of state section
1667 DB ACUTE_SPACE ;; State ID
1668 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1669 DB 39,0 ;; error character = standalone accent
1670 ;;
1671 DW CP437_AC_SP_T1_END-$ ;; Size of xlat table
1672 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1673 DB 1 ;; number of scans
1674 DB 57,39 ;; scan code,ASCII - SPACE
1675 CP437_AC_SP_T1_END: ;;
1676 ;;
1677 DW 0 ;; Size of xlat table - null table
1678 ;;
1679 CP437_AC_SP_END: ;;
1680 ;;
1681 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1682 ;; CODE PAGE: CP437
1683 ;; STATE: Tilde Lower
1684 ;; KEYBOARD TYPES: All
1685 ;; TABLE TYPE: Translate
1686 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1687 ;;
1688 DW CP437_TI_LO_END-$ ;; length of state section
1689 DB TILDE_LOWER ;; State ID
1690 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1691 DB 126,0 ;; error character = standalone accent
1692 ;;
1693 DW CP437_TI_LO_T1_END-$ ;; Size of xlat table
1694 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1695 DB 1 ;; number of scans
1696 DB 49,164 ;; scan code,ASCII - n
1697 CP437_TI_LO_T1_END: ;;
1698 ;;
1699 DW 0 ;; Size of xlat table - null table
1700 ;;
1701 CP437_TI_LO_END: ;; length of state section
1702 ;;
1703 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1704 ;; CODE PAGE: CP437
1705 ;; STATE: Tilde Upper Case
1706 ;; KEYBOARD TYPES: All
1707 ;; TABLE TYPE: Translate
1708 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1709 ;;
1710 DW CP437_TI_UP_END-$ ;; length of state section
1711 DB TILDE_UPPER ;; State ID
1712 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1713 DB 126,0 ;; error character = standalone accent
1714 ;;
1715 DW CP437_TI_UP_T1_END-$ ;; Size of xlat table
1716 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1717 DB 1 ;; number of scans
1718 DB 49,165 ;; scan code,ASCII - N
1719 CP437_TI_UP_T1_END: ;;
1720 ;;
1721 DW 0 ;; Size of xlat table - null table
1722 ;;
1723 CP437_TI_UP_END: ;; length of state section
1724 ;;
1725 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1726 ;; CODE PAGE: CP437
1727 ;; STATE: Diaresis Lower Case
1728 ;; KEYBOARD TYPES: All
1729 ;; TABLE TYPE: Translate
1730 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1731 ;;
1732 DW CP437_DI_LO_END-$ ;; length of state section
1733 DB DIARESIS_LOWER ;; State ID
1734 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1735 DB 0FEH,0 ;; error character = standalone accent
1736 ;;
1737 DW CP437_DI_LO_T1_END-$ ;; Size of xlat table
1738 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1739 DB 6 ;; number of scans
1740 DB 18,'\89' ;; scan code,ASCII - e
1741 DB 16,'\84' ;; scan code,ASCII - a
1742 DB 24,'\94' ;; scan code,ASCII - o
1743 DB 22,'\81' ;; scan code,ASCII - u
1744 DB 23,'\8b' ;; scan code,ASCII - i
1745 DB 21,'\98' ;; scan code,ASCII - y
1746 CP437_DI_LO_T1_END: ;;
1747 ;;
1748 DW 0 ;; Size of xlat table - null table
1749 ;;
1750 CP437_DI_LO_END: ;; length of state section
1751 ;;
1752 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1753 ;; CODE PAGE: CP437
1754 ;; STATE: Diaresis Upper Case
1755 ;; KEYBOARD TYPES: All
1756 ;; TABLE TYPE: Translate
1757 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1758 ;;
1759 DW CP437_DI_UP_END-$ ;; length of state section
1760 DB DIARESIS_UPPER ;; State ID
1761 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1762 DB 0FEH,0 ;; error character = standalone accent
1763 ;;
1764 DW CP437_DI_UP_T1_END-$ ;; Size of xlat table
1765 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1766 DB 3 ;; number of scans
1767 DB 16,'\8e' ;; scan code,ASCII - a
1768 DB 24,'\99' ;; scan code,ASCII - o
1769 DB 22,'\9a' ;; scan code,ASCII - u
1770 CP437_DI_UP_T1_END: ;;
1771 ;;
1772 DW 0 ;; Size of xlat table - null table
1773 ;;
1774 CP437_DI_UP_END: ;; length of state section
1775 ;;
1776 ;;
1777 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1778 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1779 ;; CODE PAGE: Common
1780 ;; STATE: Diaresis Upper Case
1781 ;; KEYBOARD TYPES: P12
1782 ;; TABLE TYPE: Translate
1783 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1784 ;;
1785 DW COM_DI_UP_END-$ ;; length of state section
1786 DB DIARESIS_UPPER ;; State ID
1787 DW P12_KB ;; Keyboard Type
1788 DB 249,0 ;; error character = standalone accent
1789 ;;
1790 DW COM_DI_UP_T1_END-$ ;; Size of xlat table
1791 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1792 DB 3 ;; number of scans
1793 DB 16,'\8e' ;; scan code,ASCII - a
1794 DB 24,'\99' ;; scan code,ASCII - o
1795 DB 22,'\9a' ;; scan code,ASCII - u
1796 COM_DI_UP_T1_END: ;;
1797 ;;
1798 DW 0 ;; Size of xlat table - null table
1799 ;;
1800 COM_DI_UP_END: ;; length of state section
1801 ;;
1802 ;;
1803 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1804 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1805 ;; CODE PAGE: Common
1806 ;; STATE: Diaresis Space Bar
1807 ;; KEYBOARD TYPES: P12
1808 ;; TABLE TYPE: Translate
1809 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1810 ;;
1811 DW COM_DI_SP_END-$ ;; length of state section
1812 DB DIARESIS_SPACE ;; State ID
1813 DW P12_KB ;; Keyboard Type
1814 DB 249,0 ;; error character = standalone accent
1815 ;;
1816 DW COM_DI_SP_T1_END-$ ;; Size of xlat table
1817 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1818 DB 1 ;; number of scans
1819 DB 57,249 ;; error character = standalone accent
1820 COM_DI_SP_T1_END: ;;
1821 ;;
1822 DW 0 ;; Size of xlat table - null table
1823 COM_DI_SP_END: ;; length of state section
1824 ;;
1825 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1826 ;***************************************** CNS P12 Addition *****************
1827 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1828 ;; CODE PAGE: 437 ???????????????????May need change....
1829 ;; STATE: Third Shift
1830 ;; KEYBOARD TYPES: P12
1831 ;; TABLE TYPE: Translate
1832 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1833 ;;
1834 DW CP437_THIRD_PEND-$ ;; length of state section
1835 DB THIRD_SHIFT ;; State ID
1836 DW P12_KB ;; Keyboard Type
1837 DB -1,-1 ;; default ignore error state
1838 ;;
1839 DW CP437_THIRD_T1_PEND-$ ;; Size of xlat table
1840 DB STANDARD_TABLE ;; xlat options: *** CNS 12/18
1841 DB 1 ;; number of scans
1842 DB 27,'$' ;; dollar currency symbol
1843 CP437_THIRD_T1_PEND: ;;
1844 ;;
1845 DW 0 ;; Size of xlat table - null table
1846 ;;
1847 CP437_THIRD_PEND: ;;
1848 ;;
1849 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1850 ;***************************************** CNS P12 Addition *****************
1851 ;; CODE PAGE: CP437
1852 ;; STATE: Diaresis Space Bar
1853 ;; KEYBOARD TYPES: All
1854 ;; TABLE TYPE: Translate
1855 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1856 ; ;;
1857 ; DW CP437_DI_SP_END-$ ;; length of state section
1858 ; DB DIARESIS_SPACE ;; State ID
1859 ; DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1860 ; DB 0FEH,0 ;; error character = standalone accent
1861 ; ;;
1862 ; DW CP437_DI_SP_T1_END-$ ;; Size of xlat table
1863 ; DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1864 ; DB 1 ;; number of scans
1865 ; DB 57,0FEH ;; error character = standalone accent
1866 ;CP437_DI_SP_T1_END: ;;
1867 ; ;;
1868 ; DW 0 ;; Size of xlat table - null table
1869 ;CP437_DI_SP_END: ;; length of state section
1870 ; ;;
1871 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1872 DW 0 ;; LAST STATE
1873 ;;
1874 CP437_XLAT_END: ;;
1875 ;;
1876 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1877 ;;***************************************
1878 ;; BE Specific Translate Section for 850
1879 ;;***************************************
1880 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1881 ;;
1882 PUBLIC FR1_850_XLAT ;;
1883 FR1_850_XLAT: ;;
1884 ;;
1885 DW CP850_XLAT_END-$ ;; length of section
1886 DW 850 ;;
1887 ;;
1888 ;;
1889 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1890 ;; CODE PAGE: 850
1891 ;; STATE: Non-Alpha Lower Case
1892 ;; KEYBOARD TYPES: All
1893 ;; TABLE TYPE: Translate
1894 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1895 ;;
1896 DW CP850_NA_LO_END-$ ;; length of state section
1897 DB NON_ALPHA_LOWER ;; State ID
1898 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1899 DB -1,-1 ;; default ignore error state
1900 ;;
1901 DW CP850_NA_LO_T1_END-$ ;; Size of xlat table
1902 DB STANDARD_TABLE ;; xlat options:
1903 DB 1 ;; number of scans
1904 DB 7,0F5H ;; Section symbol - \15
1905 CP850_NA_LO_T1_END: ;;
1906 ;;
1907 DW 0 ;; Size of xlat table - null table
1908 ;;
1909 CP850_NA_LO_END: ;;
1910 ;;
1911 ;;
1912 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1913 ;**************************************** CNS Addition
1914 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1915 ;; CODE PAGE: 850
1916 ;; STATE: Non-Alpha Upper Case
1917 ;; KEYBOARD TYPES: P12
1918 ;; TABLE TYPE: Translate
1919 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1920 ;;
1921 DW CP850_NA_UP_K1_END-$ ;; length of state section
1922 DB NON_ALPHA_UPPER ;; State ID
1923 DW P12_KB ;; Keyboard Type
1924 DB -1,-1 ;; default ignore error state
1925 ;;
1926 DW CP850_NA_UP_T1_K1_END-$ ;; Size of xlat table
1927 DB STANDARD_TABLE ;; xlat options: ***** CNS 12/18
1928 DB 1 ;; number of scans
1929 DB 53,0F5H ;; Section symbol - \15
1930 CP850_NA_UP_T1_K1_END: ;;
1931 ;;
1932 DW 0 ;; Size of xlat table - null table
1933 ;;
1934 CP850_NA_UP_K1_END: ;;
1935 ;;
1936 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1937 ;**************************************** CNS Addition
1938 ;; CODE PAGE: 850
1939 ;; STATE: Non-Alpha Upper Case
1940 ;; KEYBOARD TYPES: G,
1941 ;; TABLE TYPE: Translate
1942 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1943 ;;
1944 DW CP850_NA_UP_END-$ ;; length of state section
1945 DB NON_ALPHA_UPPER ;; State ID
1946 DW G_KB ;P12_KB ;; Keyboard Type
1947 DB -1,-1 ;; default ignore error state
1948 ;;
1949 DW CP850_NA_UP_T1_END-$ ;; Size of xlat table
1950 DB STANDARD_TABLE ;; xlat options:
1951 DB 1 ;; number of scans
1952 DB 41,0FCH ;; 3 Superscript
1953 CP850_NA_UP_T1_END: ;;
1954 ;;
1955 DW 0 ;; Size of xlat table - null table
1956 ;;
1957 CP850_NA_UP_END: ;;
1958 ;;
1959 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1960 ;; CODE PAGE: 850
1961 ;; STATE: Third Shift
1962 ;; KEYBOARD TYPES: All
1963 ;; TABLE TYPE: Translate
1964 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1965 ;;
1966 DW CP850_THIRD_END-$ ;; length of state section
1967 DB THIRD_SHIFT ;; State ID
1968 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
1969 DB -1,-1 ;; default ignore error state
1970 ;;
1971 DW CP850_THIRD_T1_END-$ ;; Size of xlat table
1972 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
1973 DB 0 ;; number of scans
1974 CP850_THIRD_T1_END: ;;
1975 ;;
1976 DW 0 ;; Size of xlat table - null table
1977 ;;
1978 CP850_THIRD_END: ;;
1979 ;;
1980 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1981 ;***************************************** CNS P12 Addition *****************
1982 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1983 ;; CODE PAGE: 850
1984 ;; STATE: Third Shift
1985 ;; KEYBOARD TYPES: P12
1986 ;; TABLE TYPE: Translate
1987 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1988 ;;
1989 DW CP850_THIRD_PEND-$ ;; length of state section
1990 DB THIRD_SHIFT ;; State ID
1991 DW P12_KB ;; Keyboard Type
1992 DB -1,-1 ;; default ignore error state
1993 ;;
1994 DW CP850_THIRD_P1_END-$ ;; Size of xlat table
1995 DB STANDARD_TABLE ;; xlat options: *** CNS 12/18
1996 DB 1 ;; number of scans
1997 DB 27,0CFH ;; international currency symbol
1998 CP850_THIRD_P1_END: ;;
1999 ;;
2000 DW 0 ;; Size of xlat table - null table
2001 ;;
2002 CP850_THIRD_PEND: ;;
2003 ;;
2004 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2005 ;***************************************** CNS P12 Addition *****************
2006 ;; CODE PAGE: CP850
2007 ;; STATE: Tilde Lower
2008 ;; KEYBOARD TYPES: All
2009 ;; TABLE TYPE: Translate
2010 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2011 ;;
2012 DW CP850_TI_LO_END-$ ;; length of state section
2013 DB TILDE_LOWER ;; State ID
2014 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2015 DB 126,0 ;; error character = standalone accent
2016 ;;
2017 DW CP850_TI_LO_T1_END-$ ;; Size of xlat table
2018 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2019 DB 3 ;; number of scans
2020 DB 49,164 ;; scan code,ASCII - n
2021 DB 16,0C6H ;; a
2022 DB 24,0E4H ;; o
2023 CP850_TI_LO_T1_END: ;;
2024 ;;
2025 DW 0 ;; Size of xlat table - null table
2026 ;;
2027 CP850_TI_LO_END: ;; length of state section
2028 ;;
2029 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2030 ;***************************************** CNS P12 Addition *****************
2031 ;***************************************** CNS P12 Addition *****************
2032 ;; CODE PAGE: CP850
2033 ;; STATE: Tilde Upper Case
2034 ;; KEYBOARD TYPES: All
2035 ;; TABLE TYPE: Translate
2036 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2037 ;;
2038 DW CP850_TI_UP_END-$ ;; length of state section
2039 DB TILDE_UPPER ;; State ID
2040 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2041 DB 126,0 ;; error character = standalone accent
2042 ;;
2043 DW CP850_TI_UP_T1_END-$ ;; Size of xlat table
2044 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2045 DB 3 ;; number of scans
2046 DB 49,165 ;; scan code,ASCII - N
2047 DB 16,0C7H ;; A
2048 DB 24,0E5H ;; O
2049 CP850_TI_UP_T1_END: ;;
2050 ;;
2051 DW 0 ;; Size of xlat table - null table
2052 ;;
2053 CP850_TI_UP_END: ;; length of state section
2054 ;;
2055 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2056 ;***************************************** CNS P12 Addition *****************
2057 ;***************************************** CNS P12 Addition *****************
2058 ;; CODE PAGE: CP850
2059 ;; STATE: Acute Lower Case
2060 ;; KEYBOARD TYPES: All
2061 ;; TABLE TYPE: Translate
2062 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2063 ;;
2064 DW CP850_AC_LO_END-$ ;; length of state section
2065 DB ACUTE_LOWER ;; State ID
2066 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2067 DB 0EFH,0 ;; error character = standalone accent
2068 DW CP850_AC_LO_T1_END-$ ;; Size of xlat table
2069 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2070 DB 6 ;; number of scans
2071 DB 16,' ' ;; a acute
2072 DB 18,'\82' ;; e acute
2073 DB 23,'¡' ;; i acute
2074 DB 24,'¢' ;; o acute
2075 DB 22,'£' ;; u acute
2076 DB 21,0ECH ;; y acute ADDED 12/16 CNS **********
2077 CP850_AC_LO_T1_END: ;;
2078 ;;
2079 DW 0 ;; Size of xlat table - null table
2080 ;;
2081 CP850_AC_LO_END: ;;
2082 ;;
2083 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2084 ;***************************************** CNS P12 Addition *****************
2085 ;***************************************** CNS P12 Addition *****************
2086 ;; CODE PAGE: CP850
2087 ;; STATE: Acute Upper Case
2088 ;; KEYBOARD TYPES: All
2089 ;; TABLE TYPE: Translate
2090 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2091 ;;
2092 DW CP850_AC_UP_END-$ ;; length of state section
2093 DB ACUTE_UPPER ;; State ID
2094 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2095 DB 0EFH,0 ;; error character = standalone accent
2096 DW CP850_AC_UP_T1_END-$ ;; Size of xlat table
2097 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2098 DB 6 ;; number of scans
2099 DB 16,0B5H ;; A acute
2100 DB 18,090H ;; E acute
2101 DB 23,0D6H ;; I acute
2102 DB 24,0E0H ;; O acute
2103 DB 22,0E9H ;; U acute
2104 DB 21,0EDH ;; Y acute
2105 CP850_AC_UP_T1_END: ;;
2106 ;;
2107 DW 0 ;; Size of xlat table - null table
2108 ;;
2109 CP850_AC_UP_END: ;;
2110 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2111 ;***************************************** CNS P12 Addition *****************
2112 ;***************************************** CNS P12 Addition *****************
2113 ;; CODE PAGE: CP850
2114 ;; STATE: Acute Space Bar
2115 ;; KEYBOARD TYPES: All
2116 ;; TABLE TYPE: Translate
2117 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2118 ;;
2119 DW CP850_AC_SP_END-$ ;; length of state section
2120 DB ACUTE_SPACE ;; State ID
2121 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2122 DB 0EFH,0 ;; error character = standalone accent
2123 ;;
2124 DW CP850_AC_SP_T1_END-$ ;; Size of xlat table
2125 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2126 DB 1 ;; number of scans
2127 DB 57,0EFH ;; scan code,ASCII - SPACE
2128 CP850_AC_SP_T1_END: ;;
2129 ;;
2130 DW 0 ;; Size of xlat table - null table
2131 ;;
2132 CP850_AC_SP_END: ;;
2133 ;;
2134 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2135 ;***************************************** CNS P12 Addition *****************
2136 ;***************************************** CNS P12 Addition *****************
2137 ;; CODE PAGE: CP850
2138 ;; STATE: Diaresis Lower Case
2139 ;; KEYBOARD TYPES: All
2140 ;; TABLE TYPE: Translate
2141 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2142 ;;
2143 DW CP850_DI_LO_END-$ ;; length of state section
2144 DB DIARESIS_LOWER ;; State ID
2145 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2146 DB 249,0 ;; error character = standalone accent
2147 ;;
2148 DW CP850_DI_LO_T1_END-$ ;; Size of xlat table
2149 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2150 DB 6 ;; number of scans
2151 DB 18,'\89' ;; scan code,ASCII - e
2152 DB 16,'\84' ;; scan code,ASCII - a
2153 DB 24,'\94' ;; scan code,ASCII - o
2154 DB 22,'\81' ;; scan code,ASCII - u
2155 DB 23,'\8b' ;; scan code,ASCII - i
2156 DB 21,'\98' ;; scan code,ASCII - y
2157 CP850_DI_LO_T1_END: ;;
2158 ;;
2159 DW 0 ;; Size of xlat table - null table
2160 ;;
2161 CP850_DI_LO_END: ;; length of state section
2162 ;;
2163 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;
2164 ;***************************************** CNS P12 Addition *****************
2165 ;***************************************** CNS P12 Addition *****************
2166 ;; KEYBOARD TYPES: All
2167 ;; TABLE TYPE: Translate
2168 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2169
2170 ;;
2171 DW CP850_DI_UP_END-$ ;; length of state section
2172 DB DIARESIS_UPPER ;; State ID
2173 DW G_KB+AT_KB+XT_KB+P12_KB ;; Keyboard Type
2174 DB 249,0 ;; error character = standalone accent
2175 ;;
2176 DW CP850_DI_UP_T1_END-$ ;; Size of xlat table
2177 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2178 DB 5 ;; number of scans
2179 DB 16,8EH ;; A di
2180 DB 18,0D3H ;; E diaeresis
2181 DB 23,0D8H ;; I diaeresis
2182 DB 24,99H ;; O di
2183 DB 22,9AH ;; U di
2184 CP850_DI_UP_T1_END: ;;
2185 ;;
2186 DW 0 ;; Size of xlat table - null table
2187 ;;
2188 CP850_DI_UP_END: ;; length of state section
2189 ;;
2190 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2191 ;***************************************** CNS P12 Addition *****************
2192 ;***************************************** CNS P12 Addition *****************
2193 ;; CODE PAGE: CP850
2194 ;; STATE: Diaeresis Space Bar
2195 ;; KEYBOARD TYPES: All
2196 ;; TABLE TYPE: Translate
2197 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2198 ;;
2199 DW CP850_DI_SP_END-$ ;; length of state section
2200 DB DIARESIS_SPACE ;; State ID
2201 DW ANY_KB ;; Keyboard Type
2202 DB 0FEH,0 ;; error character = standalone accent
2203 ;;
2204 DW CP850_DI_SP_T1_END-$ ;; Size of xlat table
2205 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2206 DB 1 ;; number of scans
2207 DB 57,0F9H ;; scan code,ASCII - SPACE
2208 CP850_DI_SP_T1_END: ;;
2209 ;;
2210 DW 0 ;; Size of xlat table - null table
2211 ;;
2212 CP850_DI_SP_END: ;;
2213 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2214 ;***************************************** CNS P12 Addition *****************
2215 ;***************************************** CNS P12 Addition *****************
2216 ;; CODE PAGE: 850
2217 ;; STATE: Grave Upper
2218 ;; KEYBOARD TYPES: ALL
2219 ;; TABLE TYPE: Translate
2220 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2221 ;;
2222 DW CP850_GR_UP_END-$ ;; length of state section
2223 DB GRAVE_UPPER ;; State ID
2224 DW G_KB+AT_KB+XT_KB ;; Keyboard Type
2225 DB 96,0 ;; error character = standalone accent
2226 ;;
2227 DW CP850_GR_UP_T1_END-$ ;; Size of xlat table
2228 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2229 DB 5 ;; number of scans
2230 DB 16,0B7H ;; A grave
2231 DB 18,0D4H ;; E grave
2232 DB 23,0DEH ;; I grave
2233 DB 24,0E3H ;; O grave
2234 DB 22,0EBH ;; U grave
2235 CP850_GR_UP_T1_END: ;;
2236 ;;
2237 DW 0 ;; Size of xlat table - null table
2238 ;;
2239 CP850_GR_UP_END: ;; length of state section
2240 ;;
2241 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2242 ;***************************************** CNS P12 Addition *****************
2243 ;***************************************** CNS P12 Addition *****************
2244 ;; CODE PAGE: 850
2245 ;; STATE: Circumflex Upper
2246 ;; KEYBOARD TYPES: All
2247 ;; TABLE TYPE: Translate
2248 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2249 ;;
2250 DW CP850_CI_UP_END-$ ;; length of state section
2251 DB CIRCUMFLEX_UPPER ;; State ID
2252 DW G_KB+AT_KB+XT_KB ;;
2253 DB 94,0 ;; error character = standalone accent
2254 ;;
2255 DW CP850_CI_UP_T1_END-$ ;; Size of xlat table
2256 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2257 DB 5 ;; number of scans
2258 DB 16,0B6H ;; A circumflex
2259 DB 18,0D2H ;; E circumflex
2260 DB 23,0D7H ;; I circumflex
2261 DB 24,0E2H ;; O circumflex
2262 DB 22,0EAH ;; U circumflex
2263 CP850_CI_UP_T1_END: ;;
2264 ;;
2265 DW 0 ;; Size of xlat table - null table
2266 ;;
2267 CP850_CI_UP_END: ;; length of state section
2268 ;;
2269 ;***************************************** CNS P12 Addition *****************
2270 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2271 ;;;; CODE PAGE: 850
2272 ;;;; STATE: Circumflex Upper
2273 ;;;; KEYBOARD TYPES: P12
2274 ;;;;; TABLE TYPE: Translate
2275 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2276 ;;
2277 DW CP850_CI_UP_PEND-$ ;; length of state section
2278 DB CIRCUMFLEX_UPPER ;; State ID
2279 DW P12_KB ;; Keyboard Type
2280 DB 94,0 ;; error character = standalone accent
2281 ;;
2282 DW CP850_CI_UP_T1_PEND-$ ;; Size of xlat table
2283 DB STANDARD_TABLE+ZERO_SCAN ;; xlat options:
2284 DB 5 ;; number of scans
2285 DB 16,0B6H ;; A circumflex
2286 DB 18,0D2H ;; E circumflex
2287 DB 23,0D7H ;; I circumflex
2288 DB 24,0E2H ;; O circumflex
2289 DB 22,0EAH ;; U circumflex
2290 CP850_CI_UP_T1_PEND: ;;
2291 ;;
2292 DW 0 ;; Size of xlat table - null table
2293 ;;
2294 CP850_CI_UP_PEND: ;; length of state section
2295 ;;
2296 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2297 ;***************************************** CNS P12 Addition *****************
2298
2299 DW 0 ;; LAST STATE
2300 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2301 ;;
2302 CP850_XLAT_END: ;;
2303 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2304 ;;
2305 CODE ENDS ;;
2306 END ;;
2307 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;