include	clib.inc
include	conio.inc

PPROC	rchide, rect:dword, fl:word, wp:dword
	mov	ax,fl
	and	ax,_D_DOPEN or _D_ONSCR
	jz	rchide_end
	and	ax,_D_ONSCR
	jz	rchide_end
	invoke	rcxchg, rect, wp
	test	fl,_D_SHADE
	jz	rchide_00
	invoke	rcclrshade, rect, wp
    rchide_00:
	mov	ax,1
    rchide_end:
	ret
PEND	rchide

	END
