blob: c39c1e599ba5b47ac5db498be88d07526f160e89 [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]))