*COMDECK  COMCSFN 
          CTEXT  COMCSFN - SPACE FILL NAME. 
 SFN      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMCSFN
          BASE   D
*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
 SFN      SPACE  4
***       SFN - SPACE FILL NAME.
*         G. R. MANSFIELD.  70/12/08. 
 SFN      SPACE  4
***              SFN REPLACES 00 CODES WITH 55 CODES IN A WORD. 
* 
*         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL. 
*                (B1) = 1.
* 
*         EXIT   (X6) = NAME SPACE FILLED.
*         (X7) = FINAL CHARACTER MASK 
* 
*         USES   X - 2, 3, 6, 7.
*                B - 2. 
*                A - 3. 
* 
*         CALLS  NONE.
  
  
 SFN      PS                 ENTRY/EXIT 
          LX6    X1,B1       MERGE CHARACTER BITS 
          SB2    B1+B1
          BX7    X1+X6
          LX2    X7,B2
          SA3    SFNA        =10101010101010101010B 
          BX6    X2+X7
          LX7    -2 
          BX2    X6+X7
          BX3    X3*X2       SET NON-ZERO CHARACTERS
          AX7    X3,B1       EXPAND TO CHARACTER MASK 
          BX2    X7+X3
          SA3    A3+B1       =10H 
          LX7    X2,B2
          BX6    X2+X7
          AX7    X2,B2
          BX7    X6+X7
          BX3    -X7*X3 
          BX6    X1+X3
          EQ     SFN
  
 SFNA     CON    10101010101010101010B
          CON    1H 
          SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SFN      EQU    /COMCSFN/SFN 
 QUAL$    ENDIF 
          ENDX
