;///////////////////////////////////////////////////////////////////////
; Функция #54. Выбрать активную страницу экрана.
;
; вход:  B - страница экрана 0/1
; выход: A - код ошибки, если CF=1
;///////////////////////////////////////////////////////////////////////
SELPAGE:
	LD	A,(VMODE)
	;BIT	7,A
	CP	%1000'0000
	JR	NC,.SEL2
        PUSH    BC
	LD	C,A
	CALL	SETVMOD.TEXT_M
        POP     BC
.SEL2:	LD	A,B
	AND	#01
	OUT	(SCREEN_SWITCH),A
	RET
;///////////////////////////////////////////////////////////////////////