*
* $Id: e0eu.inc,v 1.1.1.1 1996/02/15 17:47:40 mclareni Exp $
*
* $Log: e0eu.inc,v $
* Revision 1.1.1.1  1996/02/15 17:47:40  mclareni
* Kernlib
*
*
*
* e0eu.inc
*
          MACRO
&L        E0EU
          SPACE
&L        DS        0C                  BYTE ALIGNMENT ONLY
          SPACE
*         THIS TRANSLATE TABLE CONVERTS CERN EBCDIC TO CERN EBCDIC
*         WITH ONLY UPPER CASE LETTERS.
          SPACE
          DC        X'000102030405060708090A0B0C0D0E0F'
          DC        X'101112131415161718191A1B1C1D1E1F'
          DC        X'202122232425262728292A2B2C2D2E2F'
          DC        X'303132333435363738393A3B3C3D3E3F'
          DC        X'404142434445464748494A4B4C4D4E4F'
          DC        X'505152535455565758595A5B5C5D5E5F'
          DC        X'606162636465666768696A6B6C6D6E6F'
          DC        X'707172737475767778797A7B7C7D7E7F'
          DC        X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
          DC        X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
          DC        X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
          DC        X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
          DC        X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
          DC        X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
          DC        X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
          DC        X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
          SPACE
          MEND