SPL,L,O,M,C 
!     NAME:   RC..  
!     SOURCE: 92064-18168 
!     RELOC:  92064-16055 
!     PGMR:   G.A.A.
!     MOD:    G.L.M.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
! 
      NAME RC..(7) " 92064-16055  REV.1650  760826" 
! 
!     THIS IS THE REMOVE CARTRIDGE ROUTINE OF THE 
!     RTE FILE MANAGER PROGRAM FMGR.
!     IT IS ENTERED AS A RESULT OF A
! 
!     RC,CR 
!     WHERE CR IS THE CARTRIDGE ID
! 
!     THE CARTRIDGE IS LOCKED IF IT HAS BEEN
!     INITILIZED. 
! 
!     THEN IT IS REMOVED FROM THE DIRECTORY OF DISCS. 
! 
! 
!     DECLARE EXTERNALS 
! 
      LET DR.RD, D.RIO, IMESS,      \ 
           LOCK., CONV.           BE SUBROUTINE, EXTERNAL 
      LET CLD.R                   BE SUBROUTINE,EXTERNAL,DIRECT 
! 
      LET FID.              BE FUNCTION, EXTERNAL 
! 
      LET D.LT, DS.LU, D.SDR,DS.DF BE INTEGER, EXTERNAL 
      LET .P1,.P2,.P3   BE INTEGER,EXTERNAL 
! 
!     DECLARE CONSTANTS 
      LET MSS(7),MS BE INTEGER
      INITIALIZE MSS TO "LAST TRACK    "
! 
      LET WRIT      BE CONSTANT (   2)
      LET READI     BE CONSTANT (    1) 
      LET B        BE CONSTANT (    1 ) 
RC..: SUBROUTINE (N,LIS,ER) GLOBAL
      DIS_@LIS+1  !SET DISC SPEC ADDRESS
      IFNOT $DIS THEN [ER_55;RETURN] !NOT SPECIFIED ERROR 
      DR.RD(READI,$DIS,0)?[ER_54; RETURN] !NOT MOUNTED
      IFNOT FID.($DIS) THEN LOCK.($DIS, 3)?[RETURN] ! LOCK HIM UP 
      CONV. ($$@D.LT,MS,4) !SET LAST TRACK IN MESSAGE 
      .P1_7 
      .P2_ - $$@DS.LU    !SET LU FOR D.RFP
      .P3_0 
      ASSEMBLE "CLB            CLEAR PARM 7(SUBFUNCTION)" 
       CLD.R
 !
      IF [ER_$$B] THEN RETURN    !IF ERROR-SET CODE AND GET OUT 
      IMESS (2, MSS,8)  ! SEND LAST TRACK TO LOG
! 
! 
      DS.DF,DS.F1_0     ! FORCE MASTER DIRECTORY TO BE CHECKED
! 
      RETURN
      END 
      END 
      END$
                                                                    