-- EBCDICTables.mesa
-- EBCDIC conversion tables
-- Stewart and TonyWest, 23-Feb-82 14:41:13

EBCDICTables: DEFINITIONS = {

Byte: TYPE = [0..377B];
ByteArray: TYPE = PACKED ARRAY Byte OF Byte;

EtoA: ByteArray = [
        0000B, 0001B, 0002B, 0003B, 0000B, 0011B, 0000B, 0177B,
        0000B, 0000B, 0000B, 0013B, 0014B, 0015B, 0016B, 0017B,
        0020B, 0021B, 0022B, 0023B, 0000B, 0000B, 0010B, 0000B,
        0030B, 0031B, 0000B, 0000B, 0034B, 0035B, 0036B, 0037B,
        0000B, 0000B, 0000B, 0000B, 0000B, 0012B, 0027B, 0033B,
        0000B, 0000B, 0000B, 0000B, 0000B, 0005B, 0006B, 0007B,
        0000B, 0000B, 0026B, 0000B, 0000B, 0000B, 0000B, 0004B,
        0000B, 0000B, 0000B, 0000B, 0024B, 0025B, 0000B, 0032B,
        0040B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0000B, 0000B, 0056B, 0074B, 0050B, 0053B, 0174B,
        0046B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0000B, 0041B, 0044B, 0052B, 0051B, 0073B, 0176B,
        0055B, 0057B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0000B, 0000B, 0054B, 0045B, 0137B, 0076B, 0077B,
        0000B, 0136B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0140B, 0072B, 0043B, 0100B, 0047B, 0075B, 0042B,
        0000B, 0141B, 0142B, 0143B, 0144B, 0145B, 0146B, 0147B,
        0150B, 0151B, 0000B, 0173B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0152B, 0153B, 0154B, 0155B, 0156B, 0157B, 0160B,
        0161B, 0162B, 0000B, 0175B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0000B, 0163B, 0164B, 0165B, 0166B, 0167B, 0170B,
        0171B, 0172B, 0000B, 0000B, 0000B, 0133B, 0000B, 0000B,
        0000B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0000B, 0000B, 0000B, 0000B, 0135B, 0000B, 0000B,
        0000B, 0101B, 0102B, 0103B, 0104B, 0105B, 0106B, 0107B,
        0110B, 0111B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0000B, 0112B, 0113B, 0114B, 0115B, 0116B, 0117B, 0120B,
        0121B, 0122B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0134B, 0000B, 0123B, 0124B, 0125B, 0126B, 0127B, 0130B,
        0131B, 0132B, 0000B, 0000B, 0000B, 0000B, 0000B, 0000B,
        0060B, 0061B, 0062B, 0063B, 0064B, 0065B, 0066B, 0067B,
        0070B, 0071B, 0000B, 0000B, 0000B, 0000B, 0000B, 0134B
        ];

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

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

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


}.

22 Feb. 1982 4:41 pm PST (Monday), Stewart, TonyWest, Created