*DECK     CCOM1 
          IDENT  T8.COM1
* 
**    CCOM1 - ENCAPSULATABLE COMMON DATA DECK - 1 
* 
          LIST   X
*CALL COM1
* 
*         DATA AREA 
* 
 T8COM1   TITLE  COMMON BLOCK T8.COM1 
**    TABLE OF INFORMATION FOR TRANSLATIONS, IN MICRO FORM
*         VFD    24/MASK,18/RIGHT-SHIFT,18/BASE-LOC 
**T       24/MASK,18/RIGHT-SHIFT,18/BASE-LOCATION 
          SPACE  1
****
* 
 CTOX     MICRO  1,,*VFD    24/077B,18/51D,18/HEXTAB* 
 CTOA     MICRO  1,,*VFD    24/377B,18/42D,18/HEXTAB* 
 ATOC     MICRO  1,,*VFD    24/377B,18/33D,18/HEXTAB* 
 ATOX     MICRO  1,,*VFD    24/077B,18/24D,18/HEXTAB* 
 PTOC     MICRO  1,,*VFD    24/377B,18/15D,18/HEXTAB* 
 CTOP     MICRO  1,,*VFD    24/7777B,18/0D,18/HEXTAB* 
 XTOA     MICRO  1,,*VFD    24/377B,18/36D,18/SIXTAB* 
 XTOC     MICRO  1,,*VFD    24/377B,18/18D,18/SIXTAB* 
 XTOAL    MICRO  1,,*VFD    24/377B,18/45D,18/SIXTAB* 
 XTOCL    MICRO  1,,*VFD    24/377B,18/27D,18/SIXTAB* 
 XTOCOL   MICRO  1,,*VFD    24/077B,18/00D,18/SIXTAB* 
 ATOA     MICRO  1,,*VFD    60/0* 
 CTOC     MICRO  1,,*VFD    60/0* 
 XTOX     MICRO  1,,*VFD    60/0* 
* 
 BTOX     MICRO  1,,*"ATOX"+X30*   BIT TO X, OFFSET BY ASCII ZERO 
 BTOA     MICRO  1,,*"CTOA"+XF0*   BIT TO A, OFFSET BY EBCDIC ZERO
 BTOC     MICRO  1,,*"ATOC"+X30*   BIT TO C, OFFSET BY ASCII ZERO 
 BTOP     MICRO  1,,*"CTOP"+XF0*   BIT TO P, OFFSET BY EBCDIC ZERO
* 
****
* 
          SPACE  2
* 
**    CONSTANTS AND POINTERS
* 
          SPACE  2
* 
****  LARGEST BIT FIELD WHICH IS A MULTIPLE OF BOTH 6 AND 8 BITS
* 
 C.MAXSZ  CON    37777777B/24D*24D
****
          SPACE 2 
* 
**    NAME OF ERROR OUTPUT FILE (DEFAULT) 
* 
 H.ERFIL  DATA   6LOUTPUT 
          SPACE  2
* 
**    TRANSLATE TABLE POINTERS
* 
          SPACE  1
****
 T.CNVT   BSS    0           INDEX
          "XTOX"             0
          "ATOA"             1
          "CTOC"             2
 TR.XTOA  "XTOA"             3
 TR.XTOC  "XTOC"             4
 TR.ATOX  "ATOX"             5
 TR.ATOC  "ATOC"             6
 TR.CTOX  "CTOX"             7
 TR.CTOA  "CTOA"             8
          "XTOAL"            9
          "XTOCL"            10 
          "XTOCOL"           11 
 TR.CTOP  "CTOP"             12 
 TR.PTOC  "PTOC"             13 
* 
 TR.BTOA  "BTOA"
 TR.BTOC  "BTOC"
 TR.BTOP  "BTOP"
 TR.BTOX  "BTOX"
* 
          SPACE  2
 TX.ATOP  VFD    12/0,18/TR.CTOP,12/0,18/TR.ATOC
 TX.CTOP  VFD    42/0000000,18/TR.CTOP
 TX.XTOP  VFD    12/0,18/TR.CTOP,12/0,18/TR.XTOC
****
* 
 TEMPS    TITLE  TEMPORARY AND WORKING STORAGE
****  TEMPS - TEMPORARY AND WORKING STORAGE AREA
* 
*    NOTE.. THIS AREA SHOULD BE CLEANED UP BY EQUIVALENCING 
*           LOCATIONS NOT SIMULTANEOUSLY USED 
* 
* **
          SPACE  2
* 
* INDIVIDUAL CELLS
* 
 T.A0     BSSZ   1
 T.COB    BSSZ   1
 T.EENT   BSSZ   1
 T.EMSG   BSSZ   1
 T.ENTRY  BSSZ   1
 T.EXL1   BSSZ   1
 T.EXL2   BSSZ   1
 T.FIT    BSSZ   1
 T.LEN1   BSSZ   1
 T.LEN2   BSSZ   1
 T.POS1   BSSZ   1
 T.POS    BSSZ   1
 T.POS2   BSSZ   1
 T.SAVEA0 BSSZ   1
 T.SRC1   BSSZ   1
 T.SRC2   BSSZ   1
 T.STAT   BSSZ   1
 T.STATUS BSSZ   1
 T.S1     BSSZ   1
 T.S2     BSSZ   1
 T.XY     BSSZ   1
****
          SPACE  4
* 
* END OF T8.COM1
* 
          END 
