*COMDECK PBPMDUMP 
_$J+  PAGE EJECT? 
_*****************************
*                            *
*       POST-MORTEM DUMP     *     $R-,G-,I+ NON-INTERRUPTABLE
*                            *
*****************************?
_$R-,G-,I+? 
_FORMAT OF POST-MORTEM DUMP:  
*ADDR  XXXX XXXX ...XXXX  XXXX XXXX ...XXXX  (16 WORDS/LINE)
******                                       (ONLY IF THESE 16 WORDS
                                              ARE IDENTICAL TO THE
                                              PREVIOUS 16 WORDS)? 
_REFERENCE DEBUG AIDS GID (SPEC 74609000).? 
PROCEDURE PBPMDUMP; 
VAR R1FLG,R1FRSTFLG : BOOLEAN;
    I : INTEGER;
BEGIN 
  R1FRSTFLG := TRUE;
  WITH JUTUPTABLE DO
    BEGIN 
      STREGS(J1PMREGSAVE);
      JUTUPOUT'.BFEOTFLG := FALSE;
      JUPARAM[0].JVWORD.BAINT := 0; 
      JUPARAM[1].JVWORD.BAINT := J1CORESIZE;
      PBDMPREG(JUTUPOUT,J1PMREGSAVE); 
      WHILE NOT JUTUPOUT'.BFEOTFLG DO 
        BEGIN PBQUICKIO(JBASSIGNTABLE[J2PMDUMP],JUTUPOUT);
              PBTUPDUMP;
        END;
      PBQUICKIO(JBASSIGNTABLE[J2PMDUMP],JUTUPOUT) 
   END; _WITH?
  REPEAT UNTIL FALSE    _LOOP WHEN DONE?
END; _PBPMDUMP? 
