blob: 97a04bf480e606229fe67271f38ee1bf4b621d2a [file] [log] [blame] [raw]
/*
* (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]))