*COMDECK PBPUTPAGE
******************************
*                            *
*        PBPUTPAGE           *
*    WRITE PAGE REGISTER     *
*                            *
******************************
*              NON-RECURSIVE
*              NON-INTERRUPTABLE
************************************************************************
*                                                                      *
**OVERVIEW- PBPUTPAGE WRITES A SPECIFIED PAGE REGISTER TO EITHER       *
*           PAGE REGISTER BANK.                                        *
*                                                                      *
**INPUT- THE FIRST PARAMETER CONTAINS THE PAGE REGISTER TO WRITE       *
*        (0-31) AND THE PAGE REGISTER BANK TO USE (LEFTMOST BIT        *
*        SET MEANS BANK 1, NOT SET MEANS BANK).  THE SECOND            *
*        PARAMETER CONTAINS THE 9-BIT VALUE TO BE LOADED.              *
*                                                                      *
**OUTPUT- PAGE REGISTER LOADED.                                        *
*                                                                      *
**EXTERNAL SUBROUTINES- NONE                                           *
*                                                                      *
************************************************************************
          NAM PBPUTPAGE 
          ENT PBPUTPAGE 
         EXT   QTOPSK 
ZERO      NUM    0           MAKE CELL EQUAL TO ZERO. 
* 
PBPUTP   NOP   0
         IIN   0         INHIBIT INTERRUPTS 
         LDQ*  (PBPUTP) 
          LDA*   (ZERO),Q    GET PAGE NUMBER. 
         ALS   11        MOVE TO UPPER 5 BITS 
         STA*  LOCAL     SAVE IT
         RAO*  PBPUTP    BUMP PAST PARAMETER
         LDQ*  (PBPUTP) 
          LDA*   (ZERO),Q    GET VALUE TO LOAD. 
         AND   =N$1FF    LEAVE BITS 0-8 
         ORA*  LOCAL     OR IN PAGE REGISTER AND BANK 
         WPR   A         WRITE PAGE REGISTER
         RAO*  PBPUTP    BUMP PAST PARAMETER
         LDQ   QTOPSK    CHECK INTERRUPT COUNT
         SQN   1
         EIN   0         ENABLE INTERRUPTS
         JMP*  (PBPUTP) 
LOCAL     NUM    0
         END
