*DECK S$GNFET 
          IDENT  S$GNFET
          TITLE  S$GNFET -  GENERATE- FETS FOR FNLMRG FILES 
          COMMENT  GENERATE- FETS FOR FNLMRG FILES
  
*CALL LBLPTR
  
          SPACE  4
**        S$GNFET -  GENERATE- FETS FOR FNLMRG FILES
* 
*     CALLING SEQUENCE- 
*         S$GNFET(FMTBL$FILE, WSAF$LIBUF, WSAF$OIBUF, FMTBL$PRUNUM);
* 
*     GIVEN-
*         FMTBL$FILE = FILE NAMES FOR FINAL MERGE 
*         WSAF$LIBUF = LENGTH OF INPUT BUFFER 
*         WSAF$OIBUF = OFFSET OF INPUT BUFFER 
*         FMTBL$PRUNUM = START PRU NUMBER FOR PRIME STRINGS 
* 
  
  
          ENTRY  S$GNFET
 S$GNFET  SUBR
          SB1    1           CONSTANT 1 
* 
* GET PARAMETERS
  
          SA2    X1          X2 = FILE NAME 
          SA5    A1+B1       ADDRESS OF LENGTH OF INPUT BUFFER
          SA5    X5          X5 = LENGTH OF INPUT BUFFER
          SA4    A1+2        ADDRESS OF OFFSET OF INPUT BUFFER
          SA4    X4          X4 = OFFSET OF INPUT BUFFER
          SA3    A1+3        ADDR OF START PRUNUM 
          SA3    X3 
          SX0    X3          X0 = START PRUNUM
  
          GENWD  X2                    *GEN FET WORD 0 W/ FILENAME
         *USES   AX1-3,AX6,B6-7 
          GENWD  X4                    *GEN FIRST PTR (OFFSET ONLY) 
          GENWD  X4                    *GEN IN PTR (OFFSET ONLY)
          GENWD  X4                    *GEN OUT PTR (OFFSET ONLY) 
          IX5    X5+X4       LENGTH + OFFSET
          GENWD  X5                    *GET LIMIT PTR (OFFSET ONLY) 
          GENMAC (DATA 0)    FET WORD 5 
          GENWD  X0          FET WORD 6 W/ PRUNUM 
  
          EXIT
  
          END 
