trw - Tape program which handles ANSI standard and IBM labeled tapes

Sun May 19 02:36:41 AEST 1985

Sorry about this folks ... I missed a file when I made up the archive.
Well, here it is:

---------------------> Cut somewhere around this vicinity <-------------

/*  This file contains the tables needed to convert from:

	ASCII - IBM
	IBM - ASCII
	ASCII - EBCDIC
	EBCDIC - ASCII
*/
/*
**  Document the source of these tables.
*/

char	a_ibm[] =
{
	0000,0001,0002,0003,0067,0055,0056,0057,0026,0005,
	0045,0013,0014,0015,0016,0017,0020,0021,0022,0023,
	0074,0075,0062,0046,0030,0031,0077,0047,0034,0035,
	0036,0037,0100,0132,0177,0173,0133,0154,0120,0175,
	0115,0135,0134,0116,0153,0140,0113,0141,0360,0361,
	0362,0363,0364,0365,0366,0367,0370,0371,0172,0136,
	0114,0176,0156,0157,0174,0301,0302,0303,0304,0305,
	0306,0307,0310,0311,0321,0322,0323,0324,0325,0326,
	0327,0330,0331,0342,0343,0344,0345,0346,0347,0350,
	0351,0255,0340,0275,0137,0155,0171,0201,0202,0203,
	0204,0205,0206,0207,0210,0211,0221,0222,0223,0224,
	0225,0226,0227,0230,0231,0242,0243,0244,0245,0246,
	0247,0250,0251,0300,0152,0320,0241,0007,0040,0041,
	0042,0043,0044,0025,0006,0027,0050,0051,0052,0053,
	0054,0011,0012,0033,0060,0061,0032,0063,0064,0065,
	0066,0010,0070,0071,0072,0073,0004,0024,0076,0341,
	0101,0102,0103,0104,0105,0106,0107,0110,0111,0121,
	0122,0123,0124,0125,0126,0127,0130,0131,0142,0143,
	0144,0145,0146,0147,0150,0151,0160,0161,0162,0163,
	0164,0165,0166,0167,0170,0200,0212,0213,0214,0215,
	0216,0217,0220,0232,0233,0234,0235,0236,0237,0240,
	0252,0253,0254,0112,0256,0257,0260,0261,0262,0263,
	0264,0265,0266,0267,0270,0271,0272,0273,0274,0117,
	0276,0277,0312,0313,0314,0315,0316,0317,0332,0333,
	0334,0335,0336,0337,0352,0353,0354,0355,0356,0357,
	0372,0373,0374,0375,0376,0377 
};

char	ibm_a[] = {
	0000,0001,0002,0003,0234,0011,0206,0177,0227,0215,
	0216,0013,0014,0015,0016,0017,0020,0021,0022,0023,
	0235,0205,0010,0207,0030,0031,0222,0217,0034,0035,
	0036,0037,0200,0201,0202,0203,0204,0012,0027,0033,
	0210,0211,0212,0213,0214,0005,0006,0007,0220,0221,
	0026,0223,0224,0225,0226,0004,0230,0231,0232,0233,
	0024,0025,0236,0032,0040,0240,0241,0242,0243,0244,
	0245,0246,0247,0250,0325,0056,0074,0050,0053,0345,
	0046,0251,0252,0253,0254,0255,0256,0257,0260,0261,
	0041,0044,0052,0051,0073,0136,0055,0057,0262,0263,
	0264,0265,0266,0267,0270,0271,0174,0054,0045,0137,
	0076,0077,0272,0273,0274,0275,0276,0277,0300,0301,
	0302,0140,0072,0043,0100,0047,0075,0042,0303,0141,
	0142,0143,0144,0145,0146,0147,0150,0151,0304,0305,
	0306,0307,0310,0311,0312,0152,0153,0154,0155,0156,
	0157,0160,0161,0162,0313,0314,0315,0316,0317,0320,
	0321,0176,0163,0164,0165,0166,0167,0170,0171,0172,
	0322,0323,0324,0133,0326,0327,0330,0331,0332,0333,
	0334,0335,0336,0337,0340,0341,0342,0343,0344,0135,
	0346,0347,0173,0101,0102,0103,0104,0105,0106,0107,
	0110,0111,0350,0351,0352,0353,0354,0355,0175,0112,
	0113,0114,0115,0116,0117,0120,0121,0122,0356,0357,
	0360,0361,0362,0363,0134,0237,0123,0124,0125,0126,
	0127,0130,0131,0132,0364,0365,0366,0367,0370,0371,
	0060,0061,0062,0063,0064,0065,0066,0067,0070,0071,
	0372,0373,0374,0375,0376,0377 
};

