*DECK FCMMLOV 
          IDENT  CMMLOV 
 CMMLOV   TITLE  CMMLOV - LOAD OVERLAY VIA FOL. 
          COMMENT  LOAD OVERLAY VIA FOL 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMLOV - LOAD OVERLAY VIA FOL.
* 
*         CALL CMMLOV(NAME,FWA,EPADR) 
* 
*                NAME - NAME OF OVERLAY LEFT JUST BINARY ZERO FILLED
*                FWA - RETURNED FIRST WORD ADDRESS OF OVERLAY 
*                EPADR - RETURNED ENTRY POINT OF OVERLAY
* 
 CMMLOV   SPACE  4,4
          SUBRTN CMMLOV 
          SA2    A1+B1       ADDR OF FWA RETURN 
          SA3    A2+B1       ADDR OF ENTRY POINT
          BX6    X2 
          SA6    =SFWA
          BX7    X3 
          SA7    =SEPADR
          SA1    X1          NAME 
+         RJ     =XCMM.LOV   LOAD OVERLAY 
-         VFD    12/0,18/CMMLOV-1 
          SA1    FWA
          SA2    EPADR
          SX6    B6          FWA RETURNED 
          SA6    X1          RETURN FWA OF OVERLAY
          SX7    B7          ENTRY POINT ADDR 
          SA7    X2          RETURN IT
          RTRN   CMMLOV 
          END 
