ASMB,R,Q,C
*     NAME:   IXGET 
*     SOURCE: 92071-18319 
*     RELOC:  92070-1X319 
*     PGMR:   DJN 
* 
* 
*  **************************************************************** 
*  * (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 IXGET,6  92071-1X319  REV.2041  800715
      ENT IXGET 
      EXT .XLA,.ZPRV
      SPC 2 
* 
*   CALLING SEQUENCE: 
* 
*    IVALUE = IXGET(IADRS)
* 
*   WHERE:   IADRS  IS THE ADDRESS OF THE CORE LOCATION DESIRED.
*            IVALUE IS THE VALUE OF "IADRS" 
      SPC 2 
IXGET NOP           ENTRY ".ENTR" STYLE 
      JSB .ZPRV     SHARABLE
      DEF EXIT
      LDB IXGET,I   GET RETURN ADDRESS
      ISZ IXGET     NOW GET VALUE ADDRESS 
      LDA IXGET,I   GET VALUE ADDRESS 
      LDA A,I       GET VALUE CONTENTS
      JSB .XLA      GET VALUE 
      DEF A,I 
      STB IXGET     FIX RETURN
EXIT  JMP IXGET,I   RETURN
      DEF IXGET 
A     EQU 0 
B     EQU 1 
      END 
* 
                  