*COMDECK  COMCZFN - ZERO FILL NAME. 
          CTEXT  COMCZFN - ZERO FILL NAME.
 ZFN      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCZFN
          BASE   D
*         COMMENT COPYRIGHT CONTROL DATA CORP. 1976.
 ZFN      SPACE  4
***       ZFN - ZERO FILL NAME. 
*         R. H. GOODELL.     76/08/30.
 ZFN      SPACE  4
***       ZFN - ZERO FILL RIGHT JUSTIFIED SPACES. 
* 
*         ENTRY  (X1) = NAME LEFT JUSTIFIED, SPACE FILL.
*                (B1) = 1.
* 
*         EXIT   (X6) = NAME ZERO FILLED. 
*                (X7) = FINAL CHARACTER MASK. 
* 
*         USES   X - 3, 6, 7. 
*                A - 3. 
*                B - 2. 
* 
*         CALLS  NONE.
  
  
 ZFN      SUBR               ENTRY/EXIT 
          SA3    ZFNA        =10H 
          SX7    B1 
          BX6    X1-X3       CHANGE ALL SPACES TO 00
          SA3    A3+B1       =40404040404040404040B 
          IX7    X6-X7       FIND LOWEST BIT SET
          SB2    60-5 
          BX6    -X7+X6 
          BX7    X3*X6       BUILD MASK OF TRAILING NON-00 CHARACTERS 
          LX6    X7,B2
          IX6    X7-X6
          BX7    X7+X6
          BX6    X7*X1       CLEAR TRAILING SPACES
          JP     EXIT.
  
 ZFNA     DATA   10H
          DATA   40404040404040404040B
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 ZFN      EQU    /COMCZFN/ZFN 
 QUAL$    ENDIF 
          ENDX
