COMKZFN 
COMMON
          CTEXT  COMKZFN - ZERO FILL NAME.
 COMKZFN  SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMKZFN
  
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMKZFN  SPACE  4,10 
***       ZFN -  ZERO FILL NAME.
*         W. E. MARTIN.      05/15/77.
          BASE   D
          SPACE  4,10 
***       COMKZFN - ZERO FILL A WORD. 
* 
*         ZERO FILL NAME REMOVES TRAILING BLANKS FROM A WORDWHICH 
*         MIGHT COUNTAIN EITHER ZERO OR BLANK FILL. 
* 
*         ENTRY  (X1) = NAME, LEFT-JUSTIFIED. 
* 
*         EXIT   (X1) = NAME, ZERO FILLED.
* 
*         USES   X - 1, 2, 3, 4, 6. 
* 
  
  
 ZFN      SUBR               ENTRY/EXIT 
          MX2    -6 
          SX4    1R 
          MX6    50 
 ZFN1     ZR     X6,ZFNX     IF LAST PASS THROUGH LOOP - (X6) = -0
          LX1    6
          BX3    -X2*X1 
          AX6    1           SHIFT TRIP COUNTER 
          BX3    X4-X3
          NZ     X3,ZFN1     IF NON-BLANK CHARACTER 
          BX1    X2*X1       REMOVE BLANK CHARACTER 
          EQ     ZFN1        CONTINUE PROCESSING
  
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 ZFN      EQU    /COMKZFN/ZFN 
 QUAL$    ENDIF 
          ENDX
