C
C         N5DMP:  THIS ROUTINE, WHEN AUTHORIZED, DUMPS SAVED REGISTERS,
C               ALL PHASE 5 DUMPABLES, AND CALLS N23DMP TO DUJP SYMBOL
C               TABLE.
C
      SUBROUTINE N5DMP (CALLER,B)
C
      COMPILER (LIB=FILE1)
      COMPILER (GEN=NOTRA)
      INCLUDE  FORENV   @ BARE ESSENTIALS.
          INCLUDE  EXOTIC    @ ADDRESSING GAMES.
      INCLUDE  FORCR    @ /CRRGZZ/ DEFINITION.
C
      COMMON /N5TBZZ/ NCELLS, CELLS(1)
      COMMON /N5TBLZ/ NAMES(1) /N5TBMZ/ LOCS(1)
C
      INTEGER B(44)
      INTEGER  DESCX(2)/2*-1/
C
        IF(CUSFL.NE.0)   RETURN    @ LIMIT OUR CLIENTEL
      BALLER = H2(CALLER)                    @ ASSUME CALLED VIA SLJ.   RE INT
      IF (BALLER.EQ.0) BALLER = H2(B(12))    @ -WEREN'T, ASSUME LMJ B11.RE INT
      WRITE (6,5000) BALLER, (I,B(I+1),B(I+13),B(I+29),I=0,15) @ REGS.  RE INT
      WRITE (6,5010) (CELLS(I),I=1,NCELLS)      @ SINGLE VARIABLES.
C
      CALL N23DMP  @ DUMP SYMBOL TABLE.
C
C         DUMP ALL PHASE 5 TABLES.
C
      DO 20 I=1,1000
          IF (NAMES(I).EQ.0) RETURN
          DESCX(1) = NAMES(I)
          CALL SNAP (H2(LOCS(I)), H1(LOCS(I)), DESCX)
   20     CONTINUE
      RETURN
C
 5000 FORMAT (///'0N5DMP CALLED FROM LOCATION ',O6//'0',10X,'B',13X,
     $  'A',13X,'R'/(I8,2X,3(O12,2X)))
 5010    FORMAT(///5(1X,A6,1X,O12,3X))                                  RE INT
 5020 FORMAT (/'0TABLE ',A6,' - LENGTH = ',O6)
 5040 FORMAT (1X,O6,4X,4(O12,2X),2X,3(O12,2X),O12)
      END
