*DECK HEXTAB
          IDENT  T8.HXTB
 HEXTAB   TITLE  T8.HXTB--EIGHT-BIT SUBROUTINES HEX TABLES
          ENTRY  T8.HXTB
          LIST   -R 
           IPARAMS
*#                                                                      TABS16 4
*                                                                       TABS16 5
************************************************************************TABS16 6
*                                                                      *TABS16 7
*                                                                      *TABS16 8
*                EIGHT-BIT SUBROUTINES HEX TABLE                       *TABS16 9
*                                                                      *TABS1610
*                                                                      *TABS1611
************************************************************************TABS1612
*         NOTE-- FOR TDCNVT,TD6TAB,TDHXTBL                             *TABS1613
*                                                                      *TABS1614
*                A= EBCDIC                                             *TABS1615
*                C= ASCII                                              *TABS1616
*                X=D.P.C                                               *TABS1617
*                                                                      *TABS1618
*                (DUE TO ACCIDENTALLY INTERCHANGING A+C IN TABLE       *TABS1619
*                GENERATION)                                           *TABS1620
*                                                                      *TABS1621
************************************************************************TABS1622
************************************************************************TABS1623
**
*                                                                      *TABS1624
*     THIS TABLE IS 256 WORDS LONG AND CONTAINS FOLLOWING INFORMATION  *TABS1625
*                EBCDIC TO 6-BIT CONVERSION CODES ( A TO X)            *TABS1626
*                EBCDIC TO ASCII                  ( A TO C)            *TABS1627
*                ASCII TO EBCDIC                  ( C TO A)            *TABS1628
*                ASCII TO D.P.C.                  (CTOX)               *TABS1629
*                PUNCH CODE TO EBCDIC             (PTOA)               *TABS1630
*                EBCDIC TO PUNCH CODE             (ATOP)               *TABS1631
*         NOTE THAT FOR THIS ROUTINE*(CONTRARY TO ERS CODES)*           TABS1632
*                A=EBCDIC                                              *TABS1633
*                C=ASCII                                               *TABS1634
*                X=DISPLAY CODE                                        *TABS1635
*                 P=PUNCH CODE
*                                                                      *TABS1637
*     THE CODE FOR THE SOURCE CHARACTER SHALL BE USED AS AN INDEX      *TABS1638
*                INTO THE TABLE; FOR PUNCH CODE A SPECIAL INDEXING     *TABS1639
*                METHOD (DESCRIBED LATER) IS USED.                     *TABS1640
*     EACH OF THE 256 ENTRIES HAS THE FOLLOWING FORMAT--               *TABS1641
*    +    VFD    9/ATOX,9/ATOC,9/CTOA,9/CTOX,9/PTOA,15/ATOP             TABS1642
*                                                                      *TABS1643
           SPACE  1 
************************************************************************TABS1645
*                                                                      *TABS1646
*                MACRO DEFINITIONS                                     *TABS1647
*                                                                      *TABS1648
*      GENERATES   VFD  9/ATOX,9/ATOC,9/CTOA,9/CTOX,9/PTOA,15/ATOP      TABS1649
*                                                                      *TABS1650
**
*     RESULTING TABLE SHOULD HAVE 256 ENTRIES.  TO CONVERT A CHAR      *TABS1651
*     CONVERT ITS HEX VALUE TO OCTAL AND USE IT AS AN INDEX INTO       *TABS1652
*     TABLE.  PICK UP THE EQUIVALENT CODE ACCORDING TO ABOVE           *TABS1653
*     SPECIFIED FORMAT.                                                *TABS1654
*                                                                      *TABS1655
          SPACE  1
************************************************************************TABS1656
*#                                                                      TABS1657
 LAX      EQU    9                                                      TABS1658
 LAC      EQU    9                                                      TABS1659
 LCA      EQU    9                                                      TABS1660
 LCXC     EQU    9                                                      TABS1661
 LAXC     EQU    9                                                      TABS1662
 LAP      EQU    15                                                     TABS1663
 LPA      EQU    9                                                      TABS1664
************************************************************************TABS1665
 ATOX     MACRO  INX,TO                   EBCDIC TO D.P.C.              TABS1666
 AX_INX   MICRO  1,, LAX/TO                                             TABS1667
 ATOX     ENDM                                                          TABS1668
************************************************************************TABS1669
 ATOC     MACRO  INX,TO                   EBCDIC TO ASCII               TABS1670
 AX_INX   MICRO  1,, "AX_INX",LAC/TO                                    TABS1671
 ATOC     ENDM                                                          TABS1672
************************************************************************TABS1673
 CTOA     MACRO  INX,TO                   ASCII TO EBCDIC               TABS1674
 AX_INX   MICRO  1,, "AX_INX",LCA/TO                                    TABS1675
 CTOA     ENDM                                                          TABS1676
************************************************************************TABS1677
 CTOX     MACRO  INX,TO                   ASCII TO D.P.C.               TABS1678
 AX_INX   MICRO  1,, "AX_INX",LCXC/TO                                   TABS1679
 CTOX     ENDM                                                          TABS1680
************************************************************************TABS1681
 PTOMC    MACRO  INX,TO                                                 TABS1682
 AX_INX   MICRO  1,, "AX_INX",LPA/TO                                    TABS1683
 PTOMC    ENDM                                                          TABS1684
 PTOA     MACRO  INX,TO                   PUNCH TO EBCDIC               TABS1685
          PTOMC  "INX",TO                                               TABS1686
 PTOA     ENDM                                                          TABS1687
************************************************************************TABS1688
 ATOP     MACRO  INX,TO                   EBCDIC TO PUNCH               TABS1689
 AX_INX   MICRO  1,, "AX_INX",LAP/TO                                    TABS1690
 FIRST    MICRO  1,55, "AX_INX"                                         TABS1691
 SECD     MICRO  56,, "AX_INX"                                          TABS1692
+         VFD    "FIRST"                                                TABS1693
,"SECD                                                                  TABS1694
 ATOP     ENDM                                                          TABS1695
************************************************************************TABS1696
*                                                                       TABS1697
************************************************************************TABS1698
*                                                                      *TABS1699
*                                                                      *TABS1100
*     CREATE OCTAL TABLE   0 TO 63   (B00 TO B77)                      *TABS1101
*                                                                      *TABS1102
 BNN      ECHO   ,I=(0,1,2,3,4,5,6,7)                                   TABS1103
          ECHO   ,J=(0,1,2,3,4,5,6,7)                                   TABS1104
 B_I_J    EQU    I_J_B                                                  TABS1105
 BNN      ENDD                                                          TABS1106
*                                                                      *TABS1107
*****************************Q******************************************TABS1108
*                                                                      *TABS1109
*                                                                      *TABS1110
*     CREATE HEX TABLE 0 TO 255  (X00 TO XFF)                          *TABS1111
*                                                                      *TABS1112
 I        SET    0                                                      TABS1113
 XNN      ECHO   ,M=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)                   TABS1114
          ECHO   ,N=(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)                   TABS1115
 X_M_N    EQU    I                                                      TABS1116
 I        SET    I+1                                                    TABS1117
 XNN      ENDD                                                          TABS1118
*                                                                      *TABS1119
************************************************************************TABS1120
          EJECT                                                         TABS1121
