ASMB,R,L,C
      HED (FMGR) MSC.: TEST FOR CORRECT MASTER SECURITY CODE
*     NAME:   MSC.
*     SOURCE: 92071-18064 
*     RELOC:  92071-16064 
*     PGMR:   G.L.M.
*     MOD:    E.D.B.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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 92071-1X064 REV.2041 800115
* 
      ENT MSC.
* 
      EXT $XECM, .ENTR, .XLB
      SUP 
      SKP 
* 
*     DESCRIPTION 
* 
*     THIS ROUTINE CHECKS THE PASSED PARAMETER AGAINST THE
*     SYSTEM MASTER SECURITY CODE 
* 
*     RSULT = MSC.(MSEC)
* 
*     WHERE:
* 
*     MSEC  IS THE QUESTIONED MASTER SECURITY CODE
*           (2-WORD ARRAY, WITH SECCD IN WORD 2)
* 
*     RSULT WILL BE 0 IF THE CODE DID NOT MATCH 
*                   1 IF THE CODE MATCHED 
      SKP 
* 
*     ENTRY 
* 
MSEC  NOP 
* 
MSC.  NOP 
      JSB .ENTR 
      DEF MSEC
* 
      JSB .XLB      FETCH SYSTEM MASTER SECUTITY CODE 
      DEF $XECM 
      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
* 
A     EQU 0 
B     EQU 1 
* 
END   EQU * 
* 
      END 
                                                                                                                                                                                                          