*DECK LDRPOVL 
         IDENT  LDRPOVL 
         TITLE  LDRPOVL - SET LOADER FOR REPORT-WRITER
LDRPOVL  SPACE  4 
* 
**       LDRPOVL - SETS THE LOADER FOR THE REPORT-WRITER OVERLAYS 
* 
*                  THE REPORT-WRITER HAS TWO SUB-OVERLAYS, THIS ROUTINE 
*                  SAVES LOVERS RETURN ADDR IN OVERLAY 0,0
*                  PROVIDES EASY RETURN FROM THE REPORT-WRITER OVERLAY
* 
         ENTRY  LDRPOVL 
         ENTRY  RPRTN 
* 
         EXT    LOVER 
* 
         USE    /FWALWA/
FWA      BSS    1 
         USE    * 
  
LDRPOVL  DATA   0 
         SA2    =XLOVER   SAVE LOVERS RETURN ADDRESS INTO OVERLAY 0,0 
         BX6    X2
         SA6    RPRTN+1   STORE IT IN A FIXED LOCATION
         SA3    65B       PICK UP PP-S LWA
          BX3    -X3         COMPLIMENT 
         SX7    X3+0
         SA7    FWA       SET SECONDARY OVERLAYS FWA FOR LOVER
         EQ     LDRPOVL 
  
RPRTN    DATA   0 
         EQ     *+400000B    LOVERS RETURN PUT HERE 
         END
