*DECK C$ISOC
          IDENT  C$ISOC 
          TITLE  C$ISOC - INDEXED SEQUENTIAL OPEN, CLOSE
  
          MACHINE  ANY,I
          COMMENT  INDEXED SEQUENTIAL OPEN, CLOSE 
          SST 
          B1=1
          SPACE  4
**        CBISOC - INDEXED SEQUENTIAL I-O OPEN CLOSE
* 
*         CALLING SEQUENCE
*            C.OPIS 
*                SB6  RETURN ADDRESS
*                SB5  C.OPX - X = IN, OUT, OR IO
*                SA0  ADDR OF FIT 
*                EQ   =XC.OPAK
* 
*            C.CLOAK
*                SB6  RETURN ADDRESS
*                SB3  REWIND OPT - #R# IF NORMAL, #LOCK# IF LOCK
*                SA0  ADDR OF FIT 
*                EQ   =XC.CLOAK 
* 
*         DOES  - ROUTES ALL REQUESTS TO CRM
*         USES   - ALL REGISTERS EXCEPT A0
* 
  
  
*CALL IOMICROS
  
*CALL IODEFSC 
 C.OPIIS  EJECT 
          ENTRY  C.OPIS 
 C.OPIS   BSS    0
          EQ     =XC.CAMOP   GO TO COMMON AAM OPEN ROUTINE
          SPACE  4
          ENTRY  C.CLOIS
 C.CLOIS  BSS    0
          EQ     =XC.CLOSE   GO TO COMMON CLOSE 
 -        VFD    12/0,18/=XCTRL$AA FORCE CORRECT ROUTINE TO BE LOADED 
          END 
