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 
                                                                                                                                                                                                                                                