First Commit of my working state
[simh.git] / Ibm1130 / ibm1130_prtwheel.h
1 /*
2 * (C) Copyright 2002, Brian Knittel.
3 * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN
4 * RISK basis, there is no warranty of fitness for any purpose, and the rest of the
5 * usual yada-yada. Please keep this notice and the copyright in any distributions
6 * or modifications.
7 *
8 * This is not a supported product, but I welcome bug reports and fixes.
9 * Mail to sim@ibm1130.org
10 */
11
12 struct tag_codewheel {
13 unsigned char ascii;
14 unsigned char ebcdic;
15 };
16
17 static struct tag_codewheel codewheel1132[] =
18 { /* characters and EBCDIC codes in printwheel order */
19 'A', 0xC1,
20 'B', 0xC2,
21 'C', 0xC3,
22 'D', 0xC4,
23 'F', 0xC6,
24 'H', 0xC8,
25 'I', 0xC9,
26 'S', 0xE2,
27 'T', 0xE3,
28 'U', 0xE4,
29 'V', 0xE5,
30 '1', 0xF1,
31 '2', 0xF2,
32 '3', 0xF3,
33 '4', 0xF4,
34 '5', 0xF5,
35 '6', 0xF6,
36 '7', 0xF7,
37 '8', 0xF8,
38 '9', 0xF9,
39 '0', 0xF0,
40 '=', 0x7E,
41 '$', 0x5B,
42 '.', 0x4B,
43 '\'', 0x7D,
44 ',', 0x6B,
45 ')', 0x5D,
46 '-', 0x60,
47 '(', 0x4D,
48 '+', 0x4E,
49 '/', 0x61,
50 '*', 0x5C,
51 '&', 0x50,
52 'J', 0xD1,
53 'K', 0xD2,
54 'L', 0xD3,
55 'M', 0xD4,
56 'N', 0xD5,
57 'O', 0xD6,
58 'P', 0xD7,
59 'Q', 0xD8,
60 'R', 0xD9,
61 'E', 0xC5,
62 'G', 0xC7,
63 'W', 0xE6,
64 'X', 0xE7,
65 'Y', 0xE8,
66 'Z', 0xE9,
67 };
68
69 #define WHEELCHARS_1132 (sizeof(codewheel1132)/sizeof(codewheel1132[0]))
70
71 static struct tag_codewheel codewheel1403[] =
72 {
73 'A', 0x64,
74 'B', 0x25,
75 'C', 0x26,
76 'D', 0x67,
77 'E', 0x68,
78 'F', 0x29,
79 'G', 0x2A,
80 'H', 0x6B,
81 'I', 0x2C,
82 'J', 0x58,
83 'K', 0x19,
84 'L', 0x1A,
85 'M', 0x5B,
86 'N', 0x1C,
87 'O', 0x5D,
88 'P', 0x5E,
89 'Q', 0x1F,
90 'R', 0x20,
91 'S', 0x0D,
92 'T', 0x0E,
93 'U', 0x4F,
94 'V', 0x10,
95 'W', 0x51,
96 'X', 0x52,
97 'Y', 0x13,
98 'Z', 0x54,
99 '0', 0x49,
100 '1', 0x40,
101 '2', 0x01,
102 '3', 0x02,
103 '4', 0x43,
104 '5', 0x04,
105 '6', 0x45,
106 '7', 0x46,
107 '8', 0x07,
108 '9', 0x08,
109 ' ', 0x7F,
110 '.', 0x6E,
111 '(', 0x57,
112 '+', 0x6D,
113 '&', 0x15,
114 '$', 0x62,
115 '*', 0x23,
116 ')', 0x2F,
117 '-', 0x61,
118 '/', 0x4C,
119 ',', 0x16,
120 '\'', 0x0B,
121 '=', 0x4A,
122 };
123
124 #define WHEELCHARS_1403 (sizeof(codewheel1403)/sizeof(codewheel1403[0]))
125
126