/* | |
* (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])) | |