ASMB,R,L,C HED "IGET" FORTRAN ABS. CORE GET ROUTINE (DLB) * * NAME: IGET * SOURCE: 92068-18017 * RELOC: PART OF 92067-16268 AND 92067-16035 * PGMR: R.A.G. * * *************************************************************** * * (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 IGET,7 92068-1X017 REV.2013 770501 ENT IGET SPC 2 * * CALLING SEQUENCE: * * IVALUE = IGET (IADRS) * * WHERE: IADRS IS THE ADDRESS OF THE CORE LOCATION DESIRED. * IVALUE IS THE VALUE OF "IADRS" SPC 2 IGET NOP ENTRY ".ENTR" STYLE LDB IGET,I GET RETURN ADDRESS ISZ IGET NOW GET VALUE ADDRESS LDA IGET,I GET VALUE ADDRESS LDA A,I GET VALUE CONTENTS LDA A,I GET VALUE JMP B,I RETURN DONE A EQU 0 B EQU 1 END *