*COMDECK  COMFITS - ISSUE TEMP STORAGE. 
 ITS      CTEXT  COMFITS - ISSUE TEMP STORAGE.
  
  
          IF     -DEF,QUAL$,1 
          QUAL   COMFITS
          BASE   *
 ITS      SPACE  4,10 
**        ITS - ISSUE TEMP STORAGE. 
  
  
 ITS      SUBR   0           ENTRY/EXIT...
          ISUSE$ TEM         USE TEM. 
  
          SB5    ITSA 
 ITS2     SA1    B5 
          ZR     X1,ITS4     IF NO MORE TEMPS TO ISSUE
          SA2    X1 
          SB5    B5+B1
          AX1    18 
          SA3    X1          FETCH SYMORD OF TEMP NAME
          SX6    OC$BSS 
          =X3    X3+K.SYM*K=PFX 
          LX3    PB.ORDP
          LX2    PB.BIASP 
          LX6    PB.GHIJP 
          BX1    X3+X2
          IX7    X6+X1
          WCODE  X7,ITS2     ISSUE  * TAG  BSS  (N.TAG) * 
  
 ITS4     ISUSE$ BUF         USE BUF. 
          SX7    OC$EQUN
          LX7    PB.GHIJP 
          WCODE  X7,EXIT. 
  
  
 ITSA     BSS    0           TABLE OF TEMPS TO ISSUE
          VFD    24/0,18/=XS=ST,18/=XN.STMAX
          VFD    24/0,18/=XS=CT,18/=XN.CTMAX
          VFD    24/0,18/=XS=IT,18/=XN$IT 
          VFD    24/0,18/=XS=OT,18/=XN$OT 
          VFD    24/0,18/=XS=VD,18/=XN.VD 
          VFD    24/0,18/=XS=LC,18/=XN$LC 
          CON    0
 COMFITS  SPACE  4,10 
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 ITS      EQU    /COMFITS/ITS 
 QUAL$    ENDIF 
  
  
 COMFITS  ENDX
