*COMDECK ASYXEBCD 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                      E B C D   -   A S C I I                        * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*            THE LOWER $20 WORDS OF THE TABLE ARE FOR LOWER CASE      * 
*            MODE, THE UPPER $20 FOR UPPER CASE MODE                  * 
*                                                                     * 
*            USED BY ASYNC BLOCKMODE TIP INPUT STATES                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          NAM    ATEBAS 
          SPC    3
XLT       MAC    C1,C2
          VFD    X8/$"C1",X8/$"C2"
          EMC 
          EJT 
          ENT    ATEBAS 
* 
ATEBAS    XLT    20,2D       -    SP  - SP       -   - -        00,01 
          XLT    40,26       -    AT  - AT       AMP - AMP      02,03 
          XLT    38,71       -    8   - 8        Q   - Q        04,05 
          XLT    79,68       -    Y   - Y        H   - H        06,07 
          XLT    34,6D       -    4   - 4        M   - M        08,09 
          XLT    75,64       -    U   - U        D   - D        0A,0B 
          XLT    00,00       -    PUN - UND      RST - UND      0C,0D 
          XLT    00,00       -    BY  - UND      PUF - UND      0E,0F 
          XLT    32,6B       -    2   - 2        K   - K        10,11 
          XLT    73,62       -    S   - S        B   - B        12,13 
          XLT    30,00       -    0   - 0        UND - UND      14,15 
          XLT    00,00       -    UND - UND      UND - UND      16,17 
          XLT    36,6F       -    6   - 6        O   - O        18,19 
          XLT    77,66       -    W   - W        F   - F        1A,1B 
          XLT    00,08       -    UCS - UND      BS  - BS       1C,1D 
          XLT    17,00       -    EOB - LEM      LCS - UND      1E,1F 
          XLT    31,6A       -    1   - 1        J   - J        20,21 
          XLT    2F,61       -    /   - /        A   - A        22,23 
          XLT    39,72       -    9   - 9        R   - R        24,25 
          XLT    7A,69       -    Z   - Z        I   - I        26,27 
          XLT    35,6E       -    5   - 5        N   - N        28,29 
          XLT    76,65       -    V   - V        E   - E        2A,2B 
          XLT    14,0D       -    RS  - DC4      NL  - CR       2C,2D 
          XLT    0A,09       -    LF  - LF       TAB - TAB      2E,2F 
          XLT    33,6C       -    3   - 3        L   - L        30,31 
          XLT    74,63       -    T   - T        C   - C        32,33 
          XLT    23,24       -    #   - #        $   - $        34,35 
          XLT    2C,2E       -    ,   - ,        .   - .        36,37 
          XLT    37,70       -    7   - 7        P   - P        38,39 
          XLT    78,67       -    X   - X        G   - G        3A,3B 
          XLT    04,00       -    EOT - EOT      NUL - NUL      3C,3D 
          XLT    1B,18       -    PRE - ESC      DEL - CAN      3E,3F 
