include	clib.inc
include	conio.inc

PPROC	rcbprc, wbuf:dword, rc:dword, cols:word
	mov	ax,cols
	add	ax,ax
	mov	ah,rc.rc_y
	mul	ah
	xor	dx,dx
	mov	dl,rc.rc_x
	add	ax,dx
	add	ax,dx
	add	ax,word ptr [wbuf]
	mov	dx,word ptr [wbuf+2]
	ret
PEND	rcbprc

	END
