COMPSFN 
COMMON
          CTEXT  COMPSFN - SPACE FILL NAME. 
          SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   COMPSFN
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SFN      SPACE  4,10 
***       SFN - SPACE FILL NAME.
*         P. D. HAAS.        77/09/08.
 SFN      SPACE  4,10 
***              SFN ADDS TRAILING BLANKS OUT TO AND INCLUDING
*         THE 8TH CHARACTER OF A FILE NAME. 
* 
*         ENTRY  (A) = ADDRESS OF NAME. 
* 
*         EXIT   (T2) = ADDRESS-1 OF LAST BYTE MODIFIED.
*                (T3) = ADDRESS OF SPACE FILLED NAME. 
  
  
 SFN2     LPN    77 
          NJN    SFNX        IF LOWER CHARACTER PRESENT 
          LDN    1R          ADD LOWER BLANK
 SFN3     RAI    T2 
          SOD    T2          DECREMENT BYTE ADDRESS 
          SBD    T3 
          PJN    SFN1        IF NOT BEYOND START OF NAME
  
 SFN      SUBR               ENTRY/EXIT 
          STD    T3          SAVE START OF NAME 
          ADN    3           SET END OF NAME
          STD    T2 
          LDI    T2          CLEAR 8TH CHARACTER
          SCN    77 
          STI    T2 
 SFN1     LDI    T2          CHECK NEXT BYTE
          NJN    SFN2        IF AT LEAST 1 CHARACTER
          LDC    2R 
          UJN    SFN3        ADD 2 BLANKS 
 SFN      SPACE  4,10 
          BASE   *
          IF     -DEF,QUAL$ 
          QUAL   *
 SFN      EQU    /COMPSFN/SFN 
          ENDIF 
          ENDX
