ASMB,R,L,C
      HED IPUT  
*     NAME:   IPUT
*     SOURCE: 92064-18090 
*     RELOC:  92064-16070 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  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,7  92064-16070  REV.1650  761024 
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 
                                                                                                                    