         PCC      0
************************************************************************
*
*
*M*      EAPL      EBCD APL KEYBOARD TRANSLATION TABLE FOR COC HANDLER
*
*
************************************************************************
*P*  NAME:    EAPL
*P*  PURPOSE: PROVIDE INPUT AND OUTPUT TRANSLATION INFORMATION TO
*P*           THE COC HANDLER FOR EBCD APL TERMINALS.
************************************************************************
*
         DEF      EAPL:             XDELTA/PATCHING SYMBOL
         DEF      EAPL              EBCD APL OUTPUT TRANSLATE TABLE
         DEF      EAPLLC            EBCD APL INPUT TRANSLATE TABLE FOR
*,*                                 LOWER CASE CHARACTERS
         DEF      EAPLUC            EBCD APL INPUT TRANSLATE TABLE FOR
*,*                                 UPPER CASE CHARACTERS
         DEF      EAPLTX            DEF WHOSE VALUE IS NAME OF TABLE
EAPLTX   EQU      X'7FFFFFFF'||-(X'7FFFFFFF'&'EAPL'+1)
*
EAPL:    EQU      %
         TITLE    '2741 EBCD APL INPUT TRANSLATION TABLE'
************************************************************************
*F*  NAME:    EAPLLC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR EBCD APL LOWER CASE CHARACTERS.
*F*  DESCRIPTION:  EAPLLC, INDEXED BY A LOWER CASE EBCD APL
*F*           CHARACTER, YIELDS THE CORRESPONDING EBCDIC CHARACTER.
************************************************************************
*
EAPLLC   EQU      %                 EBCD APL LOWER CASE TO EBCDIC
*
*   0
         DATA     X'404EFDFA'         SPACE ,   '+'  ,BK ARROW,MULTIPLY
         TEXT     '8QYH'               '8'  ,   'Q'  ,   'Y'  ,   'H'
         TEXT     '4MUD'               '4'  ,   'M'  ,   'U'  ,   'D'
         DATA     X'12030214'       PN-->DC2,RES->ETX,BY-->STX,PF-->DC4
*   1
         TEXT     '2KSB'               '2'  ,   'K'  ,    S   ,    B
         DATA     X'F0000000'          '0'  , UNUSED , UNUSED , UNUSED
         TEXT     '6OWF'               '6'  ,   'O'  ,   'W'  ,    F
         DATA     X'00081700'       UC-->N/A,  'BS'  ,EOB->ETB,LC-->N/A
*   2
         TEXT     '1J/A'               '1'  ,   'J'  ,   '/'  ,   'A'
         TEXT     '9RZI'               '9'  ,   'R'  ,   'Z'  ,   'I'
         TEXT     '5NVE'               '5'  ,   'N'  ,   'V'  ,   'E'
         DATA     X'130D2005'       RS-->DC3,NL->'CR',LF->INDX,  'HT'
