*DECK FFSFOLR 
          IDENT  FFSFOLR
*CALL COPYRITE
  
          ENTRY  FFSFOLR
  
          SYSCOM B1 
          SST 
          TITLE  FFSCFIO - FAST OVERLAY LOAD REQUEST PROCESSOR. 
          COMMENT  FFSFOLR - FAST OVERLAY LOAD REQUEST PROCESSOR. 
          SPACE  4,10 
***       FFSFOLR PROVIDES A SYMPL INTERFACE TO THE FAST OVERLAY
*         LOADER. 
*** 
  
          SPACE  4,20 
*** 
* 
*         CALLING SEQUENCE
* 
*         FFSFOLR (FOLREQ, FOLFWA); 
* 
*         ENTRY:- 
*                (FOLREQ)  = FAST OVERLAY LOADER REQUEST PARAMETERS 
* 
*         EXIT :- 
* 
*                (FOLFWA)  = FWA OF THE OVERLAY LOADED. 
* 
* 
  
          SPACE  4,10 
  
 FFSFOLR  SUBR
          SA0    A1          SAVE ADDRESS OF PARAMETER LIST 
          SA1    X1          LOAD FOL PARAMETER WORD
          RJ     =XFOL.LOV   EXIT TO LOAD OVERLAY 
          GE     B7,FFSFOL1  EXIT IF NO ERRORS
          SX7    B7 
          SA7    FFSFOLE     SAVE ERROR CODE
          SX3    FFSFOLM     * OVERLAY LOAD ERROR * 
          EQ     FFSFOL2
  
 FFSFOL1  SA1    A0+B1       (X1) = ADDRESS OF FOLFWA 
          SX6    B6          (X6) = FWA OF LOADED OVERLAY 
          SA6    X1          RETURN FWA OF LOADED OVERLAY TO CALLER 
          JP     B7          EXIT TO OVERLAY
  
 FFSFOL2  MESSAGE X3,0
          ABORT              ABORT
  
 FFSFOLE  BSSZ   1           OVERLAY LOAD ERROR 
 FFSFOLM  DATA   C* FFSFOLR - OVERLAY LOAD ERROR.*
  
          END 
