ASMB,R,Q,C
*     NAME:   IXPUT 
*     SOURCE: 92070-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 IXPUT,6  92071-1X320 REV.2041  800409 
      ENT IXPUT 
      EXT $LIBR,$LIBX,.XSB
* 
* 
*      CALLING SEQUENCE:
* 
* 
*      PUT IDATA INTO IADDR 
* 
*      CALL IXPUT(IADDR,IDATA)
* 
*      WHERE:   IADDR = SYSTEM ADDRESS TO BE STUFFED
*               IDATA = VALUE TO BE PUT INTO "IADDR"
* 
* 
* 
RTN   NOP 
IXPUT NOP 
      JSB $LIBR     PRIVILEGED ROUTINE
      NOP 
* 
      LDA IXPUT,I   GET RETURN ADDRESS
      STA RTN       SAVE IT 
      ISZ IXPUT     GET DATA ADDRESS
      DLD IXPUT,I 
      LDA A,I       RESOLVE INDIRECTS 
      LDB B,I 
      JSB .XSB      STORE THE DATA AT THE RESOLVED ADDRESS
      DEF A,I 
      JSB $LIBX     $LIBX RETURN
      DEF RTN 
* 
* 
A     EQU 0 
B     EQU 1 
      END 
                                                                                                                                                                                                                                