*DECK,DMP$COM 
*IF,DEF,TRACE 
USETEXT IP$COM
USETEXT MISC$ 
USETEXT TSB$COM 
USETEXT ACN$COM 
USETEXT CHN$COM 
USETEXT GLOBALI 
      PROC DMP$COM; 
      BEGIN   # DMP$COM # 
 #
*1DC  DMP$COM 
* 
*     1. PROC NAME             AUTHOR               DATE
*        DMP$COM               G. A. VALENCIA       07 JANUARY 1980 
* 
*     2. FUNCTION DESCRIPTION.
*            NO EXECUTABLE CODE.  JUST CALL SYMPL TEXTS TO GET
*        COMMON BLOCKS LOADED FOR THE DUMPING ROUTINES. 
* 
*     3. METHOD USED. 
*            THIS DECK JUST USES ALL THE SYMPL TEXTS TO BE DUMPED 
*        AND IS THEN LOADED INTO THE 00,00 OVERLAY.  THIS FORCES THE
*        COMMON BLOCKS OF INTEREST TO BE LOADED THERE ALSO, MAKING
*        THEM ACCESSIBLE TO THE THE DUMPING ROUTINES IN THE 02,00 
*        OVERLAY. 
* 
*     4. ENTRY PARAMETERS.
*        NONE 
* 
*     5. EXIT PARAMETERS. 
*        NONE 
* 
*     6. SYMPLTEXTS USED. 
*        IP$COM 
*        MISC$
*        TSB$COM
*        ACN$COM
*        CHN$COM
*        GLOBALI
* 
*     7. ROUTINES USED. 
*        NONE 
* 
*     8. DAYFILE MESSAGES.
*        NONE 
* 
 #
      XDEF ITEM DUMPINDX = 1;  # DUMMY INDEX USED BY DUMPQCK           #
      END     # DMP$COM # 
      TERM
*ENDIF
