ASMB,R,B,L
      HED IPUT
*     NAME:   IPUT
*     SOURCE: 92002-18149 
*     RELOC:  92067-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (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 IPUT,6 92067-16125 REV.1903 740801
B     EQU 1 
      ENT IPUT
      EXT $LIBR,$LIBX 
ADDR  BSS 1 
VALUE BSS 1 
IPUT  NOP 
      JSB $LIBR 
      NOP 
      ISZ IPUT
      DLD IPUT,I
      DST ADDR
      ISZ IPUT
      ISZ IPUT
      LDA VALUE,I 
      LDB ADDR,I
      STA B,I 
      JSB $LIBX 
      DEF IPUT
      END 
                                                                                                                                  