*                                                                       TABS1122
************************************************************************TABS1123
************************************************************************TABS1124
*                                                                      *TABS1125
*                ATOX     (EBCDIC TO 6-BIT DC) MODULE                  *TABS1126
*                                                                      *TABS1127
*     THE ATOX MACRO CALLS IN THIS SECTION MUST BE OF THE FORM         *TABS1128
*         ATOX   XNN,BMM                                               *TABS1129
*                WHERE  NN=HEX CODE FOR EBCDIC                         *TABS1130
*                       MM= OCTAL CODE FOR D.C.                        *TABS1131
*     ORDER OF THE CARDS IS IMMATERIAL, HOWEVER, ALL 256 MUST BE PRE-  *TABS1132
*         SENT                                                         *TABS1133
************************************************************************TABS1134
*                                                                       TABS1135
*#                                                                      TABS1136
*                                                                       TABS1137
 T8.HXTB  BSS     0                                                     TB16   1
          ATOX   X00,B55               NUL       TO SP                  AAA  514
          ATOX   X01,B62               SOH       TO ]                   AAA  515
          ATOX   X02,B64               STX       TO "                   AAA  516
          ATOX   X03,B60               ETX       TO #                   AAA  517
          ATOX   X04,B55               PF        TO                     AAA  518
          ATOX   X05,B52               HT        TO )                   AAA  519
          ATOX   X06,B55               LC        TO                     AAA  520
          ATOX   X07,B65               DEL       TO _                   AAA  521
          ATOX   X08,B55               GE        TO                     AAA  522
          ATOX   X09,B55               RLF       TO                     AAA  523
          ATOX   X0A,B55               SMM       TO                     AAA  524
          ATOX   X0B,B45               VT        TO +                   AAA  525
          ATOX   X0C,B56               FF        TO ,                   AAA  526
          ATOX   X0D,B46               CR        TO -                   AAA  527
          ATOX   X0E,B57               SO        TO .                   AAA  528
          ATOX   X0F,B50               SI        TO /                   AAA  529
          ATOX   X10,B33               DLE       TO 0                   AAA  530
          ATOX   X11,B34               DC1       TO 1                   AAA  531
          ATOX   X12,B35               DC2       TO 2                   AAA  532
          ATOX   X13,B36               TM        TO 3                   AAA  533
          ATOX   X14,B55               RES       TO                     AAA  534
          ATOX   X15,B55               NL        TO                     AAA  535
          ATOX   X16,B51               BS        TO (                   AAA  536
          ATOX   X17,B55               IL        TO                     AAA  537
          ATOX   X18,B43               CAN       TO 8                   AAA  538
          ATOX   X19,B44               EM        TO 9                   AAA  539
          ATOX   X1A,B55               CC        TO                     AAA  540
          ATOX   X1B,B55               CU1       TO                     AAA  541
          ATOX   X1C,B61               IFS       TO [                   AAA  542
          ATOX   X1D,B54               IGS       TO =                   AAA  543
          ATOX   X1E,B73               IRS       TO >                   AAA  544
          ATOX   X1F,B71               IUS       TO ?                   AAA  545
          ATOX   X20,B55               DS        TO                     AAA  546
          ATOX   X21,B55               SOS       TO                     AAA  547
          ATOX   X22,B55               FS        TO                     AAA  548
          ATOX   X23,B55                         TO                     AAA  549
          ATOX   X24,B55               BYP       TO                     AAA  550
          ATOX   X25,B47               LF        TO *                   AAA  551
          ATOX   X26,B42               ETB       TO 7                   AAA  552
          ATOX   X27,B77               ESC       TO ;                   AAA  553
          ATOX   X28,B55                         TO                     AAA  554
          ATOX   X29,B55                         TO                     AAA  555
          ATOX   X2A,B55               SM        TO                     AAA  556
          ATOX   X2B,B55               CU2       TO                     AAA  557
          ATOX   X2C,B55                         TO                     AAA  558
          IFEQ   IP.CSET,IP.C63,1 
          ATOX   X2D,B55              ENQ        TO 
          IFNE   IP.CSET,IP.C63,1 
          ATOX   X2D,B63               ENQ       TO                     AAA  559
          ATOX   X2E,B67               ACK       TO &                   AAA  560
          ATOX   X2F,B70               BEL       TO '                   AAA  561
          ATOX   X30,B55                         TO                     AAA  562
          ATOX   X31,B55                         TO                     AAA  563
          ATOX   X32,B41               SYN       TO 6                   AAA  564
          ATOX   X33,B55                         TO                     AAA  565
          ATOX   X34,B55               PN        TO                     AAA  566
          ATOX   X35,B55               RS        TO                     AAA  567
          ATOX   X36,B55               UC        TO                     AAA  568
          ATOX   X37,B53               EOT       TO $                   AAA  569
          ATOX   X38,B55                         TO                     AAA  570
          ATOX   X39,B55                         TO                     AAA  571
          ATOX   X3A,B55                         TO                     AAA  572
          ATOX   X3B,B55               CU3       TO                     AAA  573
          ATOX   X3C,B37               DC4       TO 4                   AAA  574
          ATOX   X3D,B40               NAK       TO 5                   AAA  575
          ATOX   X3E,B55                         TO                     AAA  576
          IFEQ   IP.CSET,IP.C63,1 
          ATOX   X3F,B63              SUB        TO  PERCENT
          IFNE   IP.CSET,IP.C63,1 
          ATOX   X3F,B00               SUB       TO :                   AAA  577
          ATOX   X40,B55               SP        TO SP                  AAA  578
          ATOX   X41,B55                         TO                     AAA  579
          ATOX   X42,B55                         TO                     AAA  580
          ATOX   X43,B55                         TO                     AAA  581
          ATOX   X44,B55                         TO                     AAA  582
          ATOX   X45,B55                         TO                     AAA  583
          ATOX   X46,B55                         TO                     AAA  584
          ATOX   X47,B55                         TO                     AAA  585
          ATOX   X48,B55                         TO                     AAA  586
          ATOX   X49,B55                         TO                     AAA  587
          ATOX   X4A,B61               CENT      TO [                   AAA  588
          ATOX   X4B,B57               .         TO .                   AAA  589
          ATOX   X4C,B72               <         TO <                   AAA  590
          ATOX   X4D,B51               (         TO (                   AAA  591
          ATOX   X4E,B45               +         TO +                   AAA  592
          ATOX   X4F,B66               VERT.BAR  TO !                   AAA  593
          ATOX   X50,B67               AMPERSAND TO &                   AAA  594
          ATOX   X51,B55                         TO                     AAA  595
          ATOX   X52,B55                         TO                     AAA  596
          ATOX   X53,B55                         TO                     AAA  597
          ATOX   X54,B55                         TO                     AAA  598
          ATOX   X55,B55                         TO                     AAA  599
          ATOX   X56,B55                         TO                     AAA  600
          ATOX   X57,B55                         TO                     AAA  601
          ATOX   X58,B55                         TO                     AAA  602
          ATOX   X59,B55                         TO                     AAA  603
          ATOX   X5A,B62               EXCLAM.PT TO ]                   AAA  604
          ATOX   X5B,B53               $         TO $                   AAA  605
          ATOX   X5C,B47               *         TO *                   AAA  606
          ATOX   X5D,B52               )         TO )                   AAA  607
          ATOX   X5E,B77               ;         TO ;                   AAA  608
          ATOX   X5F,B76               NOT       TO ^                   AAA  609
          ATOX   X60,B46               -         TO -                   AAA  610
          ATOX   X61,B50               /         TO /                   AAA  611
          ATOX   X62,B55                         TO                     AAA  612
          ATOX   X63,B55                         TO                     AAA  613
          ATOX   X64,B55                         TO                     AAA  614
          ATOX   X65,B55                         TO                     AAA  615
          ATOX   X66,B55                         TO                     AAA  616
          ATOX   X67,B55                         TO                     AAA  617
          ATOX   X68,B55                         TO                     AAA  618
          ATOX   X69,B55                         TO                     AAA  619
          ATOX   X6A,B75               VERT.BAR  TO \                   AAA  620
          ATOX   X6B,B56               ,         TO ,                   AAA  621
          IFEQ   IP.CSET,IP.C63,1 
          ATOX   X6C,B55              PERCENT    TO 
          IFNE   IP.CSET,IP.C63,1 
          ATOX   X6C,B63               PERCENT   TO PERCENT             AAA  622
          ATOX   X6D,B65               UNDERSCOR TO _                   AAA  623
          ATOX   X6E,B73               >         TO >                   AAA  624
          ATOX   X6F,B71               QUESTION  TO ?                   AAA  625
          ATOX   X70,B55                         TO                     AAA  626
          ATOX   X71,B55                         TO                     AAA  627
          ATOX   X72,B55                         TO                     AAA  628
          ATOX   X73,B55                         TO                     AAA  629
          ATOX   X74,B55                         TO                     AAA  630
          ATOX   X75,B55                         TO                     AAA  631
          ATOX   X76,B55                         TO                     AAA  632
          ATOX   X77,B55                         TO                     AAA  633
          ATOX   X78,B55                         TO                     AAA  634
          ATOX   X79,B74               GR.ACCENT TO @                   AAA  635
          IFEQ   IP.CSET,IP.C63,1 
          ATOX   X7A,B63              COLON      TO  PERCENT
          IFNE   IP.CSET,IP.C63,1 
          ATOX   X7A,B00               COLON     TO COLON               AAA  636
          ATOX   X7B,B60               NUMBER    TO #                   AAA  637
          ATOX   X7C,B74               COM.AT    TO @                   AAA  638
          ATOX   X7D,B70               S.QUOTE   TO '                   AAA  639
          ATOX   X7E,B54               =         TO =                   AAA  640
          ATOX   X7F,B64               D.QUOTE   TO "                   AAA  641
          ATOX   X80,B55                         TO                     AAA  642
          ATOX   X81,B01               A - L.C.  TO A                   AAA  643
          ATOX   X82,B02               B - L.C.  TO B                   AAA  644
          ATOX   X83,B03               C - L.C.  TO C                   AAA  645
          ATOX   X84,B04               D - L.C.  TO D                   AAA  646
          ATOX   X85,B05               E - L.C.  TO E                   AAA  647
          ATOX   X86,B06               F - L.C.  TO F                   AAA  648
          ATOX   X87,B07               G - L.C.  TO G                   AAA  649
          ATOX   X88,B10               H - L.C.  TO H                   AAA  650
          ATOX   X89,B11               I - L.C.  TO I                   AAA  651
          ATOX   X8A,B55                         TO                     AAA  652
          ATOX   X8B,B55                         TO                     AAA  653
          ATOX   X8C,B55                         TO                     AAA  654
          ATOX   X8D,B55                         TO                     AAA  655
          ATOX   X8E,B55                         TO                     AAA  656
          ATOX   X8F,B55                         TO                     AAA  657
          ATOX   X90,B55                         TO                     AAA  658
          ATOX   X91,B12               J - L.C.  TO J                   AAA  659
          ATOX   X92,B13               K - L.C.  TO K                   AAA  660
          ATOX   X93,B14               L - L.C.  TO L                   AAA  661
          ATOX   X94,B15               M - L.C.  TO M                   AAA  662
          ATOX   X95,B16               N - L.C.  TO N                   AAA  663
          ATOX   X96,B17               O - L.C.  TO O                   AAA  664
          ATOX   X97,B20               P - L.C.  TO P                   AAA  665
          ATOX   X98,B21               Q - L.C.  TO Q                   AAA  666
          ATOX   X99,B22               R - L.C.  TO R                   AAA  667
          ATOX   X9A,B55                         TO                     AAA  668
          ATOX   X9B,B55                         TO                     AAA  669
          ATOX   X9C,B55                         TO                     AAA  670
          ATOX   X9D,B55                         TO                     AAA  671
          ATOX   X9E,B55                         TO                     AAA  672
          ATOX   X9F,B55                         TO                     AAA  673
          ATOX   XA0,B55                         TO                     AAA  674
          ATOX   XA1,B76               TILDE     TO ^                   AAA  675
          ATOX   XA2,B23               S - L.C.  TO S                   AAA  676
          ATOX   XA3,B24               T - L.C.  TO T                   AAA  677
          ATOX   XA4,B25               U - L.C.  TO U                   AAA  678
          ATOX   XA5,B26               V - L.C.  TO V                   AAA  679
          ATOX   XA6,B27               W - L.C.  TO W                   AAA  680
          ATOX   XA7,B30               X - L.C.  TO X                   AAA  681
          ATOX   XA8,B31               Y - L.C.  TO Y                   AAA  682
          ATOX   XA9,B32               Z - L.C.  TO Z                   AAA  683
          ATOX   XAA,B55                         TO                     AAA  684
          ATOX   XAB,B55                         TO                     AAA  685
          ATOX   XAC,B55                         TO                     AAA  686
          ATOX   XAD,B55                         TO                     AAA  687
          ATOX   XAE,B55                         TO                     AAA  688
          ATOX   XAF,B55                         TO                     AAA  689
          ATOX   XB0,B55                         TO                     AAA  690
          ATOX   XB1,B55                         TO                     AAA  691
          ATOX   XB2,B55                         TO                     AAA  692
          ATOX   XB3,B55                         TO                     AAA  693
          ATOX   XB4,B55                         TO                     AAA  694
          ATOX   XB5,B55                         TO                     AAA  695
          ATOX   XB6,B55                         TO                     AAA  696
          ATOX   XB7,B55                         TO                     AAA  697
          ATOX   XB8,B55                         TO                     AAA  698
          ATOX   XB9,B55                         TO                     AAA  699
          ATOX   XBA,B55                         TO                     AAA  700
          ATOX   XBB,B55                         TO                     AAA  701
          ATOX   XBC,B55                         TO                     AAA  702
          ATOX   XBD,B55                         TO                     AAA  703
          ATOX   XBE,B55                         TO                     AAA  704
          ATOX   XBF,B55                         TO                     AAA  705
          ATOX   XC0,B72               L.BRACE   TO <,+0                AAA  706
          ATOX   XC1,B01               A         TO A                   AAA  707
          ATOX   XC2,B02               B         TO B                   AAA  708
          ATOX   XC3,B03               C         TO C                   AAA  709
          ATOX   XC4,B04               D         TO D                   AAA  710
          ATOX   XC5,B05               E         TO E                   AAA  711
          ATOX   XC6,B06               F         TO F                   AAA  712
          ATOX   XC7,B07               G         TO G                   AAA  713
          ATOX   XC8,B10               H         TO H                   AAA  714
          ATOX   XC9,B11               I         TO I                   AAA  715
          ATOX   XCA,B55                         TO                     AAA  716
          ATOX   XCB,B55                         TO                     AAA  717
          ATOX   XCC,B55               HOOK      TO                     AAA  718
          ATOX   XCD,B55                         TO                     AAA  719
          ATOX   XCE,B55               FORK      TO                     AAA  720
          ATOX   XCF,B55                         TO                     AAA  721
          ATOX   XD0,B66               R.BRACE   TO !,-0                AAA  722
          ATOX   XD1,B12               J         TO J                   AAA  723
          ATOX   XD2,B13               K         TO K                   AAA  724
          ATOX   XD3,B14               L         TO L                   AAA  725
          ATOX   XD4,B15               M         TO M                   AAA  726
          ATOX   XD5,B16               N         TO N                   AAA  727
          ATOX   XD6,B17               O         TO O                   AAA  728
          ATOX   XD7,B20               P         TO P                   AAA  729
          ATOX   XD8,B21               Q         TO Q                   AAA  730
          ATOX   XD9,B22               R         TO R                   AAA  731
          ATOX   XDA,B55                         TO                     AAA  732
          ATOX   XDB,B55                         TO                     AAA  733
          ATOX   XDC,B55                         TO                     AAA  734
          ATOX   XDD,B55                         TO                     AAA  735
          ATOX   XDE,B55                         TO                     AAA  736
          ATOX   XDF,B55                         TO                     AAA  737
          ATOX   XE0,B75               REV.SLASH TO \                   AAA  738
          ATOX   XE1,B55                         TO                     AAA  739
          ATOX   XE2,B23               S         TO S                   AAA  740
          ATOX   XE3,B24               T         TO T                   AAA  741
          ATOX   XE4,B25               U         TO U                   AAA  742
          ATOX   XE5,B26               V         TO V                   AAA  743
          ATOX   XE6,B27               W         TO W                   AAA  744
          ATOX   XE7,B30               X         TO X                   AAA  745
          ATOX   XE8,B31               Y         TO Y                   AAA  746
          ATOX   XE9,B32               Z         TO Z                   AAA  747
          ATOX   XEA,B55                         TO                     AAA  748
          ATOX   XEB,B55                         TO                     AAA  749
          ATOX   XEC,B55               CHAIR     TO                     AAA  750
          ATOX   XED,B55                         TO                     AAA  751
          ATOX   XEE,B55                         TO                     AAA  752
          ATOX   XEF,B55                         TO                     AAA  753
          ATOX   XF0,B33               0         TO 0                   AAA  754
          ATOX   XF1,B34               1         TO 1                   AAA  755
          ATOX   XF2,B35               2         TO 2                   AAA  756
          ATOX   XF3,B36               3         TO 3                   AAA  757
          ATOX   XF4,B37               4         TO 4                   AAA  758
          ATOX   XF5,B40               5         TO 5                   AAA  759
          ATOX   XF6,B41               6         TO 6                   AAA  760
          ATOX   XF7,B42               7         TO 7                   AAA  761
          ATOX   XF8,B43               8         TO 8                   AAA  762
          ATOX   XF9,B44               9         TO 9                   AAA  763
          ATOX   XFA,B55               LVM       TO                     AAA  764
          ATOX   XFB,B55                         TO                     AAA  765
          ATOX   XFC,B55                         TO                     AAA  766
          ATOX   XFD,B55                         TO                     AAA  767
          ATOX   XFE,B55                         TO                     AAA  768
          ATOX   XFF,B55                         TO                     AAA  769
          EJECT                                                         TABS1395
*#                                                                      TABS1396
*                                                                       TABS1397
************************************************************************TABS1398
*                                                                      *TABS1399
*                ATOC  (EBCDIC TO ASCII) MODULE                        *TABS1400
*                                                                      *TABS1401
*     THE ATOC MACRO CALLS IN THIS SECTION MUST BE IN THE FORM--       *TABS1402
*         ATOC   XNN,XMM                                               *TABS1403
*                WHERE       NN=EBCDIC HEX CODE                        *TABS1404
*                            MM=ASCII HEX CODE                         *TABS1405
*     ORDER OF CARDS IMMATERIAL  (256 ENTRIES)                         *TABS1406
*                                                                      *TABS1407
************************************************************************TABS1408
*#                                                                      TABS1409
*                                                                       TABS1410
          ATOC   X00,X00               NUL       TO NUL                 AAA    2
          ATOC   X01,X01               SOH       TO SOH                 AAA    3
          ATOC   X02,X02               STX       TO STX                 AAA    4
          ATOC   X03,X03               ETX       TO ETX                 AAA    5
          ATOC   X04,X9C               PF        TO                     AAA    6
          ATOC   X05,X09               HT        TO HT                  AAA    7
          ATOC   X06,X86               LC        TO                     AAA    8
          ATOC   X07,X7F               DEL       TO DEL                 AAA    9
          ATOC   X08,X97               GE        TO                     AAA   10
          ATOC   X09,X8D               RLF       TO                     AAA   11
          ATOC   X0A,X8E               SMM       TO                     AAA   12
          ATOC   X0B,X0B               VT        TO VT                  AAA   13
          ATOC   X0C,X0C               FF        TO FF                  AAA   14
          ATOC   X0D,X0D               CR        TO CR                  AAA   15
          ATOC   X0E,X0E               SO        TO SO                  AAA   16
          ATOC   X0F,X0F               SI        TO SI                  AAA   17
          ATOC   X10,X10               DLE       TO DLE                 AAA   18
          ATOC   X11,X11               DC1       TO DC1                 AAA   19
          ATOC   X12,X12               DC2       TO DC2                 AAA   20
          ATOC   X13,X13               TM        TO DC3                 AAA   21
          ATOC   X14,X9D               RES       TO                     AAA   22
          ATOC   X15,X85               NL        TO                     AAA   23
          ATOC   X16,X08               BS        TO BS                  AAA   24
          ATOC   X17,X87               IL        TO                     AAA   25
          ATOC   X18,X18               CAN       TO CAN                 AAA   26
          ATOC   X19,X19               EM        TO EM                  AAA   27
          ATOC   X1A,X92               CC        TO                     AAA   28
          ATOC   X1B,X8F               CU1       TO                     AAA   29
          ATOC   X1C,X1C               IFS       TO FS                  AAA   30
          ATOC   X1D,X1D               IGS       TO GS                  AAA   31
          ATOC   X1E,X1E               IRS       TO RS                  AAA   32
          ATOC   X1F,X1F               IUS       TO US                  AAA   33
          ATOC   X20,X80               DS        TO                     AAA   34
          ATOC   X21,X81               SOS       TO                     AAA   35
          ATOC   X22,X82               FS        TO                     AAA   36
          ATOC   X23,X83                         TO                     AAA   37
          ATOC   X24,X84               BYP       TO                     AAA   38
          ATOC   X25,X0A               LF        TO LF                  AAA   39
          ATOC   X26,X17               ETB       TO ETB                 AAA   40
          ATOC   X27,X1B               ESC       TO ESC                 AAA   41
          ATOC   X28,X88                         TO                     AAA   42
          ATOC   X29,X89                         TO                     AAA   43
          ATOC   X2A,X8A               SM        TO                     AAA   44
          ATOC   X2B,X8B               CU2       TO                     AAA   45
          ATOC   X2C,X8C                         TO                     AAA   46
          ATOC   X2D,X05               ENQ       TO ENQ                 AAA   47
          ATOC   X2E,X06               ACK       TO ACK                 AAA   48
          ATOC   X2F,X07               BEL       TO BEL                 AAA   49
          ATOC   X30,X90                         TO                     AAA   50
          ATOC   X31,X91                         TO                     AAA   51
          ATOC   X32,X16               SYN       TO SYN                 AAA   52
          ATOC   X33,X93                         TO                     AAA   53
          ATOC   X34,X94               PN        TO                     AAA   54
          ATOC   X35,X95               RS        TO                     AAA   55
          ATOC   X36,X96               UC        TO                     AAA   56
          ATOC   X37,X04               EOT       TO EOT                 AAA   57
          ATOC   X38,X98                         TO                     AAA   58
          ATOC   X39,X99                         TO                     AAA   59
          ATOC   X3A,X9A                         TO                     AAA   60
          ATOC   X3B,X9B               CU3       TO                     AAA   61
          ATOC   X3C,X14               DC4       TO DC4                 AAA   62
          ATOC   X3D,X15               NAK       TO NAK                 AAA   63
          ATOC   X3E,X9E                         TO                     AAA   64
          ATOC   X3F,X1A               SUB       TO SUB                 AAA   65
          ATOC   X40,X20               SP        TO SP                  AAA   66
          ATOC   X41,XA0                         TO                     AAA   67
          ATOC   X42,XA1                         TO                     AAA   68
          ATOC   X43,XA2                         TO                     AAA   69
          ATOC   X44,XA3                         TO                     AAA   70
          ATOC   X45,XA4                         TO                     AAA   71
          ATOC   X46,XA5                         TO                     AAA   72
          ATOC   X47,XA6                         TO                     AAA   73
          ATOC   X48,XA7                         TO                     AAA   74
          ATOC   X49,XA8                         TO                     AAA   75
          ATOC   X4A,X5B               CENT      TO [                   AAA   76
          ATOC   X4B,X2E               .         TO .                   AAA   77
          ATOC   X4C,X3C               <         TO <                   AAA   78
          ATOC   X4D,X28               (         TO (                   AAA   79
          ATOC   X4E,X2B               +         TO +                   AAA   80
          ATOC   X4F,X21               VERT.BAR  TO EXCLAM.PT           AAA   81
          ATOC   X50,X26               AMPERSAND TO AMPERSAND           AAA   82
          ATOC   X51,XA9                         TO                     AAA   83
          ATOC   X52,XAA                         TO                     AAA   84
          ATOC   X53,XAB                         TO                     AAA   85
          ATOC   X54,XAC                         TO                     AAA   86
          ATOC   X55,XAD                         TO                     AAA   87
          ATOC   X56,XAE                         TO                     AAA   88
          ATOC   X57,XAF                         TO                     AAA   89
          ATOC   X58,XB0                         TO                     AAA   90
          ATOC   X59,XB1                         TO                     AAA   91
          ATOC   X5A,X5D               EXCLAM.PT TO ]                   AAA   92
          ATOC   X5B,X24               $         TO $                   AAA   93
          ATOC   X5C,X2A               *         TO *                   AAA   94
          ATOC   X5D,X29               )         TO )                   AAA   95
          ATOC   X5E,X3B               ;         TO ;                   AAA   96
          ATOC   X5F,X5E               NOT       TO CIR.FLEX            AAA   97
          ATOC   X60,X2D               -         TO -                   AAA   98
          ATOC   X61,X2F               /         TO /                   AAA   99
          ATOC   X62,XB2                         TO                     AAA  100
          ATOC   X63,XB3                         TO                     AAA  101
          ATOC   X64,XB4                         TO                     AAA  102
          ATOC   X65,XB5                         TO                     AAA  103
          ATOC   X66,XB6                         TO                     AAA  104
          ATOC   X67,XB7                         TO                     AAA  105
          ATOC   X68,XB8                         TO                     AAA  106
          ATOC   X69,XB9                         TO                     AAA  107
          ATOC   X6A,X7C               VERT.BAR  TO VERT.BAR            AAA  108
          ATOC   X6B,X2C               ,         TO ,                   AAA  109
          ATOC   X6C,X25               PERCENT   TO PERCENT             AAA  110
          ATOC   X6D,X5F               UNDERSCOR TO UNDERSCOR           AAA  111
          ATOC   X6E,X3E               >         TO >                   AAA  112
          ATOC   X6F,X3F               QUESTION  TO QUESTION            AAA  113
          ATOC   X70,XBA                         TO                     AAA  114
          ATOC   X71,XBB                         TO                     AAA  115
          ATOC   X72,XBC                         TO                     AAA  116
          ATOC   X73,XBD                         TO                     AAA  117
          ATOC   X74,XBE                         TO                     AAA  118
          ATOC   X75,XBF                         TO                     AAA  119
          ATOC   X76,XC0                         TO                     AAA  120
          ATOC   X77,XC1                         TO                     AAA  121
          ATOC   X78,XC2                         TO                     AAA  122
          ATOC   X79,X60               GR.ACCENT TO GR.ACCENT           AAA  123
          ATOC   X7A,X3A               COLON     TO COLON               AAA  124
          ATOC   X7B,X23               NUMBER    TO NUMBER              AAA  125
          ATOC   X7C,X40               COM.AT    TO COM.AT              AAA  126
          ATOC   X7D,X27               S.QUOTE   TO S.QUOTE             AAA  127
          ATOC   X7E,X3D               =         TO =                   AAA  128
          ATOC   X7F,X22               D.QUOTE   TO D.QUOTE             AAA  129
          ATOC   X80,XC3                         TO                     AAA  130
          ATOC   X81,X61               A - L.C.  TO A - L.C.            AAA  131
          ATOC   X82,X62               B - L.C.  TO B - L.C.            AAA  132
          ATOC   X83,X63               C - L.C.  TO C - L.C.            AAA  133
          ATOC   X84,X64               D - L.C.  TO D - L.C.            AAA  134
          ATOC   X85,X65               E - L.C.  TO E - L.C.            AAA  135
          ATOC   X86,X66               F - L.C.  TO F - L.C.            AAA  136
          ATOC   X87,X67               G - L.C.  TO G - L.C.            AAA  137
          ATOC   X88,X68               H - L.C.  TO H - L.C.            AAA  138
          ATOC   X89,X69               I - L.C.  TO I - L.C.            AAA  139
          ATOC   X8A,XC4                         TO                     AAA  140
          ATOC   X8B,XC5                         TO                     AAA  141
          ATOC   X8C,XC6                         TO                     AAA  142
          ATOC   X8D,XC7                         TO                     AAA  143
          ATOC   X8E,XC8                         TO                     AAA  144
          ATOC   X8F,XC9                         TO                     AAA  145
          ATOC   X90,XCA                         TO                     AAA  146
          ATOC   X91,X6A               J - L.C.  TO J - L.C.            AAA  147
          ATOC   X92,X6B               K - L.C.  TO K - L.C.            AAA  148
          ATOC   X93,X6C               L - L.C.  TO L - L.C.            AAA  149
          ATOC   X94,X6D               M - L.C.  TO M - L.C.            AAA  150
          ATOC   X95,X6E               N - L.C.  TO N - L.C.            AAA  151
          ATOC   X96,X6F               O - L.C.  TO O - L.C.            AAA  152
          ATOC   X97,X70               P - L.C.  TO P - L.C.            AAA  153
          ATOC   X98,X71               Q - L.C.  TO Q - L.C.            AAA  154
          ATOC   X99,X72               R - L.C.  TO R - L.C.            AAA  155
          ATOC   X9A,XCB                         TO                     AAA  156
          ATOC   X9B,XCC                         TO                     AAA  157
          ATOC   X9C,XCD                         TO                     AAA  158
          ATOC   X9D,XCE                         TO                     AAA  159
          ATOC   X9E,XCF                         TO                     AAA  160
          ATOC   X9F,XD0                         TO                     AAA  161
          ATOC   XA0,XD1                         TO                     AAA  162
          ATOC   XA1,X7E               TILDE     TO TILDE               AAA  163
          ATOC   XA2,X73               S - L.C.  TO S - L.C.            AAA  164
          ATOC   XA3,X74               T - L.C.  TO T - L.C.            AAA  165
          ATOC   XA4,X75               U - L.C.  TO U - L.C.            AAA  166
          ATOC   XA5,X76               V - L.C.  TO V - L.C.            AAA  167
          ATOC   XA6,X77               W - L.C.  TO W - L.C.            AAA  168
          ATOC   XA7,X78               X - L.C.  TO X - L.C.            AAA  169
          ATOC   XA8,X79               Y - L.C.  TO Y - L.C.            AAA  170
          ATOC   XA9,X7A               Z - L.C.  TO Z - L.C.            AAA  171
          ATOC   XAA,XD2                         TO                     AAA  172
          ATOC   XAB,XD3                         TO                     AAA  173
          ATOC   XAC,XD4                         TO                     AAA  174
          ATOC   XAD,XD5                         TO                     AAA  175
          ATOC   XAE,XD6                         TO                     AAA  176
          ATOC   XAF,XD7                         TO                     AAA  177
          ATOC   XB0,XD8                         TO                     AAA  178
          ATOC   XB1,XD9                         TO                     AAA  179
          ATOC   XB2,XDA                         TO                     AAA  180
          ATOC   XB3,XDB                         TO                     AAA  181
          ATOC   XB4,XDC                         TO                     AAA  182
          ATOC   XB5,XDD                         TO                     AAA  183
          ATOC   XB6,XDE                         TO                     AAA  184
          ATOC   XB7,XDF                         TO                     AAA  185
          ATOC   XB8,XE0                         TO                     AAA  186
          ATOC   XB9,XE1                         TO                     AAA  187
          ATOC   XBA,XE2                         TO                     AAA  188
          ATOC   XBB,XE3                         TO                     AAA  189
          ATOC   XBC,XE4                         TO                     AAA  190
          ATOC   XBD,XE5                         TO                     AAA  191
          ATOC   XBE,XE6                         TO                     AAA  192
          ATOC   XBF,XE7                         TO                     AAA  193
          ATOC   XC0,X7B               L.BRACE   TO L.BRACE             AAA  194
          ATOC   XC1,X41               A         TO A                   AAA  195
          ATOC   XC2,X42               B         TO B                   AAA  196
          ATOC   XC3,X43               C         TO C                   AAA  197
          ATOC   XC4,X44               D         TO D                   AAA  198
          ATOC   XC5,X45               E         TO E                   AAA  199
          ATOC   XC6,X46               F         TO F                   AAA  200
          ATOC   XC7,X47               G         TO G                   AAA  201
          ATOC   XC8,X48               H         TO H                   AAA  202
          ATOC   XC9,X49               I         TO I                   AAA  203
          ATOC   XCA,XE8                         TO                     AAA  204
          ATOC   XCB,XE9                         TO                     AAA  205
          ATOC   XCC,XEA               HOOK      TO                     AAA  206
          ATOC   XCD,XEB                         TO                     AAA  207
          ATOC   XCE,XEC               FORK      TO                     AAA  208
          ATOC   XCF,XED                         TO                     AAA  209
          ATOC   XD0,X7D               R.BRACE   TO R.BRACE             AAA  210
          ATOC   XD1,X4A               J         TO J                   AAA  211
          ATOC   XD2,X4B               K         TO K                   AAA  212
          ATOC   XD3,X4C               L         TO L                   AAA  213
          ATOC   XD4,X4D               M         TO M                   AAA  214
          ATOC   XD5,X4E               N         TO N                   AAA  215
          ATOC   XD6,X4F               O         TO O                   AAA  216
          ATOC   XD7,X50               P         TO P                   AAA  217
          ATOC   XD8,X51               Q         TO Q                   AAA  218
          ATOC   XD9,X52               R         TO R                   AAA  219
          ATOC   XDA,XEE                         TO                     AAA  220
          ATOC   XDB,XEF                         TO                     AAA  221
          ATOC   XDC,XF0                         TO                     AAA  222
          ATOC   XDD,XF1                         TO                     AAA  223
          ATOC   XDE,XF2                         TO                     AAA  224
          ATOC   XDF,XF3                         TO                     AAA  225
          ATOC   XE0,X5C               REV.SLASH TO REV.SLASH           AAA  226
          ATOC   XE1,X9F                         TO                     AAA  227
          ATOC   XE2,X53               S         TO S                   AAA  228
          ATOC   XE3,X54               T         TO T                   AAA  229
          ATOC   XE4,X55               U         TO U                   AAA  230
          ATOC   XE5,X56               V         TO V                   AAA  231
          ATOC   XE6,X57               W         TO W                   AAA  232
          ATOC   XE7,X58               X         TO X                   AAA  233
          ATOC   XE8,X59               Y         TO Y                   AAA  234
          ATOC   XE9,X5A               Z         TO Z                   AAA  235
          ATOC   XEA,XF4                         TO                     AAA  236
          ATOC   XEB,XF5                         TO                     AAA  237
          ATOC   XEC,XF6               CHAIR     TO                     AAA  238
          ATOC   XED,XF7                         TO                     AAA  239
          ATOC   XEE,XF8                         TO                     AAA  240
          ATOC   XEF,XF9                         TO                     AAA  241
          ATOC   XF0,X30               0         TO 0                   AAA  242
          ATOC   XF1,X31               1         TO 1                   AAA  243
          ATOC   XF2,X32               2         TO 2                   AAA  244
          ATOC   XF3,X33               3         TO 3                   AAA  245
          ATOC   XF4,X34               4         TO 4                   AAA  246
          ATOC   XF5,X35               5         TO 5                   AAA  247
          ATOC   XF6,X36               6         TO 6                   AAA  248
          ATOC   XF7,X37               7         TO 7                   AAA  249
          ATOC   XF8,X38               8         TO 8                   AAA  250
          ATOC   XF9,X39               9         TO 9                   AAA  251
          ATOC   XFA,XFA               LVM       TO                     AAA  252
          ATOC   XFB,XFB                         TO                     AAA  253
          ATOC   XFC,XFC                         TO                     AAA  254
          ATOC   XFD,XFD                         TO                     AAA  255
          ATOC   XFE,XFE                         TO                     AAA  256
          ATOC   XFF,XFF                         TO EO                  AAA  257
          EJECT                                                         TABS1667
*#                                                                      TABS1668
************************************************************************TABS1669
*                                                                      *TABS1670
*                CTOA   (ASCII TO EBCDIC) MODULE                       *TABS1671
*                                                                      *TABS1672
*     THE CTOA MACRO CALLS MUST BE IN THE FORM--                       *TABS1673
*         CTOA   XMM,XNN                                               *TABS1674
*                WHERE       MM=ASCII HEX CODE                         *TABS1675
*                            NN=EBCDIC HEX CODE                        *TABS1676
*         ORDER OF CARDS IMMATERIAL -- 256 CARDS                       *TABS1677
*                                                                      *TABS1678
************************************************************************TABS1679
*#                                                                      TABS1680
*                                                                       TABS1681
          CTOA   X00,X00               NUL       TO NUL                 AAA  770
          CTOA   X01,X01               SOH       TO SOH                 AAA  771
          CTOA   X02,X02               STX       TO STX                 AAA  772
          CTOA   X03,X03               ETX       TO ETX                 AAA  773
          CTOA   X9C,X04                         TO PF                  AAA  774
          CTOA   X09,X05               HT        TO HT                  AAA  775
          CTOA   X86,X06                         TO LC                  AAA  776
          CTOA   X7F,X07               DEL       TO DEL                 AAA  777
          CTOA   X97,X08                         TO GE                  AAA  778
          CTOA   X8D,X09                         TO RLF                 AAA  779
          CTOA   X8E,X0A                         TO SMM                 AAA  780
          CTOA   X0B,X0B               VT        TO VT                  AAA  781
          CTOA   X0C,X0C               FF        TO FF                  AAA  782
          CTOA   X0D,X0D               CR        TO CR                  AAA  783
          CTOA   X0E,X0E               SO        TO SO                  AAA  784
          CTOA   X0F,X0F               SI        TO SI                  AAA  785
          CTOA   X10,X10               DLE       TO DLE                 AAA  786
          CTOA   X11,X11               DC1       TO DC1                 AAA  787
          CTOA   X12,X12               DC2       TO DC2                 AAA  788
          CTOA   X13,X13               DC3       TO TM                  AAA  789
          CTOA   X9D,X14                         TO RES                 AAA  790
          CTOA   X85,X15                         TO NL                  AAA  791
          CTOA   X08,X16               BS        TO BS                  AAA  792
          CTOA   X87,X17                         TO IL                  AAA  793
          CTOA   X18,X18               CAN       TO CAN                 AAA  794
          CTOA   X19,X19               EM        TO EM                  AAA  795
          CTOA   X92,X1A                         TO CC                  AAA  796
          CTOA   X8F,X1B                         TO CU1                 AAA  797
          CTOA   X1C,X1C               FS        TO IFS                 AAA  798
          CTOA   X1D,X1D               GS        TO IGS                 AAA  799
          CTOA   X1E,X1E               RS        TO IRS                 AAA  800
          CTOA   X1F,X1F               US        TO IUS                 AAA  801
          CTOA   X80,X20                         TO DS                  AAA  802
          CTOA   X81,X21                         TO SOS                 AAA  803
          CTOA   X82,X22                         TO FS                  AAA  804
          CTOA   X83,X23                         TO                     AAA  805
          CTOA   X84,X24                         TO BYP                 AAA  806
          CTOA   X0A,X25               LF        TO LF                  AAA  807
          CTOA   X17,X26               ETB       TO ETB                 AAA  808
          CTOA   X1B,X27               ESC       TO ESC                 AAA  809
          CTOA   X88,X28                         TO                     AAA  810
          CTOA   X89,X29                         TO                     AAA  811
          CTOA   X8A,X2A                         TO SM                  AAA  812
          CTOA   X8B,X2B                         TO CU2                 AAA  813
          CTOA   X8C,X2C                         TO                     AAA  814
          CTOA   X05,X2D               ENQ       TO ENQ                 AAA  815
          CTOA   X06,X2E               ACK       TO ACK                 AAA  816
          CTOA   X07,X2F               BEL       TO BEL                 AAA  817
          CTOA   X90,X30                         TO                     AAA  818
          CTOA   X91,X31                         TO                     AAA  819
          CTOA   X16,X32               SYN       TO SYN                 AAA  820
          CTOA   X93,X33                         TO                     AAA  821
          CTOA   X94,X34                         TO PN                  AAA  822
          CTOA   X95,X35                         TO RS                  AAA  823
          CTOA   X96,X36                         TO UC                  AAA  824
          CTOA   X04,X37               EOT       TO EOT                 AAA  825
          CTOA   X98,X38                         TO                     AAA  826
          CTOA   X99,X39                         TO                     AAA  827
          CTOA   X9A,X3A                         TO                     AAA  828
          CTOA   X9B,X3B                         TO CU3                 AAA  829
          CTOA   X14,X3C               DC4       TO DC4                 AAA  830
          CTOA   X15,X3D               NAK       TO NAK                 AAA  831
          CTOA   X9E,X3E                         TO                     AAA  832
          CTOA   X1A,X3F               SUB       TO SUB                 AAA  833
          CTOA   X20,X40               SP        TO SP                  AAA  834
          CTOA   XA0,X41                         TO                     AAA  835
          CTOA   XA1,X42                         TO                     AAA  836
          CTOA   XA2,X43                         TO                     AAA  837
          CTOA   XA3,X44                         TO                     AAA  838
          CTOA   XA4,X45                         TO                     AAA  839
          CTOA   XA5,X46                         TO                     AAA  840
          CTOA   XA6,X47                         TO                     AAA  841
          CTOA   XA7,X48                         TO                     AAA  842
          CTOA   XA8,X49                         TO                     AAA  843
          CTOA   X5B,X4A               [         TO CENT                AAA  844
          CTOA   X2E,X4B               .         TO .                   AAA  845
          CTOA   X3C,X4C               <         TO <                   AAA  846
          CTOA   X28,X4D               (         TO (                   AAA  847
          CTOA   X2B,X4E               +         TO +                   AAA  848
          CTOA   X21,X4F               EXCLAM.PT TO VERT.BAR            AAA  849
          CTOA   X26,X50               AMPERSAND TO AMPERSAND           AAA  850
          CTOA   XA9,X51                         TO                     AAA  851
          CTOA   XAA,X52                         TO                     AAA  852
          CTOA   XAB,X53                         TO                     AAA  853
          CTOA   XAC,X54                         TO                     AAA  854
          CTOA   XAD,X55                         TO                     AAA  855
          CTOA   XAE,X56                         TO                     AAA  856
          CTOA   XAF,X57                         TO                     AAA  857
          CTOA   XB0,X58                         TO                     AAA  858
          CTOA   XB1,X59                         TO                     AAA  859
          CTOA   X5D,X5A               ]         TO EXCLAM.PT           AAA  860
          CTOA   X24,X5B               $         TO $                   AAA  861
          CTOA   X2A,X5C               *         TO *                   AAA  862
          CTOA   X29,X5D               )         TO )                   AAA  863
          CTOA   X3B,X5E               ;         TO ;                   AAA  864
          CTOA   X5E,X5F               CIR.FLEX  TO NOT                 AAA  865
          CTOA   X2D,X60               -         TO -                   AAA  866
          CTOA   X2F,X61               /         TO /                   AAA  867
          CTOA   XB2,X62                         TO                     AAA  868
          CTOA   XB3,X63                         TO                     AAA  869
          CTOA   XB4,X64                         TO                     AAA  870
          CTOA   XB5,X65                         TO                     AAA  871
          CTOA   XB6,X66                         TO                     AAA  872
          CTOA   XB7,X67                         TO                     AAA  873
          CTOA   XB8,X68                         TO                     AAA  874
          CTOA   XB9,X69                         TO                     AAA  875
          CTOA   X7C,X6A               VERT.BAR  TO VERT.BAR            AAA  876
          CTOA   X2C,X6B               ,         TO ,                   AAA  877
          CTOA   X25,X6C               PERCENT   TO PERCENT             AAA  878
          CTOA   X5F,X6D               UNDERSCOR TO UNDERSCOR           AAA  879
          CTOA   X3E,X6E               >         TO >                   AAA  880
          CTOA   X3F,X6F               QUESTION  TO QUESTION            AAA  881
          CTOA   XBA,X70                         TO                     AAA  882
          CTOA   XBB,X71                         TO                     AAA  883
          CTOA   XBC,X72                         TO                     AAA  884
          CTOA   XBD,X73                         TO                     AAA  885
          CTOA   XBE,X74                         TO                     AAA  886
          CTOA   XBF,X75                         TO                     AAA  887
          CTOA   XC0,X76                         TO                     AAA  888
          CTOA   XC1,X77                         TO                     AAA  889
          CTOA   XC2,X78                         TO                     AAA  890
          CTOA   X60,X79               GR.ACCENT TO GR.ACCENT           AAA  891
          CTOA   X3A,X7A               COLON     TO COLON               AAA  892
          CTOA   X23,X7B               NUMBER    TO NUMBER              AAA  893
          CTOA   X40,X7C               COM.AT    TO COM.AT              AAA  894
          CTOA   X27,X7D               S.QUOTE   TO S.QUOTE             AAA  895
          CTOA   X3D,X7E               =         TO =                   AAA  896
          CTOA   X22,X7F               D.QUOTE   TO D.QUOTE             AAA  897
          CTOA   XC3,X80                         TO                     AAA  898
          CTOA   X61,X81               A - L.C.  TO A - L.C.            AAA  899
          CTOA   X62,X82               B - L.C.  TO B - L.C.            AAA  900
          CTOA   X63,X83               C - L.C.  TO C - L.C.            AAA  901
          CTOA   X64,X84               D - L.C.  TO D - L.C.            AAA  902
          CTOA   X65,X85               E - L.C.  TO E - L.C.            AAA  903
          CTOA   X66,X86               F - L.C.  TO F - L.C.            AAA  904
          CTOA   X67,X87               G - L.C.  TO G - L.C.            AAA  905
          CTOA   X68,X88               H - L.C.  TO H - L.C.            AAA  906
          CTOA   X69,X89               I - L.C.  TO I - L.C.            AAA  907
          CTOA   XC4,X8A                         TO                     AAA  908
          CTOA   XC5,X8B                         TO                     AAA  909
          CTOA   XC6,X8C                         TO                     AAA  910
          CTOA   XC7,X8D                         TO                     AAA  911
          CTOA   XC8,X8E                         TO                     AAA  912
          CTOA   XC9,X8F                         TO                     AAA  913
          CTOA   XCA,X90                         TO                     AAA  914
          CTOA   X6A,X91               J - L.C.  TO J - L.C.            AAA  915
          CTOA   X6B,X92               K - L.C.  TO K - L.C.            AAA  916
          CTOA   X6C,X93               L - L.C.  TO L - L.C.            AAA  917
          CTOA   X6D,X94               M - L.C.  TO M - L.C.            AAA  918
          CTOA   X6E,X95               N - L.C.  TO N - L.C.            AAA  919
          CTOA   X6F,X96               O - L.C.  TO O - L.C.            AAA  920
          CTOA   X70,X97               P - L.C.  TO P - L.C.            AAA  921
          CTOA   X71,X98               Q - L.C.  TO Q - L.C.            AAA  922
          CTOA   X72,X99               R - L.C.  TO R - L.C.            AAA  923
          CTOA   XCB,X9A                         TO                     AAA  924
          CTOA   XCC,X9B                         TO                     AAA  925
          CTOA   XCD,X9C                         TO                     AAA  926
          CTOA   XCE,X9D                         TO                     AAA  927
          CTOA   XCF,X9E                         TO                     AAA  928
          CTOA   XD0,X9F                         TO                     AAA  929
          CTOA   XD1,XA0                         TO                     AAA  930
          CTOA   X7E,XA1               TILDE     TO TILDE               AAA  931
          CTOA   X73,XA2               S - L.C.  TO S - L.C.            AAA  932
          CTOA   X74,XA3               T - L.C.  TO T - L.C.            AAA  933
          CTOA   X75,XA4               U - L.C.  TO U - L.C.            AAA  934
          CTOA   X76,XA5               V - L.C.  TO V - L.C.            AAA  935
          CTOA   X77,XA6               W - L.C.  TO W - L.C.            AAA  936
          CTOA   X78,XA7               X - L.C.  TO X - L.C.            AAA  937
          CTOA   X79,XA8               Y - L.C.  TO Y - L.C.            AAA  938
          CTOA   X7A,XA9               Z - L.C.  TO Z - L.C.            AAA  939
          CTOA   XD2,XAA                         TO                     AAA  940
          CTOA   XD3,XAB                         TO                     AAA  941
          CTOA   XD4,XAC                         TO                     AAA  942
          CTOA   XD5,XAD                         TO                     AAA  943
          CTOA   XD6,XAE                         TO                     AAA  944
          CTOA   XD7,XAF                         TO                     AAA  945
          CTOA   XD8,XB0                         TO                     AAA  946
          CTOA   XD9,XB1                         TO                     AAA  947
          CTOA   XDA,XB2                         TO                     AAA  948
          CTOA   XDB,XB3                         TO                     AAA  949
          CTOA   XDC,XB4                         TO                     AAA  950
          CTOA   XDD,XB5                         TO                     AAA  951
          CTOA   XDE,XB6                         TO                     AAA  952
          CTOA   XDF,XB7                         TO                     AAA  953
          CTOA   XE0,XB8                         TO                     AAA  954
          CTOA   XE1,XB9                         TO                     AAA  955
          CTOA   XE2,XBA                         TO                     AAA  956
          CTOA   XE3,XBB                         TO                     AAA  957
          CTOA   XE4,XBC                         TO                     AAA  958
          CTOA   XE5,XBD                         TO                     AAA  959
          CTOA   XE6,XBE                         TO                     AAA  960
          CTOA   XE7,XBF                         TO                     AAA  961
          CTOA   X7B,XC0               L.BRACE   TO L.BRACE             AAA  962
          CTOA   X41,XC1               A         TO A                   AAA  963
          CTOA   X42,XC2               B         TO B                   AAA  964
          CTOA   X43,XC3               C         TO C                   AAA  965
          CTOA   X44,XC4               D         TO D                   AAA  966
          CTOA   X45,XC5               E         TO E                   AAA  967
          CTOA   X46,XC6               F         TO F                   AAA  968
          CTOA   X47,XC7               G         TO G                   AAA  969
          CTOA   X48,XC8               H         TO H                   AAA  970
          CTOA   X49,XC9               I         TO I                   AAA  971
          CTOA   XE8,XCA                         TO                     AAA  972
          CTOA   XE9,XCB                         TO                     AAA  973
          CTOA   XEA,XCC                         TO HOOK                AAA  974
          CTOA   XEB,XCD                         TO                     AAA  975
          CTOA   XEC,XCE                         TO FORK                AAA  976
          CTOA   XED,XCF                         TO                     AAA  977
          CTOA   X7D,XD0               R.BRACE   TO R.BRACE             AAA  978
          CTOA   X4A,XD1               J         TO J                   AAA  979
          CTOA   X4B,XD2               K         TO K                   AAA  980
          CTOA   X4C,XD3               L         TO L                   AAA  981
          CTOA   X4D,XD4               M         TO M                   AAA  982
          CTOA   X4E,XD5               N         TO N                   AAA  983
          CTOA   X4F,XD6               O         TO O                   AAA  984
          CTOA   X50,XD7               P         TO P                   AAA  985
          CTOA   X51,XD8               Q         TO Q                   AAA  986
          CTOA   X52,XD9               R         TO R                   AAA  987
          CTOA   XEE,XDA                         TO                     AAA  988
          CTOA   XEF,XDB                         TO                     AAA  989
          CTOA   XF0,XDC                         TO                     AAA  990
          CTOA   XF1,XDD                         TO                     AAA  991
          CTOA   XF2,XDE                         TO                     AAA  992
          CTOA   XF3,XDF                         TO                     AAA  993
          CTOA   X5C,XE0               REV.SLASH TO REV.SLASH           AAA  994
          CTOA   X9F,XE1                         TO                     AAA  995
          CTOA   X53,XE2               S         TO S                   AAA  996
          CTOA   X54,XE3               T         TO T                   AAA  997
          CTOA   X55,XE4               U         TO U                   AAA  998
          CTOA   X56,XE5               V         TO V                   AAA  999
          CTOA   X57,XE6               W         TO W                   AAA 1000
          CTOA   X58,XE7               X         TO X                   AAA 1001
          CTOA   X59,XE8               Y         TO Y                   AAA 1002
          CTOA   X5A,XE9               Z         TO Z                   AAA 1003
          CTOA   XF4,XEA                         TO                     AAA 1004
          CTOA   XF5,XEB                         TO                     AAA 1005
          CTOA   XF6,XEC                         TO CHAIR               AAA 1006
          CTOA   XF7,XED                         TO                     AAA 1007
          CTOA   XF8,XEE                         TO                     AAA 1008
          CTOA   XF9,XEF                         TO                     AAA 1009
          CTOA   X30,XF0               0         TO 0                   AAA 1010
          CTOA   X31,XF1               1         TO 1                   AAA 1011
          CTOA   X32,XF2               2         TO 2                   AAA 1012
          CTOA   X33,XF3               3         TO 3                   AAA 1013
          CTOA   X34,XF4               4         TO 4                   AAA 1014
          CTOA   X35,XF5               5         TO 5                   AAA 1015
          CTOA   X36,XF6               6         TO 6                   AAA 1016
          CTOA   X37,XF7               7         TO 7                   AAA 1017
          CTOA   X38,XF8               8         TO 8                   AAA 1018
          CTOA   X39,XF9               9         TO 9                   AAA 1019
          CTOA   XFA,XFA                         TO LVM                 AAA 1020
          CTOA   XFB,XFB                         TO                     AAA 1021
          CTOA   XFC,XFC                         TO                     AAA 1022
          CTOA   XFD,XFD                         TO                     AAA 1023
          CTOA   XFE,XFE                         TO                     AAA 1024
          CTOA   XFF,XFF               EO        TO                     AAA 1025
          EJECT                                                         TABS1938
*#                                                                      TABS1939
*                                                                       TABS1940
************************************************************************TABS1941
*                                                                      *TABS1942
*                CTOX   (ASCII TO D.P.C.) MODULE                       *TABS1943
*                                                                      *TABS1944
*     THE CTOX  MACRO MUST BE IN THE FORM-                              TABS1945
*         CTOX   XNN,BMM                                                TABS1946
*                WHERE     NN= ASCII CODE                              *TABS1947
*                        MM= OCTAL CODE FOR EQUIVALENT D.C. CHR        *TABS1948
*     ORDER UNIMPORTANT                                                *TABS1949
*                                                                      *TABS1950
************************************************************************TABS1951
*                                                                       TABS1952
*#                                                                      TABS1953
          CTOX   X00,B55               NUL       TO SP        COLLATED  AAA 1026
          CTOX   X01,B62               SOH       TO ]         COLLATED  AAA 1027
          CTOX   X02,B64               STX       TO "         COLLATED  AAA 1028
          CTOX   X03,B60               ETX       TO #         COLLATED  AAA 1029
          CTOX   X9C,B55                         TO           COLLATED  AAA 1030
          CTOX   X09,B52               HT        TO )         COLLATED  AAA 1031
          CTOX   X86,B55                         TO           COLLATED  AAA 1032
          CTOX   X7F,B65               DEL       TO _         COLLATED  AAA 1033
          CTOX   X97,B55                         TO           COLLATED  AAA 1034
          CTOX   X8D,B55                         TO           COLLATED  AAA 1035
          CTOX   X8E,B55                         TO           COLLATED  AAA 1036
          CTOX   X0B,B45               VT        TO +         COLLATED  AAA 1037
          CTOX   X0C,B56               FF        TO ,         COLLATED  AAA 1038
          CTOX   X0D,B46               CR        TO -         COLLATED  AAA 1039
          CTOX   X0E,B57               SO        TO .         COLLATED  AAA 1040
          CTOX   X0F,B50               SI        TO /         COLLATED  AAA 1041
          CTOX   X10,B33               DLE       TO 0         COLLATED  AAA 1042
          CTOX   X11,B34               DC1       TO 1         COLLATED  AAA 1043
          CTOX   X12,B35               DC2       TO 2         COLLATED  AAA 1044
          CTOX   X13,B36               DC3       TO 3         COLLATED  AAA 1045
          CTOX   X9D,B55                         TO           COLLATED  AAA 1046
          CTOX   X85,B55                         TO           COLLATED  AAA 1047
          CTOX   X08,B51               BS        TO (         COLLATED  AAA 1048
          CTOX   X87,B55                         TO           COLLATED  AAA 1049
          CTOX   X18,B43               CAN       TO 8         COLLATED  AAA 1050
          CTOX   X19,B44               EM        TO 9         COLLATED  AAA 1051
          CTOX   X92,B55                         TO           COLLATED  AAA 1052
          CTOX   X8F,B55                         TO           COLLATED  AAA 1053
          CTOX   X1C,B61               FS        TO [         COLLATED  AAA 1054
          CTOX   X1D,B54               GS        TO =         COLLATED  AAA 1055
          CTOX   X1E,B73               RS        TO >         COLLATED  AAA 1056
          CTOX   X1F,B71               US        TO ?         COLLATED  AAA 1057
          CTOX   X80,B55                         TO           COLLATED  AAA 1058
          CTOX   X81,B55                         TO           COLLATED  AAA 1059
          CTOX   X82,B55                         TO           COLLATED  AAA 1060
          CTOX   X83,B55                         TO           COLLATED  AAA 1061
          CTOX   X84,B55                         TO           COLLATED  AAA 1062
          CTOX   X0A,B47               LF        TO *         COLLATED  AAA 1063
          CTOX   X17,B42               ETB       TO 7         COLLATED  AAA 1064
          CTOX   X1B,B77               ESC       TO ;         COLLATED  AAA 1065
          CTOX   X88,B55                         TO           COLLATED  AAA 1066
          CTOX   X89,B55                         TO           COLLATED  AAA 1067
          CTOX   X8A,B55                         TO           COLLATED  AAA 1068
          CTOX   X8B,B55                         TO           COLLATED  AAA 1069
          CTOX   X8C,B55                         TO           COLLATED  AAA 1070
          IFEQ   IP.CSET,IP.C63,1 
          CTOX   X05,B55              ENQ        TO 
          IFNE   IP.CSET,IP.C63,1 
          CTOX   X05,B63               ENQ       TO           COLLATED  AAA 1071
          CTOX   X06,B67               ACK       TO &         COLLATED  AAA 1072
          CTOX   X07,B70               BEL       TO '         COLLATED  AAA 1073
          CTOX   X90,B55                         TO           COLLATED  AAA 1074
          CTOX   X91,B55                         TO           COLLATED  AAA 1075
          CTOX   X16,B41               SYN       TO 6         COLLATED  AAA 1076
          CTOX   X93,B55                         TO           COLLATED  AAA 1077
          CTOX   X94,B55                         TO           COLLATED  AAA 1078
          CTOX   X95,B55                         TO           COLLATED  AAA 1079
          CTOX   X96,B55                         TO           COLLATED  AAA 1080
          CTOX   X04,B53               EOT       TO $         COLLATED  AAA 1081
          CTOX   X98,B55                         TO           COLLATED  AAA 1082
          CTOX   X99,B55                         TO           COLLATED  AAA 1083
          CTOX   X9A,B55                         TO           COLLATED  AAA 1084
          CTOX   X9B,B55                         TO           COLLATED  AAA 1085
          CTOX   X14,B37               DC4       TO 4         COLLATED  AAA 1086
          CTOX   X15,B40               NAK       TO 5         COLLATED  AAA 1087
          CTOX   X9E,B55                         TO           COLLATED  AAA 1088
          IFEQ   IP.CSET,IP.C63,1 
          CTOX   X1A,B63              SUB        TO PERCENT 
          IFNE   IP.CSET,IP.C63,1 
          CTOX   X1A,B00               SUB       TO :         COLLATED  AAA 1089
          CTOX   X20,B55               SP        TO SP        COLLATED  AAA 1090
          CTOX   XA0,B55                         TO           COLLATED  AAA 1091
          CTOX   XA1,B55                         TO           COLLATED  AAA 1092
          CTOX   XA2,B55                         TO           COLLATED  AAA 1093
          CTOX   XA3,B55                         TO           COLLATED  AAA 1094
          CTOX   XA4,B55                         TO           COLLATED  AAA 1095
          CTOX   XA5,B55                         TO           COLLATED  AAA 1096
          CTOX   XA6,B55                         TO           COLLATED  AAA 1097
          CTOX   XA7,B55                         TO           COLLATED  AAA 1098
          CTOX   XA8,B55                         TO           COLLATED  AAA 1099
          CTOX   X5B,B61               [         TO [         COLLATED  AAA 1100
          CTOX   X2E,B57               .         TO .         COLLATED  AAA 1101
          CTOX   X3C,B72               <         TO <         COLLATED  AAA 1102
          CTOX   X28,B51               (         TO (         COLLATED  AAA 1103
          CTOX   X2B,B45               +         TO +         COLLATED  AAA 1104
          CTOX   X21,B66               EXCLAM.PT TO !         COLLATED  AAA 1105
          CTOX   X26,B67               AMPERSAND TO &         COLLATED  AAA 1106
          CTOX   XA9,B55                         TO           COLLATED  AAA 1107
          CTOX   XAA,B55                         TO           COLLATED  AAA 1108
          CTOX   XAB,B55                         TO           COLLATED  AAA 1109
          CTOX   XAC,B55                         TO           COLLATED  AAA 1110
          CTOX   XAD,B55                         TO           COLLATED  AAA 1111
          CTOX   XAE,B55                         TO           COLLATED  AAA 1112
          CTOX   XAF,B55                         TO           COLLATED  AAA 1113
          CTOX   XB0,B55                         TO           COLLATED  AAA 1114
          CTOX   XB1,B55                         TO           COLLATED  AAA 1115
          CTOX   X5D,B62               ]         TO ]         COLLATED  AAA 1116
          CTOX   X24,B53               $         TO $         COLLATED  AAA 1117
          CTOX   X2A,B47               *         TO *         COLLATED  AAA 1118
          CTOX   X29,B52               )         TO )         COLLATED  AAA 1119
          CTOX   X3B,B77               ;         TO ;         COLLATED  AAA 1120
          CTOX   X5E,B76               CIR.FLEX  TO ^         COLLATED  AAA 1121
          CTOX   X2D,B46               -         TO -         COLLATED  AAA 1122
          CTOX   X2F,B50               /         TO /         COLLATED  AAA 1123
          CTOX   XB2,B55                         TO           COLLATED  AAA 1124
          CTOX   XB3,B55                         TO           COLLATED  AAA 1125
          CTOX   XB4,B55                         TO           COLLATED  AAA 1126
          CTOX   XB5,B55                         TO           COLLATED  AAA 1127
          CTOX   XB6,B55                         TO           COLLATED  AAA 1128
          CTOX   XB7,B55                         TO           COLLATED  AAA 1129
          CTOX   XB8,B55                         TO           COLLATED  AAA 1130
          CTOX   XB9,B55                         TO           COLLATED  AAA 1131
          CTOX   X7C,B75               VERT.BAR  TO \         COLLATED  AAA 1132
          CTOX   X2C,B56               ,         TO ,         COLLATED  AAA 1133
          IFEQ   IP.CSET,IP.C63,1 
          CTOX   X25,B55              PERCENT    TO 
          IFNE   IP.CSET,IP.C63,1 
          CTOX   X25,B63               PERCENT   TO PERCENT   COLLATED  AAA 1134
          CTOX   X5F,B65               UNDERSCOR TO _         COLLATED  AAA 1135
          CTOX   X3E,B73               >         TO >         COLLATED  AAA 1136
          CTOX   X3F,B71               QUESTION  TO ?         COLLATED  AAA 1137
          CTOX   XBA,B55                         TO           COLLATED  AAA 1138
          CTOX   XBB,B55                         TO           COLLATED  AAA 1139
          CTOX   XBC,B55                         TO           COLLATED  AAA 1140
          CTOX   XBD,B55                         TO           COLLATED  AAA 1141
          CTOX   XBE,B55                         TO           COLLATED  AAA 1142
          CTOX   XBF,B55                         TO           COLLATED  AAA 1143
          CTOX   XC0,B55                         TO           COLLATED  AAA 1144
          CTOX   XC1,B55                         TO           COLLATED  AAA 1145
          CTOX   XC2,B55                         TO           COLLATED  AAA 1146
          CTOX   X60,B74               GR.ACCENT TO @         COLLATED  AAA 1147
          IFEQ   IP.CSET,IP.C63,1 
          CTOX   X3A,B63              COBOL      TO  PERCENT
          IFNE   IP.CSET,IP.C63,1 
          CTOX   X3A,B00               COLON     TO COLON     COLLATED  AAA 1148
          CTOX   X23,B60               NUMBER    TO #         COLLATED  AAA 1149
          CTOX   X40,B74               COM.AT    TO @         COLLATED  AAA 1150
          CTOX   X27,B70               S.QUOTE   TO '         COLLATED  AAA 1151
          CTOX   X3D,B54               =         TO =         COLLATED  AAA 1152
          CTOX   X22,B64               D.QUOTE   TO "         COLLATED  AAA 1153
          CTOX   XC3,B55                         TO           COLLATED  AAA 1154
          CTOX   X61,B01               A - L.C.  TO A         COLLATED  AAA 1155
          CTOX   X62,B02               B - L.C.  TO B         COLLATED  AAA 1156
          CTOX   X63,B03               C - L.C.  TO C         COLLATED  AAA 1157
          CTOX   X64,B04               D - L.C.  TO D         COLLATED  AAA 1158
          CTOX   X65,B05               E - L.C.  TO E         COLLATED  AAA 1159
          CTOX   X66,B06               F - L.C.  TO F         COLLATED  AAA 1160
          CTOX   X67,B07               G - L.C.  TO G         COLLATED  AAA 1161
          CTOX   X68,B10               H - L.C.  TO H         COLLATED  AAA 1162
          CTOX   X69,B11               I - L.C.  TO I         COLLATED  AAA 1163
          CTOX   XC4,B55                         TO           COLLATED  AAA 1164
          CTOX   XC5,B55                         TO           COLLATED  AAA 1165
          CTOX   XC6,B55                         TO           COLLATED  AAA 1166
          CTOX   XC7,B55                         TO           COLLATED  AAA 1167
          CTOX   XC8,B55                         TO           COLLATED  AAA 1168
          CTOX   XC9,B55                         TO           COLLATED  AAA 1169
          CTOX   XCA,B55                         TO           COLLATED  AAA 1170
          CTOX   X6A,B12               J - L.C.  TO J         COLLATED  AAA 1171
          CTOX   X6B,B13               K - L.C.  TO K         COLLATED  AAA 1172
          CTOX   X6C,B14               L - L.C.  TO L         COLLATED  AAA 1173
          CTOX   X6D,B15               M - L.C.  TO M         COLLATED  AAA 1174
          CTOX   X6E,B16               N - L.C.  TO N         COLLATED  AAA 1175
          CTOX   X6F,B17               O - L.C.  TO O         COLLATED  AAA 1176
          CTOX   X70,B20               P - L.C.  TO P         COLLATED  AAA 1177
          CTOX   X71,B21               Q - L.C.  TO Q         COLLATED  AAA 1178
          CTOX   X72,B22               R - L.C.  TO R         COLLATED  AAA 1179
          CTOX   XCB,B55                         TO           COLLATED  AAA 1180
          CTOX   XCC,B55                         TO           COLLATED  AAA 1181
          CTOX   XCD,B55                         TO           COLLATED  AAA 1182
          CTOX   XCE,B55                         TO           COLLATED  AAA 1183
          CTOX   XCF,B55                         TO           COLLATED  AAA 1184
          CTOX   XD0,B55                         TO           COLLATED  AAA 1185
          CTOX   XD1,B55                         TO           COLLATED  AAA 1186
          CTOX   X7E,B76               TILDE     TO ^         COLLATED  AAA 1187
          CTOX   X73,B23               S - L.C.  TO S         COLLATED  AAA 1188
          CTOX   X74,B24               T - L.C.  TO T         COLLATED  AAA 1189
          CTOX   X75,B25               U - L.C.  TO U         COLLATED  AAA 1190
          CTOX   X76,B26               V - L.C.  TO V         COLLATED  AAA 1191
          CTOX   X77,B27               W - L.C.  TO W         COLLATED  AAA 1192
          CTOX   X78,B30               X - L.C.  TO X         COLLATED  AAA 1193
          CTOX   X79,B31               Y - L.C.  TO Y         COLLATED  AAA 1194
          CTOX   X7A,B32               Z - L.C.  TO Z         COLLATED  AAA 1195
          CTOX   XD2,B55                         TO           COLLATED  AAA 1196
          CTOX   XD3,B55                         TO           COLLATED  AAA 1197
          CTOX   XD4,B55                         TO           COLLATED  AAA 1198
          CTOX   XD5,B55                         TO           COLLATED  AAA 1199
          CTOX   XD6,B55                         TO           COLLATED  AAA 1200
          CTOX   XD7,B55                         TO           COLLATED  AAA 1201
          CTOX   XD8,B55                         TO           COLLATED  AAA 1202
          CTOX   XD9,B55                         TO           COLLATED  AAA 1203
          CTOX   XDA,B55                         TO           COLLATED  AAA 1204
          CTOX   XDB,B55                         TO           COLLATED  AAA 1205
          CTOX   XDC,B55                         TO           COLLATED  AAA 1206
          CTOX   XDD,B55                         TO           COLLATED  AAA 1207
          CTOX   XDE,B55                         TO           COLLATED  AAA 1208
          CTOX   XDF,B55                         TO           COLLATED  AAA 1209
          CTOX   XE0,B55                         TO           COLLATED  AAA 1210
          CTOX   XE1,B55                         TO           COLLATED  AAA 1211
          CTOX   XE2,B55                         TO           COLLATED  AAA 1212
          CTOX   XE3,B55                         TO           COLLATED  AAA 1213
          CTOX   XE4,B55                         TO           COLLATED  AAA 1214
          CTOX   XE5,B55                         TO           COLLATED  AAA 1215
          CTOX   XE6,B55                         TO           COLLATED  AAA 1216
          CTOX   XE7,B55                         TO           COLLATED  AAA 1217
          CTOX   X7B,B72               L.BRACE   TO <,+0      COLLATED  AAA 1218
          CTOX   X41,B01               A         TO A         COLLATED  AAA 1219
          CTOX   X42,B02               B         TO B         COLLATED  AAA 1220
          CTOX   X43,B03               C         TO C         COLLATED  AAA 1221
          CTOX   X44,B04               D         TO D         COLLATED  AAA 1222
          CTOX   X45,B05               E         TO E         COLLATED  AAA 1223
          CTOX   X46,B06               F         TO F         COLLATED  AAA 1224
          CTOX   X47,B07               G         TO G         COLLATED  AAA 1225
          CTOX   X48,B10               H         TO H         COLLATED  AAA 1226
          CTOX   X49,B11               I         TO I         COLLATED  AAA 1227
          CTOX   XE8,B55                         TO           COLLATED  AAA 1228
          CTOX   XE9,B55                         TO           COLLATED  AAA 1229
          CTOX   XEA,B55                         TO           COLLATED  AAA 1230
          CTOX   XEB,B55                         TO           COLLATED  AAA 1231
          CTOX   XEC,B55                         TO           COLLATED  AAA 1232
          CTOX   XED,B55                         TO           COLLATED  AAA 1233
          CTOX   X7D,B66               R.BRACE   TO !,-0      COLLATED  AAA 1234
          CTOX   X4A,B12               J         TO J         COLLATED  AAA 1235
          CTOX   X4B,B13               K         TO K         COLLATED  AAA 1236
          CTOX   X4C,B14               L         TO L         COLLATED  AAA 1237
          CTOX   X4D,B15               M         TO M         COLLATED  AAA 1238
          CTOX   X4E,B16               N         TO N         COLLATED  AAA 1239
          CTOX   X4F,B17               O         TO O         COLLATED  AAA 1240
          CTOX   X50,B20               P         TO P         COLLATED  AAA 1241
          CTOX   X51,B21               Q         TO Q         COLLATED  AAA 1242
          CTOX   X52,B22               R         TO R         COLLATED  AAA 1243
          CTOX   XEE,B55                         TO           COLLATED  AAA 1244
          CTOX   XEF,B55                         TO           COLLATED  AAA 1245
          CTOX   XF0,B55                         TO           COLLATED  AAA 1246
          CTOX   XF1,B55                         TO           COLLATED  AAA 1247
          CTOX   XF2,B55                         TO           COLLATED  AAA 1248
          CTOX   XF3,B55                         TO           COLLATED  AAA 1249
          CTOX   X5C,B75               REV.SLASH TO \         COLLATED  AAA 1250
          CTOX   X9F,B55                         TO           COLLATED  AAA 1251
          CTOX   X53,B23               S         TO S         COLLATED  AAA 1252
          CTOX   X54,B24               T         TO T         COLLATED  AAA 1253
          CTOX   X55,B25               U         TO U         COLLATED  AAA 1254
          CTOX   X56,B26               V         TO V         COLLATED  AAA 1255
          CTOX   X57,B27               W         TO W         COLLATED  AAA 1256
          CTOX   X58,B30               X         TO X         COLLATED  AAA 1257
          CTOX   X59,B31               Y         TO Y         COLLATED  AAA 1258
          CTOX   X5A,B32               Z         TO Z         COLLATED  AAA 1259
          CTOX   XF4,B55                         TO           COLLATED  AAA 1260
          CTOX   XF5,B55                         TO           COLLATED  AAA 1261
          CTOX   XF6,B55                         TO           COLLATED  AAA 1262
          CTOX   XF7,B55                         TO           COLLATED  AAA 1263
          CTOX   XF8,B55                         TO           COLLATED  AAA 1264
          CTOX   XF9,B55                         TO           COLLATED  AAA 1265
          CTOX   X30,B33               0         TO 0         COLLATED  AAA 1266
          CTOX   X31,B34               1         TO 1         COLLATED  AAA 1267
          CTOX   X32,B35               2         TO 2         COLLATED  AAA 1268
          CTOX   X33,B36               3         TO 3         COLLATED  AAA 1269
          CTOX   X34,B37               4         TO 4         COLLATED  AAA 1270
          CTOX   X35,B40               5         TO 5         COLLATED  AAA 1271
          CTOX   X36,B41               6         TO 6         COLLATED  AAA 1272
          CTOX   X37,B42               7         TO 7         COLLATED  AAA 1273
          CTOX   X38,B43               8         TO 8         COLLATED  AAA 1274
          CTOX   X39,B44               9         TO 9         COLLATED  AAA 1275
          CTOX   XFA,B55                         TO           COLLATED  AAA 1276
          CTOX   XFB,B55                         TO           COLLATED  AAA 1277
          CTOX   XFC,B55                         TO           COLLATED  AAA 1278
          CTOX   XFD,B55                         TO           COLLATED  AAA 1279
          CTOX   XFE,B55                         TO           COLLATED  AAA 1280
          CTOX   XFF,B55               EO        TO           COLLATED  AAA 1281
          EJECT                                                         TABS1210
*#                                                                      TABS1211
************************************************************************TABS1212
*                                                                      *TABS1213
*                PUNCH CODE                                            *TABS1214
*                                                                      *TABS1215
**
*         PUNCH CODES ARE TO BE INDEXED ON THE BASIS OF ZONE PUNCHES   *TABS1216
*                (32 TYPES), AND SINGLE NUMERIC DIGITS(SPACE, 1 TO 7)  *TABS1217
*         IN PUNCH CODE REPRESENTATION                                 *TABS1218
*                Y= A 12 PUNCH                                         *TABS1219
*                X= AN 11 PUNCH                                        *TABS1220
*         ZONES ARE INDEXED 0 TO 31 DEPENDING ON VALUES OF YX089 PUNCHESTABS1221
*                I.E.  0=SPACE      (00000)                            *TABS1222
*                      1=9 PUNCH    (00001)                            *TABS1223
*                      2=8 PUNCH    (00010)                            *TABS1224
*                      3= 8-9 PUN   (00011)                            *TABS1225
*                      4= 0 PUN     (00100)                            *TABS1226
*                      5= 0-9 PUNCH (00101)    ETC.                    *TABS1227
*         WITHIN ZONES ITEMS ARE ARRANGED AS                           *TABS1228
*                      ZONE PUNCHES                                    *TABS1229
*                      ZONE-1 PUNCHES                                  *TABS1230
*                      ZONE-2                                          *TABS1231
*                      .                                               *TABS1232
*                      .                                               *TABS1233
*                      .                                               *TABS1234
*                      ZONE-7 PUNCHES                                  *TABS1235
*                                                                      *TABS1236
           SPACE    1 
*                                                                      *TABS1237
************************************************************************TABS1238
*#                                                                      TABS1239
*                                                                       TABS1240
 I        SET    0                                                      TABS1241
 PZNC     ECHO    ,S=(,9,8,98,0,09,08,098,X,X9,X8,X98,X0,X09,X08,X098,Y,TABS1242
,Y9,Y8,Y98,Y0,Y09,Y08,Y098,YX,YX9,YX8,YX98,YX0,YX09,YX08,YX098),Q=(0,0,1TABS1243
,,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,A,A,B,B,C,C,D,D,E,E,F,F)            TABS1244
 I        SET    I+1                                                    TABS1245
 II       DECMIC I,2                                                    TABS1246
          IFC    EQ, "II" 03 ,2                                         TABS1247
 I        SET    1                                                      TABS1248
 II       DECMIC I,2                                                    TABS1249
 IF1      IFC    EQ, "II" 01                                            TABS1250
          ECHO   ,R=(,1,2,3,4,5,6,7),RR=(0,1,2,3,4,5,6,7)               TABS1251
 IF1      ENDIF                                                         TABS1252
 IF2      IFC    EQ, "II" 02                                            TABS1253
          ECHO   ,R=(,1,2,3,4,5,6,7),RR=(8,9,A,B,C,D,E,F)               TABS1254
 IF2      ENDIF                                                         TABS1255
 P_S_R    MICRO  1,3, X_Q_RR                                            TABS1256
 PZNC     ENDD                                                          TABS1257
* NOTE P_Q_CC = P(PUNCH CODE)                                           TABS1258
          EJECT                                                         TABS1259
*#                                                                      TABS1260
************************************************************************TABS1261
*                                                                      *TABS1262
*                PTOA  (PUNCH TO EBCDIC) MODULE                        *TABS1263
*     THE PTOA MACRO MUST BE IN THE FORM                               *TABS1264
*         PTOA   PCCC,XNN                                              *TABS1265
*             WHERE CCC IS 0 TO 6 CHRS REPRESENTING THE PUNCH CODE     *TABS1266
*                            Y=12-PUNCH                                *TABS1267
*                            X=11-PUNCH                                *TABS1268
*                            0,1,2,3,4,5,6,7,8,9 ARE OTHER LEGAL PUNCH *TABS1269
*                         NN=EBCDIC HEX CODE FOR EQUIV. EBCDIC CHR     *TABS1270
*     ORDER NOT IMPORTANT                                              *TABS1271
*                                                                      *TABS1272
************************************************************************TABS1273
*#                                                                      TABS1274
 ZY0981   EQU    5403B                                                  TABS1275
 ZY91     EQU    4401B                                                  TABS1276
 ZY92     EQU    4201B                                                  TABS1277
 ZY93     EQU    4101B                                                  TABS1278
 ZY94     EQU    4041B                                                  TABS1279
 ZY95     EQU    4021B                                                  TABS1280
 ZY96     EQU    4011B                                                  TABS1281
 ZY97     EQU    4005B                                                  TABS1282
 ZY98     EQU    4003B                                                  TABS1283
 ZY981    EQU    4403B                                                  TABS1284
 ZY982    EQU    4203B                                                  TABS1285
 ZY983    EQU    4103B                                                  TABS1286
 ZY984    EQU    4043B                                                  TABS1287
 ZY985    EQU    4023B                                                  TABS1288
 ZY986    EQU    4013B                                                  TABS1289
 ZY987    EQU    4007B                                                  TABS1290
 ZYX981   EQU    6403B                                                  TABS1291
 ZX91     EQU    2401B                                                  TABS1292
 ZX92     EQU    2201B                                                  TABS1293
 ZX93     EQU    2101B                                                  TABS1294
 ZX94     EQU    2041B                                                  TABS1295
 ZX95     EQU    2021B                                                  TABS1296
 ZX96     EQU    2011B                                                  TABS1297
 ZX97     EQU    2005B                                                  TABS1298
 ZX98     EQU    2003B                                                  TABS1299
 ZX981    EQU    2403B                                                  TABS1300
 ZX982    EQU    2203B                                                  TABS1301
 ZX983    EQU    2103B                                                  TABS1302
 ZX984    EQU    2043B                                                  TABS1303
 ZX985    EQU    2023B                                                  TABS1304
 ZX986    EQU    2013B                                                  TABS1305
 ZX987    EQU    2007B                                                  TABS1306
 ZX0981   EQU    3403B                                                  TABS1307
 Z091     EQU    1401B                                                  TABS1308
 Z092     EQU    1201B                                                  TABS1309
 Z093     EQU    1101B                                                  TABS1310
 Z094     EQU    1041B                                                  TABS1311
 Z095     EQU    1021B                                                  TABS1312
 Z096     EQU    1011B                                                  TABS1313
 Z097     EQU    1005B                                                  TABS1314
 Z098     EQU    1003B                                                  TABS1315
 Z0981    EQU    1403B                                                  TABS1316
 Z0982    EQU    1203B                                                  TABS1317
 Z0983    EQU    1103B                                                  TABS1318
 Z0984    EQU    1043B                                                  TABS1319
 Z0985    EQU    1023B                                                  TABS1320
 Z0986    EQU    1013B                                                  TABS1321
 Z0987    EQU    1007B                                                  TABS1322
 ZYX0981  EQU    7403B                                                  TABS1323
 Z91      EQU    0401B                                                  TABS1324
 Z92      EQU    0201B                                                  TABS1325
 Z93      EQU    0101B                                                  TABS1326
 Z94      EQU    0041B                                                  TABS1327
 Z95      EQU    0021B                                                  TABS1328
 Z96      EQU    0011B                                                  TABS1329
 Z97      EQU    0005B                                                  TABS1330
 Z98      EQU    0003B                                                  TABS1331
 Z981     EQU    0403B                                                  TABS1332
 Z982     EQU    0203B                                                  TABS1333
 Z983     EQU    0103B                                                  TABS1334
 Z984     EQU    0043B                                                  TABS1335
 Z985     EQU    0023B                                                  TABS1336
 Z986     EQU    0013B                                                  TABS1337
 Z987     EQU    0007B                                                  TABS1338
 Z        EQU    0                                                      TABS1339
 ZY091    EQU    5401B                                                  TABS1340
 ZY092    EQU    5201B                                                  TABS1341
 ZY093    EQU    5101B                                                  TABS1342
 ZY094    EQU    5041B                                                  TABS1343
 ZY095    EQU    5021B                                                  TABS1344
 ZY096    EQU    5011B                                                  TABS1345
 ZY097    EQU    5005B                                                  TABS1346
 ZY098    EQU    5003B                                                  TABS1347
 ZY81     EQU    4402B                                                  TABS1348
 ZY82     EQU    4202B                                                  TABS1349
 ZY83     EQU    4102B                                                  TABS1350
 ZY84     EQU    4042B                                                  TABS1351
 ZY85     EQU    4022B                                                  TABS1352
 ZY86     EQU    4012B                                                  TABS1353
 ZY87     EQU    4006B                                                  TABS1354
 ZY       EQU    4000B                                                  TABS1355
 ZYX91    EQU    6401B                                                  TABS1356
 ZYX92    EQU    6201B                                                  TABS1357
 ZYX93    EQU    6101B                                                  TABS1358
 ZYX94    EQU    6041B                                                  TABS1359
 ZYX95    EQU    6021B                                                  TABS1360
 ZYX96    EQU    6011B                                                  TABS1361
 ZYX97    EQU    6005B                                                  TABS1362
 ZYX98    EQU    6003B                                                  TABS1363
 ZX81     EQU    2402B                                                  TABS1364
 ZX82     EQU    2202B                                                  TABS1365
 ZX83     EQU    2102B                                                  TABS1366
 ZX84     EQU    2042B                                                  TABS1367
 ZX85     EQU    2022B                                                  TABS1368
 ZX86     EQU    2012B                                                  TABS1369
 ZX87     EQU    2006B                                                  TABS1370
 ZX       EQU    2000B                                                  TABS1371
 Z01      EQU    1400B                                                  TABS1372
 ZX092    EQU    3201B                                                  TABS1373
 ZX093    EQU    3101B                                                  TABS1374
 ZX094    EQU    3041B                                                  TABS1375
 ZX095    EQU    3021B                                                  TABS1376
 ZX096    EQU    3011B                                                  TABS1377
 ZX097    EQU    3005B                                                  TABS1378
 ZX098    EQU    3003B                                                  TABS1379
 Z081     EQU    1402B                                                  TABS1380
 ZYX      EQU    6000B                                                  TABS1381
 Z083     EQU    1102B                                                  TABS1382
 Z084     EQU    1042B                                                  TABS1383
 Z085     EQU    1022B                                                  TABS1384
 Z086     EQU    1012B                                                  TABS1385
 Z087     EQU    1006B                                                  TABS1386
 ZYX0     EQU    7000B                                                  TABS1387
 ZYX091   EQU    7401B                                                  TABS1388
 ZYX092   EQU    7201B                                                  TABS1389
 ZYX093   EQU    7101B                                                  TABS1390
 ZYX094   EQU    7041B                                                  TABS1391
 ZYX095   EQU    7021B                                                  TABS1392
 ZYX096   EQU    7011B                                                  TABS1393
 ZYX097   EQU    7005B                                                  TABS1394
 ZYX098   EQU    7003B                                                  TABS1395
 Z81      EQU    0402B                                                  TABS1396
 Z82      EQU    0202B                                                  TABS1397
 Z83      EQU    0102B                                                  TABS1398
 Z84      EQU    0042B                                                  TABS1399
 Z85      EQU    0022B                                                  TABS1400
 Z86      EQU    0012B                                                  TABS1401
 Z87      EQU    0006B                                                  TABS1402
 ZY081    EQU    5402B                                                  TABS1403
 ZY01     EQU    5400B                                                  TABS1404
 ZY02     EQU    5200B                                                  TABS1405
 ZY03     EQU    5100B                                                  TABS1406
 ZY04     EQU    5040B                                                  TABS1407
 ZY05     EQU    5020B                                                  TABS1408
 ZY06     EQU    5010B                                                  TABS1409
 ZY07     EQU    5004B                                                  TABS1410
 ZY08     EQU    5002B                                                  TABS1411
 ZY09     EQU    5001B                                                  TABS1412
 ZY082    EQU    5202B                                                  TABS1413
 ZY083    EQU    5102B                                                  TABS1414
 ZY084    EQU    5042B                                                  TABS1415
 ZY085    EQU    5022B                                                  TABS1416
 ZY086    EQU    5012B                                                  TABS1417
 ZY087    EQU    5006B                                                  TABS1418
 ZYX81    EQU    6402B                                                  TABS1419
 ZYX1     EQU    6400B                                                  TABS1420
 ZYX2     EQU    6200B                                                  TABS1421
 ZYX3     EQU    6100B                                                  TABS1422
 ZYX4     EQU    6040B                                                  TABS1423
 ZYX5     EQU    6020B                                                  TABS1424
 ZYX6     EQU    6010B                                                  TABS1425
 ZYX7     EQU    6004B                                                  TABS1426
 ZYX8     EQU    6002B                                                  TABS1427
 ZYX9     EQU    6001B                                                  TABS1428
 ZYX82    EQU    6202B                                                  TABS1429
 ZYX83    EQU    6102B                                                  TABS1430
 ZYX84    EQU    6042B                                                  TABS1431
 ZYX85    EQU    6022B                                                  TABS1432
 ZYX86    EQU    6012B                                                  TABS1433
 ZYX87    EQU    6006B                                                  TABS1434
 ZX081    EQU    3402B                                                  TABS1435
 ZX01     EQU    3400B                                                  TABS1436
 ZX02     EQU    3200B                                                  TABS1437
 ZX03     EQU    3100B                                                  TABS1438
 ZX04     EQU    3040B                                                  TABS1439
 ZX05     EQU    3020B                                                  TABS1440
 ZX06     EQU    3010B                                                  TABS1441
 ZX07     EQU    3004B                                                  TABS1442
 ZX08     EQU    3002B                                                  TABS1443
 ZX09     EQU    3001B                                                  TABS1444
 ZX082    EQU    3202B                                                  TABS1445
 ZX083    EQU    3102B                                                  TABS1446
 ZX084    EQU    3042B                                                  TABS1447
 ZX085    EQU    3022B                                                  TABS1448
 ZX086    EQU    3012B                                                  TABS1449
 ZX087    EQU    3006B                                                  TABS1450
 ZYX081   EQU    7402B                                                  TABS1451
 ZYX01    EQU    7400B                                                  TABS1452
 ZYX02    EQU    7200B                                                  TABS1453
 ZYX03    EQU    7100B                                                  TABS1454
 ZYX04    EQU    7040B                                                  TABS1455
 ZYX05    EQU    7020B                                                  TABS1456
 ZYX06    EQU    7010B                                                  TABS1457
 ZYX07    EQU    7004B                                                  TABS1458
 ZYX08    EQU    7002B                                                  TABS1459
 ZYX09    EQU    7001B                                                  TABS1460
 ZYX082   EQU    7202B                                                  TABS1461
 ZYX083   EQU    7102B                                                  TABS1462
 ZYX084   EQU    7042B                                                  TABS1463
 ZYX085   EQU    7022B                                                  TABS1464
 ZYX086   EQU    7012B                                                  TABS1465
 ZYX087   EQU    7006B                                                  TABS1466
 ZY0      EQU    5000B                                                  TABS1467
 ZY1      EQU    4400B                                                  TABS1468
 ZY2      EQU    4200B                                                  TABS1469
 ZY3      EQU    4100B                                                  TABS1470
 ZY4      EQU    4040B                                                  TABS1471
 ZY5      EQU    4020B                                                  TABS1472
 ZY6      EQU    4010B                                                  TABS1473
 ZY7      EQU    4004B                                                  TABS1474
 ZY8      EQU    4002B                                                  TABS1475
 ZY9      EQU    4001B                                                  TABS1476
 ZY0982   EQU    5203B                                                  TABS1477
 ZY0983   EQU    5103B                                                  TABS1478
 ZY0984   EQU    5043B                                                  TABS1479
 ZY0985   EQU    5023B                                                  TABS1480
 ZY0986   EQU    5013B                                                  TABS1481
 ZY0987   EQU    5007B                                                  TABS1482
 ZX0      EQU    3000B                                                  TABS1483
 ZX1      EQU    2400B                                                  TABS1484
 ZX2      EQU    2200B                                                  TABS1485
 ZX3      EQU    2100B                                                  TABS1486
 ZX4      EQU    2040B                                                  TABS1487
 ZX5      EQU    2020B                                                  TABS1488
 ZX6      EQU    2010B                                                  TABS1489
 ZX7      EQU    2004B                                                  TABS1490
 ZX8      EQU    2002B                                                  TABS1491
 ZX9      EQU    2001B                                                  TABS1492
 ZYX982   EQU    6203B                                                  TABS1493
 ZYX983   EQU    6103B                                                  TABS1494
 ZYX984   EQU    6043B                                                  TABS1495
 ZYX985   EQU    6023B                                                  TABS1496
 ZYX986   EQU    6013B                                                  TABS1497
 ZYX987   EQU    6007B                                                  TABS1498
 Z082     EQU    1202B                                                  TABS1499
 ZX091    EQU    3401B                                                  TABS1500
 Z02      EQU    1200B                                                  TABS1501
 Z03      EQU    1100B                                                  TABS1502
 Z04      EQU    1040B                                                  TABS1503
 Z05      EQU    1020B                                                  TABS1504
 Z06      EQU    1010B                                                  TABS1505
 Z07      EQU    1004B                                                  TABS1506
 Z08      EQU    1002B                                                  TABS1507
 Z09      EQU    1001B                                                  TABS1508
 ZX0982   EQU    3203B                                                  TABS1509
 ZX0983   EQU    3103B                                                  TABS1510
 ZX0984   EQU    3043B                                                  TABS1511
 ZX0985   EQU    3023B                                                  TABS1512
 ZX0986   EQU    3013B                                                  TABS1513
 ZX0987   EQU    3007B                                                  TABS1514
 Z0       EQU    1000B                                                  TABS1515
 Z1       EQU    0400B                                                  TABS1516
 Z2       EQU    0200B                                                  TABS1517
 Z3       EQU    0100B                                                  TABS1518
 Z4       EQU    0040B                                                  TABS1519
 Z5       EQU    0020B                                                  TABS1520
 Z6       EQU    0010B                                                  TABS1521
 Z7       EQU    0004B                                                  TABS1522
 Z8       EQU    0002B                                                  TABS1523
 Z9       EQU    0001B                                                  TABS1524
 ZYX0982  EQU    7203B                                                  TABS1525
 ZYX0983  EQU    7103B                                                  TABS1526
 ZYX0984  EQU    7043B                                                  TABS1527
 ZYX0985  EQU    7023B                                                  TABS1528
 ZYX0986  EQU    7013B                                                  TABS1529
 ZYX0987  EQU    7007B                                                  TABS1530
          PTOA   PY0981,X00            Y0981     TO NUL                 AAA 1538
          PTOA   PY91,X01              Y91       TO SOH                 AAA 1539
          PTOA   PY92,X02              Y92       TO STX                 AAA 1540
          PTOA   PY93,X03              Y93       TO ETX                 AAA 1541
          PTOA   PY94,X04              Y94       TO PF                  AAA 1542
          PTOA   PY95,X05              Y95       TO HT                  AAA 1543
          PTOA   PY96,X06              Y96       TO LC                  AAA 1544
          PTOA   PY97,X07              Y97       TO DEL                 AAA 1545
          PTOA   PY98,X08              Y98       TO GE                  AAA 1546
          PTOA   PY981,X09             Y981      TO RLF                 AAA 1547
          PTOA   PY982,X0A             Y982      TO SMM                 AAA 1548
          PTOA   PY983,X0B             Y983      TO VT                  AAA 1549
          PTOA   PY984,X0C             Y984      TO FF                  AAA 1550
          PTOA   PY985,X0D             Y985      TO CR                  AAA 1551
          PTOA   PY986,X0E             Y986      TO SO                  AAA 1552
          PTOA   PY987,X0F             Y987      TO SI                  AAA 1553
          PTOA   PYX981,X10            YX981     TO DLE                 AAA 1554
          PTOA   PX91,X11              X91       TO DC1                 AAA 1555
          PTOA   PX92,X12              X92       TO DC2                 AAA 1556
          PTOA   PX93,X13              X93       TO TM                  AAA 1557
          PTOA   PX94,X14              X94       TO RES                 AAA 1558
          PTOA   PX95,X15              X95       TO NL                  AAA 1559
          PTOA   PX96,X16              X96       TO BS                  AAA 1560
          PTOA   PX97,X17              X97       TO IL                  AAA 1561
          PTOA   PX98,X18              X98       TO CAN                 AAA 1562
          PTOA   PX981,X19             X981      TO EM                  AAA 1563
          PTOA   PX982,X1A             X982      TO CC                  AAA 1564
          PTOA   PX983,X1B             X983      TO CU1                 AAA 1565
          PTOA   PX984,X1C             X984      TO IFS                 AAA 1566
          PTOA   PX985,X1D             X985      TO IGS                 AAA 1567
          PTOA   PX986,X1E             X986      TO IRS                 AAA 1568
          PTOA   PX987,X1F             X987      TO IUS                 AAA 1569
          PTOA   PX0981,X20            X0981     TO DS                  AAA 1570
          PTOA   P091,X21              091       TO SOS                 AAA 1571
          PTOA   P092,X22              092       TO FS                  AAA 1572
          PTOA   P093,X23              093       TO                     AAA 1573
          PTOA   P094,X24              094       TO BYP                 AAA 1574
          PTOA   P095,X25              095       TO LF                  AAA 1575
          PTOA   P096,X26              096       TO ETB                 AAA 1576
          PTOA   P097,X27              097       TO ESC                 AAA 1577
          PTOA   P098,X28              098       TO                     AAA 1578
          PTOA   P0981,X29             0981      TO                     AAA 1579
          PTOA   P0982,X2A             0982      TO SM                  AAA 1580
          PTOA   P0983,X2B             0983      TO CU2                 AAA 1581
          PTOA   P0984,X2C             0984      TO                     AAA 1582
          PTOA   P0985,X2D             0985      TO ENQ                 AAA 1583
          PTOA   P0986,X2E             0986      TO ACK                 AAA 1584
          PTOA   P0987,X2F             0987      TO BEL                 AAA 1585
          PTOA   PYX0981,X30           YX0981    TO                     AAA 1586
          PTOA   P91,X31               91        TO                     AAA 1587
          PTOA   P92,X32               92        TO SYN                 AAA 1588
          PTOA   P93,X33               93        TO                     AAA 1589
          PTOA   P94,X34               94        TO PN                  AAA 1590
          PTOA   P95,X35               95        TO RS                  AAA 1591
          PTOA   P96,X36               96        TO UC                  AAA 1592
          PTOA   P97,X37               97        TO EOT                 AAA 1593
          PTOA   P98,X38               98        TO                     AAA 1594
          PTOA   P981,X39              981       TO                     AAA 1595
          PTOA   P982,X3A              982       TO                     AAA 1596
          PTOA   P983,X3B              983       TO CU3                 AAA 1597
          PTOA   P984,X3C              984       TO DC4                 AAA 1598
          PTOA   P985,X3D              985       TO NAK                 AAA 1599
          PTOA   P986,X3E              986       TO                     AAA 1600
          PTOA   P987,X3F              987       TO SUB                 AAA 1601
          PTOA   P,X40                   SP   TO SP                     TB8   64
          PTOA   PY091,X41             Y091      TO                     AAA 1603
          PTOA   PY092,X42             Y092      TO                     AAA 1604
          PTOA   PY093,X43             Y093      TO                     AAA 1605
          PTOA   PY094,X44             Y094      TO                     AAA 1606
          PTOA   PY095,X45             Y095      TO                     AAA 1607
          PTOA   PY096,X46             Y096      TO                     AAA 1608
          PTOA   PY097,X47             Y097      TO                     AAA 1609
          PTOA   PY098,X48             Y098      TO                     AAA 1610
          PTOA   PY81,X49              Y81       TO                     AAA 1611
          PTOA   PY82,X4A              Y82       TO CENT                AAA 1612
          PTOA   PY83,X4B              Y83       TO .                   AAA 1613
          PTOA   PY84,X4C              Y84       TO <                   AAA 1614
          PTOA   PY85,X4D              Y85       TO (                   AAA 1615
          PTOA   PY86,X4E              Y86       TO +                   AAA 1616
          PTOA   PY87,X4F              Y87       TO VERT.BAR            AAA 1617
          PTOA   PY,X50                Y         TO AMPERSAND           AAA 1618
          PTOA   PYX91,X51             YX91      TO                     AAA 1619
          PTOA   PYX92,X52             YX92      TO                     AAA 1620
          PTOA   PYX93,X53             YX93      TO                     AAA 1621
          PTOA   PYX94,X54             YX94      TO                     AAA 1622
          PTOA   PYX95,X55             YX95      TO                     AAA 1623
          PTOA   PYX96,X56             YX96      TO                     AAA 1624
          PTOA   PYX97,X57             YX97      TO                     AAA 1625
          PTOA   PYX98,X58             YX98      TO                     AAA 1626
          PTOA   PX81,X59              X81       TO                     AAA 1627
          PTOA   PX82,X5A              X82       TO EXCLAM.PT           AAA 1628
          PTOA   PX83,X5B              X83       TO $                   AAA 1629
          PTOA   PX84,X5C              X84       TO *                   AAA 1630
          PTOA   PX85,X5D              X85       TO )                   AAA 1631
          PTOA   PX86,X5E              X86       TO ;                   AAA 1632
          PTOA   PX87,X5F              X87       TO NOT                 AAA 1633
          PTOA   PX,X60                X         TO -                   AAA 1634
          PTOA   P01,X61               01        TO /                   AAA 1635
          PTOA   PX092,X62             X092      TO                     AAA 1636
          PTOA   PX093,X63             X093      TO                     AAA 1637
          PTOA   PX094,X64             X094      TO                     AAA 1638
          PTOA   PX095,X65             X095      TO                     AAA 1639
          PTOA   PX096,X66             X096      TO                     AAA 1640
          PTOA   PX097,X67             X097      TO                     AAA 1641
          PTOA   PX098,X68             X098      TO                     AAA 1642
          PTOA   P081,X69              081       TO                     AAA 1643
          PTOA   PYX,X6A               YX        TO VERT.BAR            AAA 1644
          PTOA   P083,X6B              083       TO ,                   AAA 1645
          PTOA   P084,X6C              084       TO PERCENT             AAA 1646
          PTOA   P085,X6D              085       TO UNDERSCOR           AAA 1647
          PTOA   P086,X6E              086       TO >                   AAA 1648
          PTOA   P087,X6F              087       TO QUESTION            AAA 1649
          PTOA   PYX0,X70              YX0       TO                     AAA 1650
          PTOA   PYX091,X71            YX091     TO                     AAA 1651
          PTOA   PYX092,X72            YX092     TO                     AAA 1652
          PTOA   PYX093,X73            YX093     TO                     AAA 1653
          PTOA   PYX094,X74            YX094     TO                     AAA 1654
          PTOA   PYX095,X75            YX095     TO                     AAA 1655
          PTOA   PYX096,X76            YX096     TO                     AAA 1656
          PTOA   PYX097,X77            YX097     TO                     AAA 1657
          PTOA   PYX098,X78            YX098     TO                     AAA 1658
          PTOA   P81,X79               81        TO GR.ACCENT           AAA 1659
          PTOA   P82,X7A               82        TO COLON               AAA 1660
          PTOA   P83,X7B               83        TO NUMBER              AAA 1661
          PTOA   P84,X7C               84        TO COM.AT              AAA 1662
          PTOA   P85,X7D               85        TO S.QUOTE             AAA 1663
          PTOA   P86,X7E               86        TO =                   AAA 1664
          PTOA   P87,X7F               87        TO D.QUOTE             AAA 1665
          PTOA   PY081,X80             Y081      TO                     AAA 1666
          PTOA   PY01,X81              Y01       TO A - L.C.            AAA 1667
          PTOA   PY02,X82              Y02       TO B - L.C.            AAA 1668
          PTOA   PY03,X83              Y03       TO C - L.C.            AAA 1669
          PTOA   PY04,X84              Y04       TO D - L.C.            AAA 1670
          PTOA   PY05,X85              Y05       TO E - L.C.            AAA 1671
          PTOA   PY06,X86              Y06       TO F - L.C.            AAA 1672
          PTOA   PY07,X87              Y07       TO G - L.C.            AAA 1673
          PTOA   PY08,X88              Y08       TO H - L.C.            AAA 1674
          PTOA   PY09,X89              Y09       TO I - L.C.            AAA 1675
          PTOA   PY082,X8A             Y082      TO                     AAA 1676
          PTOA   PY083,X8B             Y083      TO                     AAA 1677
          PTOA   PY084,X8C             Y084      TO                     AAA 1678
          PTOA   PY085,X8D             Y085      TO                     AAA 1679
          PTOA   PY086,X8E             Y086      TO                     AAA 1680
          PTOA   PY087,X8F             Y087      TO                     AAA 1681
          PTOA   PYX81,X90             YX81      TO                     AAA 1682
          PTOA   PYX1,X91              YX1       TO J - L.C.            AAA 1683
          PTOA   PYX2,X92              YX2       TO K - L.C.            AAA 1684
          PTOA   PYX3,X93              YX3       TO L - L.C.            AAA 1685
          PTOA   PYX4,X94              YX4       TO M - L.C.            AAA 1686
          PTOA   PYX5,X95              YX5       TO N - L.C.            AAA 1687
          PTOA   PYX6,X96              YX6       TO O - L.C.            AAA 1688
          PTOA   PYX7,X97              YX7       TO P - L.C.            AAA 1689
          PTOA   PYX8,X98              YX8       TO Q - L.C.            AAA 1690
          PTOA   PYX9,X99              YX9       TO R - L.C.            AAA 1691
          PTOA   PYX82,X9A             YX82      TO                     AAA 1692
          PTOA   PYX83,X9B             YX83      TO                     AAA 1693
          PTOA   PYX84,X9C             YX84      TO                     AAA 1694
          PTOA   PYX85,X9D             YX85      TO                     AAA 1695
          PTOA   PYX86,X9E             YX86      TO                     AAA 1696
          PTOA   PYX87,X9F             YX87      TO                     AAA 1697
          PTOA   PX081,XA0             X081      TO                     AAA 1698
          PTOA   PX01,XA1              X01       TO TILDE               AAA 1699
          PTOA   PX02,XA2              X02       TO S - L.C.            AAA 1700
          PTOA   PX03,XA3              X03       TO T - L.C.            AAA 1701
          PTOA   PX04,XA4              X04       TO U - L.C.            AAA 1702
          PTOA   PX05,XA5              X05       TO V - L.C.            AAA 1703
          PTOA   PX06,XA6              X06       TO W - L.C.            AAA 1704
          PTOA   PX07,XA7              X07       TO X - L.C.            AAA 1705
          PTOA   PX08,XA8              X08       TO Y - L.C.            AAA 1706
          PTOA   PX09,XA9              X09       TO Z - L.C.            AAA 1707
          PTOA   PX082,XAA             X082      TO                     AAA 1708
          PTOA   PX083,XAB             X083      TO                     AAA 1709
          PTOA   PX084,XAC             X084      TO                     AAA 1710
          PTOA   PX085,XAD             X085      TO                     AAA 1711
          PTOA   PX086,XAE             X086      TO                     AAA 1712
          PTOA   PX087,XAF             X087      TO                     AAA 1713
          PTOA   PYX081,XB0            YX081     TO                     AAA 1714
          PTOA   PYX01,XB1             YX01      TO                     AAA 1715
          PTOA   PYX02,XB2             YX02      TO                     AAA 1716
          PTOA   PYX03,XB3             YX03      TO                     AAA 1717
          PTOA   PYX04,XB4             YX04      TO                     AAA 1718
          PTOA   PYX05,XB5             YX05      TO                     AAA 1719
          PTOA   PYX06,XB6             YX06      TO                     AAA 1720
          PTOA   PYX07,XB7             YX07      TO                     AAA 1721
          PTOA   PYX08,XB8             YX08      TO                     AAA 1722
          PTOA   PYX09,XB9             YX09      TO                     AAA 1723
          PTOA   PYX082,XBA            YX082     TO                     AAA 1724
          PTOA   PYX083,XBB            YX083     TO                     AAA 1725
          PTOA   PYX084,XBC            YX084     TO                     AAA 1726
          PTOA   PYX085,XBD            YX085     TO                     AAA 1727
          PTOA   PYX086,XBE            YX086     TO                     AAA 1728
          PTOA   PYX087,XBF            YX087     TO                     AAA 1729
          PTOA   PY0,XC0               Y0        TO L.BRACE             AAA 1730
          PTOA   PY1,XC1               Y1        TO A                   AAA 1731
          PTOA   PY2,XC2               Y2        TO B                   AAA 1732
          PTOA   PY3,XC3               Y3        TO C                   AAA 1733
          PTOA   PY4,XC4               Y4        TO D                   AAA 1734
          PTOA   PY5,XC5               Y5        TO E                   AAA 1735
          PTOA   PY6,XC6               Y6        TO F                   AAA 1736
          PTOA   PY7,XC7               Y7        TO G                   AAA 1737
          PTOA   PY8,XC8               Y8        TO H                   AAA 1738
          PTOA   PY9,XC9               Y9        TO I                   AAA 1739
          PTOA   PY0982,XCA            Y0982     TO                     AAA 1740
          PTOA   PY0983,XCB            Y0983     TO                     AAA 1741
          PTOA   PY0984,XCC            Y0984     TO HOOK                AAA 1742
          PTOA   PY0985,XCD            Y0985     TO                     AAA 1743
          PTOA   PY0986,XCE            Y0986     TO FORK                AAA 1744
          PTOA   PY0987,XCF            Y0987     TO                     AAA 1745
          PTOA   PX0,XD0               X0        TO R.BRACE             AAA 1746
          PTOA   PX1,XD1               X1        TO J                   AAA 1747
          PTOA   PX2,XD2               X2        TO K                   AAA 1748
          PTOA   PX3,XD3               X3        TO L                   AAA 1749
          PTOA   PX4,XD4               X4        TO M                   AAA 1750
          PTOA   PX5,XD5               X5        TO N                   AAA 1751
          PTOA   PX6,XD6               X6        TO O                   AAA 1752
          PTOA   PX7,XD7               X7        TO P                   AAA 1753
          PTOA   PX8,XD8               X8        TO Q                   AAA 1754
          PTOA   PX9,XD9               X9        TO R                   AAA 1755
          PTOA   PYX982,XDA            YX982     TO                     AAA 1756
          PTOA   PYX983,XDB            YX983     TO                     AAA 1757
          PTOA   PYX984,XDC            YX984     TO                     AAA 1758
          PTOA   PYX985,XDD            YX985     TO                     AAA 1759
          PTOA   PYX986,XDE            YX986     TO                     AAA 1760
          PTOA   PYX987,XDF            YX987     TO                     AAA 1761
          PTOA   P082,XE0              082       TO REV.SLASH           AAA 1762
          PTOA   PX091,XE1             X091      TO                     AAA 1763
          PTOA   P02,XE2               02        TO S                   AAA 1764
          PTOA   P03,XE3               03        TO T                   AAA 1765
          PTOA   P04,XE4               04        TO U                   AAA 1766
          PTOA   P05,XE5               05        TO V                   AAA 1767
          PTOA   P06,XE6               06        TO W                   AAA 1768
          PTOA   P07,XE7               07        TO X                   AAA 1769
          PTOA   P08,XE8               08        TO Y                   AAA 1770
          PTOA   P09,XE9               09        TO Z                   AAA 1771
          PTOA   PX0982,XEA            X0982     TO                     AAA 1772
          PTOA   PX0983,XEB            X0983     TO                     AAA 1773
          PTOA   PX0984,XEC            X0984     TO CHAIR               AAA 1774
          PTOA   PX0985,XED            X0985     TO                     AAA 1775
          PTOA   PX0986,XEE            X0986     TO                     AAA 1776
          PTOA   PX0987,XEF            X0987     TO                     AAA 1777
          PTOA   P0,XF0                0         TO 0                   AAA 1778
          PTOA   P1,XF1                1         TO 1                   AAA 1779
          PTOA   P2,XF2                2         TO 2                   AAA 1780
          PTOA   P3,XF3                3         TO 3                   AAA 1781
          PTOA   P4,XF4                4         TO 4                   AAA 1782
          PTOA   P5,XF5                5         TO 5                   AAA 1783
          PTOA   P6,XF6                6         TO 6                   AAA 1784
          PTOA   P7,XF7                7         TO 7                   AAA 1785
          PTOA   P8,XF8                8         TO 8                   AAA 1786
          PTOA   P9,XF9                9         TO 9                   AAA 1787
          PTOA   PYX0982,XFA           YX0982    TO LVM                 AAA 1788
          PTOA   PYX0983,XFB           YX0983    TO                     AAA 1789
          PTOA   PYX0984,XFC           YX0984    TO                     AAA 1790
          PTOA   PYX0985,XFD           YX0985    TO                     AAA 1791
          PTOA   PYX0986,XFE           YX0986    TO                     AAA 1792
          PTOA   PYX0987,XFF           YX0987    TO                     AAA 1793
          EJECT                                                         TABS1787
*#                                                                      TABS1788
************************************************************************TABS1789
*                                                                      *TABS1790
*                ATOP  (EBCDIC TO PUNCH) MODULE                        *TABS1791
*     ** NOTE THAT THESE CARDS MUST BE IN ASCENDING SEQUENTIAL ORDER   *TABS1792
*         ACCORDING TO THE ASCII HEX CODE**                            *TABS1793
*                                                                      *TABS1794
*     THE ATOP MACRO MUST BE IN THE FORM                               *TABS1795
*         ATOP   XNN,ZPPP                                              *TABS1796
*                WHERE    NN=EBCDIC HEX CODE                           *TABS1797
*                    PPP = 0 TO 6 CHRS REPRESENTING THE PUNCH CODE     *TABS1798
*                           Y= 12-PUNCH                                *TABS1799
*                           X= 11-PUNCH                                *TABS1800
*                           0 THRU 9 ARE OTHER LEGAL PUNCHES           *TABS1801
*     ** ORDER COUNTS HERE **                                          *TABS1802
*                                                                      *TABS1803
************************************************************************TABS1804
*#                                                                      TABS1805
*                                                                       TABS1806
          ATOP   X00,ZY0981            NUL       TO Y0981               AAA  258
          ATOP   X01,ZY91              SOH       TO Y91                 AAA  259
          ATOP   X02,ZY92              STX       TO Y92                 AAA  260
          ATOP   X03,ZY93              ETX       TO Y93                 AAA  261
          ATOP   X04,ZY94              PF        TO Y94                 AAA  262
          ATOP   X05,ZY95              HT        TO Y95                 AAA  263
          ATOP   X06,ZY96              LC        TO Y96                 AAA  264
          ATOP   X07,ZY97              DEL       TO Y97                 AAA  265
          ATOP   X08,ZY98              GE        TO Y98                 AAA  266
          ATOP   X09,ZY981             RLF       TO Y981                AAA  267
          ATOP   X0A,ZY982             SMM       TO Y982                AAA  268
          ATOP   X0B,ZY983             VT        TO Y983                AAA  269
          ATOP   X0C,ZY984             FF        TO Y984                AAA  270
          ATOP   X0D,ZY985             CR        TO Y985                AAA  271
          ATOP   X0E,ZY986             SO        TO Y986                AAA  272
          ATOP   X0F,ZY987             SI        TO Y987                AAA  273
          ATOP   X10,ZYX981            DLE       TO YX981               AAA  274
          ATOP   X11,ZX91              DC1       TO X91                 AAA  275
          ATOP   X12,ZX92              DC2       TO X92                 AAA  276
          ATOP   X13,ZX93              TM        TO X93                 AAA  277
          ATOP   X14,ZX94              RES       TO X94                 AAA  278
          ATOP   X15,ZX95              NL        TO X95                 AAA  279
          ATOP   X16,ZX96              BS        TO X96                 AAA  280
          ATOP   X17,ZX97              IL        TO X97                 AAA  281
          ATOP   X18,ZX98              CAN       TO X98                 AAA  282
          ATOP   X19,ZX981             EM        TO X981                AAA  283
          ATOP   X1A,ZX982             CC        TO X982                AAA  284
          ATOP   X1B,ZX983             CU1       TO X983                AAA  285
          ATOP   X1C,ZX984             IFS       TO X984                AAA  286
          ATOP   X1D,ZX985             IGS       TO X985                AAA  287
          ATOP   X1E,ZX986             IRS       TO X986                AAA  288
          ATOP   X1F,ZX987             IUS       TO X987                AAA  289
          ATOP   X20,ZX0981            DS        TO X0981               AAA  290
          ATOP   X21,Z091              SOS       TO 091                 AAA  291
          ATOP   X22,Z092              FS        TO 092                 AAA  292
          ATOP   X23,Z093                        TO 093                 AAA  293
          ATOP   X24,Z094              BYP       TO 094                 AAA  294
          ATOP   X25,Z095              LF        TO 095                 AAA  295
          ATOP   X26,Z096              ETB       TO 096                 AAA  296
          ATOP   X27,Z097              ESC       TO 097                 AAA  297
          ATOP   X28,Z098                        TO 098                 AAA  298
          ATOP   X29,Z0981                       TO 0981                AAA  299
          ATOP   X2A,Z0982             SM        TO 0982                AAA  300
          ATOP   X2B,Z0983             CU2       TO 0983                AAA  301
          ATOP   X2C,Z0984                       TO 0984                AAA  302
          ATOP   X2D,Z0985             ENQ       TO 0985                AAA  303
          ATOP   X2E,Z0986             ACK       TO 0986                AAA  304
          ATOP   X2F,Z0987             BEL       TO 0987                AAA  305
          ATOP   X30,ZYX0981                     TO YX0981              AAA  306
          ATOP   X31,Z91                         TO 91                  AAA  307
          ATOP   X32,Z92               SYN       TO 92                  AAA  308
          ATOP   X33,Z93                         TO 93                  AAA  309
          ATOP   X34,Z94               PN        TO 94                  AAA  310
          ATOP   X35,Z95               RS        TO 95                  AAA  311
          ATOP   X36,Z96               UC        TO 96                  AAA  312
          ATOP   X37,Z97               EOT       TO 97                  AAA  313
          ATOP   X38,Z98                         TO 98                  AAA  314
          ATOP   X39,Z981                        TO 981                 AAA  315
          ATOP   X3A,Z982                        TO 982                 AAA  316
          ATOP   X3B,Z983              CU3       TO 983                 AAA  317
          ATOP   X3C,Z984              DC4       TO 984                 AAA  318
          ATOP   X3D,Z985              NAK       TO 985                 AAA  319
          ATOP   X3E,Z986                        TO 986                 AAA  320
          ATOP   X3F,Z987              SUB       TO 987                 AAA  321
          ATOP   X40,Z                 SP        TO                     AAA  322
          ATOP   X41,ZY091                       TO Y091                AAA  323
          ATOP   X42,ZY092                       TO Y092                AAA  324
          ATOP   X43,ZY093                       TO Y093                AAA  325
          ATOP   X44,ZY094                       TO Y094                AAA  326
          ATOP   X45,ZY095                       TO Y095                AAA  327
          ATOP   X46,ZY096                       TO Y096                AAA  328
          ATOP   X47,ZY097                       TO Y097                AAA  329
          ATOP   X48,ZY098                       TO Y098                AAA  330
          ATOP   X49,ZY81                        TO Y81                 AAA  331
          ATOP   X4A,ZY82              CENT      TO Y82                 AAA  332
          ATOP   X4B,ZY83              .         TO Y83                 AAA  333
          ATOP   X4C,ZY84              <         TO Y84                 AAA  334
          ATOP   X4D,ZY85              (         TO Y85                 AAA  335
          ATOP   X4E,ZY86              +         TO Y86                 AAA  336
          ATOP   X4F,ZY87              VERT.BAR  TO Y87                 AAA  337
          ATOP   X50,ZY                AMPERSAND TO Y                   AAA  338
          ATOP   X51,ZYX91                       TO YX91                AAA  339
          ATOP   X52,ZYX92                       TO YX92                AAA  340
          ATOP   X53,ZYX93                       TO YX93                AAA  341
          ATOP   X54,ZYX94                       TO YX94                AAA  342
          ATOP   X55,ZYX95                       TO YX95                AAA  343
          ATOP   X56,ZYX96                       TO YX96                AAA  344
          ATOP   X57,ZYX97                       TO YX97                AAA  345
          ATOP   X58,ZYX98                       TO YX98                AAA  346
          ATOP   X59,ZX81                        TO X81                 AAA  347
          ATOP   X5A,ZX82              EXCLAM.PT TO X82                 AAA  348
          ATOP   X5B,ZX83              $         TO X83                 AAA  349
          ATOP   X5C,ZX84              *         TO X84                 AAA  350
          ATOP   X5D,ZX85              )         TO X85                 AAA  351
          ATOP   X5E,ZX86              ;         TO X86                 AAA  352
          ATOP   X5F,ZX87              NOT       TO X87                 AAA  353
          ATOP   X60,ZX                -         TO X                   AAA  354
          ATOP   X61,Z01               /         TO 01                  AAA  355
          ATOP   X62,ZX092                       TO X092                AAA  356
          ATOP   X63,ZX093                       TO X093                AAA  357
          ATOP   X64,ZX094                       TO X094                AAA  358
          ATOP   X65,ZX095                       TO X095                AAA  359
          ATOP   X66,ZX096                       TO X096                AAA  360
          ATOP   X67,ZX097                       TO X097                AAA  361
          ATOP   X68,ZX098                       TO X098                AAA  362
          ATOP   X69,Z081                        TO 081                 AAA  363
          ATOP   X6A,ZYX               VERT.BAR  TO YX                  AAA  364
          ATOP   X6B,Z083              ,         TO 083                 AAA  365
          ATOP   X6C,Z084              PERCENT   TO 084                 AAA  366
          ATOP   X6D,Z085              UNDERSCOR TO 085                 AAA  367
          ATOP   X6E,Z086              >         TO 086                 AAA  368
          ATOP   X6F,Z087              QUESTION  TO 087                 AAA  369
          ATOP   X70,ZYX0                        TO YX0                 AAA  370
          ATOP   X71,ZYX091                      TO YX091               AAA  371
          ATOP   X72,ZYX092                      TO YX092               AAA  372
          ATOP   X73,ZYX093                      TO YX093               AAA  373
          ATOP   X74,ZYX094                      TO YX094               AAA  374
          ATOP   X75,ZYX095                      TO YX095               AAA  375
          ATOP   X76,ZYX096                      TO YX096               AAA  376
          ATOP   X77,ZYX097                      TO YX097               AAA  377
          ATOP   X78,ZYX098                      TO YX098               AAA  378
          ATOP   X79,Z81               GR.ACCENT TO 81                  AAA  379
          ATOP   X7A,Z82               COLON     TO 82                  AAA  380
          ATOP   X7B,Z83               NUMBER    TO 83                  AAA  381
          ATOP   X7C,Z84               COM.AT    TO 84                  AAA  382
          ATOP   X7D,Z85               S.QUOTE   TO 85                  AAA  383
          ATOP   X7E,Z86               =         TO 86                  AAA  384
          ATOP   X7F,Z87               D.QUOTE   TO 87                  AAA  385
          ATOP   X80,ZY081                       TO Y081                AAA  386
          ATOP   X81,ZY01              A - L.C.  TO Y01                 AAA  387
          ATOP   X82,ZY02              B - L.C.  TO Y02                 AAA  388
          ATOP   X83,ZY03              C - L.C.  TO Y03                 AAA  389
          ATOP   X84,ZY04              D - L.C.  TO Y04                 AAA  390
          ATOP   X85,ZY05              E - L.C.  TO Y05                 AAA  391
          ATOP   X86,ZY06              F - L.C.  TO Y06                 AAA  392
          ATOP   X87,ZY07              G - L.C.  TO Y07                 AAA  393
          ATOP   X88,ZY08              H - L.C.  TO Y08                 AAA  394
          ATOP   X89,ZY09              I - L.C.  TO Y09                 AAA  395
          ATOP   X8A,ZY082                       TO Y082                AAA  396
          ATOP   X8B,ZY083                       TO Y083                AAA  397
          ATOP   X8C,ZY084                       TO Y084                AAA  398
          ATOP   X8D,ZY085                       TO Y085                AAA  399
          ATOP   X8E,ZY086                       TO Y086                AAA  400
          ATOP   X8F,ZY087                       TO Y087                AAA  401
          ATOP   X90,ZYX81                       TO YX81                AAA  402
          ATOP   X91,ZYX1              J - L.C.  TO YX1                 AAA  403
          ATOP   X92,ZYX2              K - L.C.  TO YX2                 AAA  404
          ATOP   X93,ZYX3              L - L.C.  TO YX3                 AAA  405
          ATOP   X94,ZYX4              M - L.C.  TO YX4                 AAA  406
          ATOP   X95,ZYX5              N - L.C.  TO YX5                 AAA  407
          ATOP   X96,ZYX6              O - L.C.  TO YX6                 AAA  408
          ATOP   X97,ZYX7              P - L.C.  TO YX7                 AAA  409
          ATOP   X98,ZYX8              Q - L.C.  TO YX8                 AAA  410
          ATOP   X99,ZYX9              R - L.C.  TO YX9                 AAA  411
          ATOP   X9A,ZYX82                       TO YX82                AAA  412
          ATOP   X9B,ZYX83                       TO YX83                AAA  413
          ATOP   X9C,ZYX84                       TO YX84                AAA  414
          ATOP   X9D,ZYX85                       TO YX85                AAA  415
          ATOP   X9E,ZYX86                       TO YX86                AAA  416
          ATOP   X9F,ZYX87                       TO YX87                AAA  417
          ATOP   XA0,ZX081                       TO X081                AAA  418
          ATOP   XA1,ZX01              TILDE     TO X01                 AAA  419
          ATOP   XA2,ZX02              S - L.C.  TO X02                 AAA  420
          ATOP   XA3,ZX03              T - L.C.  TO X03                 AAA  421
          ATOP   XA4,ZX04              U - L.C.  TO X04                 AAA  422
          ATOP   XA5,ZX05              V - L.C.  TO X05                 AAA  423
          ATOP   XA6,ZX06              W - L.C.  TO X06                 AAA  424
          ATOP   XA7,ZX07              X - L.C.  TO X07                 AAA  425
          ATOP   XA8,ZX08              Y - L.C.  TO X08                 AAA  426
          ATOP   XA9,ZX09              Z - L.C.  TO X09                 AAA  427
          ATOP   XAA,ZX082                       TO X082                AAA  428
          ATOP   XAB,ZX083                       TO X083                AAA  429
          ATOP   XAC,ZX084                       TO X084                AAA  430
          ATOP   XAD,ZX085                       TO X085                AAA  431
          ATOP   XAE,ZX086                       TO X086                AAA  432
          ATOP   XAF,ZX087                       TO X087                AAA  433
          ATOP   XB0,ZYX081                      TO YX081               AAA  434
          ATOP   XB1,ZYX01                       TO YX01                AAA  435
          ATOP   XB2,ZYX02                       TO YX02                AAA  436
          ATOP   XB3,ZYX03                       TO YX03                AAA  437
          ATOP   XB4,ZYX04                       TO YX04                AAA  438
          ATOP   XB5,ZYX05                       TO YX05                AAA  439
          ATOP   XB6,ZYX06                       TO YX06                AAA  440
          ATOP   XB7,ZYX07                       TO YX07                AAA  441
          ATOP   XB8,ZYX08                       TO YX08                AAA  442
          ATOP   XB9,ZYX09                       TO YX09                AAA  443
          ATOP   XBA,ZYX082                      TO YX082               AAA  444
          ATOP   XBB,ZYX083                      TO YX083               AAA  445
          ATOP   XBC,ZYX084                      TO YX084               AAA  446
          ATOP   XBD,ZYX085                      TO YX085               AAA  447
          ATOP   XBE,ZYX086                      TO YX086               AAA  448
          ATOP   XBF,ZYX087                      TO YX087               AAA  449
          ATOP   XC0,ZY0               L.BRACE   TO Y0                  AAA  450
          ATOP   XC1,ZY1               A         TO Y1                  AAA  451
          ATOP   XC2,ZY2               B         TO Y2                  AAA  452
          ATOP   XC3,ZY3               C         TO Y3                  AAA  453
          ATOP   XC4,ZY4               D         TO Y4                  AAA  454
          ATOP   XC5,ZY5               E         TO Y5                  AAA  455
          ATOP   XC6,ZY6               F         TO Y6                  AAA  456
          ATOP   XC7,ZY7               G         TO Y7                  AAA  457
          ATOP   XC8,ZY8               H         TO Y8                  AAA  458
          ATOP   XC9,ZY9               I         TO Y9                  AAA  459
          ATOP   XCA,ZY0982                      TO Y0982               AAA  460
          ATOP   XCB,ZY0983                      TO Y0983               AAA  461
          ATOP   XCC,ZY0984            HOOK      TO Y0984               AAA  462
          ATOP   XCD,ZY0985                      TO Y0985               AAA  463
          ATOP   XCE,ZY0986            FORK      TO Y0986               AAA  464
          ATOP   XCF,ZY0987                      TO Y0987               AAA  465
          ATOP   XD0,ZX0               R.BRACE   TO X0                  AAA  466
          ATOP   XD1,ZX1               J         TO X1                  AAA  467
          ATOP   XD2,ZX2               K         TO X2                  AAA  468
          ATOP   XD3,ZX3               L         TO X3                  AAA  469
          ATOP   XD4,ZX4               M         TO X4                  AAA  470
          ATOP   XD5,ZX5               N         TO X5                  AAA  471
          ATOP   XD6,ZX6               O         TO X6                  AAA  472
          ATOP   XD7,ZX7               P         TO X7                  AAA  473
          ATOP   XD8,ZX8               Q         TO X8                  AAA  474
          ATOP   XD9,ZX9               R         TO X9                  AAA  475
          ATOP   XDA,ZYX982                      TO YX982               AAA  476
          ATOP   XDB,ZYX983                      TO YX983               AAA  477
          ATOP   XDC,ZYX984                      TO YX984               AAA  478
          ATOP   XDD,ZYX985                      TO YX985               AAA  479
          ATOP   XDE,ZYX986                      TO YX986               AAA  480
          ATOP   XDF,ZYX987                      TO YX987               AAA  481
          ATOP   XE0,Z082              REV.SLASH TO 082                 AAA  482
          ATOP   XE1,ZX091                       TO X091                AAA  483
          ATOP   XE2,Z02               S         TO 02                  AAA  484
          ATOP   XE3,Z03               T         TO 03                  AAA  485
          ATOP   XE4,Z04               U         TO 04                  AAA  486
          ATOP   XE5,Z05               V         TO 05                  AAA  487
          ATOP   XE6,Z06               W         TO 06                  AAA  488
          ATOP   XE7,Z07               X         TO 07                  AAA  489
          ATOP   XE8,Z08               Y         TO 08                  AAA  490
          ATOP   XE9,Z09               Z         TO 09                  AAA  491
          ATOP   XEA,ZX0982                      TO X0982               AAA  492
          ATOP   XEB,ZX0983                      TO X0983               AAA  493
          ATOP   XEC,ZX0984            CHAIR     TO X0984               AAA  494
          ATOP   XED,ZX0985                      TO X0985               AAA  495
          ATOP   XEE,ZX0986                      TO X0986               AAA  496
          ATOP   XEF,ZX0987                      TO X0987               AAA  497
          ATOP   XF0,Z0                0         TO 0                   AAA  498
          ATOP   XF1,Z1                1         TO 1                   AAA  499
          ATOP   XF2,Z2                2         TO 2                   AAA  500
          ATOP   XF3,Z3                3         TO 3                   AAA  501
          ATOP   XF4,Z4                4         TO 4                   AAA  502
          ATOP   XF5,Z5                5         TO 5                   AAA  503
          ATOP   XF6,Z6                6         TO 6                   AAA  504
          ATOP   XF7,Z7                7         TO 7                   AAA  505
          ATOP   XF8,Z8                8         TO 8                   AAA  506
          ATOP   XF9,Z9                9         TO 9                   AAA  507
          ATOP   XFA,ZYX0982           LVM       TO YX0982              AAA  508
          ATOP   XFB,ZYX0983                     TO YX0983              AAA  509
          ATOP   XFC,ZYX0984                     TO YX0984              AAA  510
          ATOP   XFD,ZYX0985                     TO YX0985              AAA  511
          ATOP   XFE,ZYX0986                     TO YX0986              AAA  512
          ATOP   XFF,ZYX0987                     TO YX0987              AAA  513
          END                                                           TABS2063
