*DECK,DBGLNK
          IDENT  DBGLNK 
*CALL,SSTCALL 
* 
*         DUMMY ROUTINE TO SATISFY ALL DEBUG ENTRY POINTS IN PASS 1 
* 
  
  
**        DEFINE COMMUNICATIONS CELLS.
  
          ENTRY  ALLARR 
 ALLARR   BSS    0
          ENTRY  ALLCALL
 ALLCALL  BSS    0
          ENTRY  ALLFUNC
 ALLFUNC  BSS    0
          ENTRY  D.SAASI
 D.SAASI  BSS    0
          ENTRY  GOTOSFL
 GOTOSFL  BSS    0
          ENTRY  TYPFLAG
 TYPFLAG  BSS    0
  
          DATA   0
  
          ENTRY  NOGOFLG
 NOGOFLG  DATA   -1          SIMULATE PRESENCE OF C$-NOGO STATEMENT 
          ENTRY  TRACEL 
 TRACEL   DATA   -1 
 SUBR     SPACE  4,8
**        SUBR - DEFINE DUMMY SUBROUTINE ENTRY POINT. 
* 
*                DECLARES *NAME* AN ENTRY POINT.  RESERVES NO SPACE.
*         INTENDED FOR USE BEFORE NON-DEBUG MODE COMMON ENTRY/EXIT LINE.
* 
* 
*  NAME   SUBR
* 
*         ENTRY  *NAME* = DUMMY SUBROUTINE NAME 
  
  
          PURGMAC   SUBR
  
          MACRO  SUBR,NAME
          ENTRY  NAME 
 NAME     BSS    0
 SUBR     ENDM
          SPACE  4,8
**        DEFINE DUMMY SUBROUTINES. 
  
  
 BUGACT   SUBR
 BUGCON   SUBR
 BUGPRO   SUBR
 BUGSOUT  SUBR
 CFO      SUBR
 DBGCUN   SUBR
 DBGEPKT  SUBR
 DBGERR   SUBR
 DBGINT   SUBR
 DBGINTX  SUBR
 DBGIPKT  SUBR
 DINPH2   SUBR
 DOP      SUBR               DEBUG OPTIONS PROCESSOR
 D.IDSAV  SUBR
 D.IDSP   SUBR
 GETTYPE  SUBR
 ISITDBG  SUBR
 POINTRS  SUBR
 PUTUPDT  SUBR
 RESREG   SUBR
 SAVREG   SUBR
 TDI      SUBR               TRANSFER DEBUG INFORMATION 
 TURNON   SUBR
  
 EXIT.    EQ     *+4S15      COMMON ENTRY/EXIT
          EQ     EXIT.       RETURN WITHOUT ACTION
          END 
