include	clib.inc
include	conio.inc

	public	@rcsprc

_TEXT	SEGMENT

@rcsprc	PROC
	mov	al,_scrcol
	mul	bh
	add	ax,ax
	xor	dx,dx
	mov	dl,bl
	add	ax,dx
	add	ax,dx
	mov	dx,_scrseg
	ret
@rcsprc	ENDP

_TEXT	ENDS

	END
