*COMDECK PB2SNAP
_$J+? 
_*****************************
*                            *
*        PB2SNAP             *
*   SNAPSHOT REGISTERS       *
*                            *
*****************************?
_$R+,G+,I-     RECURSIVE
               INTERRUPTABLE ?
_***********************************************************************
*                                                                      *
**OVERVIEW- PB2SNAP PRINTS THE CONTENTS OF THE MACRO REGISTERS         *
*           R1-R4,Q,A,I AND M STORED IN THE BREAKPOINT TABLE.          *
*                                                                      *
**INPUT- BREAKPOINT TABLE                                              *
*                                                                      *
**OUTPUT- REGISTERS FORMATTED AND QUEUED FOR OUTPUT                    *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PBBFAVAIL        CHECK BUFFER AVAILABILITY           *
*              2) PBGET1BF         GET A BUFFER                        *
*              3) PBLOAD           LOAD A CANNED MESSAGE               *
*              4) PBIOSERV         I/O SERVICES                        *
*              5) PBDMPREG         FORMAT REGISTER CONTENTS            *
*              6) PBREL1BF         RELEASE A BUFFER                    *
*                                                                      *
***********************************************************************?
PROCEDURE PB2SNAP;
VAR ERR : BOOLEAN;
    LRP : JCPACKET; 
BEGIN 
  IF PB1BFAVAIL (B0T2) THEN                 _BUFFERS AVAILABLE         ?
  WITH LRP DO 
  BEGIN 
    LRP := RCLRP2;                          _SET UP REQUEST PACKET     ?
    JCPOINTER := PBGET1BF(B0S32);           _GET BUFFER FOR MSG        ?
    PBLOAD(JCPOINTER,J0SETUP,               _LOAD  CR LF *             ?
           J1FRSTCHAR,J1LST32); 
    PBDMPREG(JCPOINTER,JEBPTABLE.JEREGSAVE);_FORMAT REGISTER CONTENTS  ?
    PBIOSERV (LRP, ERR);                    _START OUTPUT              ?
  END; _WITH? 
END; _PBDMPREG? 
