.TITLE .BP - BANK/PAGE  MODE DETERMINATOR.
/ 
/ 
/                   FIRST PRINTING, FEBRUARY 1974
/ 
/ THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
/ CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED
/ AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPON-
/ SIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
/ DOCUMENT.
/ 
/ THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FUR-
/ NISHED TO THE PURCHASER UNDER A LICENSE FOR USE ON
/ A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH
/ INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR 
/ USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PRO-
/ VIDED IN WRITING BY DIGITAL.
/ 
/ DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/ FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIP-
/ MENT THAT IS NOT SUPPLIED BY DIGITAL.
/ 
/ COPYRIGHT (C) 1974, BY DIGITAL EQUIPMENT CORPORATION
/ 
/ 
        .EJECT
/COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT #000  9-13-71
/USED BY RSX AND CALLED BY .DA,IMNMX,DMNMX,RMNMX,JMNMX.
/CALLING SEQUENCE:
/	JMS* .BP
/	NEXT INSTR.		RETURN-AC CONTAINS 60000 FOR BANK MODE
/				      -AC CONTAINS 70000FOR PAGE MODE
/
	.GLOBL .BP
.BP	0		/BIT 1 =0 IF PAGE MODE,=1 IF BANK MODE.
	LAC	.BP
	LRS	+4	/BIT 1 TO POS. 5
	AND	(10000)	/BNK=NON ZERO
	XOR	(70000)	/PAGE=ZERO
	JMP*	.BP
	.END