*COMDECK PBSTPMODE
******************************
*                            *
*        PBSTPMODE           *
*     SET PAGE MODE          *
*                            *
******************************
*              NON-RECURSIVE
*              NON-INTERRUPTABLE
************************************************************************
*                                                                      *
**OVERVIEW- PBSTPMODE SETS THE PAGE MODE TO EITHER ABSOLUTE (NO        *
*           PAGING), PAGE MODE 0 (USE BANK 0 PAGE REGISTERS) OR        *
*           PAGE MODE 1 (USE BANK 1 PAGE REGISTERS).                   *
*                                                                      *
**INPUT- ONE PARAMETER CONTAINING THE PAGE MODE TO SET AS FOLLOWS:     *
*                                                                      *
*               0    PAGE MODE 0                                       *
*               1    PAGE MODE 1                                       *
*               2    ABSOLUTE                                          *
*                                                                      *
**OUTPUT- PROPER PAGE MODE SET.                                        *
*                                                                      *
**EXTERNAL SUBROUTINES- NONE                                           *
*                                                                      *
************************************************************************
         NAM   PBSTPMODE
         ENT   PBSTPMODE
         EXT   QTOPSK 
* 
PBSTPM   NOP   0
         IIN   0         INHIBIT INTERRUPTS 
         LDQ*  (PBSTPM) 
         LDA   0,Q       GET PAGE MODE PARAMETER
         RAO*  PBSTPM 
         SAZ   PMDE0     0 = PAGE MODE 0
         INA   -1 
         SAZ   PMDE1     1 = PAGE MODE 1
         APM   0         SET ABSOLUTE PAGE MODE 
         JMP*  OUT
PMDE0    PM0   0         SET PAGE MODE 0
         JMP*  OUT
PMDE1    PM1   0         SET PAGE MODE 1
OUT      LDQ   QTOPSK    CHECK INTERRUPT FLAG 
         SQN   1
         EIN   0         ENABLE INTERRUPTS
         JMP*  (PBSTPM) 
         END
