 TITLE 'A P L   S E T   -   A S C I I   = = = >   E B C D I C'
************************************************************************
*
*
*M*      AAPL      ASCII APL TRANSLATION TABLE FOR COC HANDLER
*
*
************************************************************************
*P*  NAME:    AAPL
*P*  PURPOSE: PROVIDE INPUT AND OUTPUT TRANSLATION INFORMATION TO
*P*           THE COC HANDLER FOR ASCII APL TERMINALS.
************************************************************************
*
         DEF      APL:              XDELTA/PATCHING SYMBOL
APL:     EQU      %
         DEF      APLTX             DEF WHOSE VALUE IS NAME OF TABLE
APLTX    EQU      X'7FFFFFFF'||-(X'7FFFFFFF'&'APL '+1)
         DEF      AAPLX             ASCII APL TRANS TBL INDEX
         REF      AAPLXI            ASCII APL TRANS TBL INDEX, DEF'D
*                                   .. IN MINICOCR/REGCOCR/TPCOCR
AAPLX    EQU      AAPLXI
         DEF      AAPLIN
         PAGE
************************************************************************
*F*  NAME:    AAPLIN
*F*  PURPOSE: PROVIDE INPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR ASCII TERMINALS WITH APL TYPE-WHEELS/CHARACTER SETS.
*F*  DESCRIPTION:  APLIN, INDEXED BY AN ASCII CHARACTER, YIELDS THE
*F*           CORRESPONDING EBCDIC CHARACTER.
************************************************************************
AAPLIN   EQU      %
*
*    0
*
 DATA,8 X'0001020304090607'   NUL,  SOH,  STX,  ETX,  EOT,  ENQ,  ACK,  BEL
 DATA,8 X'0805150B0C0D0E0F'    BS,   HT, NL(LF), VT,   FF,   CR,   SO,   SI
*    1
 DATA,8 X'103C473D140A1617'  DLE,DC1(XON),DC2,DC3(XOFF),DC4, NAK, SYN,  ETB
 DATA,8 X'32191A301C1D1E1F' CAN(CTL-X),EM(CTL-Y),SUB,ESC,FS, GS,  RS ,  US
*    2
 DATA,8 X'40715D4C747E6EB5' BLANK,  QUOTE,      ), <,.LE.,    =,    >,BRK)
 DATA,8 X'79707BFB6B4E4B61'  .OR.,.AND.,.NE.,DIVID,    ,,    +,    .,    /
