ASMB
      HED  S/P LNGT (LIKE LNGTH IN TCS B) P. SENANT 
      NAM LNGT,7 . 92080-1X038 REV.2026  800515 
* 
*     SOURCE 92080-18038
* 
      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 
      ENT LNGT
      EXT .ENTR 
ADDR  NOP 
SIZE  NOP 
LNGT NOP
      JSB .ENTR 
      DEF ADDR
      CCB 
      ADB ADDR
      ADB SIZE,I    /CALCULATE LAST WORD OF ARRAY 
      LDA SIZE,I
      CMA,INA       /FORM NEG. COUNT
      STA SIZE
LNGT1 LDA B,I 
      CPA =B20040   /BLANKS?
      JMP LNGT2     /YES
      LDB SIZE      /NO 
      CMB,INB       /CONVERT TO POSITIVE COUNT
      RBL           /X2 FOR CHARACTERS
      AND =B377 
      CPA =B40      /LAST ONE A BLANK 
      ADB =D-1      YES-DECREMENT COUNT 
      STB A 
      JMP LNGT,I   /RETURN WITH ANSWER IN A 
LNGT2 EQU * 
      ADB =D-1      BACK UP POINTER 
      ISZ SIZE      DONE? 
      JMP LNGT1     /NO 
      CLA           /YES
      JMP LNGT,I
A     EQU 0 
B     EQU 1 
      END 
                                                                                                                                                                                              