* 
* * * *   UPPER CASE PART OF THE EBCD TO ASCII TRANSLATE TABLE
* 
          XLT    20,5F       -    SP  - SP       _   - _        00,01 
          XLT    5D,2B       -    CT  - ]        +   - +        02,03 
          XLT    2A,51       -    *   - *        Q   - Q        04,05 
          XLT    59,48       -    Y   - Y        H   - H        06,07 
          XLT    3A,4D       -    :   - :        M   - M        08,09 
          XLT    55,44       -    U   - U        D   - D        0A,0B 
          XLT    00,00       -    PUN - UND      RST - UND      0C,0D 
          XLT    00,00       -    BY  - UND      PUF - UND      0E,0F 
          XLT    3C,4B       -    <   - <        K   - K        10,11 
          XLT    53,42       -    S   - S        B   - B        12,13 
          XLT    29,00       -    )   - )        UND - UND      14,15 
          XLT    00,00       -    UND - UND      UND - UND      16,17 
          XLT    27,4F       -    '   - '        O   - O        18,19 
          XLT    57,46       -    W   - W        F   - F        1A,1B 
          XLT    00,08       -    UCS - UND      BS  - BS       1C,1D 
          XLT    17,00       -    EOB - ETB      LCS - UND      1E,1F 
          XLT    3D,4A       -    =   - =        J   - J        20,21 
          XLT    3F,41       -    ?   - ?        A   - A        22,23 
          XLT    28,52       -    (   - (        R   - R        24,25 
          XLT    5A,49       -    Z   - Z        I   - I        26,27 
          XLT    25,4E       -    %   - %        N   - N        28,29 
          XLT    56,45       -    V   - V        E   - E        2A,2B 
          XLT    14,0D       -    RS  - DC4      NL  - CR       2C,2D 
          XLT    0A,09       -    LF  - LF       TAB - TAB      2E,2F 
          XLT    3B,4C       -    ;   - ;        L   - L        30,31 
          XLT    54,43       -    T   - T        C   - C        32,33 
          XLT    22,21       -    "   - "        !   - !        34,35 
          XLT    7C,5E       -    LVM - LVM      NOT - ^        36,37 
          XLT    3E,50       -    >   - >        P   - P        38,39 
          XLT    58,47       -    X   - X        G   - G        3A,3B 
          XLT    04,00       -    EOT - EOT      NUL - NUL      3C,3D 
          XLT    1B,18       -    PRE - ESC      DEL - CAN      3E,3F 
          SPC    3
          END 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                      A S C I I   -   E B C D                        * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*            LOWER CASE ONLY AND UPPER CASE ONLY CHARACTERS ARE       * 
*            MARKED WITH THE ADDITIONAL L/U PARAMETERS                * 
*                                                                     * 
*            USED BY ASYNC BLOCKMODE TIP TEXTPROCESSING STATES        * 
*                                                                     * 
*            THE UPPER 2 BITS OF THE TRANSLATED CHARACTER SPECIFY     * 
*            LOWER/UPPER CASE, BOTH OR UNDEFINED CHARACTER            * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          NAM    ATASEB 
          SPC    3
XLT       MAC    C1,C2,Q1,Q2
          VFD    N2/"Q1",X6/$"C1",N2/"Q2",X6/$"C2"
          EMC 
          SPC    3
B         EQU    B(0)        -         BOTH UPPER/LOWER CASE
L         EQU    L(1)        -         LOWER CASE 
U         EQU    U(2)        -         UPPER CASE 
X         EQU    X(3)        -         UNDEFINED
          NOREF  B,L,U
          EJT 
          ENT    ATASEB 
* 
ATASEB    XLT    3D,00,B,X   -    NUL - NUL      SOH - UND      00,01 
          XLT    00,00,X,X   -    STX - UND      ETX - UND      02,03 
          XLT    3C,00,B,X   -    EOT - EOT      ENQ - UND      04,05 
          XLT    00,00,X,X   -    ACK - UND      BEL - UND      06,07 
          XLT    1D,2F,B,B   -    BS  - BS       HT  - HT       08,09 
          XLT    2E,00,B,X   -    LF  - LF       VT  - UND      0A,0B 
          XLT    00,2D,X,B   -    FF  - UND      CR  - NL       0C,0D 
          XLT    00,00,X,X   -    SO  - UND      SI  - UND      0E,0F 
          XLT    00,00,X,X   -    DLE - UND      DC1 - UND      10,11 
          XLT    00,00,X,X   -    DC2 - UND      DC3 - UND      12,13 
          XLT    2C,00,B,X   -    DC4 - RS       NAK - UND      14,15 
          XLT    00,1E,X,B   -    SYN - UND      ETB - EOB      16,17 
          XLT    3F,00,B,X   -    CAN - DEL      EM  - UND      18,19 
          XLT    00,3E,X,B   -    SUB - UND      ESC - PRE      1A,1B 
          XLT    00,00,X,X   -    FS  - UND      GS  - UND      1C,1D 
          XLT    00,00,X,X   -    RS  - UND      US  - UND      1E,1F 
          XLT    00,35,B,U   -    SP  - SP       !   - !        20,21 
          XLT    34,34,U,L   -    "   - "        #   - #        22,23 
          XLT    35,28,L,U   -    $   - $        %   - %        24,25 
          XLT    03,18,L,U   -    &   - &        '   - '        26,27 
          XLT    24,14,U,U   -    (   - (        )   - )        28,29 
          XLT    04,03,U,U   -    *   - *        +   - +        2A,2B 
          XLT    36,01,L,L   -    ,   - ,        -   - -        2C,2D 
          XLT    37,22,L,L   -    .   - .        /   - /        2E,2F 
          XLT    14,20,L,L   -    0   - 0        1   - 1        30,31 
          XLT    10,30,L,L   -    2   - 2        3   - 3        32,33 
          XLT    08,28,L,L   -    4   - 4        5   - 5        34,35 
          XLT    18,38,L,L   -    6   - 6        7   - 7        36,37 
          XLT    04,24,L,L   -    8   - 8        9   - 9        38,39 
          XLT    08,30,U,U   -    :   - :        ;   - ;        3A,3B 
          XLT    10,20,U,U   -    <   - <        =   - =        3C,3D 
          XLT    38,22,U,U   -    >   - >        ?   - ?        3E,3F 
          XLT    02,23,L,U   -    @   - @        A   - A        40,41 
          XLT    13,33,U,U   -    B   - B        C   - C        42,43 
          XLT    0B,2B,U,U   -    D   - D        E   - E        44,45 
          XLT    1B,3B,U,U   -    F   - F        G   - G        46,47 
          XLT    07,27,U,U   -    H   - H        I   - I        48,49 
          XLT    21,11,U,U   -    J   - J        K   - K        4A,4B 
          XLT    31,09,U,U   -    L   - L        M   - M        4C,4D 
          XLT    29,19,U,U   -    N   - N        O   - O        4E,4F 
          XLT    39,05,U,U   -    P   - P        Q   - Q        50,51 
          XLT    25,12,U,U   -    R   - R        S   - S        52,53 
          XLT    32,0A,U,U   -    T   - T        U   - U        54,55 
          XLT    2A,1A,U,U   -    V   - V        W   - W        56,57 
          XLT    3A,06,U,U   -    X   - X        Y   - Y        58,59 
          XLT    26,00,U,X   -    Z   - Z        [   - UND      5A,5B 
          XLT    00,02,X,U   -    \   - UND      ]   - CT       5C,5D 
          XLT    37,01,U,U   -    ^   - NOT      _   - _        5E,5F 
          XLT    18,23,L,L   -    '   - '        A   - A        60,61 
          XLT    13,33,L,L   -    B   - B        C   - C        62,63 
          XLT    0B,2B,L,L   -    D   - D        E   - E        64,65 
          XLT    1B,3B,L,L   -    F   - F        G   - G        66,67 
          XLT    07,27,L,L   -    H   - H        I   - I        68,69 
          XLT    21,11,L,L   -    J   - J        K   - K        6A,6B 
          XLT    31,09,L,L   -    L   - L        M   - M        6C,6D 
          XLT    29,19,L,L   -    N   - N        O   - O        6E,6F 
          XLT    39,05,L,L   -    P   - P        Q   - Q        70,71 
          XLT    25,12,L,L   -    R   - R        S   - S        72,73 
          XLT    32,0A,L,L   -    T   - T        U   - U        74,75 
          XLT    2A,1A,L,L   -    V   - V        W   - W        76,77 
          XLT    3A,06,L,L   -    X   - X        Y   - Y        78,79 
          XLT    26,00,L,X   -    Z   - Z            - UND      7A,7B 
          XLT    36,00,U,X   -    LVM - LVM          - UND      7C,7D 
          XLT    00,3F,X,B   -        - UND      DEL - DEL      7E,7F 
          SPC    3
          END 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                E B C D   A P L   -   A S C I I                      * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*            THE LOWER $20 WORDS OF THE TABLE ARE FOR LOWER CASE      * 
*            MODE, THE UPPER $20 FOR UPPER CASE MODE                  * 
*                                                                     * 
*            USED BY ASYNC BLOCKMODE TIP INPUT STATES                 * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          NAM    ATEAPA 
          SPC    3
XLT       MAC    C1,C2
          VFD    X8/$"C1",X8/$"C2"
          EMC 
          EJT 
          ENT    ATEAPA 
* 
ATEAPA    XLT    20,2B       -    SP  - SP       +   - +        00,01 
          XLT    70,66       -        - P        X   - F        02,03 
          XLT    38,51       -    8   - 8        Q   - Q        04,05 
          XLT    59,48       -    Y   - Y        H   - H        06,07 
          XLT    34,4D       -    4   - 4        M   - M        08,09 
          XLT    55,44       -    U   - U        D   - D        0A,0B 
          XLT    00,00       -    UND - UND      UND - UND      0C,0D 
          XLT    00,00       -    UND - UND      UND - UND      0E,0F 
          XLT    32,4B       -    2   - 2        K   - K        10,11 
          XLT    53,42       -    S   - S        B   - B        12,13 
          XLT    30,00       -    0   - 0        UND - UND      14,15 
          XLT    00,00       -    UND - UND      UND - UND      16,17 
          XLT    36,4F       -    6   - 6        O   - O        18,19 
          XLT    57,46       -    W   - W        F   - F        1A,1B 
          XLT    00,08       -    UCS - UND      BS  - BS       1C,1D 
          XLT    17,00       -    EOB - ETB      LCS - UND      1E,1F 
          XLT    31,4A       -    1   - 1        J   - J        20,21 
          XLT    2F,41       -    /   - /        A   - A        22,23 
          XLT    39,52       -    9   - 9        R   - R        24,25 
          XLT    5A,49       -    Z   - Z        I   - I        26,27 
          XLT    35,4E       -    S   - S        N   - N        28,29 
          XLT    56,45       -    V   - V        E   - E        2A,2B 
          XLT    00,0D       -    UND - UND      NL  - CR       2C,2D 
          XLT    0A,09       -    LF  - LF       HT  - HT       2E,2F 
          XLT    33,4C       -    3   - 3        L   - L        30,31 
          XLT    54,43       -    T   - T        C   - C        32,33 
          XLT    5D,5B       -    ]   - ]        [   - [        34,35 
          XLT    2C,2E       -    ,   - ,        .   - .        36,37 
          XLT    37,50       -    7   - 7        P   - P        38,39 
          XLT    58,47       -    X   - X        G   - G        3A,3B 
          XLT    04,00       -    EOT - EOT      IL  - NUL      3C,3D 
          XLT    1B,18       -    PRE - ESC      DEL - CAN      3E,3F 
* 
* * * *   UPPER CASE PART OF THE EBCD APL TO ASCII TRANSLATE TABLE
  
          XLT    20,2D       -    SP  - SP       -   - -        00,01 
          XLT    71,25       -        - Q            - %        02,03 
          XLT    22,3F       -        -              -          04,05 
          XLT    79,68       -    Y   - Y            - H        06,07 
          XLT    40,6D       -    :   -              - M        08,09 
          XLT    75,64       -        - U        L   - D        0A,0B 
          XLT    00,00       -    UND - UND      UND - UND      0C,0D 
          XLT    00,00       -    UND - UND      UND - UND      0E,0F 
          XLT    5E,27       -    -   - ^        #   - #        10,11 
          XLT    73,62       -        - S            - B        12,13 
          XLT    26,00       -    ^   -          UND - UND      14,15 
          XLT    00,00       -    UND - UND      UND - UND      16,17 
          XLT    7C,6F       -    \   -          O   - O        18,19 
          XLT    77,5F       -        - W            - F        1A,1B 
          XLT    00,08       -    UCS - UND      BS  - BS       1C,1D 
          XLT    17,00       -    EOB - ETB      LCS - UND      1E,1F 
          XLT    23,6A       -        -              - J        20,21 
          XLT    5C,61       -        -              - A        22,23 
          XLT    21,72       -    !   -              - R        24,25 
          XLT    7A,69       -        - Z            - I        26,27 
          XLT    3D,6E       -    =   - =        T   - N        28,29 
          XLT    76,65       -        - V            - E        2A,2B 
          XLT    00,0D       -    UND - UND      NL  - CR       2C,2D 
          XLT    0A,09       -    LF  - LF       TAB - TAB      2E,2F 
          XLT    3C,6C       -    <   - <            - L        30,31 
          XLT    74,63       -        - T            - C        32,33 
          XLT    29,28       -    )   - )        (   - (        34,35 
          XLT    3B,3A       -    ;   - ;        :   - :        36,37 
          XLT    3E,2A       -    >   - >        *   - *        38,39 
          XLT    78,67       -        - X            - G        3A,3B 
          XLT    04,00       -    EOT - EOT      IL  - NUL      3C,3D 
          XLT    1B,18       -    PRE - ESC      DEL - CAN      3E,3F 
          SPC    3
          END 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                A S C I I   -   E B C D   A P L                      * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*            LOWER CASE ONLY AND UPPER CASE ONLY CHARACTERS ARE       * 
*            MARKED WITH THE ADDITIONAL L/U PARAMETERS                * 
*                                                                     * 
*            USED BY ASYNC BLOCKMODE TIP TEXTPROCESSING STATES        * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
          NAM    ATAEAP 
          SPC    3
XLT       MAC    C1,C2,Q1,Q2
          VFD    N2/"Q1",X6/$"C1",N2/"Q2",X6/$"C2"
          EMC 
          SPC    3
B         EQU    B(0)        -         BOTH UPPER/LOWER CASE
L         EQU    L(1)        -         LOWER CASE 
U         EQU    U(2)        -         UPPER CASE 
X         EQU    X(3)        -         UNDEFINED
          NOREF  B,L,U
          EJT 
          ENT    ATAEAP 
* 
ATAEAP    XLT    3D,00,B,X   -    NUL - IL       SOH - UND      00,01 
          XLT    00,3D,X,X   -    STX - UND      ETX - UND      02,03 
          XLT    3C,00,B,X   -    EOT - EOT      ENQ - UND      04,05 
          XLT    00,00,X,X   -    ACK - UND      BEL - UND      06,07 
          XLT    1D,2F,B,B   -    BS  - BS       HT  - HT       08,09 
          XLT    2E,00,B,X   -    LF  - LF       VT  - UND      0A,0B 
          XLT    00,2D,X,B   -    FF  - UND      CR  - CR       0C,0D 
          XLT    00,00,X,X   -    SO  - UND      SI  - UND      0E,0F 
          XLT    00,00,X,X   -    DLE - UND      DC1 - UND      10,11 
          XLT    00,00,X,X   -    DC2 - UND      DC3 - UND      12,13 
          XLT    00,00,X,X   -    DC4 - UND      NAK - UND      14,15 
          XLT    00,1E,X,B   -    SYN - UND      ETB - EOB      16,17 
          XLT    3F,00,B,X   -    CAN - CAN      EM  - UND      18,19 
          XLT    00,3E,X,B   -    SUB - UND      ESC - PRE      1A,1B 
          XLT    00,00,X,X   -    FS  - UND      GS  - UND      1C,1D 
          XLT    00,00,X,X   -    RS  - UND      US  - UND      1E,1F 
          XLT    00,24,B,U   -    SP  - SP           - !        20,21 
          XLT    04,20,U,U   -        - "            -          22,23 
          XLT    23,03,U,U   -    $   -          %   -          24,25 
          XLT    14,11,U,U   -        - &        #   - #        26,27 
          XLT    35,34,U,U   -    (   - (        )   - )        28,29 
          XLT    39,01,U,L   -    *   - *        +   - +        2A,2B 
          XLT    76,01,L,U   -    ,   - ,        -   - -        2C,2D 
          XLT    37,22,L,L   -    .   - .        /   - /        2E,2F 
          XLT    14,20,L,L   -    0   - 0        1   - 1        30,31 
          XLT    10,30,L,L   -    2   - 2        3   - 3        32,33 
          XLT    08,28,L,L   -    4   - 4        5   - 5        34,35 
          XLT    18,38,L,L   -    6   - 6        7   - 7        36,37 
          XLT    04,24,L,L   -    8   - 8        9   - 9        38,39 
          XLT    37,36,U,U   -    :   - :        ;   - ;        3A,3B 
          XLT    30,28,U,U   -    <   - <        =   - =        3C,3D 
          XLT    38,05,U,U   -    >   - >            -          3E,3F 
          XLT    08,23,U,L   -        - @        A   - A        40,41 
          XLT    13,33,L,L   -    B   - B        C   - C        42,43 
          XLT    0B,2B,L,L   -    D   - D        E   - E        44,45 
          XLT    1B,3B,L,L   -    F   - F        G   - G        46,47 
          XLT    07,27,L,L   -    H   - H        I   - I        48,49 
          XLT    21,11,L,L   -    J   - J        K   - K        4A,4B 
          XLT    31,09,L,L   -    L   - L        M   - M        4C,4D 
          XLT    29,19,L,L   -    N   - N        O   - O        4E,4F 
          XLT    39,05,L,L   -    P   - P        Q   - Q        50,51 
          XLT    25,12,L,L   -    R   - R        S   - S        52,53 
          XLT    32,0A,L,L   -    T   - T        U   - U        54,55 
          XLT    2A,1A,L,L   -    V   - V        W   - W        56,57 
          XLT    3A,06,L,L   -    X   - X        Y   - Y        58,59 
          XLT    26,35,L,L   -    Z   - Z        [   - [        5A,5B 
          XLT    22,34,U,L   -        -          ]   - ]        5C,5D 
          XLT    10,01,U,U   -    &   - -            - -        5E,5F 
          XLT    00,23,X,U   -        - UND      A   -          60,61 
          XLT    13,33,U,U   -    B   -          C   -          62,63 
          XLT    0B,2B,U,U   -    D   - L        E   -          64,65 
          XLT    03,3B,U,U   -    F   - X        G   -          66,67 
          XLT    07,27,U,U   -    H   -          I   -          68,69 
          XLT    21,00,U,X   -    J   -          K   - UND      6A,6B 
          XLT    31,09,U,U   -    L   -          M   -          6C,6D 
          XLT    69,19,U,U   -    N   - T        O   - O        6E,6F 
          XLT    02,02,L,U   -    P   -          Q   - _        70,71 
          XLT    25,12,U,U   -    R   -          S   -          72,73 
          XLT    32,0A,U,U   -    T   -          U   - ?        74,75 
          XLT    2A,1A,U,U   -    V   -          W   -          76,77 
          XLT    3A,06,U,U   -    X   -          Y   - '        78,79 
          XLT    26,00,U,X   -    Z   -              - UND      7A,7B 
          XLT    09,3D,U,B   -    CLN - GE           - UND      7C,7D 
          XLT    00,3F,X,B   -        - UND      DEL - DEL      7E,7F 
          SPC    3
          END 
