10 ! ----- VERIFY_UIC_GROUP.FUN ----- ! ! ----- FUNCTION RETURNS FALSE IF PROCESS'S UIC GROUP DOES NOT ----- ! ----- MATCH THE UIC GROUP THAT IS PASSED TO THIS FUNCTION ----- ! ! ----- MUST BE LINKED WITH OCT_TO_DEC ----- ! ! ----- PASSED: ----- ! ----- PASSED_UIC_GROUP = (LONGWORD) UIC GROUP TO COMPARE ----- ! ----- PROCESS UIC GROUP AGAINST ----- ! ----- RETURNS: ----- ! ----- VERIFY_UIC_GROUP = FALSE IF UIC GROUPS MATCH, ----- ! ----- OTHERWISE TRUE (ALSO ----- ! ----- RETURNS TRUE IF ANY ----- ! ----- ERROR OCCURS) ----- ! ! ----- Last Change 05/01/89 by Brian Lomasky ----- ! ! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA 02111 ----- ! ----- (617) 482-2706, x3259 ----- ! ! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or ----- ! ----- explicitly implies this program is usable in any way. ----- ! ----- This program is released to the public domain in an ----- ! ----- "AS-IS" condition. ----- ! ! ----- Restrictions: ----- ! ----- 1) Requires VAX BASIC V2.4 or later. ----- ! ----- 2) Must be linked with GET_UIC and OCT_TO_DEC ----- ! FUNCTION WORD VERIFY_UIC_GROUP(LONG PASSED_UIC_GROUP) OPTION TYPE = EXPLICIT DECLARE WORD CONSTANT TRUE = (1% = 1%) DECLARE WORD CONSTANT FALSE = NOT TRUE DECLARE LONG DECIMAL_UIC_GROUP ! DECIMAL UIC GROUP NUMBER MAP (GPROUIC) LONG PROCESS_UIC ! UIC FROM GET_UIC MAP (GPROUIC) WORD OCT_UIC_MEMBER, ! MEMBR UIC & WORD OCT_UIC_GROUP ! GROUP UIC EXTERNAL LONG FUNCTION GET_UIC ! GET PROCESS UIC EXTERNAL LONG FUNCTION OCT_TO_DEC(LONG) ! OCTAL TO DECIMAL CONVERSION VERIFY_UIC_GROUP = TRUE ! ASSUME ERROR STATUS PROCESS_UIC = GET_UIC ! GET PROCESS UIC ! ----- CONVERT THE OCTAL UIC GROUP TO A DECIMAL VALUE ----- DECIMAL_UIC_GROUP = OCT_TO_DEC((OCT_UIC_GROUP)) EXIT FUNCTION IF DECIMAL_UIC_GROUP <> PASSED_UIC_GROUP VERIFY_UIC_GROUP = FALSE ! RETURN SUCCESS STATUS END FUNCTION