ASMB,R,Q,C
*     NAME:   IGET
*     SOURCE: 92070-18261 
*     RELOC:  92070-1X261 
*     PGMR:   HLC 
* 
* 
*  **************************************************************** 
*  * (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.        * 
*  **************************************************************** 
* 
* 
      NAM IGET,6  92070-1X261  REV.2040  800815 
      ENT IGET,IXGET
      EXT .ZPRV 
      SPC 2 
* 
*   CALLING SEQUENCE: 
* 
*    IVALUE = IGET (IADRS)
*          OR 
*    IVALUE = IXGET (IADRS) 
* 
*   WHERE:   IADRS  IS THE ADDRESS OF THE CORE LOCATION DESIRED.
*            IVALUE IS THE VALUE OF "IADRS" 
      SPC 2 
IXGET EQU * 
IGET  NOP           ENTRY ".ENTR" STYLE 
      JSB .ZPRV     MUST BE SHARABLE (BASIC NEEDS IT) 
      DEF EXIT
      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 
      STB IGET      FIXUP RETURN
EXIT  JMP IGET,I    RETURN
      DEF IGET
A     EQU 0 
B     EQU 1 
      END 
* 
                                                                                                                                                                                                              