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