*
* @ Copyright IBM Corporation 2010
*
* Module: ISPAPL2
*
* Use: ISPF dialog manager terminal type translate tables for APL2
*
* These translate tables contain the values for a 3278/3279 APL
* English terminal.
*
* In addition to the characters supported by the standard ISPF
* translate tables for terminals with APL characters, these
* tables contain the following APL characters:
*
*    Name              Hexadecimal Decimal
*    Quad Jot          0x73        115
*    Iota Underbar     0x74        116
*    Epsilon Underbar  0x75        117
*    Squad             0xCC        204
*    Quad Slope        0xCC        206
*    Match             0xE1        225
*    Dieresis Dot      0xEC        236
*    Left Tack         0x76        118
*    Right Tack        0x77        119
*
ISPAPL2  CSECT
TTID     DC    CL8'ISPAPL2 '
UPPP     DC    AL4(TTUPP)
LOWP     DC    AL4(TTLOW)
VALP     DC    AL4(TTVAL)
ALBP     DC    AL4(TTALB)
ETOP     DC    A(0)
GSCP     DC    A(0)
GSMP     DC    AL4(TTGSM)
GSSP     DC    A(0)
EDIP     DC    A(0)
EDOP     DC    A(0)
DPRP     DC    A(0)
TBIP     DC    AL4(TTTBI)
TBOP     DC    AL4(TTTBO)
ESCV     DC    X'08000000'
ALPP     DC    AL4(TTALP)
COLP     DC    AL4(TTCOL)
*
*
TTUPP    DC    X'0001020304050607'     (X'00' TO X'07')
         DC    X'08090A0B0C0D0E0F'     (X'08' TO X'0F')
         DC    X'1011121314151617'     (X'10' TO X'17')
         DC    X'18191A1B4040401F'     (X'18' TO X'1F')
         DC    X'2021222324252627'     (X'20' TO X'27')
         DC    X'28292A2B2C2D2E2F'     (X'28' TO X'2F')
         DC    X'3031323334353637'     (X'30' TO X'37')
         DC    X'38393A3B3C3D3E3F'     (X'38' TO X'3F')
         DC    X'4041424344454647'     (X'40' TO X'47')
         DC    X'48494A4B4C4D4E4F'     (X'48' TO X'4F')
         DC    X'5051525354555657'     (X'50' TO X'57')
         DC    X'58595A5B5C5D5E5F'     (X'58' TO X'5F')
         DC    X'6061626364656667'     (X'60' TO X'67')
         DC    X'68696A6B6C6D6E6F'     (X'68' TO X'6F')
         DC    X'7071727374757677'     (X'70' TO X'77')
         DC    X'78797A7B7C7D7E7F'     (X'78' TO X'7F')
         DC    X'80C1C2C3C4C5C6C7'     (X'80' TO X'87')
         DC    X'C8C98A8B8C8D8E8F'     (X'88' TO X'8F')
         DC    X'90D1D2D3D4D5D6D7'     (X'90' TO X'97')
         DC    X'D8D99A9B9C9D9E9F'     (X'98' TO X'9F')
         DC    X'A0A1E2E3E4E5E6E7'     (X'A0' TO X'A7')
         DC    X'E8E9AAABACADAEAF'     (X'A8' TO X'AF')
         DC    X'B0B1B2B3B4B5B6B7'     (X'B0' TO X'B7')
         DC    X'B8B9BABBBCBDBEBF'     (X'B8' TO X'BF')
         DC    X'C0C1C2C3C4C5C6C7'     (X'C0' TO X'C7')
         DC    X'C8C9CACBCCCDCECF'     (X'C8' TO X'CF')
         DC    X'D0D1D2D3D4D5D6D7'     (X'D0' TO X'D7')
         DC    X'D8D9DADBDCDDDEDF'     (X'D8' TO X'DF')
         DC    X'E0E1E2E3E4E5E6E7'     (X'E0' TO X'E7')
         DC    X'E8E9EAEBECEDEEEF'     (X'E8' TO X'EF')
         DC    X'F0F1F2F3F4F5F6F7'     (X'F0' TO X'F7')
         DC    X'F8F9FAFBFCFDFEFF'     (X'F8' TO X'FF')
