home *** CD-ROM | disk | FTP | other *** search
/ gdead.berkeley.edu / gdead.berkeley.edu.tar / gdead.berkeley.edu / pub / cad-tools / ciftomann.tar / pggen_dir / conv.h next >
Text File  |  1988-01-28  |  4KB  |  113 lines
  1. /* ebcdic to ascii table */
  2.  
  3. char    etoa[] = {
  4.     0000,0001,0002,0003,0234,0011,0206,0177,
  5.     0227,0215,0216,0013,0014,0015,0016,0017,
  6.     0020,0021,0022,0023,0235,0205,0010,0207,
  7.     0030,0031,0222,0217,0034,0035,0036,0037,
  8.     0200,0201,0202,0203,0204,0012,0027,0033,
  9.     0210,0211,0212,0213,0214,0005,0006,0007,
  10.     0220,0221,0026,0223,0224,0225,0226,0004,
  11.     0230,0231,0232,0233,0024,0025,0236,0032,
  12.     0040,0240,0241,0242,0243,0244,0245,0246,
  13.     0247,0250,0133,0056,0074,0050,0053,0041,
  14.     0046,0251,0252,0253,0254,0255,0256,0257,
  15.     0260,0261,0135,0044,0052,0051,0073,0136,
  16.     0055,0057,0262,0263,0264,0265,0266,0267,
  17.     0270,0271,0174,0054,0045,0137,0076,0077,
  18.     0272,0273,0274,0275,0276,0277,0300,0301,
  19.     0302,0140,0072,0043,0100,0047,0075,0042,
  20.     0303,0141,0142,0143,0144,0145,0146,0147,
  21.     0150,0151,0304,0305,0306,0307,0310,0311,
  22.     0312,0152,0153,0154,0155,0156,0157,0160,
  23.     0161,0162,0313,0314,0315,0316,0317,0320,
  24.     0321,0176,0163,0164,0165,0166,0167,0170,
  25.     0171,0172,0322,0323,0324,0325,0326,0327,
  26.     0330,0331,0332,0333,0334,0335,0336,0337,
  27.     0340,0341,0342,0343,0344,0345,0346,0347,
  28.     0173,0101,0102,0103,0104,0105,0106,0107,
  29.     0110,0111,0350,0351,0352,0353,0354,0355,
  30.     0175,0112,0113,0114,0115,0116,0117,0120,
  31.     0121,0122,0356,0357,0360,0361,0362,0363,
  32.     0134,0237,0123,0124,0125,0126,0127,0130,
  33.     0131,0132,0364,0365,0366,0367,0370,0371,
  34.     0060,0061,0062,0063,0064,0065,0066,0067,
  35.     0070,0071,0372,0373,0374,0375,0376,0377,
  36. };
  37.  
  38. /* ascii to ebcdic table */
  39.  
  40. char    atoe[] = {
  41.     0000,0001,0002,0003,0067,0055,0056,0057,
  42.     0026,0025,0025,0013,0014,0015,0016,0017,
  43.     0020,0021,0022,0023,0074,0075,0062,0046,
  44.     0030,0031,0077,0047,0034,0035,0036,0037,
  45.     0100,0117,0177,0173,0133,0154,0120,0175,
  46.     0115,0135,0134,0116,0153,0140,0113,0141,
  47.     0360,0361,0362,0363,0364,0365,0366,0367,
  48.     0370,0371,0172,0136,0114,0176,0156,0157,
  49.     0174,0301,0302,0303,0304,0305,0306,0307,
  50.     0310,0311,0321,0322,0323,0324,0325,0326,
  51.     0327,0330,0331,0342,0343,0344,0345,0346,
  52.     0347,0350,0351,0112,0340,0132,0137,0155,
  53.     0171,0201,0202,0203,0204,0205,0206,0207,
  54.     0210,0211,0221,0222,0223,0224,0225,0226,
  55.     0227,0230,0231,0242,0243,0244,0245,0246,
  56.     0247,0250,0251,0300,0152,0320,0241,0007,
  57.     0040,0041,0042,0043,0044,0025,0006,0027,
  58.     0050,0051,0052,0053,0054,0011,0012,0033,
  59.     0060,0061,0032,0063,0064,0065,0066,0010,
  60.     0070,0071,0072,0073,0004,0024,0076,0341,
  61.     0101,0102,0103,0104,0105,0106,0107,0110,
  62.     0111,0121,0122,0123,0124,0125,0126,0127,
  63.     0130,0131,0142,0143,0144,0145,0146,0147,
  64.     0150,0151,0160,0161,0162,0163,0164,0165,
  65.     0166,0167,0170,0200,0212,0213,0214,0215,
  66.     0216,0217,0220,0232,0233,0234,0235,0236,
  67.     0237,0240,0252,0253,0254,0255,0256,0257,
  68.     0260,0261,0262,0263,0264,0265,0266,0267,
  69.     0270,0271,0272,0273,0274,0275,0276,0277,
  70.     0312,0313,0314,0315,0316,0317,0332,0333,
  71.     0334,0335,0336,0337,0352,0353,0354,0355,
  72.     0356,0357,0372,0373,0374,0375,0376,0377,
  73. };
  74.  
  75. /* ascii to ibm ebcdic table */
  76.  
  77. char    atoibm[] =
  78. {
  79.     0000,0001,0002,0003,0067,0055,0056,0057,
  80.     0026,0005,0045,0013,0014,0015,0016,0017,
  81.     0020,0021,0022,0023,0074,0075,0062,0046,
  82.     0030,0031,0077,0047,0034,0035,0036,0037,
  83.     0100,0132,0177,0173,0133,0154,0120,0175,
  84.     0115,0135,0134,0116,0153,0140,0113,0141,
  85.     0360,0361,0362,0363,0364,0365,0366,0367,
  86.     0370,0371,0172,0136,0114,0176,0156,0157,
  87.     0174,0301,0302,0303,0304,0305,0306,0307,
  88.     0310,0311,0321,0322,0323,0324,0325,0326,
  89.     0327,0330,0331,0342,0343,0344,0345,0346,
  90.     0347,0350,0351,0255,0340,0275,0137,0155,
  91.     0171,0201,0202,0203,0204,0205,0206,0207,
  92.     0210,0211,0221,0222,0223,0224,0225,0226,
  93.     0227,0230,0231,0242,0243,0244,0245,0246,
  94.     0247,0250,0251,0300,0117,0320,0241,0007,
  95.     0040,0041,0042,0043,0044,0025,0006,0027,
  96.     0050,0051,0052,0053,0054,0011,0012,0033,
  97.     0060,0061,0032,0063,0064,0065,0066,0010,
  98.     0070,0071,0072,0073,0004,0024,0076,0341,
  99.     0101,0102,0103,0104,0105,0106,0107,0110,
  100.     0111,0121,0122,0123,0124,0125,0126,0127,
  101.     0130,0131,0142,0143,0144,0145,0146,0147,
  102.     0150,0151,0160,0161,0162,0163,0164,0165,
  103.     0166,0167,0170,0200,0212,0213,0214,0215,
  104.     0216,0217,0220,0232,0233,0234,0235,0236,
  105.     0237,0240,0252,0253,0254,0255,0256,0257,
  106.     0260,0261,0262,0263,0264,0265,0266,0267,
  107.     0270,0271,0272,0273,0274,0275,0276,0277,
  108.     0312,0313,0314,0315,0316,0317,0332,0333,
  109.     0334,0335,0336,0337,0352,0353,0354,0355,
  110.     0356,0357,0372,0373,0374,0375,0376,0377,
  111. };
  112.  
  113.