*COMDECK  COMFFFN - FIND FILE NAME. 
 COMFFFN  CTEXT  COMFFFN
 FFN      SPACE  4,8
**        FFN -  FIND FILE NAME.
* 
*         MANUFACTURES OBJECT PROGRAM FILE NAMES FROM THE SOURCE PROGRAM
*         FILE NAME.
* 
*         ENTRY  (X6) = SOURCE-PROGRAM FILE NAME (0L FORMAT, 6 CHAR MAX)
* 
*         EXIT   (X6) = OBJECT-PROGRAM FILE NAME (0L FORMAT). 
* 
*         USES   A2  X1,X3  B7
  
  
 FFN      SUBR   =           ENTRY/EXIT...
          =X1    1
          SA2    =40404040404040404040B 
          IX1    X6-X1       LOCATE LOWEST BIT
          BX3    -X1+X6 
          SB7    60-CHAR+1
          BX1    X2*X3       40 WHERE CHARACTERS WERE 
          SA2    FFNA 
          LX3    X1,B7
          IX3    X1-X3
          IX1    X1+X3       77 WHERE CHARACTERS WERE 
          BX2    -X1*X2 
          IX6    X6+X2       MERGE TRAILING "FC" CHARACTERS 
          AX1    CHAR        EXTEND MASK 1 CHAR MORE THAN NR OF ORIGINAL
          BX6    X1*X6       DROP SUPERFLOUS "FC" 
          EQ     EXIT.
  
 FFNA     LIT    7L"FC""FC""FC""FC""FC""FC""FC" 
          ENDX
