*COMDECK IDP=COM     /
          EJECT 
* 
*         L O A D I D P         LOADS THE FTN IDP  MODULE FOR 
*                               PORPOISES OF INTERACTIVE DEBUGGING. 
* 
*         ENTRY-  NO SPECIAL CONDITIONS 
* 
*         EXIT-  LFN -IDP- IS LOADED AND IF -IDP- IS A KNOWN ENTRY
*                 POINT, IT ISSUES AN RJ TO IT TO GET THINGS STARTED. 
* 
*         CALLING SEQUENCE-  LOADIDP
* 
          SPACE  2
          ENTRY  LOADIDP
  
 LOADIDP1 JP     *+1S17            WILL LATER CONTAIN A -RJ IDP-
  
 LOADIDP  JP     *+1S17            THOU SHALT NOT ENTER WITH -EQ- 
          RETURN ZZZZZ17,RECALL    RTN LDR FILE TO AVOID POSSIBLE LDR ER
          LOADER LOADIDPB,CMM  LOADIDPB IS THE REQUEST STRING 
          RETURN ZZZZZ17,RCL       RETURN LOADERS FILE
          SA1    LOADIDPC+1        IDP WORD IN LDREQ ENTRY MACRO
          MX0    42 
          BX2    X0*X1             UPPER 7 CHARACTERS OF IDP WORD 
          NZ     X2,LOADIDP2       IF IDP ENTRY NOT FOUND 
          LX1    30 
          SX6    1RA
          LX6    60-6              (X6) = RJ 0
          BX6    X1+X6             RJ IDP 
          SA6    LOADIDP1          SAVE FOR INITIAL CALL
          RJ     CLR.INS           CLEAR INSTRUCTION STACK
 CLR.INS  DATA   0
          JP     LOADIDP1          CALL IDP 
          SPACE  2
 LOADIDP2 MESSAGE LOADIDPA,LOCAL,RCL  DIAGNOSE IDP NOT FOUND
          EQ     LOADIDP
          SPACE  3
 LOADIDPA DATA   C* IDPINIT NOT FOUND ON LFN -IDP-.*
  
 LOADIDPB LDREQ  BEGIN
          LDREQ  MAP,N             MAP,OFF
          LDREQ  PASSLOC,((LDOVL1,,,=XLDOVL1))
          LDREQ  PASSLOC,((LDOVL2,,,=XLDOVL2))
          LDREQ  PASSLOC,((OVLNAME,,,=XOVLNAME) 
          LDREQ  LOAD,(IDP/R) 
 LOADIDPC LDREQ  ENTRY,(IDP)
          LDREQ  END
          SPACE  4
 ZZZZZ17  FILEB  *-100,100         DUMMY FET FOR RETURNING LOADER FILE
          SPACE  3
