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