*DECK C$CLOSR 
          IDENT  C$CLOSR
          SST 
          B1=1
          TITLE  CBCLOSR - CLOSE REEL 
* 
**        CBCLOSR - CLOSE REEL
          COMMENT  CLOSE REEL 
* 
*         INPUTS
*                A0 = FIT 
*                B3 = REWIND OPTION 
* 
*         OUTPUTS - NONE
* 
*         DOES
*                ISSUES A CRM CLOSE REEL
* 
*CALL IOMICROS
*CALL IODEFSC 
          ENTRY  C.CLOSR
 C.CLOSR  BSS    0
          RJ     =XC.SVRTN   SAVE RETURN
          FETCH  A0,FET,X5   GET ADDRESS OF FET 
          SA5    X5+B1       GET WORD WITH DEVICE TYPE
          PL     X5,=XC.NORRT      IGNORE IF DISK FILE
          STORE  A0,VF=B3    SAVE REWIND OPTION 
          CLOSEM  A0,,VOLUME,SQ    CLOSE THE REEL 
          EQ     =XC.NORRT   RETURN 
          END 
