ASMB
      NAM SFILL,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-18014
*     RELOC:     24306-60001
* 
* 
* 
******************************************************************
* 
* 
* 
* 
*SFILL FILLS A SPECIFIED AREA (FROM J THRU JLAST) IN A STRING 
*ARRAY WITH A SPECIFIED CHARACTER (JCD).
* 
      ENT SFILL 
      EXT .ENTR,SPUT
PARAM BSS 4 
SFILL NOP 
      JSB .ENTR 
      DEF PARAM 
      LDA PARAM+1,I 
      STA JNOW      JNOW=J
ONE   JSB SPUT      PUT JCD 
      DEF *+4 
      DEF PARAM,I    JSTR 
      DEF JNOW
      DEF PARAM+3,I  PARAM
      LDB PARAM+2,I 
      CMB,INB        REG B=-JLAST 
      ADB JNOW      REG B=JNOW-JLAST
      SSB,RSS 
      JMP SFILL,I   JNOW-JLAST<0,RETURN 
      ISZ JNOW      JNOW=JNOW+1 
      JMP ONE 
JNOW  BSS 1 
      END 
      END$
                                                      