*DECK PUTDZ 
          IDENT     PUT$Z 
          LIST      C,F,X 
          COMMENT   CRM SQ PUT Z-RECORD PROCESSOR 
          ENTRY     PUT$Z 
          ENTRY     PUT$ZT
          SST 
          B1=1
*#
*1CD  PUT$Z 
*0D   PURPOSE 
*0        CALCULATE RECORD LENGTH FOR Z RECORDS FOR PUT$SQ AND ZERO 
*         TRAILING BLANKS AT END OF RECORD. 
*0D   CALL
*0                  SB5       RETURN-ADDRESS
*                   EQ        =YPUT$Z 
*0        OR        EQ        =YPUT$ZT
*0D   PARAMETERS
*0        A0        FIT ADDRESS.
*         B1        1.
*         B5        RETURN ADDRESS. 
*0D   ACTION
*0        PUT$Z.
*         SEARCH BACK FROM  WSA+(RRL/10) IF RRL"0 OR FROM WSA+(FL/10) 
*         IF RRL=0  UNTIL A NON-BLANK WORD IS FOUND, CALCULATE NUMBER 
*         OF CHARACTERS IN THE NON-BLANK WORDS (MULTIPLE OF 10), PUT
*         COUNT IN X3 AND RETURN TO CALLED THROUGH B5.
*0        PUT$ZT. 
*         THIS SECTION IS ENTERED BY PUT$SQ AFTER THE RECORD HAS
*         BEEN TRANSFERRED TO THE BUFFER. IT ZEROS TRAILING BLANKS
*         AND ENSURES ONE BLANK AFTER A COLON OR RIGHT BRACKET. IT
*         RETURNS DIRECTLY TO PUT$SQ VIA   EQ =YENDRT.
*0D   REGISTERS USED
*0        ALL EXCEPT A0,B1
*0D   OTHER CODE REQUIRED 
*0        PROGRAMS- CHWR$RM (PUT$Z), PUT$SQ (PUT$ZT)
*         MACROS-   PUT$Z  -  CAP.RM,F.RM,ON.RM 
*                   PUT$ZT -  CAP.RM,F.RM,BUFINC,SET.RM,GET1.SQ,INC.RM
*0D   NARRATIVE DESCRIPTION 
*#
* CALL /PUTDZ/               /PUTDZ/  *COMDECK /PUTDZ/
*CALL /PUTDZ/ 
          END 
