ASMB,R,L,C
      NAM GNODE,7 91740-16036 REV 1740 770425 
      SPC 1 
******************************************************************
*  * (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.       *
******************************************************************
* 
*  GNODE
*  SOURCE: 91740-18036 REV 1740 
*  BINARY: 91740-16036 REV 1740 
*  CHUCK WHELAN 
*  APRIL 25,1977
* 
*  RETURN LOCAL NODAL ADDRESS TO CALLER 
* 
      ENT GNODE 
* 
      EXT #NODE 
* 
GNODE NOP 
      LDB GNODE 
      INB 
      LDB 1,I       GET PARAMETER ADDRESS 
      LDA #NODE 
      STA 1,I       RETURN NODE # TO CALLER 
      LDB GNODE,I 
      JMP 1,I 
* 
      END 
                                                                                                                                