PUNCH 'CATALOG LENGTH.OBJ R=Y'
LENGTH   START 0
**********************************************************************
* THIS SUBPROGRAM ALLOWS CALLER TO FIND THE LENGTH OF A STRING       *
*                                                                    *
* PROGRAMMER: BILL BLASINGIM                                         *
**********************************************************************
         PRINT NOGEN
         SAVE  (14,12)
START    BALR  12,0
         USING *,12
         ST    R13,SAVEAREA+4
         LA    R13,SAVEAREA
         LM    R4,R5,0(1)
*        R4 = ADDRESS OF STRING
*        R5 = TOTAL LENGTH OF STRING
*
         L     R6,0(0,R5)              STRING LENGTH
         AR    R4,R6                   STRING END ADDRESS
LOOP1    SH    R4,=H'1'
         CLI   0(R4),C' '              CHECK FOR SPACE
         BNE   CHAR
         BCT   R6,LOOP1
CHAR     ST    R6,0(0,R5)              PASS BACK STRING LENGTH
GOBACK   L     R13,SAVEAREA+4
         RETURN (14,12)
**********************************************************************
*                                                                    *
*                 S T O R A G E   A R E A                            *
*                                                                    *
**********************************************************************
SAVEAREA DS   9D
R1       EQU  1
R2       EQU  2
R3       EQU  3
R4       EQU  4
R5       EQU  5
R6       EQU  6
R7       EQU  7
R8       EQU  8
R9       EQU  9
R10      EQU  10
R11      EQU  11
R12      EQU  12
R13      EQU  13
R14      EQU  14
R15      EQU  15
         END  START