*DECK SIXTAB
          IDENT  T8.6TAB
 SIXTAB   TITLE  T8.6TAB - 6-BIT CONVERSION TABLE 
          ENTRY  T8.6TAB
          LIST   F,-R 
          IPARAMS                                                       TABS6  6
 LXCL     EQU    9                                                      TABS6  7
 LXC      EQU    9                                                      TABS6  8
 LXAL     EQU    9                                                      TABS6  9
 LXA      EQU    9                                                      TABS6 10
 LXCOL    EQU    18          (18 SO MINIMUM BCDCM CHANGES)              TABS6 11
*                                                                      *TABS6 12
************************************************************************TABS6 13
*         NOTE-- FOR TDCNVT,TD6TAB,TDHXTBL                             *TABS6 14
*                                                                      *TABS6 15
*                A= EBCDIC                                             *TABS6 16
*                C= ASCII                                              *TABS6 17
*                X=D.P.C                                               *TABS6 18
*                                                                      *TABS6 19
*                (DUE TO ACCIDENTALLY INTERCHANGING A+C IN TABLE       *TABS6 20
*                GENERATION)                                           *TABS6 21
*   TO CONVERT A 6 BIT CHARACTER USE ITS VALUE AS AN INDEX
*   INTO THIS TABLE.  PICK UP THE EQUIVALENT CODE ACCORDING TO THE
*   ABOVE SPECIFIED FORMAT. 
*                                                                      *TABS6 22
************************************************************************TABS6 23
************************************************************************TABS6 24
*                                                                      *TABS6 25
*                                                                      *TABS6 26
*     CREATE HEX TABLE 0 TO 255  (X00 TO XFF)                          *TABS6 27
*                                                                      *TABS6 28
 I        SET    0                                                      TABS6 29
 XNN      ECHO   ,M=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)                   TABS6 30
          ECHO   ,N=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)                   TABS6 31
 X_M_N    EQU    I                                                      TABS6 32
 I        SET    I+1                                                    TABS6 33
 XNN      ENDD                                                          TABS6 34
*                                                                       TABS6 35
************************************************************************TABS6 36
*                                                                      *TABS6 37
*     CREATE OCTAL TABLE 0 TO 63  (B00 TO B77)                         *TABS6 38
*                                                                      *TABS6 39
*                                                                       TABS6 40
 BNN      ECHO   ,I=(0,1,2,3,4,5,6,7)                                   TABS6 41
          ECHO   ,J=(0,1,2,3,4,5,6,7)                                   TABS6 42
 B_I_J    EQU    I_J_B                                                  TABS6 43
 BNN      ENDD                                                          TABS6 44
*                                                                      *TABS6 45
************************************************************************TABS6 46
*                                                                      *TABS6 47
************************************************************************TABS6 48
*     6-BIT COLLATING SEQUENCE DEPENDENT ON IP.CSET                    *TABS6 49
*                                                                       TABS6 50
 Q1       IFEQ   IP.CSET,IP.C64.2 
*     ASCII COLLATING SEQUENCE                                          TABS6 52
 CLNM     ECHO    ,MM=(00,01,02,03,04,05,06,07,10,11,12,13,14,15,16,17,2TABS6 53
,0,21,22,23,24,25,26,27,30,31,32,33,34,35,36,37,40,41,42,43,44,45,46,47,TABS6 54
,50,51,52,53,54,55,56,57,60,61,62,63,64,65,66,67,70,71,72,73,74,75,76,77TABS6 55
,),NN=(26,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53TABS6 56
,,54,55,56,57,58,16,17,18,19,20,21,22,23,24,25,11,13,10,15,08,09,04,29,0TABS6 57
,0,12,14,03,07,01,05,02,63,61,06,32,31,59,30,28,60,62,27)               TABS6 58
 COL_MM   SET    NN 
 CLNM     ENDD                                                          TABS6 60
 COL66    SET    01                                                     TB8   71
 COL70    SET    07                                                     TB8   72
 COL72    SET    28                                                     TB8   73
 COL74    SET    32                                                     TB8   74
 COL61    SET    59                                                     TB8   75
 COL62    SET    61                                                     TB8   76
          IFEQ   IP.CSET,IP.C63,2 
 COL63    SET    26 
 COL00    SET    05 
*  ABOVE CARDS ARE RECENT CHANGES IN ASCII CHR SET                      TB8   77
 Q1       ENDIF                                                         TABS6 61
 Q2       IFNE   IP.CSET,IP.C64.2                                       TABS6 62
