*COMDECK PBDMPREG 
_$J+  PAGE EJECT? 
_*****************************
*                            *
*         PBDMPREG           *
*       DUMP REGISTERS       *
*                            *
*****************************?
_$R+,G+,I-     RECURSIVE
               INTERRUPTABLE ?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBDMPREG FORMATS A USER SUPPLIED REGISTER SAVE             *
*           AREA INTO A USER SUPPLIED 32-WORD BUFFER.                  *
*                                                                      *
**INPUT- REGISTER SAVE AREA AND 32-WORD BUFFER ADDRESS.                *
*                                                                      *
**OUTPUT- REGISTER CONTENTS FORMATTED IN BUFFER.                       *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PBTOAH           CONVERT TO ASCII HEX                *
*                                                                      *
***********************************************************************?
PROCEDURE PBDMPREG(BFR : B0BUFPTR; REGSVE : B0REGPTR);
VAR REG : B0REGISTERS;
    I   : INTEGER;
    TEMP: B0OVERLAY;
BEGIN 
  I := FBYTE;                               _SET FCD FOR Q-CHAINING    ?
  WITH BFR',TEMP DO 
  BEGIN 
  FOR REG := B0R1 TO B0M DO                 _LOOP THRU REGISTERS       ?
  BEGIN 
    BAINT := REGSVE'[REG];                  _GET REGISTER CONTENTS     ?
    BFDATAC[I]   := JIPRINTREGS[REG];       _MOVE IN REGISTER NAME     ?
    BFDATAC[I+1] := #=#;
    I := PBMIN(I,J1LST32-6);
    PBTOAH(BAHEX,BFR,I+2,J1LST32);          _CONVERT CONTENTS          ?
    I := I+7; 
  END; _FOR?
  BFLCD := J1LST32;                         _SET LCD                   ?
  END; _WITH? 
END; _PBDMPREG? 
