*DECK     CCOM2 
          IDENT  T8.COM2
* 
**    CCOM2 - ENCAPSULATABLE COMMON DATA DECK - 2 
* 
          LIST   X
*CALL COM2
* 
*         DATA AREA 
* 
 T8COM2   TITLE  COMMON BLOCK T8.COM2 
* 
 TENTABLE SPACE  4
**    TENTABLE  - NUMERIC CONSTANTS USED BY THE CONVERSION ROUTINES 
          SPACE  2
* 
**        UN-NORMALIZED FLOATING POINT ZERO 
* 
 TEN.ZRO  VFD    12/1720B,48/0
          SPACE  2
* 
**        LOG10 OF 2, UNNORMALIZED
* 
 TEN.LG2  DATA   0.301029995663982P48 
          SPACE  2
* 
**        1/2, AND SINGLE PRECISION POWERS OF 10 *10**0 TO 10**15)
* 
 TEN.HLF  DATA   0.5E00 
 TEN.MHF  DATA   -0.5E00
 TEN.ONE  DATA   1.0E00,1.0E01,1.0E02,1.0E03,1.0E04,1.0E05
          DATA   1.0E06,1.0E07,1.0E08,1.0E09,1.0E10 
          DATA   1.0E11,1.0E12,1.0E13,1.0E14,1.0E15 
          SPACE  2
* 
**        TRIPLE PRECISION + POWERS OF 10 (10**16, 32, 64, 128, 256)
* 
 TEN.BIG  DATA   1.0EE+16,16450000000000000000B             10**16
          DATA   1.0EE+32,17320000000000000000B             10**32
  DATA 22456047403722377717B,21655155247457665561B,21056166544576650371B
          DATA   1.0EE+128,24321553040115601065B            10**128 
  DATA 34435247735376716771B,33636750673556710033B,33034617735255702437B
          SPACE  2
* 
**        TRIPLE PRECISION - POWERS OF 10 (10**-16,-32,-64,-128,-256) 
* 
 TEN.M1   BSS    0                                          10**-1
  DATA 17146314631463146314B,16346314631463146314B,15546314631463146315B
* 
 TEN.LIL  DATA   1.0EE-16,14723630465154737564B             10**-16 
  DATA 15456373043653242471B,14654513514767414355B,14055130051274405536B
          DATA   1.0EE-64,12332173154211025042B             10**-64 
  DATA 10466735010637062274B,07667112025437131766B,07066405673367561157B
  DATA 01756003050311261572B,01150623477244210525B,00357757552302121103B
          SPACE  4
****  TEMPS - TEMPORARY AND WORKING STORAGE AREA
* 
*    NOTE.. THIS AREA SHOULD BE CLEANED UP BY EQUIVALENCING 
*           LOCATIONS NOT SIMULTANEOUSLY USED 
          SPACE  2
* 
* POINTER WORDS 
* 
 PT.TST6  BSSZ   1
 PT.TSTC  BSSZ   1
 PT.TSTT  BSSZ   1
 PT.CON6C BSSZ   1
 PT.CON6P BSSZ   1
 PT.CON6T BSSZ   1
 PT.CONC6 BSSZ   1
 PT.CONT6 BSSZ   1
* 
          SPACE  2
* 
* ARRAYS
* 
 T.STRING BSSZ   L.STRING 
 T.NUM    BSSZ   3
 T.NUM1   BSSZ   3
 T.STACK  BSSZ   2*L.STACK
* 
          SPACE  2
* 
* INDIVIDUAL CELLS
* 
 T.CHR    BSSZ   1
 T.COND   BSSZ   1
 T.COUNT  BSSZ   1
 T.CSTR   BSSZ   1
 T.ESG    BSSZ   1
 T.EXP    BSSZ   1
 T.IFLAG  BSSZ   1
 T.INREC  BSSZ   1
 T.I1     BSSZ   1
 T.I2     BSSZ   1
 T.MPTR   BSSZ   1
 T.MSG    BSSZ   1
 T.M1     BSSZ   1
 T.M2     BSSZ   1
 T.NBL    BSSZ   1
 T.NSIG   BSSZ   1
 T.OUTREC BSSZ   1
 T.P      BSSZ   1
 T.PER    BSSZ   1
 T.PSAVB6 BSSZ   1
 T.RECORD BSSZ   1
 T.REL1   BSSZ   1
 T.REL2   BSSZ   1
 T.SAVEB5 BSSZ   1
 T.SAVEB6 BSSZ   1
 T.SAVECT BSSZ   1
 T.SAVEX1 BSSZ   1
 T.SPTR   BSSZ   1
 T.STATW  BSSZ   1
 T.STKPTR BSSZ   1
 T.TEMP   BSSZ   1
 T.TEMP1  BSSZ   1
 T.TEMP2  BSSZ   1
 T.TEMP3  BSSZ   1
 T.T1     BSSZ   1
 T.T2     BSSZ   1
 T.USEREC BSSZ   1
 T.W1     BSSZ   1
 T.W2     BSSZ   1
****
          SPACE  4
* 
* END OF T8.COM2
* 
          END 