*   3
         TEXT     '3LTC'               '3'  ,   'L'  ,   'T'  ,   'C'
         DATA     X'B5B46B4B'       BRACKET),(BRACKET,   ','  ,   '.'
         TEXT     '7PXG'               '7'  ,   'P'  ,   'X'  ,   'G'
         DATA     X'04000100'         'EOT' ,IL-->IGN,PRE->SOH,DEL->IGN
         PAGE
************************************************************************
*F*  NAME:    EAPLUC
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR EBCD APL UPPER CASE CHARACTERS.
*F*  DESCRIPTION:  EAPLUC, INDEXED BY AN UPPER CASE EBCD APL
*F*           CHARACTER, YIELDS THE CORRESPONDING EBCDIC CHARACTER.
************************************************************************
*
EAPLUC   EQU      %                 EBCD APL UPPER CASE TO EBCDIC
*
*   0
         DATA     X'4060FCFB'         SPACE ,   '-'  ,  ARROW , DIVIDE
         DATA     X'7B6F6A48'         .NE.  ,QUEST MK,UP ARROW,  DELTA
         DATA     X'744F6444'         .LE.  , RESIDUE,DN ARROW, MINIMUM
         DATA     X'12030214'       PN-->DC2,RES->ETX,BY-->STX,PF-->DC4
*   1
         DATA     X'727D6242'       OVERSCOR,   '''  , MAXIMUM, DECODE
         DATA     X'70000000'         .AND. , UNUSED , UNUSED , UNUSED
         DATA     X'7656666D'         .GE.  ,CIRCULAR,  OMEGA ,UNDRSCOR
         DATA     X'00081700'       UC-->N/A,  'BS'  ,EOB->ETB,LC-->N/A
*   2
         DATA     X'715AB17C'       QUOTE MK, DEGREE ,BK SLASH, ALPHA
         DATA     X'796C4A49'         .OR.  ,   RHO  , SUBSET ,INDX GEN
         DATA     X'7E555B45'          '='  , ENCODE ,  UNION ,EPSILON
         DATA     X'13152005'       RS-->DC3,  'NL'  ,LF->INDX,  'HT'
*   3
         DATA     X'4C535F50'          '<'  ,  QUAD  ,  TILDE ,INTRSECT
         TEXT     ')(;:'               ')'  ,   '('  ,   ';'  ,  ':'
         DATA     X'6E5C677F'          '>'  ,   '*'  ,SUPERSET,DN DELTA
         DATA     X'04000100'         'EOT' ,IL-->IGN,PRE->SOH,DEL->IGN
         TITLE    '2741 EBCD APL OUTPUT TRANSLATION TABLE'
************************************************************************
*F*  NAME:    EAPL
*F*  PURPOSE: PROVIDE OUTPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR EBCD APL CHARACTERS.
*F*  DESCRIPTION:  EAPL, INDEXED BY AN EBCDIC CHARACTER, YIELDS 1 OF
*F*           THE FOLLOWING:
*F*           1   IF THE .80 BIT IS SET, A COC INTERNAL CONTROL CODE.
*F*           2   ELSE, IF THE .40 BIT IS SET, AN EBCD UPPER CASE
*F*               CHARACTER (AFTER STRIPPING THE .40 BIT).
*F*           3   ELSE, AN EBCD LOWER CASE CHARACTER.
************************************************************************
*
EAPL     EQU      %                 EBCDIC TO EBCD APL KEYBOARD
*
*   0
         DATA     X'3D3E0E0D'       NUL-->IL,SOH->PRE,STX-->BY,ETX->RES
         DATA     X'EA813D3D'         'EOT' ,  'HT'  ,ACK-->IL,BEL-->IL
         DATA     X'8B3D3D3D'         'BS'  ,ENQ-->IL,NAK-->IL,VT--->IL
         DATA     X'80833D3D'         'FF'  ,CR->'NL',SO--->IL,SI--->IL
*   1
         DATA     X'3D3D4C2C'       DLE-->IL,DC1-->IL,DC2-->PN,DC3-->RS
         DATA     X'4F833D5E'       DC4-->PF,  'NL'  ,SYN-->IL,ETB->EOB
         DATA     X'3D3D8E3D'       CAN-->IL,EM--->IL,SUB->.NE.,ESC->IL
         DATA     X'3D3D3DE4'       FS--->IL,GS--->IL,RS--->IL,SP ATTN
*   2
         DATA     X'8D3D3D3D'       INDX->LF,FS--->IL,GS--->IL,RS--->IL
         DATA     X'3D3D2246'       US--->IL,   SYN  ,   '/'  ,UP ARROW
         DATA     X'682D3D5D'         '='   ,  'NL'  ,EOT->IL ,  'BS'
         DATA     X'742F6E44'          ')'  ,   'HT' ,   'LF' , BE->SUB
*   3
         DATA     X'8486853D'        F ATTN , BS ATTN, X ATTN ,  SYN
         DATA     X'D2C3CBD3'        U ATTN , ( ATTN , ) ATTN , T ATTN
         DATA     X'D53DD7D5'        S ATTN ,   SYN  , C ATTN , O ATTN
         DATA     X'3D3D8788'          SYN  ,   SYN  , R ATTN , N ATTN
         PAGE
*   4
         DATA     X'40445344'         SPACE ,   SUB  , DECODE ,   SUB
         DATA     X'4B6B4444'        MINIMUM, EPSILON,  SUB   ,  SUB
         DATA     X'47676637'         DELTA ,INDEX GEN,SUBSET ,   '.'
         DATA     X'70750149'          '<'  ,   '('  ,   '+'  , RESIDUE
*   5
         DATA     X'73444471'   INTERSECTION,   SUB  ,   SUB  ,  QUAD
         DATA     X'44695944'          SUB  , ENCODE ,CIRCULAR,   SUB
         DATA     X'4444616A'          SUB  ,   SUB  , DEGREE ,  UNION
         DATA     X'79AC7672'          '*'  ,   ')'  ,   ';'  ,  TILDE
*   6
         DATA     X'41A65244'          '-'  ,   '/'  , MAXIMUM,   SUB
         DATA     X'4A445A7A'       DN ARROW,   SUB  ,  OMEGA ,SUPERSET
         DATA     X'4444A736'          SUB  ,   SUB  ,UP ARROW,   ','
         DATA     X'655B7845'          RHO  ,UNDRSCOR,   '>'  ,QUEST MK
*   7
         DATA     X'54605044'         .AND. ,QUOTE MK,OVERSCOR,   SUB
         DATA     X'48445844'         .LE.  ,   SUB  ,  .GE.  ,   SUB
         DATA     X'44647744'          SUB  ,  .OR.  ,   ':'  ,  .NE.
         DATA     X'6351A87B'         ALPHA ,   '''  ,   '='  ,DN DELTA
*   8
         DATA     X'44231333'          SUB  ,   'A'  ,   'B'  ,   'C'
         DATA     X'0B2B1B3B'          'D'  ,   'E'  ,   'F'  ,   'G'
         DATA     X'07274444'          'H'  ,   'I'  ,   SUB  ,   SUB
         DATA     X'44444444'          SUB  ,   SUB  ,   SUB  ,   SUB
*   9
         DATA     X'44211131'          SUB  ,   'J'  ,   'K'  ,   'L'
         DATA     X'09291939'          'M'  ,   'N'  ,   'O'  ,   'P'
         DATA     X'05254444'          'Q'  ,   'R'  ,   SUB  ,   SUB
         DATA     X'44444444'          SUB  ,   SUB  ,   SUB  ,   SUB
         PAGE
*   A
         DATA     X'44441232'          SUB  ,   SUB  ,   'S'  ,   'T'
         DATA     X'0A2A1A3A'          'U'  ,   'V'  ,   'W'  ,   'X'
         DATA     X'06264444'          'Y   ,   'Z'  ,   SUB  ,   SUB
         DATA     X'44444444'           SUB ,   SUB  ,   SUB  ,   SUB
*   B
         DATA     X'44627574'          SUB  ,BK SLASH, (BRACE , BRACE)
         DATA     X'35344444'       (BRACKET,BRACKET),   SUB  ,   SUB
         DATA     X'44444444'          SUB  ,   SUB  ,   SUB  ,   SUB
         DATA     X'4444EF44'          SUB  ,   SUB  ,LOSTDATA,   SUB
*   C
         DATA     X'40231333'         SPACE ,   'A'  ,   'B'  ,   'C'
         DATA     X'0B2B1B3B'          'D'  ,   'E'  ,   'F'  ,   'G'
         DATA     X'07274444'          'H'  ,   'I'  ,   SUB  ,   SUB
         DATA     X'44444444'          SUB  ,   SUB  ,   SUB  ,   SUB
*   D
         DATA     X'44211131'          SUB  ,   'J'  ,   'K'  ,   'L'
         DATA     X'09291939'          'M'  ,   'N'  ,   'O'  ,   'P'
         DATA     X'05254444'          'Q'  ,   'R'  ,   SUB  ,   SUB
         DATA     X'44444444'          SUB  ,   SUB  ,   SUB  ,   SUB
*   E
         DATA     X'41441232'          '-'  ,   SUB  ,   'S'  ,   'T'
         DATA     X'0A2A1A3A'          'U'  ,   'V'  ,   'W'  ,   'X'
         DATA     X'06264444'          'Y   ,   'Z'  ,   SUB  ,   SUB
         DATA     X'44444444'           SUB ,   SUB  ,   SUB  ,   SUB
*   F
         DATA     X'14201030'          '0'  ,   '1'  ,   '2'  ,   '3'
         DATA     X'08281838'          '4'  ,   '5'  ,   '6'  ,   '7'
         DATA     X'04240343'          '8'  ,   '9'  ,MULTIPLY, DIVIDE
         DATA     X'4202447F'         ARROW ,BK ARROW,   SUB  , 'DEL'
         END