*   CDC COLLATING SEQ                                                   TABS6 63
 CLMN     ECHO   ,MM=(00,01,02,03,04,05,06,07,10,11,12,13,14,15,16,17,20TABS6 64
,,21,22,23,24,25,26,27,30,31,32,33,34,35,36,37,40,41,42,43,44,45,46,47,5TABS6 65
,0,51,52,53,54,55,56,57,60,61,62,63,64,65,66,67,70,71,72,73,74,75,76,77)TABS6 66
,,NN=(53,25,26,27,28,29,30,31,32,33,35,36,37,38,39,40,41,42,43,45,46,47,TABS6 67
,48,49,50,51,52,54,55,56,57,58,59,60,61,62,63,15,18,17,19,21,13,16,22,00TABS6 68
,,20,12,05,03,44,02,23,04,34,06,07,08,24,09,01,10,11,14)                TABS6 69
 COL_MM   SET    NN 
 CLMN     ENDD                                                          TABS6 71
          IFEQ   IP.CSET,IP.C63,2 
 COL63    SET    53 
 COL00    SET    02 
 Q2       ENDIF                                                         TABS6 72
          EJECT                                                         TABS6 73
*                                                                      *TABS6 74
*     6-BIT MACRO DEFINITIONS                                          *TABS6 75
*#                                                                      TABS6 76
************************************************************************TABS6 77
*                EIGHT-BIT SUBROUTINES  6-BIT TABLE                    *TABS6 78
**
*                                                                      *TABS6 79
*     THIS TABLE IS 64 WORDS LONG AND CONTAINS THE FOLLOWING INFORMA-  *TABS6 80
*     TION                                                             *TABS6 81
*                6-BIT TO ASCII, LOWER CASE       (XTOCL)              *TABS6 82
*                6-BIT TO ASCII, UPPER CASE       (XTOC)               *TABS6 83
*                6-BIT TO EBCDIC, LOWER CASE      (XTOAL)              *TABS6 84
*                6-BIT TO EBCDIC, UPPER CASE      (XTOA)               *TABS6 85
*                6-BIT TO 6-BIT COLLATED       (XTOCOL)                *TABS6 86
*     IN THE FORMAT--                                                  *TABS6 87
*     +    VFD 6/0,9/XTOCL,9/XTOC,9/XTOAL,9/XTOA,18/XTOCOL              TABS6 88
*         NOTE--FOR THIS ROUTINE (CONTRARY TO ERS DOCUMENTATON)        *TABS6 89
*                A=EBCDIC                                              *TABS6 90
*                C=ASCII                                               *TABS6 91
*                X=D.P.C.                                              *TABS6 92
*                                                                      *TABS6 93
          SPACE   1 
************************************************************************TABS6 94
*#                                                                      TABS6 95
 XTOCL    MACRO  INX,TO                                                 TABS6 96
 X6_INX   MICRO  1,, 6/0,LXCL/TO                                        TABS6 97
 XTOCL    ENDM                                                          TABS6 98
 XTOC     MACRO  INX,TO                                                 TABS6 99
 X6_INX   MICRO  1,, "X6_INX",LXC/TO                                    TABS6100
 XTOC     ENDM                                                          TABS6101
 XTOAL    MACRO  INX,TO                                                 TABS6102
 X6_INX   MICRO  1,, "X6_INX",LXAL/TO                                   TABS6103
 XTOAL    ENDM                                                          TABS6104
 XTOA     MACRO  INX,TO                                                 TABS6105
 X6_INX   MICRO  1,, "X6_INX",LXA/TO                                    TABS6106
 XTOA     ENDM                                                          TABS6107
 XTOCOL   MACRO  INX,TO                                                 TABS6108
 X6_INX   MICRO  1,, "X6_INX",LXCOL/TO                                  TABS6109
 XTOCOL   ENDM                                                          TABS6110
 XGEN     MACRO                                                         TABS6111
 XGEN1    ECHO   ,I=(0,1,2,3,4,5,6,7)                                   TABS6112
          ECHO   ,J=(0,1,2,3,4,5,6,7)                                   TABS6113
+         VFD    "X6_B_I_J"                                             TABS6114
 XGEN1    ENDD                                                          TABS6115
 XGEN     ENDM                                                          TABS6116
T8.6TAB  BSS    0                                                       TB16   3
          EJECT                                                         TABS6119
