*DECK DFLDOV
          IDENT  DFLDOV 
* 
**        DFLDOV - LOAD DIAG FORMAT OVERLAY AND EXECUTE IT
* 
          ENTRY  DFLDOV 
 DFLDOV   DATA   0
          SA2    =XLOVER     GET ADDR OF LAST CALLER TO LOVER 
          SA1    PARAM
          BX6    X2 
          SA6    =SSAVLOV    SAVE ADDR OF LAST CALL 
          RJ     =XLOVER     GO CALL OVERLAY LOADER 
          SA2    EADDR       GET ENTRY POINT ADDRESS
          SB2    X2 
          JP     B2          GO TO OVERLAY AND EXECUTE IT 
          ENTRY  DFOVRTN
 DFOVRTN  DATA   0           RETURN HERE FROM OVERLAY 
          SA1    SAVLOV      GET ADDR OF PREVIOUS CALL TO LOVER 
          BX6    X1 
          SA6    =XLOVER     RESTORE FOR OVERRTN
          EQ     DFLDOV      RETURN 
 PARAM    CON    OVLNAME
          CON    EADDR
 EADDR    DATA   0
 OVLNAME  DATA   7LCOB5301
          END 
