;***************************************************************************

;*** Set Visual Page
;* This better work...
;* Brian Fisher
;*
;*

.286
Ideal
Model Small
Public SetVisPage
CodeSeg
Proc    SetVisPage      ; Pageoffset
			; 6
	push bp
	mov bp,sp

	mov cx,[ss:bp+06]
	shl cx,14
	mov bh,cl
	mov bl,0dh
	mov cl,0ch
	mov dx,03dah
waitde:
	in al,dx
	test al,01h
	jnz waitde
	mov dx,03d4h
	mov ax,bx
	out dx,ax
	mov ax,cx
	out dx,ax
	mov dx,03dah
waitvr:
	in al,dx
	test al,08h
	jz waitvr
	pop bp
	retf 2
endp    SetVisPage
end