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