*    3
 DATA,8 X'F0F1F2F3F4F5F6F7'     0,    1,    2,    3,    4,    5,    6,    7
 DATA,8 X'F8F94DB45EFA7AB1'     8,    9,    (,(BRAK,    ;,MLTPY,    :,QUEST MK
         PAGE
*    4
 DATA,8 X'727C425044456D7F' OVSCR,ALPHA,DECOD,INTER,  MIN,EPSLN,UNSCR,DNDLTA
 DATA,8 X'48495A7D534F5556' DELTA,NDXGN,DEGRE,QUOTE, QUAD,RESDU,ENCOD,CRCLR
*
*    5
 DATA,8 X'5C6F6C625F645B66'     *,    Q,  RHO,  MAX,TILDE,DNARW,UNION,OMEGA
 DATA,8 X'676A4AFDEBFC7660' SUPST,UPARW,SUBST,   <-,  |- ,   ->, .GE.,HYPHEN
*    6
 DATA,8 X'EAC1C2C3C4C5C6C7'     (),  'A',  'B',  'C',  'D',  'E',  'F',  'G'
 DATA,8 X'C8C9D1D2D3D4D5D6'    'H',  'I',  'J',  'K',  'L',  'M',  'N',  'O'
*    7
 DATA,8 X'D7D8D9E2E3E4E5E6'    'P',  'Q',  'R',  'S',  'T',  'U',  'V',  'W'
 DATA,8 X'E7E8E9B2ECB35B31'    'X',  'Y',  'Z',BRACE(, -|,BRACE),%-UNION, RUB
*
 TITLE 'A P L   S E T   -   E B C D I C   = = = >   A S C I I'
************************************************************************
*F*  NAME:    AAPLOUT
*F*  PURPOSE: PROVIDE OUTPUT TRANSLATION INFORMATION TO THE COC HANDLER
*F*           FOR ASCII TERMINALS WITH APL TYPE-WHEELS/CHARACTER SETS.
*F*  DESCRIPTION:  APLOUT, 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, AN ASCII CHARACTER.
************************************************************************
*
         DEF      AAPLOUT
AAPLOUT  EQU      %
*   00
 DATA,8  X'00010203EA810607'  NUL,  SOH,  STX,  ETX, +EOT,  *HT,  ACK,  BEL
 DATA,8  X'8B05150B80820E0F' +*BS,  ENQ,  NAK,   VT,  *FF,  *CR,   SO,   SI
*   01
 DATA,8  X'1011121314821617'  DLE,  XON,  DC2, XOFF,  DC4,*NL(LF),SYN,  ETB
 DATA,8  X'18E58E1BE1E2E3E4'  CAN,  +EM, *SUB, *ESC,  +FS,  +GS,  +RS,  +US
*   02
 DATA,8  X'8D1C1D1E1F192F59'  *LF,   FS,   GS,   RS,   US,   EM,    /,UP-ARW
 DATA,8  X'250D040822090A1A'   = ,   CR,  EOT,   BS,    ),   HT,   LF,  SUB
*    3
 DATA,8  X'849485D6D2C3CBD3' ESC*F,*RUB,ESC*X,ESC&P,ESC&U,ESC&(,ESC&),ESC&T
 DATA,8  X'D5D7D7D5CEC68788' ESC&S,ESC&E,ESC&C,ESC&O,*XON,*XOFF,ESC*R,ESC*CR
*   4
         DATA     X'2093428C'         SPACE ,  ESC&J , DECODE ,  ESC*LF
         DATA     X'44458F95'        MINIMUM, EPSILON, *BSBS  , *DC2
         DATA     X'48495A2E'         DELTA ,INDEX GEN,SUBSET ,   '.'
         DATA     X'233A2D4D'          '<'  ,   '('  ,   '+'  , RESIDUE
*   5
         DATA     X'4391924C'   INTERSECTION, IGNORE ,  ESC*D ,  QUAD
         DATA     X'904E4F51'        ESC*Z  , ENCODE ,CIRCULAR,  SUB
         DATA     X'51514A56'          SUB  ,   SUB  , DEGREE ,  UNION
         DATA     X'50AC3C54'          '*'  ,   ')'  ,   ';'  ,  TILDE
*   6
         DATA     X'5FA65351'          '-'  ,   '/'  , MAXIMUM,   SUB
         DATA     X'55515758'       DN ARROW,   SUB  ,  OMEGA ,SUPERSET
         DATA     X'5151A72C'          SUB  ,   SUB  ,UP ARROW,   ','
         DATA     X'52462651'          RHO  ,UNDRSCOR,   '>'  ,QUEST MK
*   7
         DATA     X'29214051'         .AND. ,QUOTE MK,OVERSCOR,   SUB
         DATA     X'24515E51'         .LE.  ,   SUB  ,  .GE.  ,   SUB
         DATA     X'51283E2A'          SUB  ,  .OR.  ,   ':'  ,  .NE.
         DATA     X'414BA847'         ALPHA ,   '''  ,   '='  ,DN DELTA
*    8
 DATA,8  X'5161626364656667'  SUB ,   A ,   B ,   C ,   D ,   E ,   F ,   G
 DATA,8  X'6869515151515151'    H ,   I , SUB , SUB , SUB , SUB , SUB , SUB
*    9
 DATA,8  X'516A6B6C6D6E6F70'  SUB ,   J ,   K ,   L ,   M ,   N ,   O ,   P
 DATA,8  X'7172515151515151'    Q ,   R , SUB , SUB , SUB , SUB , SUB , SUB
*    A
 DATA,8  X'5151737475767778'  SUB , SUB ,   S ,   T ,   U ,   V ,   W ,   X
 DATA,8  X'797A51515151514D'    Y ,   Z , SUB , SUB , SUB , SUB , SUB , OR
*    B
 DATA,8  X'0C3F7B7D89890051'  FF  ,BK'/',(BRAC,BRAC),*(BRK,*BRK), NULL, SUB
 DATA,8  X'515151513B27EF54'  SUB , SUB , SUB , SUB ,(BRAK,BRAK),+DATA, NOT
*    C
 DATA,8  X'2061626364656667' SPACE,   A ,   B ,   C ,   D ,   E ,   F ,   G
 DATA,8  X'6869515151515151'    H ,   I , SUB , SUB , SUB , SUB , SUB , SUB
*    D
 DATA,8  X'516A6B6C6D6E6F70'  SUB ,   J ,   K ,   L ,   M ,   N ,   O ,   P
 DATA,8  X'7172515151515151'    Q ,   R , SUB , SUB , SUB , SUB , SUB , SUB
*    E
 DATA,8  X'5F51737475767778'   -  , SUB ,   S ,   T ,   U ,   V ,   W ,   X
 DATA,8  X'797A605C7C7B7D51'    Y ,   Z ,  () ,  |- ,  -| ,(BRAC,BRAC), SUB
*    F
 DATA,8  X'3031323334353637'    0,    1,    2,    3,    4,    5,    6,    7
 DATA,8  X'38393D2B5D5B517F'    8,    9,MULTPY,DIVID,ARROW,BK-ARW,SUB , DEL
*
*
*
* THE SYMBOL *, +, AND &, WHICH PRECEED OR ARE IMBEDDED IN COMMENTARY SYMBOLS
* INDICATE CATAGORIES OF CHARACTERS WHICH REQUIRE SPECIAL HANDLING.
*  THE SPECIAL CATAGORIES ARE:
*
*          *   . . .   UNIQUE ACTION IS GENERALLY REQUIRED.
*
*          +   . . .   THE CHARACTER WILL NORMALLY ACTIVATE, OR
*                      IT IS A DELTA ACTIVATION CHARACTER.
*
*          &   . . .   CHANGE APPROPRIATE MODE IN LINE TABLE.
*
*
         END

