*DECK C$AKOC
          IDENT  C$AKOC 
          TITLE  C$AKOC - ACTUAL KEY I-O OPEN CLOSE ROUTINE 
  
          MACHINE  ANY,I
          COMMENT  ACTUAL KEY OPEN, CLOSE 
          SST 
          B1=1
          SPACE  4
**        CBAKOC - ACTUAL KEY I-O OPEN CLOSE
* 
*         CALLING SEQUENCE
*            C.OPAK 
*                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.OPIAK  EJECT 
          ENTRY  C.OPAK 
 C.OPAK   BSS    0
          EQ     =XC.CAMOP   GO TO COMMON AAM OPEN ROUTINE
          SPACE  4
          ENTRY  C.CLOAK
 C.CLOAK  BSS    0
          EQ     =XC.CLOSE   GO TO COMMON CLOSE 
 -        VFD    12/0,18/=XCTRL$AA  FORCE ADV ACCESS MODULE TO LOAD 
          END 
