ASMB
      HED S/P BLAN  (21MX ONLY)    24AUG77       P. SENANT
      NAM BLAN,7 . 92903-16001 REV.1805  770824 
* 
*     SOURCE 92903-18005
* 
      SPC 2 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
      SPC 2 
      EXT .ENTR 
      ENT BLAN
      SUP 
* 
*     THIS PROGRAM FILLS A STRING WITH BLANKS 
* 
IBUF  NOP 
IT    NOP 
N     NOP 
* 
BLAN  NOP 
      JSB .ENTR 
      DEF IBUF
      CCA 
      ADA N,I 
      SSA 
      JMP BLAN,I
      STA N 
      LDB IBUF
      CLE,ELB 
      ADB DM1 
      ADB IT,I
      LDA BL
      SBT        INIT. FIRST CHARACTER
      LDA N 
      SZA,RSS 
      JMP BLAN,I
      CCA 
      ADA 1 
      MBT N 
      JMP BLAN,I
* 
DM1   DEC -1
BL    OCT 40
      END 
                                                                                                                                                                                              