| /* | |
| * (C) Copyright 2002, Brian Knittel. | |
| * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN | |
| * RISK basis, there is no warranty of fitness for any purpose, and the rest of the | |
| * usual yada-yada. Please keep this notice and the copyright in any distributions | |
| * or modifications. | |
| * | |
| * This is not a supported product, but I welcome bug reports and fixes. | |
| * Mail to sim@ibm1130.org | |
| */ | |
| struct tag_codewheel { | |
| unsigned char ascii; | |
| unsigned char ebcdic; | |
| }; | |
| static struct tag_codewheel codewheel1132[] = | |
| { /* characters and EBCDIC codes in printwheel order */ | |
| 'A', 0xC1, | |
| 'B', 0xC2, | |
| 'C', 0xC3, | |
| 'D', 0xC4, | |
| 'F', 0xC6, | |
| 'H', 0xC8, | |
| 'I', 0xC9, | |
| 'S', 0xE2, | |
| 'T', 0xE3, | |
| 'U', 0xE4, | |
| 'V', 0xE5, | |
| '1', 0xF1, | |
| '2', 0xF2, | |
| '3', 0xF3, | |
| '4', 0xF4, | |
| '5', 0xF5, | |
| '6', 0xF6, | |
| '7', 0xF7, | |
| '8', 0xF8, | |
| '9', 0xF9, | |
| '0', 0xF0, | |
| '=', 0x7E, | |
| '$', 0x5B, | |
| '.', 0x4B, | |
| '\'', 0x7D, | |
| ',', 0x6B, | |
| ')', 0x5D, | |
| '-', 0x60, | |
| '(', 0x4D, | |
| '+', 0x4E, | |
| '/', 0x61, | |
| '*', 0x5C, | |
| '&', 0x50, | |
| 'J', 0xD1, | |
| 'K', 0xD2, | |
| 'L', 0xD3, | |
| 'M', 0xD4, | |
| 'N', 0xD5, | |
| 'O', 0xD6, | |
| 'P', 0xD7, | |
| 'Q', 0xD8, | |
| 'R', 0xD9, | |
| 'E', 0xC5, | |
| 'G', 0xC7, | |
| 'W', 0xE6, | |
| 'X', 0xE7, | |
| 'Y', 0xE8, | |
| 'Z', 0xE9, | |
| }; | |
| #define WHEELCHARS_1132 (sizeof(codewheel1132)/sizeof(codewheel1132[0])) | |
| static struct tag_codewheel codewheel1403[] = | |
| { | |
| 'A', 0x64, | |
| 'B', 0x25, | |
| 'C', 0x26, | |
| 'D', 0x67, | |
| 'E', 0x68, | |
| 'F', 0x29, | |
| 'G', 0x2A, | |
| 'H', 0x6B, | |
| 'I', 0x2C, | |
| 'J', 0x58, | |
| 'K', 0x19, | |
| 'L', 0x1A, | |
| 'M', 0x5B, | |
| 'N', 0x1C, | |
| 'O', 0x5D, | |
| 'P', 0x5E, | |
| 'Q', 0x1F, | |
| 'R', 0x20, | |
| 'S', 0x0D, | |
| 'T', 0x0E, | |
| 'U', 0x4F, | |
| 'V', 0x10, | |
| 'W', 0x51, | |
| 'X', 0x52, | |
| 'Y', 0x13, | |
| 'Z', 0x54, | |
| '0', 0x49, | |
| '1', 0x40, | |
| '2', 0x01, | |
| '3', 0x02, | |
| '4', 0x43, | |
| '5', 0x04, | |
| '6', 0x45, | |
| '7', 0x46, | |
| '8', 0x07, | |
| '9', 0x08, | |
| ' ', 0x7F, | |
| '.', 0x6E, | |
| '(', 0x57, | |
| '+', 0x6D, | |
| '&', 0x15, | |
| '$', 0x62, | |
| '*', 0x23, | |
| ')', 0x2F, | |
| '-', 0x61, | |
| '/', 0x4C, | |
| ',', 0x16, | |
| '\'', 0x0B, | |
| '=', 0x4A, | |
| }; | |
| #define WHEELCHARS_1403 (sizeof(codewheel1403)/sizeof(codewheel1403[0])) | |