COMCSFN 
COMMON
          CTEXT  COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES. 
          SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCSFN
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SFN      SPACE  4
***       SFN - SPACE FILL NAME.
*         G. R. MANSFIELD.   70/12/08.
*         S. R. MCPHERSON.   74/11/15.
 SFN      SPACE  4
***       SFN - SPACE FILL RIGHT JUSTIFIED ZEROES.
* 
*         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL. 
*                (B1) = 1.
* 
*         EXIT   (X6) = NAME SPACE FILLED.
*                (X7) = FINAL CHARACTER MASK. 
* 
*         USES   X - 3, 6, 7. 
*                A - 3. 
*                B - 2. 
  
  
 SFN      PS     0           ENTRY/EXIT 
          SX7    B1 
          SA3    SFNA        =40404040404040404040B 
          IX7    X1-X7       FIND LOWEST BIT SET
          BX6    -X7+X1 
          SB2    60-5 
          BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS
          SA3    A3+B1       =10H 
          LX6    X7,B2
          IX6    X7-X6
          BX7    X7+X6
          BX3    -X7*X3 
          BX6    X1+X3       MERGE ORIGINAL DATA WITH SPACES
          EQ     SFN         RETURN 
  
 SFNA     DATA   40404040404040404040B
 SFNB     DATA   10H
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SFN      EQU    /COMCSFN/SFN 
 QUAL$    ENDIF 
          ENDX
