&NAM     PROC  &P,0                                                     RTT00010
E2$RTT   NAME                                                           RTT00020
         LCL   &X                                                       RTT00030
&X       SET   '&NAM.        '(1,8)                                     RTT00040
*********************************************************************** RTT00050
*                                                                     * RTT00060
*                        CHARACTER TO HEX TRANSLATE TABLES            * RTT00070
*                                                                     * RTT00080
*********************************************************************** RTT00090
&X       DS    0H                                                       RTT00100
*********************************************************************** RTT00110
*                                                                     * RTT00120
*                        FIRST HALF-BYTE                              * RTT00130
*                                                                     * RTT00140
*********************************************************************** RTT00150
E2$RFRSH EQU   *                                                        RTT00160
         DC    192XL1'FF'                                               RTT00170
         DC    XL16'FFA0B0C0D0E0F0FFFFFFFFFFFFFFFFFF'                   RTT00180
         DC    32XL1'FF'                                                RTT00190
         DC    XL16'00102030405060708090FFFFFFFFFFFF'                   RTT00200
*********************************************************************** RTT00210
*                                                                     * RTT00220
*                                                                     * RTT00230
*                                                                     * RTT00240
*********************************************************************** RTT00250
*********************************************************************** RTT00260
*                                                                     * RTT00270
*                        SECOND HALF-BYTE                             * RTT00280
*                                                                     * RTT00290
*********************************************************************** RTT00300
E2$RSCNH EQU   *                                                        RTT00310
         DC    192XL1'FF'                                               RTT00320
         DC    XL16'FF0A0B0C0D0E0FFFFFFFFFFFFFFFFFFF'                   RTT00330
         DC    32XL1'FF'                                                RTT00340
         DC    XL16'00010203040506070809FFFFFFFFFFFF'                   RTT00350
*********************************************************************** RTT00360
*                                                                     * RTT00370
*                                                                     * RTT00380
*                                                                     * RTT00390
*********************************************************************** RTT00400
         END                                                            RTT00410
