ASMB HED S/P ISSPA (21MX ONLY) 15/10/75 P. SENANT NAM ISSPA,7 . 92903-16001 REV.1805 760929 * * SOURCE 92903-18029 * 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 ISSPA SPC 1 * IF(ISSPA(IBUF,1ST CHAR.,# OF BYTE) ) GARBAGE IN BUFFER * ONLY SPACES FOUND IN THE BUFFER SPC 1 DM1 DEC -1 * IBUF NOP IN NOP N NOP * ISSPA NOP JSB .ENTR DEF IBUF LDA N,I CMA,INA CCE,SSA,RSS JMP ISSPA,I OK ---> .FALSE. E=1 STA N LDB IBUF CLE,ELB ADB DM1 ADB IN,I LOOP LBT CPA O40 CLA,CCE,RSS JMP NON ISZ N JMP LOOP JMP ISSPA,I OK ! ---> .FALSE. / 0 E=1 NON ADB DM1 B=BYTE POINTER TO 1ST BAD CHAR. CCA,CLE ERROR ! ---> .TRUE. E=0 JMP ISSPA,I * O40 OCT 40 END