&NAM     PROC  &P,0                                                     E2TT0010
E2$RTT   NAME                                                           E2TT0020
         LCL   &X                                                       E2TT0030
&X       SET   '&NAM.        '(1,8)                                     E2TT0040
*********************************************************************** E2TT0050
*                                                                     * E2TT0060
*                        CHARACTER TO HEX TRANSLATE TABLES            * E2TT0070
*                                                                     * E2TT0080
*********************************************************************** E2TT0090
&X       DS    0H                                                       E2TT0100
*********************************************************************** E2TT0110
*                                                                     * E2TT0120
*                        FIRST HALF-BYTE                              * E2TT0130
*                                                                     * E2TT0140
*********************************************************************** E2TT0150
E2$RFRSH EQU   *                                                        E2TT0160
         DC    192XL1'FF'                                               E2TT0170
         DC    XL16'FFA0B0C0D0E0F0FFFFFFFFFFFFFFFFFF'                   E2TT0180
         DC    32XL1'FF'                                                E2TT0190
         DC    XL16'00102030405060708090FFFFFFFFFFFF'                   E2TT0200
*********************************************************************** E2TT0210
*                                                                     * E2TT0220
*                                                                     * E2TT0230
*                                                                     * E2TT0240
*********************************************************************** E2TT0250
*********************************************************************** E2TT0260
*                                                                     * E2TT0270
*                        SECOND HALF-BYTE                             * E2TT0280
*                                                                     * E2TT0290
*********************************************************************** E2TT0300
E2$RSCNH EQU   *                                                        E2TT0310
         DC    192XL1'FF'                                               E2TT0320
         DC    XL16'FF0A0B0C0D0E0FFFFFFFFFFFFFFFFFFF'                   E2TT0330
         DC    32XL1'FF'                                                E2TT0340
         DC    XL16'00010203040506070809FFFFFFFFFFFF'                   E2TT0350
*********************************************************************** E2TT0360
*                                                                     * E2TT0370
*                                                                     * E2TT0380
*                                                                     * E2TT0390
*********************************************************************** E2TT0400
         END                                                            E2TT0410
