ASMB,R,L,C
*     NAME:   MSC.
*     SOURCE: 92070-18064 
*     RELOC:  92070-16064 
*     PGMR:   G.L.M.
* 
*  ***************************************************************
*  * (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.       *
*  ***************************************************************
* 
* 
      NAM MSC.,7  92070-1X064  REV.1941  790709 
* 
      EXT $XECM,.ENTR 
      ENT MSC.
* 
*     THIS ROUTINE CHECKS THE PASSED PARAMETER AGAINST THE
*     SYSTEM MASTER SECURITY CODE 
* 
*     ON RETURN: A=1 IF GOOD
*                A=0 IF BAD 
* 
MSEC  NOP 
MSC.  NOP 
      JSB .ENTR 
      DEF MSEC
      LDB $XECM     FETCH SYSTEM MASTER SECUTITY CODE 
      ISZ MSEC      POINT TO SECURITY CODE (2ND WRD OF P.RAM) 
      SZB           FORCE MATCH IF OLD CODE=0 
      CPB MSEC,I    MATCH?
      CLA,INA,RSS   YES--RETURN A=1 
      CLA           NO--RETURN A=0
      JMP MSC.,I    EXIT
      END 
                                                                                                                          