SPL,L,O ! NAME: MSC. ! SOURCE: 92067-18152 ! RELOC: 92067-16125 ! PGMR: G.A.A. ! ! *************************************************************** ! * (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. * ! *************************************************************** ! NAME MSC.(7) "92067-16125 REV.2001 790802" ! THIS ROUTINE CHECKS THE PASSED PARAMETER AGAINST THE ! SYSTEM MASTER SECURITY CODE ! LET D.RIO BE SUBROUTINE,EXTERNAL LET D.SDR BE INTEGER,EXTERNAL ! ! MSC.: FUNCTION(LST)GLOBAL ! ! RETURNS 1 IF GOOD 0 IF BAD ! D.RIO(1) !READ THE DIRECTORY OF DISCS IFNOT [T_$(@D.SDR+254)] THEN GO TO GOOD T_(T XOR 31178)+1 !UNMASK SYSTEM MASTER SECURITY CODE IF $(@LST+1)=T THEN [GOOD: RETURN 1] RETURN 0 END END END$