char	a_ebc[] = {
	0000,0001,0002,0003,0067,0055,0056,0057,0026,0005,
	0045,0013,0014,0015,0016,0017,0020,0021,0022,0023,
	0074,0075,0062,0046,0030,0031,0077,0047,0034,0035,
	0036,0037,0100,0117,0177,0173,0133,0154,0120,0175,
	0115,0135,0134,0116,0153,0140,0113,0141,0360,0361,
	0362,0363,0364,0365,0366,0367,0370,0371,0172,0136,
	0114,0176,0156,0157,0174,0301,0302,0303,0304,0305,
	0306,0307,0310,0311,0321,0322,0323,0324,0325,0326,
	0327,0330,0331,0342,0343,0344,0345,0346,0347,0350,
	0351,0112,0340,0132,0137,0155,0171,0201,0202,0203,
	0204,0205,0206,0207,0210,0211,0221,0222,0223,0224,
	0225,0226,0227,0230,0231,0242,0243,0244,0245,0246,
	0247,0250,0251,0300,0152,0320,0241,0007,0040,0041,
	0042,0043,0044,0025,0006,0027,0050,0051,0052,0053,
	0054,0011,0012,0033,0060,0061,0032,0063,0064,0065,
	0066,0010,0070,0071,0072,0073,0004,0024,0076,0341,
	0101,0102,0103,0104,0105,0106,0107,0110,0111,0121,
	0122,0123,0124,0125,0126,0127,0130,0131,0142,0143,
	0144,0145,0146,0147,0150,0151,0160,0161,0162,0163,
	0164,0165,0166,0167,0170,0200,0212,0213,0214,0215,
	0216,0217,0220,0232,0233,0234,0235,0236,0237,0240,
	0252,0253,0254,0255,0256,0257,0260,0261,0262,0263,
	0264,0265,0266,0267,0270,0271,0272,0273,0274,0275,
	0276,0277,0312,0313,0314,0315,0316,0317,0332,0333,
	0334,0335,0336,0337,0352,0353,0354,0355,0356,0357,
	0372,0373,0374,0375,0376,0377,
};

int	ebc_a[] = {
	0000,0001,0002,0003,0234,0011,0206,0177,0227,0215,
	0216,0013,0014,0015,0016,0017,0020,0021,0022,0023,
	0235,0205,0010,0207,0030,0031,0222,0217,0034,0035,
	0036,0037,0200,0201,0202,0203,0204,0012,0027,0033,
	0210,0211,0212,0213,0214,0005,0006,0007,0220,0221,
	0026,0223,0224,0225,0226,0004,0230,0231,0232,0233,
	0024,0025,0236,0032,0040,0240,0241,0242,0243,0244,
	0245,0246,0247,0250,0133,0056,0074,0050,0053,0041,
	0046,0251,0252,0253,0254,0255,0256,0257,0260,0261,
	0135,0044,0052,0051,0073,0136,0055,0057,0262,0263,
	0264,0265,0266,0267,0270,0271,0174,0054,0045,0137,
	0076,0077,0272,0273,0274,0275,0276,0277,0300,0301,
	0302,0140,0072,0043,0100,0047,0075,0042,0303,0141,
	0142,0143,0144,0145,0146,0147,0150,0151,0304,0305,
	0306,0307,0310,0311,0312,0152,0153,0154,0155,0156,
	0157,0160,0161,0162,0313,0314,0315,0316,0317,0320,
	0321,0176,0163,0164,0165,0166,0167,0170,0171,0172,
	0322,0323,0324,0325,0326,0327,0330,0331,0332,0333,
	0334,0335,0336,0337,0340,0341,0342,0343,0344,0345,
	0346,0347,0173,0101,0102,0103,0104,0105,0106,0107,
	0110,0111,0350,0351,0352,0353,0354,0355,0175,0112,
	0113,0114,0115,0116,0117,0120,0121,0122,0356,0357,
	0360,0361,0362,0363,0134,0237,0123,0124,0125,0126,
	0127,0130,0131,0132,0364,0365,0366,0367,0370,0371,
	0060,0061,0062,0063,0064,0065,0066,0067,0070,0071,
	0372,0373,0374,0375,0376,0377,
};
-- 
--- David Herron
--- ARPA-> ukma!david at ANL-MCS.ARPA or ukma!david<@ANL-MCS> 
---	   or david%ukma.uucp at anl-mcs.arpa
---        Or even anlams!ukma!david at ucbvax.arpa
--- UUCP-> {ucbvax,unmvax,boulder,oddjob}!anlams!ukma!david
---        {ihnp4,decvax,ucbvax}!cbosgd!ukma!david

	"It's *Super*User* to the rescue!"