ASMB,R,L,C * NAME: MSC. * SOURCE: 92064-18156 * RELOC: 92064-16055 * PGMR: 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. * * *************************************************************** * * NAM MSC.,7 92064-16055 REV.1650 760928 * 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 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