ASMB
      NAM SPUT,7 24306-60001 REV.2026 791205  
* 
* 
******************************************************************* 
* (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. 
******************************************************************* 
* 
* 
*     SOURCE:    24306-18018
*     RELOC:     24306-60001
* 
* 
* 
******************************************************************
* 
* 
* 
* 
*SPUT DEPOSITS A CHARACTER IN A SPECIFIED POSITION IN AN ARRAY. 
*SPUT DEPOSITS NCHAR IN JSTR(J) 
* 
      ENT SPUT
      EXT .ENTR 
JSTR BSS 3
SPUT  NOP            CALL SPUT(JSTR,J,NCHAR)
      JSB .ENTR     TRANSFER
      DEF JSTR      PARAMETERS
      LDA JSTR+2,I  LOAD VALUE OF JCHAR.
      AND LOW 
      STA JSTR+2    SAVE VALUE OF JCHAR.
      LDB JSTR+1,I  LOAD VALUE OF J.
      CCA 
      ADB 0 
      CLE,SLB       IF J IS ODD INTEGER,SKIP. 
      CCE           J IS EVEN INTEGER.
      BRS           DIVIDE BY TWO TO GET WORD VALUE.
      ADB JSTR      CREATE EFFECTIVE ADDRESS. 
      LDA 1,I       LOAD EFFECTIVE WORD.
      SEZ,RSS 
      ALF,ALF 
      AND HI        MASK OUT EFFECTIVE BITS AND 
      IOR JSTR+2    ADD JCHAR.
      SEZ,RSS 
      ALF,ALF 
      STA 1,I       STORE NEW WORD VALUE. 
      JMP SPUT,I
LOW   OCT 377 
HI    OCT 177400
      END 
      END$
            