*COMDECK PBRDPGE
******************************
*                            *
*        PBRDPGE             *
*  READ DYNAMIC PAGE REG     *
*                            *
******************************
*              NON-RECURSIVE
*              NON-INTERRUPTABLE
************************************************************
*                                                          *
**OVERVIEW- PBRDPGE READS THE CONTENTS OF THE DYNAMIC      *
*           PAGE REGISTER (SPECIFIED BY DYNAMICPAGE).      *
*                                                          *
**INPUT- NONE.                                             *
*                                                          *
**OUTPUT- DYNAMIC PAGE REGISTER CONTENTS.                  *
*                                                          *
**EXTERNAL SUBROUTINES- NONE                               *
*                                                          *
************************************************************
         NAM   PBRDPGE
         ENT   PBRDPGE
         EXT   QTOPSK 
* 
         EXT   DYNAMICPAG 
* 
PBRDPGE  NOP   0
         IIN   0         INHIBIT INTERRUPTS 
         LDA   =XDYNAMICPAG 
         ALS   11        SET UP DP READ 
         RPR   A         READ DYNAMIC PAGE REG
         LDQ*  (PBRDPGE)
         AND   =N$1FF         CLEAR EXTRANOUS BITS
         STA+  0,Q       STORE DYNAMIC PAGE CONTENTS
         RAO*  PBRDPGE   BUMP PAST PARAMETER
         LDQ   QTOPSK    CHECK INTERRUPT COUNT
         SQN   1
         EIN   0         ENABLE INTERRUPTS
         JMP*  (PBRDPGE)
         END
