*COMDECK  COMCSFN            SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.    COMCSFN
 SFN      CTEXT  COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.      COMCSFN
 SFN      SPACE  4,10                                                    COMCSFN
          IF     -DEF,QUAL$,1                                            COMCSFN
          QUAL   COMCSFN                                                 COMCSFN
          BASE   D                                                       COMCSFN
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1974, 1978.        COMCSFN
 SFN      SPACE  4,10                                                    COMCSFN
***       SFN - SPACE FILL NAME.                                         COMCSFN
*                                                                        COMCSFN
*         G. R. MANSFIELD.   70/12/08.                                   COMCSFN
*         S. R. MCPHERSON.   74/11/15.                                   COMCSFN
* 
*         ******************************************************* 
*         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS * 
*         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  * 
*         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     * 
*         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  * 
*         * THROUGH THE PROPER PROCEDURE.                       * 
*         ******************************************************* 
* 
*                                                                        COMCSFN
*         SFN CONVERTS TRAILING 00 CHARACTERS IN A WORD TO BLANKS.       COMCSFN
 SFN      SPACE  4,10                                                    COMCSFN
***       SFN CONVERTS TRAILING 00 CHARACTERS IN A WORD TO BLANKS.       COMCSFN
*                                                                        COMCSFN
*         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                  COMCSFN
*                (B1) = 1.                                               COMCSFN
*                                                                        COMCSFN
*         EXIT   (X6) = NAME SPACE FILLED.                               COMCSFN
*                (X7) = FINAL CHARACTER MASK.                            COMCSFN
*                                                                        COMCSFN
*         USES   X - 3, 6, 7.                                            COMCSFN
*                A - 3.                                                  COMCSFN
*                B - 2.                                                  COMCSFN
*                                                                        COMCSFN
*         CALLS  NONE.                                                   COMCSFN
                                                                         COMCSFN
                                                                         COMCSFN
 SFN      SUBR               ENTRY/EXIT                                  COMCSFN
          SX7    B1                                                      COMCSFN
          SA3    SFNA        =40404040404040404040B                      COMCSFN
          IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN
          BX6    -X7+X1                                                  COMCSFN
          SB2    60-5                                                    COMCSFN
          BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN
          SA3    A3+B1       =10H                                        COMCSFN
          LX6    X7,B2                                                   COMCSFN
          IX6    X7-X6                                                   COMCSFN
          BX7    X7+X6                                                   COMCSFN
          BX3    -X7*X3                                                  COMCSFN
          IX6    X1+X3                                                   COMCSFN
          EQ     SFNX        RETURN                                      COMCSFN
                                                                         COMCSFN
 SFNA     DATA   40404040404040404040B                                   COMCSFN
          DATA   10H                                                     COMCSFN
 SFN      SPACE  4,10                                                    COMCSFN
          BASE   *                                                       COMCSFN
 QUAL$    IF     -DEF,QUAL$                                              COMCSFN
          QUAL   *                                                       COMCSFN
 SFN      EQU    /COMCSFN/SFN                                            COMCSFN
 SFN=     EQU    /COMCSFN/SFN 
 QUAL$    ENDIF                                                          COMCSFN
 SFN      ENDX                                                           COMCSFN