*#                                                                      TABS6120
************************************************************************TABS6121
*                                                                      *TABS6122
*                XTOCL  (D.P.C. TO ASCII, L.C.) MODULE                 *TABS6123
*                                                                      *TABS6124
*     THE XTOCL MACRO CALLS MUST BE IN THE FORM--                      *TABS6125
*         XTOCL  BNN,XMM                                               *TABS6126
*                WHERE   NN= OCTAL DPC                                 *TABS6127
*                         MM=ASCII LOWER CASE HEX CODE                 *TABS6128
*     ORDER OF CALLS NOT IMPORTANT                                     *TABS6129
*                                                                      *TABS6130
************************************************************************TABS6131
*#                                                                      TABS6132
          XTOCL  B55,X00               SP        TO NUL                 AAA 1986
          XTOCL  B62,X01               ]         TO SOH                 AAA 1987
          XTOCL  B64,X02               "         TO STX                 AAA 1988
          XTOCL  B60,X03               #         TO ETX                 AAA 1989
          XTOCL  B52,X09               )         TO HT                  AAA 1990
          XTOCL  B65,X7F               _         TO DEL                 AAA 1991
          XTOCL  B45,X0B               +         TO VT                  AAA 1992
          XTOCL  B56,X0C               ,         TO FF                  AAA 1993
          XTOCL  B46,X0D               -         TO CR                  AAA 1994
          XTOCL  B57,X0E               .         TO SO                  AAA 1995
          XTOCL  B50,X0F               /         TO SI                  AAA 1996
          XTOCL  B33,X10               0         TO DLE                 AAA 1997
          XTOCL  B34,X11               1         TO DC1                 AAA 1998
          XTOCL  B35,X12               2         TO DC2                 AAA 1999
          XTOCL  B36,X13               3         TO DC3                 AAA 2000
          XTOCL  B51,X08               (         TO BS                  AAA 2001
          XTOCL  B43,X18               8         TO CAN                 AAA 2002
          XTOCL  B44,X19               9         TO EM                  AAA 2003
          XTOCL  B61,X1C               [         TO FS                  AAA 2004
          XTOCL  B54,X1D               =         TO GS                  AAA 2005
          XTOCL  B73,X1E               >         TO RS                  AAA 2006
          XTOCL  B71,X1F               ?         TO US                  AAA 2007
          XTOCL  B47,X0A               *         TO LF                  AAA 2008
          XTOCL  B42,X17               7         TO ETB                 AAA 2009
          XTOCL  B77,X1B               ;         TO ESC                 AAA 2010
          IFEQ   IP.CSET,IP.C63,1 
          XTOCL  B63,X1A              PERCENT    TO  COLON
          IFNE   IP.CSET,IP.C63,1 
          XTOCL  B63,X05                         TO ENQ                 AAA 2011
          XTOCL  B67,X06               &         TO ACK                 AAA 2012
          XTOCL  B70,X07               '         TO BEL                 AAA 2013
          XTOCL  B41,X16               6         TO SYN                 AAA 2014
          XTOCL  B53,X04               $         TO EOT                 AAA 2015
          XTOCL  B37,X14               4         TO DC4                 AAA 2016
          XTOCL  B40,X15               5         TO NAK                 AAA 2017
          IFEQ   IP.CSET,IP.C63,1 
          XTOCL  B00,X00              NULL       TO  NULL 
          IFNE   IP.CSET,IP.C63,1 
          XTOCL  B00,X1A               :         TO SUB                 AAA 2018
          XTOCL  B75,X7C               \         TO VERT.BAR            AAA 2019
          XTOCL  B74,X60               @         TO GR.ACCENT           AAA 2020
          XTOCL  B01,X61               A         TO A - L.C.            AAA 2021
          XTOCL  B02,X62               B         TO B - L.C.            AAA 2022
          XTOCL  B03,X63               C         TO C - L.C.            AAA 2023
          XTOCL  B04,X64               D         TO D - L.C.            AAA 2024
          XTOCL  B05,X65               E         TO E - L.C.            AAA 2025
          XTOCL  B06,X66               F         TO F - L.C.            AAA 2026
          XTOCL  B07,X67               G         TO G - L.C.            AAA 2027
          XTOCL  B10,X68               H         TO H - L.C.            AAA 2028
          XTOCL  B11,X69               I         TO I - L.C.            AAA 2029
          XTOCL  B12,X6A               J         TO J - L.C.            AAA 2030
          XTOCL  B13,X6B               K         TO K - L.C.            AAA 2031
          XTOCL  B14,X6C               L         TO L - L.C.            AAA 2032
          XTOCL  B15,X6D               M         TO M - L.C.            AAA 2033
          XTOCL  B16,X6E               N         TO N - L.C.            AAA 2034
          XTOCL  B17,X6F               O         TO O - L.C.            AAA 2035
          XTOCL  B20,X70               P         TO P - L.C.            AAA 2036
          XTOCL  B21,X71               Q         TO Q - L.C.            AAA 2037
          XTOCL  B22,X72               R         TO R - L.C.            AAA 2038
          XTOCL  B76,X7E               ^         TO TILDE               AAA 2039
          XTOCL  B23,X73               S         TO S - L.C.            AAA 2040
          XTOCL  B24,X74               T         TO T - L.C.            AAA 2041
          XTOCL  B25,X75               U         TO U - L.C.            AAA 2042
          XTOCL  B26,X76               V         TO V - L.C.            AAA 2043
          XTOCL  B27,X77               W         TO W - L.C.            AAA 2044
          XTOCL  B30,X78               X         TO X - L.C.            AAA 2045
          XTOCL  B31,X79               Y         TO Y - L.C.            AAA 2046
          XTOCL  B32,X7A               Z         TO Z - L.C.            AAA 2047
          XTOCL  B72,X7B               <,+0      TO L.BRACE             AAA 2048
          XTOCL  B66,X7D               !,-0      TO R.BRACE             AAA 2049
          EJECT                                                         TABS6197
*#                                                                      TABS6198
************************************************************************TABS6199
*                                                                      *TABS6200
*                XTOC  MODULE (DPC TO ASCII, UPPER CASE)               *TABS6201
*                                                                      *TABS6202
*     XTOC MACRO CALL--                                                *TABS6203
*         XTOC   BNN,XMM                                               *TABS6204
*                WHERE   NN= OCTAL DPC                                 *TABS6205
*                        MM= HEX UPPER CASE CODE                       *TABS6206
*                                                                      *TABS6207
************************************************************************TABS6208
*#                                                                      TABS6209
          XTOC   B55,X20               SP        TO SP                  AAA 1922
          XTOC   B61,X5B               [         TO [                   AAA 1923
          XTOC   B57,X2E               .         TO .                   AAA 1924
          XTOC   B72,X3C               <         TO <                   AAA 1925
          XTOC   B51,X28               (         TO (                   AAA 1926
          XTOC   B45,X2B               +         TO +                   AAA 1927
          XTOC   B66,X21               !         TO EXCLAM.PT           AAA 1928
          XTOC   B67,X26               &         TO AMPERSAND           AAA 1929
          XTOC   B62,X5D               ]         TO ]                   AAA 1930
          XTOC   B53,X24               $         TO $                   AAA 1931
          XTOC   B47,X2A               *         TO *                   AAA 1932
          XTOC   B52,X29               )         TO )                   AAA 1933
          XTOC   B77,X3B               ;         TO ;                   AAA 1934
          XTOC   B76,X5E               ^         TO CIR.FLEX            AAA 1935
          XTOC   B46,X2D               -         TO -                   AAA 1936
          XTOC   B50,X2F               /         TO /                   AAA 1937
          XTOC   B56,X2C               ,         TO ,                   AAA 1938
          IFEQ   IP.CSET,IP.C63,1 
          XTOC   B63,X3A              COLON      TO  COLON
          IFNE   IP.CSET,IP.C63,1 
          XTOC   B63,X25               PERCENT   TO PERCENT             AAA 1939
          XTOC   B65,X5F               _         TO UNDERSCOR           AAA 1940
          XTOC   B73,X3E               >         TO >                   AAA 1941
          XTOC   B71,X3F               ?         TO QUESTION            AAA 1942
          IFEQ   IP.CSET,IP.C63,1 
          XTOC   B00,X20              NULL       TO SPACE 
          IFNE   IP.CSET,IP.C63,1 
          XTOC   B00,X3A               COLON     TO COLON               AAA 1943
          XTOC   B60,X23               #         TO NUMBER              AAA 1944
          XTOC   B74,X40               @         TO COM.AT              AAA 1945
          XTOC   B70,X27               '         TO S.QUOTE             AAA 1946
          XTOC   B54,X3D               =         TO =                   AAA 1947
          XTOC   B64,X22               "         TO D.QUOTE             AAA 1948
          XTOC   B01,X41               A         TO A                   AAA 1949
          XTOC   B02,X42               B         TO B                   AAA 1950
          XTOC   B03,X43               C         TO C                   AAA 1951
          XTOC   B04,X44               D         TO D                   AAA 1952
          XTOC   B05,X45               E         TO E                   AAA 1953
          XTOC   B06,X46               F         TO F                   AAA 1954
          XTOC   B07,X47               G         TO G                   AAA 1955
          XTOC   B10,X48               H         TO H                   AAA 1956
          XTOC   B11,X49               I         TO I                   AAA 1957
          XTOC   B12,X4A               J         TO J                   AAA 1958
          XTOC   B13,X4B               K         TO K                   AAA 1959
          XTOC   B14,X4C               L         TO L                   AAA 1960
          XTOC   B15,X4D               M         TO M                   AAA 1961
          XTOC   B16,X4E               N         TO N                   AAA 1962
          XTOC   B17,X4F               O         TO O                   AAA 1963
          XTOC   B20,X50               P         TO P                   AAA 1964
          XTOC   B21,X51               Q         TO Q                   AAA 1965
          XTOC   B22,X52               R         TO R                   AAA 1966
          XTOC   B75,X5C               \         TO REV.SLASH           AAA 1967
          XTOC   B23,X53               S         TO S                   AAA 1968
          XTOC   B24,X54               T         TO T                   AAA 1969
          XTOC   B25,X55               U         TO U                   AAA 1970
          XTOC   B26,X56               V         TO V                   AAA 1971
          XTOC   B27,X57               W         TO W                   AAA 1972
          XTOC   B30,X58               X         TO X                   AAA 1973
          XTOC   B31,X59               Y         TO Y                   AAA 1974
          XTOC   B32,X5A               Z         TO Z                   AAA 1975
          XTOC   B33,X30               0         TO 0                   AAA 1976
          XTOC   B34,X31               1         TO 1                   AAA 1977
          XTOC   B35,X32               2         TO 2                   AAA 1978
          XTOC   B36,X33               3         TO 3                   AAA 1979
          XTOC   B37,X34               4         TO 4                   AAA 1980
          XTOC   B40,X35               5         TO 5                   AAA 1981
          XTOC   B41,X36               6         TO 6                   AAA 1982
          XTOC   B42,X37               7         TO 7                   AAA 1983
          XTOC   B43,X38               8         TO 8                   AAA 1984
          XTOC   B44,X39               9         TO 9                   AAA 1985
          EJECT                                                         TABS6274
*#                                                                      TABS6275
************************************************************************TABS6276
*                                                                      *TABS6277
*                XTOAL (DPC TO EBCDIC, LOWER CASE) MODULE              *TABS6278
*                                                                      *TABS6279
*     XTOAL MACRO CALL--                                               *TABS6280
*                                                                      *TABS6281
*         XTOAL  BNN,XMM                                               *TABS6282
*                WHERE   NN= DPC OCTAL                                 *TABS6283
*                         MM= EBCDIC LOWER CASE HEX CODE                TABS6284
*                                                                      *TABS6285
************************************************************************TABS6286
*#                                                                      TABS6287
          XTOAL  B55,X00               SP        TO NUL                 AAA 1858
          XTOAL  B62,X01               ]         TO SOH                 AAA 1859
          XTOAL  B64,X02               "         TO STX                 AAA 1860
          XTOAL  B60,X03               #         TO ETX                 AAA 1861
          XTOAL  B52,X05               )         TO HT                  AAA 1862
          XTOAL  B65,X07               _         TO DEL                 AAA 1863
          XTOAL  B45,X0B               +         TO VT                  AAA 1864
          XTOAL  B56,X0C               ,         TO FF                  AAA 1865
          XTOAL  B46,X0D               -         TO CR                  AAA 1866
          XTOAL  B57,X0E               .         TO SO                  AAA 1867
          XTOAL  B50,X0F               /         TO SI                  AAA 1868
          XTOAL  B33,X10               0         TO DLE                 AAA 1869
          XTOAL  B34,X11               1         TO DC1                 AAA 1870
          XTOAL  B35,X12               2         TO DC2                 AAA 1871
          XTOAL  B36,X13               3         TO TM                  AAA 1872
          XTOAL  B51,X16               (         TO BS                  AAA 1873
          XTOAL  B43,X18               8         TO CAN                 AAA 1874
          XTOAL  B44,X19               9         TO EM                  AAA 1875
          XTOAL  B61,X1C               [         TO IFS                 AAA 1876
          XTOAL  B54,X1D               =         TO IGS                 AAA 1877
          XTOAL  B73,X1E               >         TO IRS                 AAA 1878
          XTOAL  B71,X1F               ?         TO IUS                 AAA 1879
          XTOAL  B47,X25               *         TO LF                  AAA 1880
          XTOAL  B42,X26               7         TO ETB                 AAA 1881
          XTOAL  B77,X27               ;         TO ESC                 AAA 1882
          IFEQ   IP.CSET,IP.C63,1 
          XTOAL  B63,X3F              PERCENT    TO  SUB
          IFNE   IP.CSET,IP.C63,1 
          XTOAL  B63,X2D                         TO ENQ                 AAA 1883
          XTOAL  B67,X2E               &         TO ACK                 AAA 1884
          XTOAL  B70,X2F               '         TO BEL                 AAA 1885
          XTOAL  B41,X32               6         TO SYN                 AAA 1886
          XTOAL  B53,X37               $         TO EOT                 AAA 1887
          XTOAL  B37,X3C               4         TO DC4                 AAA 1888
          XTOAL  B40,X3D               5         TO NAK                 AAA 1889
          IFEQ   IP.CSET,IP.C63,1 
          XTOAL  B00,X00              NULL       TO  NULL 
          IFNE   IP.CSET,IP.C63,1 
          XTOAL  B00,X3F               :         TO SUB                 AAA 1890
          XTOAL  B75,X6A               \         TO VERT.BAR            AAA 1891
          XTOAL  B74,X79               @         TO GR.ACCENT           AAA 1892
          XTOAL  B01,X81               A         TO A - L.C.            AAA 1893
          XTOAL  B02,X82               B         TO B - L.C.            AAA 1894
          XTOAL  B03,X83               C         TO C - L.C.            AAA 1895
          XTOAL  B04,X84               D         TO D - L.C.            AAA 1896
          XTOAL  B05,X85               E         TO E - L.C.            AAA 1897
          XTOAL  B06,X86               F         TO F - L.C.            AAA 1898
          XTOAL  B07,X87               G         TO G - L.C.            AAA 1899
          XTOAL  B10,X88               H         TO H - L.C.            AAA 1900
          XTOAL  B11,X89               I         TO I - L.C.            AAA 1901
          XTOAL  B12,X91               J         TO J - L.C.            AAA 1902
          XTOAL  B13,X92               K         TO K - L.C.            AAA 1903
          XTOAL  B14,X93               L         TO L - L.C.            AAA 1904
          XTOAL  B15,X94               M         TO M - L.C.            AAA 1905
          XTOAL  B16,X95               N         TO N - L.C.            AAA 1906
          XTOAL  B17,X96               O         TO O - L.C.            AAA 1907
          XTOAL  B20,X97               P         TO P - L.C.            AAA 1908
          XTOAL  B21,X98               Q         TO Q - L.C.            AAA 1909
          XTOAL  B22,X99               R         TO R - L.C.            AAA 1910
          XTOAL  B76,XA1               ^         TO TILDE               AAA 1911
          XTOAL  B23,XA2               S         TO S - L.C.            AAA 1912
          XTOAL  B24,XA3               T         TO T - L.C.            AAA 1913
          XTOAL  B25,XA4               U         TO U - L.C.            AAA 1914
          XTOAL  B26,XA5               V         TO V - L.C.            AAA 1915
          XTOAL  B27,XA6               W         TO W - L.C.            AAA 1916
          XTOAL  B30,XA7               X         TO X - L.C.            AAA 1917
          XTOAL  B31,XA8               Y         TO Y - L.C.            AAA 1918
          XTOAL  B32,XA9               Z         TO Z - L.C.            AAA 1919
          XTOAL  B72,XC0               <,+0      TO L.BRACE             AAA 1920
          XTOAL  B66,XD0               !,-0      TO R.BRACE             AAA 1921
          EJECT                                                         TABS6352
*#                                                                      TABS6353
************************************************************************TABS6354
*                                                                      *TABS6355
*                XTOA  (DPC TO EBCDIC UPPER CASE) MODULE               *TABS6356
*     MACRO CALL--                                                     *TABS6357
*         XTOA   BNN,XMM                                               *TABS6358
*                WHERE   NN= DPC OCTAL                                 *TABS6359
*                         MM= EBCDIC HEX UPPER CASE CODE               *TABS6360
*                                                                      *TABS6361
************************************************************************TABS6362
*#                                                                      TABS6363
          XTOA   B55,X40               SP        TO SP                  AAA 1794
          XTOA   B61,X4A               [         TO CENT                AAA 1795
          XTOA   B57,X4B               .         TO .                   AAA 1796
          XTOA   B72,X4C               <         TO <                   AAA 1797
          XTOA   B51,X4D               (         TO (                   AAA 1798
          XTOA   B45,X4E               +         TO +                   AAA 1799
          XTOA   B66,X4F               !         TO VERT.BAR            AAA 1800
          XTOA   B67,X50               &         TO AMPERSAND           AAA 1801
          XTOA   B62,X5A               ]         TO EXCLAM.PT           AAA 1802
          XTOA   B53,X5B               $         TO $                   AAA 1803
          XTOA   B47,X5C               *         TO *                   AAA 1804
          XTOA   B52,X5D               )         TO )                   AAA 1805
          XTOA   B77,X5E               ;         TO ;                   AAA 1806
          XTOA   B76,X5F               ^         TO NOT                 AAA 1807
          XTOA   B46,X60               -         TO -                   AAA 1808
          XTOA   B50,X61               /         TO /                   AAA 1809
          XTOA   B56,X6B               ,         TO ,                   AAA 1810
          IFEQ   IP.CSET,IP.C63,1 
          XTOA   B63,X7A              PERCENT    TO  COLON
          IFNE   IP.CSET,IP.C63,1 
          XTOA   B63,X6C               PERCENT   TO PERCENT             AAA 1811
          XTOA   B65,X6D               _         TO UNDERSCOR           AAA 1812
          XTOA   B73,X6E               >         TO >                   AAA 1813
          XTOA   B71,X6F               ?         TO QUESTION            AAA 1814
          IFEQ   IP.CSET,IP.C63,1 
          XTOA   B00,X40              COLON      TO  SP 
          IFNE   IP.CSET,IP.C63,1 
          XTOA   B00,X7A               COLON     TO COLON               AAA 1815
          XTOA   B60,X7B               #         TO NUMBER              AAA 1816
          XTOA   B74,X7C               @         TO COM.AT              AAA 1817
          XTOA   B70,X7D               '         TO S.QUOTE             AAA 1818
          XTOA   B54,X7E               =         TO =                   AAA 1819
          XTOA   B64,X7F               "         TO D.QUOTE             AAA 1820
          XTOA   B01,XC1               A         TO A                   AAA 1821
          XTOA   B02,XC2               B         TO B                   AAA 1822
          XTOA   B03,XC3               C         TO C                   AAA 1823
          XTOA   B04,XC4               D         TO D                   AAA 1824
          XTOA   B05,XC5               E         TO E                   AAA 1825
          XTOA   B06,XC6               F         TO F                   AAA 1826
          XTOA   B07,XC7               G         TO G                   AAA 1827
          XTOA   B10,XC8               H         TO H                   AAA 1828
          XTOA   B11,XC9               I         TO I                   AAA 1829
          XTOA   B12,XD1               J         TO J                   AAA 1830
          XTOA   B13,XD2               K         TO K                   AAA 1831
          XTOA   B14,XD3               L         TO L                   AAA 1832
          XTOA   B15,XD4               M         TO M                   AAA 1833
          XTOA   B16,XD5               N         TO N                   AAA 1834
          XTOA   B17,XD6               O         TO O                   AAA 1835
          XTOA   B20,XD7               P         TO P                   AAA 1836
          XTOA   B21,XD8               Q         TO Q                   AAA 1837
          XTOA   B22,XD9               R         TO R                   AAA 1838
          XTOA   B75,XE0               \         TO REV.SLASH           AAA 1839
          XTOA   B23,XE2               S         TO S                   AAA 1840
          XTOA   B24,XE3               T         TO T                   AAA 1841
          XTOA   B25,XE4               U         TO U                   AAA 1842
          XTOA   B26,XE5               V         TO V                   AAA 1843
          XTOA   B27,XE6               W         TO W                   AAA 1844
          XTOA   B30,XE7               X         TO X                   AAA 1845
          XTOA   B31,XE8               Y         TO Y                   AAA 1846
          XTOA   B32,XE9               Z         TO Z                   AAA 1847
          XTOA   B33,XF0               0         TO 0                   AAA 1848
          XTOA   B34,XF1               1         TO 1                   AAA 1849
          XTOA   B35,XF2               2         TO 2                   AAA 1850
          XTOA   B36,XF3               3         TO 3                   AAA 1851
          XTOA   B37,XF4               4         TO 4                   AAA 1852
          XTOA   B40,XF5               5         TO 5                   AAA 1853
          XTOA   B41,XF6               6         TO 6                   AAA 1854
          XTOA   B42,XF7               7         TO 7                   AAA 1855
          XTOA   B43,XF8               8         TO 8                   AAA 1856
          XTOA   B44,XF9               9         TO 9                   AAA 1857
          EJECT                                                         TABS6428
*#                                                                      TABS6429
************************************************************************TABS6430
*                                                                      *TABS6431
*     XTOCOL (DPC TO COLLATED DPC) MODULE                              *TABS6432
*     MACRO CALL--                                                     *TABS6433
*         XTOCOL BNN,COLNN                                             *TABS6434
*                WHERE NN=DPC OCTAL                                    *TABS6435
*                                                                      *TABS6436
************************************************************************TABS6437
*#                                                                      TABS6438
          XTOCOL B55,COL55             SP                               AAA 2050
          XTOCOL B61,COL61             [                                AAA 2051
          XTOCOL B57,COL57             .                                AAA 2052
          XTOCOL B72,COL72             <                                AAA 2053
          XTOCOL B51,COL51             (                                AAA 2054
          XTOCOL B45,COL45             +                                AAA 2055
          XTOCOL B66,COL66             !                                AAA 2056
          XTOCOL B67,COL67             &                                AAA 2057
          XTOCOL B62,COL62             ]                                AAA 2058
          XTOCOL B53,COL53             $                                AAA 2059
          XTOCOL B47,COL47             *                                AAA 2060
          XTOCOL B52,COL52             )                                AAA 2061
          XTOCOL B77,COL77             ;                                AAA 2062
          XTOCOL B76,COL76             ^                                AAA 2063
          XTOCOL B46,COL46             -                                AAA 2064
          XTOCOL B50,COL50             /                                AAA 2065
          XTOCOL B56,COL56             ,                                AAA 2066
          XTOCOL B63,COL63             PERCENT                          AAA 2067
          XTOCOL B65,COL65             _                                AAA 2068
          XTOCOL B73,COL73             >                                AAA 2069
          XTOCOL B71,COL71             ?                                AAA 2070
          XTOCOL B00,COL00             COLON                            AAA 2071
          XTOCOL B60,COL60             #                                AAA 2072
          XTOCOL B74,COL74             @                                AAA 2073
          XTOCOL B70,COL70             '                                AAA 2074
          XTOCOL B54,COL54             =                                AAA 2075
          XTOCOL B64,COL64             "                                AAA 2076
          XTOCOL B01,COL01             A                                AAA 2077
          XTOCOL B02,COL02             B                                AAA 2078
          XTOCOL B03,COL03             C                                AAA 2079
          XTOCOL B04,COL04             D                                AAA 2080
          XTOCOL B05,COL05             E                                AAA 2081
          XTOCOL B06,COL06             F                                AAA 2082
          XTOCOL B07,COL07             G                                AAA 2083
          XTOCOL B10,COL10             H                                AAA 2084
          XTOCOL B11,COL11             I                                AAA 2085
          XTOCOL B12,COL12             J                                AAA 2086
          XTOCOL B13,COL13             K                                AAA 2087
          XTOCOL B14,COL14             L                                AAA 2088
          XTOCOL B15,COL15             M                                AAA 2089
          XTOCOL B16,COL16             N                                AAA 2090
          XTOCOL B17,COL17             O                                AAA 2091
          XTOCOL B20,COL20             P                                AAA 2092
          XTOCOL B21,COL21             Q                                AAA 2093
          XTOCOL B22,COL22             R                                AAA 2094
          XTOCOL B75,COL75             \                                AAA 2095
          XTOCOL B23,COL23             S                                AAA 2096
          XTOCOL B24,COL24             T                                AAA 2097
          XTOCOL B25,COL25             U                                AAA 2098
          XTOCOL B26,COL26             V                                AAA 2099
          XTOCOL B27,COL27             W                                AAA 2100
          XTOCOL B30,COL30             X                                AAA 2101
          XTOCOL B31,COL31             Y                                AAA 2102
          XTOCOL B32,COL32             Z                                AAA 2103
          XTOCOL B33,COL33             0                                AAA 2104
          XTOCOL B34,COL34             1                                AAA 2105
          XTOCOL B35,COL35             2                                AAA 2106
          XTOCOL B36,COL36             3                                AAA 2107
          XTOCOL B37,COL37             4                                AAA 2108
          XTOCOL B40,COL40             5                                AAA 2109
          XTOCOL B41,COL41             6                                AAA 2110
          XTOCOL B42,COL42             7                                AAA 2111
          XTOCOL B43,COL43             8                                AAA 2112
          XTOCOL B44,COL44             9                                AAA 2113
*   NOW GENERATE TABLE                                                  TABS6503
          LIST   G                                                      TABS6504
          XGEN                                                          TABS6505
          LIST   -G                                                     TABS6506
          END                                                           TABS6507
