SPL,L,O 
!     NAME:   MSC.
!     SOURCE: 92067-18152 
!     RELOC:  92067-16125 
!     PGMR:   G.A.A.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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 MSC.(7) "92067-16125 REV.2001 790802"
!     THIS ROUTINE CHECKS THE PASSED PARAMETER AGAINST THE
!     SYSTEM MASTER SECURITY CODE 
! 
      LET D.RIO            BE SUBROUTINE,EXTERNAL 
      LET D.SDR            BE INTEGER,EXTERNAL
! 
! 
MSC.: FUNCTION(LST)GLOBAL 
! 
!     RETURNS 1 IF GOOD 0 IF BAD
! 
      D.RIO(1)             !READ THE DIRECTORY OF DISCS 
      IFNOT [T_$(@D.SDR+254)] THEN GO TO GOOD 
      T_(T XOR 31178)+1    !UNMASK SYSTEM MASTER SECURITY CODE
      IF $(@LST+1)=T THEN [GOOD: RETURN 1]
      RETURN 0
      END 
      END 
      END$
                                                                                                                                                                  