include	clib.inc
include	conio.inc

PPROC	dlhide, dobj:dword
	les	bx,dobj
	invoke	rchide, es:[bx.dl_rect], es:[bx.dl_flag], es:[bx.dl_wp]
	les	bx,dobj
	test	ax,ax
	jz	@F
	and	es:[bx.dl_flag],not _D_ONSCR
    @@:	ret
PEND	dlhide

	END
