*COMDECK  CIOSET
**        CIOSET  -  SET UP FIRST, IN, OUT, LAST FET POINTERS 
* 
*                A1  ADDRESS OF FET+1 (WORD WITH FET LENGTH)
*                X1  CONTENTS OF FET+1
*                X7  = FIRST
*                X6  = LAST 
  
 OSNOSBE  IFNE   HOST,SC2 
 CIOSET   BSSZ   1           ENTRY/EXIT 
          MX2    -18
          BX2    X2*X1
          BX7    X2+X7       ADD FIRST TO CONTENTS OF FET+1 
          SA7    A1          FIRST
          MX2    -18
          BX7    -X2*X7 
          SA7    A7+B1       IN 
          SA7    A7+B1       OUT
          SA6    A7+B1       LAST 
          JP     CIOSET      EXIT 
 OSNOSBE  ENDIF 