*
*
TTLOW    DC    X'0001020304050607'     (X'00' TO X'07')
         DC    X'08090A0B0C0D0E0F'     (X'08' TO X'0F')
         DC    X'1011121314151617'     (X'10' TO X'17')
         DC    X'18191A1B4040401F'     (X'18' TO X'1F')
         DC    X'2021222324252627'     (X'20' TO X'27')
         DC    X'28292A2B2C2D2E2F'     (X'28' TO X'2F')
         DC    X'3031323334353637'     (X'30' TO X'37')
         DC    X'38393A3B3C3D3E3F'     (X'38' TO X'3F')
         DC    X'4041424344454647'     (X'40' TO X'47')
         DC    X'48494A4B4C4D4E4F'     (X'48' TO X'4F')
         DC    X'5051525354555657'     (X'50' TO X'57')
         DC    X'58595A5B5C5D5E5F'     (X'58' TO X'5F')
         DC    X'6061626364656667'     (X'60' TO X'67')
         DC    X'68696A6B6C6D6E6F'     (X'68' TO X'6F')
         DC    X'7071727374757677'     (X'70' TO X'77')
         DC    X'78797A7B7C7D7E7F'     (X'78' TO X'7F')
         DC    X'8081828384858687'     (X'80' TO X'87')
         DC    X'88898A8B8C8D8E8F'     (X'88' TO X'8F')
         DC    X'9091929394959697'     (X'90' TO X'97')
         DC    X'98999A9B9C9D9E9F'     (X'98' TO X'9F')
         DC    X'A0A1A2A3A4A5A6A7'     (X'A0' TO X'A7')
         DC    X'A8A9AAABACADAEAF'     (X'A8' TO X'AF')
         DC    X'B0B1B2B3B4B5B6B7'     (X'B0' TO X'B7')
         DC    X'B8B9BABBBCBDBEBF'     (X'B8' TO X'BF')
         DC    X'C0C1C2C3C4C5C6C7'     (X'C0' TO X'C7')
         DC    X'C8C9CACBCCCDCECF'     (X'C8' TO X'CF')
         DC    X'D0D1D2D3D4D5D6D7'     (X'D0' TO X'D7')
         DC    X'D8D9DADBDCDDDEDF'     (X'D8' TO X'DF')
         DC    X'E0E1E2E3E4E5E6E7'     (X'E0' TO X'E7')
         DC    X'E8E9EAEBECEDEEEF'     (X'E8' TO X'EF')
         DC    X'F0F1F2F3F4F5F6F7'     (X'F0' TO X'F7')
         DC    X'F8F9FAFBFCFDFEFF'     (X'F8' TO X'FF')
