ASMB,R,L,C NAM GNODE,7 91750-1X123 REV 2013 800110 SPC 1 ****************************************************************** * * (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. * ****************************************************************** * * NAME: GNODE * SOURCE: 91750-18123 * RELOC: 91750-16123 * PGMR: 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