*
* $Id: e0tn.inc,v 1.1.1.1 1996/02/15 17:47:40 mclareni Exp $
*
* $Log: e0tn.inc,v $
* Revision 1.1.1.1  1996/02/15 17:47:40  mclareni
* Kernlib
*
*
*
* e0tn.inc
*
          MACRO
&L        E0TN
          SPACE
&L        DS        0C                  BYTE ALIGNMENT ONLY
          SPACE
*         THIS TRANSLATE TABLE CONVERTS CERN EBCDIC TO CHARACTERS
*         THAT ARE AVAILABLE ON THE TN PRINT TRAIN, ALLOWING MUCH
*         FASTER PRINTING. ALL OTHER CHARACTERS ARE CONVERTED TO
*         SPACE
*
          SPACE
          DC        X'40404040404040404040404040404040'
          DC        X'40404040404040404040404040404040'
          DC        X'40404040404040404040404040404040'
          DC        X'40404040404040404040404040404040'
          DC        X'404040404040404040404A4B4C4D4E4F'
          DC        X'504040404040404040405A5B5C5D5E5F'
          DC        X'60614040404040404040406B6C6D6E6F'
          DC        X'404040404040404040407A7B7C7D7E7F'
          DC        X'40818283848586878889408B8C8D8E8F'
          DC        X'40919293949596979899409B9C9D9E9F'
          DC        X'A0A1A2A3A4A5A6A7A8A940ABACADAEAF'
          DC        X'B0B1B2B3B4B5B6B7B8B940BBBCBDBEBF'
          DC        X'40C1C2C3C4C5C6C7C8C9404040404040'
          DC        X'40D1D2D3D4D5D6D7D8D9404040404040'
          DC        X'E040E2E3E4E5E6E7E8E9404040404040'
          DC        X'F0F1F2F3F4F5F6F7F8F9404040404040'
          SPACE
          MEND