*
*
TTVAL    DC    X'FFFFFFFFFFFFFFFF'     (X'00' TO X'07')
         DC    X'FFFFFFFFFFFFFFFF'     (X'08' TO X'0F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'10' TO X'17')
         DC    X'FFFFFFFFFFFFFFFF'     (X'18' TO X'1F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'20' TO X'27')
         DC    X'FFFFFFFFFFFFFFFF'     (X'28' TO X'2F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'30' TO X'37')
         DC    X'FFFFFFFFFFFFFFFF'     (X'38' TO X'3F')
         DC    X'0000000000000000'     (X'40' TO X'47')
         DC    X'0000000000000000'     (X'48' TO X'4F')
         DC    X'0000000000000000'     (X'50' TO X'57')
         DC    X'0000000000000000'     (X'58' TO X'5F')
         DC    X'0000000000000000'     (X'60' TO X'67')
         DC    X'0000000000000000'     (X'68' TO X'6F')
         DC    X'0000000000000000'     (X'70' TO X'77')
         DC    X'0000000000000000'     (X'78' TO X'7F')
         DC    X'0000000000000000'     (X'80' TO X'87')
         DC    X'0000000000000000'     (X'88' TO X'8F')
         DC    X'0000000000000000'     (X'90' TO X'97')
         DC    X'00000000FF00FF00'     (X'98' TO X'9F')
         DC    X'0000000000000000'     (X'A0' TO X'A7')
         DC    X'0000000000000000'     (X'A8' TO X'AF')
         DC    X'0000000000FF0000'     (X'B0' TO X'B7')
         DC    X'00FF000000000000'     (X'B8' TO X'BF')
         DC    X'0000000000000000'     (X'C0' TO X'C7')
         DC    X'0000000000000000'     (X'C8' TO X'CF')
         DC    X'0000000000000000'     (X'D0' TO X'D7')
         DC    X'0000000000000000'     (X'D8' TO X'DF')
         DC    X'0000000000000000'     (X'E0' TO X'E7')
         DC    X'0000000000000000'     (X'E8' TO X'EF')
         DC    X'0000000000000000'     (X'F0' TO X'F7')
         DC    X'0000FF00000000FF'     (X'F8' TO X'FF')
*
*
TTGSM    DC    X'0101010101010101'     (X'00' TO X'07')
         DC    X'0101010101010101'     (X'08' TO X'0F')
         DC    X'0101010101010101'     (X'10' TO X'17')
         DC    X'0101010101010101'     (X'18' TO X'1F')
         DC    X'0101010101010101'     (X'20' TO X'27')
         DC    X'0101010101010101'     (X'28' TO X'2F')
         DC    X'0101010101010101'     (X'30' TO X'37')
         DC    X'0101010101010101'     (X'38' TO X'3F')
         DC    X'0008080808080808'     (X'40' TO X'47')
         DC    X'0808020202020202'     (X'48' TO X'4F')
         DC    X'0208080808080808'     (X'50' TO X'57')
         DC    X'0808020202020202'     (X'58' TO X'5F')
         DC    X'0202080808080808'     (X'60' TO X'67')
         DC    X'0808020202020202'     (X'68' TO X'6F')
         DC    X'0404040404040404'     (X'70' TO X'77')
         DC    X'0402020202020202'     (X'78' TO X'7F')
         DC    X'0410101010101010'     (X'80' TO X'87')
         DC    X'1010040404040404'     (X'88' TO X'8F')
         DC    X'0410101010101010'     (X'90' TO X'97')
         DC    X'1010040401040104'     (X'98' TO X'9F')
         DC    X'0402101010101010'     (X'A0' TO X'A7')
         DC    X'1010040404040404'     (X'A8' TO X'AF')
         DC    X'0404040404010404'     (X'B0' TO X'B7')
         DC    X'0401042004040404'     (X'B8' TO X'BF')
         DC    X'0220202020202020'     (X'C0' TO X'C7')
         DC    X'2020040404040404'     (X'C8' TO X'CF')
         DC    X'0220202020202020'     (X'D0' TO X'D7')
         DC    X'2020040404040404'     (X'D8' TO X'DF')
         DC    X'0204202020202020'     (X'E0' TO X'E7')
         DC    X'2020040404040404'     (X'E8' TO X'EF')
         DC    X'4040404040404040'     (X'F0' TO X'F7')
         DC    X'4040010408040401'     (X'F8' TO X'FF')
*
* TTTBI:  TWO BYTE INPUT TABLE - APL
*
* THIS TABLE IS USED TO SCAN INPUT DATA FOR BYTES NEEDING
* ESCAPE CHARACTER PROCESSING.
*
TTTBI    DC    X'0000000000000000'     (X'00' TO X'07')
         DC    X'0000000000000000'     (X'08' TO X'0F')
         DC    X'0000000000000000'     (X'10' TO X'17')
         DC    X'0000000000000000'     (X'18' TO X'1F')
         DC    X'0000000000000000'     (X'20' TO X'27')
         DC    X'0000000000000000'     (X'28' TO X'2F')
         DC    X'0000000000000000'     (X'30' TO X'37')
         DC    X'0000000000000000'     (X'38' TO X'3F')
         DC    X'0041424344454647'     (X'40' TO X'47')
         DC    X'4849000000000000'     (X'48' TO X'4F')
         DC    X'0051525354555657'     (X'50' TO X'57')
         DC    X'5859000000000000'     (X'58' TO X'5F')
         DC    X'0000626364656667'     (X'60' TO X'67')
         DC    X'6869000000000000'     (X'68' TO X'6F')
         DC    X'7071727374757677'     (X'70' TO X'77')
         DC    X'7800000000000000'     (X'78' TO X'7F')
         DC    X'8000000000000000'     (X'80' TO X'87')
         DC    X'00008A8B8C8D8E8F'     (X'88' TO X'8F')
         DC    X'9000000000000000'     (X'90' TO X'97')
         DC    X'00009A9B009D009F'     (X'98' TO X'9F')
         DC    X'A000000000000000'     (X'A0' TO X'A7')
         DC    X'0000AAABACADAEAF'     (X'A8' TO X'AF')
         DC    X'B0B1B2B3B400B6B7'     (X'B0' TO X'B7')
         DC    X'B800BABBBCBDBEBF'     (X'B8' TO X'BF')
         DC    X'0000000000000000'     (X'C0' TO X'C7')
         DC    X'0000CACBCCCDCECF'     (X'C8' TO X'CF')
         DC    X'0000000000000000'     (X'D0' TO X'D7')
         DC    X'0000DADBDCDDDEDF'     (X'D8' TO X'DF')
         DC    X'E100000000000000'     (X'E0' TO X'E7')
         DC    X'0000EAEBECEDEEEF'     (X'E8' TO X'EF')
         DC    X'0000000000000000'     (X'F0' TO X'F7')
         DC    X'000000FBFCFDFE00'     (X'F8' TO X'FF')
*
* TTTBO:  TWO BYTE OUTPUT TABLE - APL
*
* THIS TABLE IS USED TO SCAN OUTPUT DATA FOR BYTES NEEDING
* ESCAPE CHARACTER PROCESSING.
*
TTTBO    DC    X'0000000000000000'     (X'00' TO X'07')
         DC    X'0000000000000000'     (X'08' TO X'0F')
         DC    X'0000000000000000'     (X'10' TO X'17')
         DC    X'0000000000000000'     (X'18' TO X'1F')
         DC    X'0000000000000000'     (X'20' TO X'27')
         DC    X'0000000000000000'     (X'28' TO X'2F')
         DC    X'0000000000000000'     (X'30' TO X'37')
         DC    X'0000000000000000'     (X'38' TO X'3F')
         DC    X'0041424344454647'     (X'40' TO X'47')
         DC    X'4849000000000000'     (X'48' TO X'4F')
         DC    X'0051525354555657'     (X'50' TO X'57')
         DC    X'5859000000000000'     (X'58' TO X'5F')
         DC    X'0000626364656667'     (X'60' TO X'67')
         DC    X'6869000000000000'     (X'68' TO X'6F')
         DC    X'7071727374757677'     (X'70' TO X'77')
         DC    X'7800000000000000'     (X'78' TO X'7F')
         DC    X'8000000000000000'     (X'80' TO X'87')
         DC    X'00008A8B8C8D8E8F'     (X'88' TO X'8F')
         DC    X'9000000000000000'     (X'90' TO X'97')
         DC    X'00009A9B009D009F'     (X'98' TO X'9F')
         DC    X'A000000000000000'     (X'A0' TO X'A7')
         DC    X'0000AAABACADAEAF'     (X'A8' TO X'AF')
         DC    X'B0B1B2B3B400B6B7'     (X'B0' TO X'B7')
         DC    X'B800BABBBCBDBEBF'     (X'B8' TO X'BF')
         DC    X'0000000000000000'     (X'C0' TO X'C7')
         DC    X'0000CACBCCCDCECF'     (X'C8' TO X'CF')
         DC    X'0000000000000000'     (X'D0' TO X'D7')
         DC    X'0000DADBDCDDDEDF'     (X'D8' TO X'DF')
         DC    X'00E0000000000000'     (X'E0' TO X'E7')
         DC    X'0000EAEBECEDEEEF'     (X'E8' TO X'EF')
         DC    X'0000000000000000'     (X'F0' TO X'F7')
         DC    X'000000FBFCFDFE00'     (X'F8' TO X'FF')
*
*
TTALP    DC    X'FFFFFFFFFFFFFFFF'     (X'00' TO X'07')
         DC    X'FFFFFFFFFFFFFFFF'     (X'08' TO X'0F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'10' TO X'17')
         DC    X'FFFFFFFFFFFFFFFF'     (X'18' TO X'1F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'20' TO X'27')
         DC    X'FFFFFFFFFFFFFFFF'     (X'28' TO X'2F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'30' TO X'37')
         DC    X'FFFFFFFFFFFFFFFF'     (X'38' TO X'3F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'40' TO X'47')
         DC    X'FFFFFFFFFFFFFFFF'     (X'48' TO X'4F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'50' TO X'57')
         DC    X'FFFFFF00FFFFFFFF'     (X'58' TO X'5F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'60' TO X'67')
         DC    X'FFFFFFFFFFFFFFFF'     (X'68' TO X'6F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'70' TO X'77')
         DC    X'FFFFFF0000FFFFFF'     (X'78' TO X'7F')
         DC    X'FF00000000000000'     (X'80' TO X'87')
         DC    X'0000FFFFFFFFFFFF'     (X'88' TO X'8F')
         DC    X'FF00000000000000'     (X'90' TO X'97')
         DC    X'0000FFFFFFFFFFFF'     (X'98' TO X'9F')
         DC    X'FFFF000000000000'     (X'A0' TO X'A7')
         DC    X'0000FFFFFFFFFFFF'     (X'A8' TO X'AF')
         DC    X'FFFFFFFFFFFFFFFF'     (X'B0' TO X'B7')
         DC    X'FFFFFFFFFFFFFFFF'     (X'B8' TO X'BF')
         DC    X'FF00000000000000'     (X'C0' TO X'C7')
         DC    X'0000FFFFFFFFFFFF'     (X'C8' TO X'CF')
         DC    X'FF00000000000000'     (X'D0' TO X'D7')
         DC    X'0000FFFFFFFFFFFF'     (X'D8' TO X'DF')
         DC    X'FFFF000000000000'     (X'E0' TO X'E7')
         DC    X'0000FFFFFFFFFFFF'     (X'E8' TO X'EF')
         DC    X'FFFFFFFFFFFFFFFF'     (X'F0' TO X'F7')
         DC    X'FFFFFFFFFFFFFFFF'     (X'F8' TO X'FF')
*
*
TTALB    DC    X'FFFFFFFFFFFFFFFF'     (X'00' TO X'07')
         DC    X'FFFFFFFFFFFFFFFF'     (X'08' TO X'0F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'10' TO X'17')
         DC    X'FFFFFFFFFFFFFFFF'     (X'18' TO X'1F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'20' TO X'27')
         DC    X'FFFFFFFFFFFFFFFF'     (X'28' TO X'2F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'30' TO X'37')
         DC    X'FFFFFFFFFFFFFFFF'     (X'38' TO X'3F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'40' TO X'47')
         DC    X'FFFFFFFFFFFFFFFF'     (X'48' TO X'4F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'50' TO X'57')
         DC    X'FFFFFFFFFFFFFFFF'     (X'58' TO X'5F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'60' TO X'67')
         DC    X'FFFFFFFFFFFFFFFF'     (X'68' TO X'6F')
         DC    X'FFFFFFFFFFFFFFFF'     (X'70' TO X'77')
         DC    X'FFFFFFFFFFFFFFFF'     (X'78' TO X'7F')
         DC    X'FF00000000000000'     (X'80' TO X'87')
         DC    X'0000FFFFFFFFFFFF'     (X'88' TO X'8F')
         DC    X'FF00000000000000'     (X'90' TO X'97')
         DC    X'0000FFFFFFFFFFFF'     (X'98' TO X'9F')
         DC    X'FFFF000000000000'     (X'A0' TO X'A7')
         DC    X'0000FFFFFFFFFFFF'     (X'A8' TO X'AF')
         DC    X'FFFFFFFFFFFFFFFF'     (X'B0' TO X'B7')
         DC    X'FFFFFFFFFFFFFFFF'     (X'B8' TO X'BF')
         DC    X'FF00000000000000'     (X'C0' TO X'C7')
         DC    X'0000FFFFFFFFFFFF'     (X'C8' TO X'CF')
         DC    X'FF00000000000000'     (X'D0' TO X'D7')
         DC    X'0000FFFFFFFFFFFF'     (X'D8' TO X'DF')
         DC    X'FFFF000000000000'     (X'E0' TO X'E7')
         DC    X'0000FFFFFFFFFFFF'     (X'E8' TO X'EF')
         DC    X'FFFFFFFFFFFFFFFF'     (X'F0' TO X'F7')
         DC    X'FFFFFFFFFFFFFFFF'     (X'F8' TO X'FF')
*
*
TTCOL    DC    X'0001020304050607'     (X'00' TO X'07')
         DC    X'08090A0B0C0D0E0F'     (X'08' TO X'0F')
         DC    X'1011121314151617'     (X'10' TO X'17')
         DC    X'18191A1B1C1D1E1F'     (X'18' TO X'1F')
         DC    X'2021222324252627'     (X'20' TO X'27')
         DC    X'28292A2B2C2D2E2F'     (X'28' TO X'2F')
         DC    X'3031323334353637'     (X'30' TO X'37')
         DC    X'38393A3B3C3D3E3F'     (X'38' TO X'3F')
         DC    X'4041424344454647'     (X'40' TO X'47')
         DC    X'48494A4B4C4D4E4F'     (X'48' TO X'4F')
         DC    X'5051525354555657'     (X'50' TO X'57')
         DC    X'58595A5B5C5D5E5F'     (X'58' TO X'5F')
         DC    X'6061626364656667'     (X'60' TO X'67')
         DC    X'68696A6B6C6D6E6F'     (X'68' TO X'6F')
         DC    X'7071727374757677'     (X'70' TO X'77')
         DC    X'78797A7B7C7D7E7F'     (X'78' TO X'7F')
         DC    X'8081828384858687'     (X'80' TO X'87')
         DC    X'88898A8B8C8D8E8F'     (X'88' TO X'8F')
         DC    X'9091929394959697'     (X'90' TO X'97')
         DC    X'98999A9B9C9D9E9F'     (X'98' TO X'9F')
         DC    X'A0A1A2A3A4A5A6A7'     (X'A0' TO X'A7')
         DC    X'A8A9AAABACADAEAF'     (X'A8' TO X'AF')
         DC    X'B0B1B2B3B4B5B6B7'     (X'B0' TO X'B7')
         DC    X'B8B9BABBBCBDBEBF'     (X'B8' TO X'BF')
         DC    X'C0C1C2C3C4C5C6C7'     (X'C0' TO X'C7')
         DC    X'C8C9CACBCCCDCECF'     (X'C8' TO X'CF')
         DC    X'D0D1D2D3D4D5D6D7'     (X'D0' TO X'D7')
         DC    X'D8D9DADBDCDDDEDF'     (X'D8' TO X'DF')
         DC    X'E0E1E2E3E4E5E6E7'     (X'E0' TO X'E7')
         DC    X'E8E9EAEBECEDEEEF'     (X'E8' TO X'EF')
         DC    X'F0F1F2F3F4F5F6F7'     (X'F0' TO X'F7')
         DC    X'F8F9FAFBFCFDFEFF'     (X'F8' TO X'FF')
         END
