*COMDECK PBXFER 
_$J+? 
_*****************************
*                            *
*        PBXFER              *
*  TRANSFER TO ANOTHER PAGE  *
*                            *
*****************************?
_$R+,G+,I-     RECURSIVE
               INTERRUPTABLE ?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBXFER TRANSFERS CONTROL TO A PROGRAM ON (POSSIBLY)        *
*           ANOTHER PAGE.  ANY PARAMETERS MUST BE PASSED VIA           *
*           GLOBAL VARIABLES.                                          *
*                                                                      *
**INPUT- PROGRAM ADDRESS AND DYNAMIC PAGE REGISTER BASE ADDRESS.       *
*                                                                      *
**OUTPUT- CONTROL TRANSFERRED.                                         *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PBPSWITCH   PERFORM PAGE SWITCH                      *
*              2) PBCALL      CALL PROGRAM BY ADDRESS                  *
*              3) PBRDPGE          READ DYNAMIC PAGE REGISTER          *
*                                                                      *
***********************************************************************?
PROCEDURE PBXFER(PGMADDR,PAGE : INTEGER); 
VAR PAGESVE : INTEGER;
BEGIN 
  PBRDPGE(PAGESVE);                         _READ CURRENT DYNAMIC PAGE ?
  PBPSWITCH(PAGE);                          _SWITCH TO PROGRAM PAGE    ?
  PBCALL(PGMADDR);                          _CALL PROGRAM              ?
  PBPSWITCH(PAGESVE);                       _RETURN SAVED DYNAMIC PAGE ?
END; _PBXFER? 
