ASMB,R,Q,C
      HED IXPUT 
*     NAME:   IXPUT 
*     SOURCE: 92067-18081 
*     RELPC:  92067-16035 
*     PGMR:   G.A.A.,C.M.M. 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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,7 92067-16035 REV.1840 780731 
      ENT IXPUT 
      EXT $LIBR,$LIBX 
* 
* 
*      CALLING SEQUENCE:
* 
* 
*C     PUT IDATA INTO IADDR 
*      CALL IXPUT(IADDR,IDATA)
* 
*      WHERE:   IADDR = ADDRESS TO BE STUFFED 
*               IDATA = VALUE TO BE PUT INTO "IADDR"
* 
* 
* 
IXGET NOP 
IXPUT  NOP
      JSB $LIBR 
      NOP 
      LDA IXPUT,I 
      STA IXGET 
      ISZ IXPUT 
      DLD IXPUT,I 
      LDA A,I 
      LDB B,I 
      XSB A,I 
      JSB $LIBX 
      DEF IXGET 
* 
* 
A     EQU 0 
B     EQU 1 
      END 
                                                                                                                                                        