home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume7 / cmstape / ebcdic.c < prev    next >
Encoding:
Text File  |  1986-11-30  |  3.3 KB  |  84 lines
  1. /* $Header: ebcdic.c,v 1.1 86/07/18 10:44:26 alan Rel $
  2.  * ebcdic to ascii translation based on values use on Columbia Computer
  3.  * Center IBM mainframes.  This may or may not agree with your definition
  4.  * of the mapping.  (Derived from USLIB MACLIB Y member ASCII)
  5.  *
  6.  * Alan Crosswell,  Columbia University
  7.  * $Log:    ebcdic.c,v $
  8.  * Revision 1.1  86/07/18  10:44:26  alan
  9.  * Initial revision
  10.  * 
  11.  */
  12.  
  13. char etoa[256] = {
  14.     0x00,0x01,0x02,0x03,0x00,0x09,0x00,0x7f,
  15.     0x00,0x00,0x00,0x0b,0x0c,0x0d,0x0e,0x0f,
  16.     0x10,0x11,0x12,0x13,0x00,0x00,0x08,0x00,
  17.     0x18,0x19,0x00,0x00,0x1c,0x1d,0x1e,0x1f,
  18.     0x00,0x00,0x00,0x00,0x00,0x0a,0x17,0x1b,
  19.     0x00,0x00,0x00,0x00,0x00,0x05,0x06,0x07,
  20.     0x00,0x00,0x16,0x00,0x00,0x00,0x00,0x04,
  21.     0x00,0x00,0x00,0x00,0x14,0x15,0x00,0x1a,
  22.     0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  23.     0x00,0x00,0x00,0x2e,0x3c,0x28,0x2b,0x7c,
  24.     0x26,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  25.     0x00,0x00,0x21,0x24,0x2a,0x29,0x3b,0x5e,
  26.     0x2d,0x2f,0x00,0x00,0x00,0x00,0x00,0x00,
  27.     0x00,0x00,0x00,0x2c,0x25,0x00,0x3e,0x3f,
  28.     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  29.     0x00,0x60,0x3a,0x23,0x40,0x27,0x3d,0x22,
  30.     0x00,0x61,0x62,0x63,0x64,0x65,0x66,0x67,
  31.     0x68,0x69,0x00,0x00,0x00,0x00,0x00,0x00,
  32.     0x00,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,0x70,
  33.     0x71,0x72,0x00,0x00,0x00,0x00,0x00,0x00,
  34.     0x00,0x7e,0x73,0x74,0x75,0x76,0x77,0x78,
  35.     0x79,0x7a,0x00,0x00,0x00,0x5b,0x00,0x00,
  36.     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
  37.     0x00,0x00,0x00,0x00,0x00,0x5d,0x00,0x00,
  38.     0x7b,0x41,0x42,0x43,0x44,0x45,0x46,0x47,
  39.     0x48,0x49,0x00,0x00,0x00,0x00,0x00,0x00,
  40.     0x7d,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,0x50,
  41.     0x51,0x52,0x00,0x00,0x00,0x00,0x00,0x00,
  42.     0x5c,0x00,0x53,0x54,0x55,0x56,0x57,0x58,
  43.     0x59,0x5a,0x00,0x00,0x00,0x00,0x00,0x00,
  44.     0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,
  45.     0x38,0x39,0x00,0x00,0x00,0x00,0x00,0x00,
  46. };
  47.  
  48. char atoe[256] = {
  49.     0x00,0x01,0x02,0x03,0x37,0x2d,0x2e,0x2f,
  50.     0x16,0x05,0x25,0x0b,0x0c,0x0d,0x0e,0x0f,
  51.     0x10,0x11,0x12,0x13,0x3c,0x3d,0x32,0x26,
  52.     0x18,0x19,0x3f,0x27,0x1c,0x1d,0x1e,0x1f,
  53.     0x40,0x5a,0x7f,0x7b,0x5b,0x6c,0x50,0x7d,
  54.     0x4d,0x5d,0x5c,0x4e,0x6b,0x60,0x4b,0x61,
  55.     0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,
  56.     0xf8,0xf9,0x7a,0x5e,0x4c,0x7e,0x6e,0x6f,
  57.     0x7c,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,
  58.     0xc8,0xc9,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,
  59.     0xd7,0xd8,0xd9,0xe2,0xe3,0xe4,0xe5,0xe6,
  60.     0xe7,0xe8,0xe9,0xad,0xe0,0xbd,0x5f,0x6d,
  61.     0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,
  62.     0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
  63.     0x97,0x98,0x99,0xa2,0xa3,0xa4,0xa5,0xa6,
  64.     0xa7,0xa8,0xa9,0xc0,0x4f,0xd0,0xa1,0x07,
  65. /* repeat it over again for 8-bit ascii with parity set */
  66.     0x00,0x01,0x02,0x03,0x37,0x2d,0x2e,0x2f,
  67.     0x16,0x05,0x25,0x0b,0x0c,0x0d,0x0e,0x0f,
  68.     0x10,0x11,0x12,0x13,0x3c,0x3d,0x32,0x26,
  69.     0x18,0x19,0x3f,0x27,0x1c,0x1d,0x1e,0x1f,
  70.     0x40,0x5a,0x7f,0x7b,0x5b,0x6c,0x50,0x7d,
  71.     0x4d,0x5d,0x5c,0x4e,0x6b,0x60,0x4b,0x61,
  72.     0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,
  73.     0xf8,0xf9,0x7a,0x5e,0x4c,0x7e,0x6e,0x6f,
  74.     0x7c,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,
  75.     0xc8,0xc9,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,
  76.     0xd7,0xd8,0xd9,0xe2,0xe3,0xe4,0xe5,0xe6,
  77.     0xe7,0xe8,0xe9,0xad,0xe0,0xbd,0x5f,0x6d,
  78.     0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,
  79.     0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
  80.     0x97,0x98,0x99,0xa2,0xa3,0xa4,0xa5,0xa6,
  81.     0xa7,0xa8,0xa9,0xc0,0x4f,0xd0,0xa1,0x07,
  82. };
  83.  
  84.