	.title	pval
	.ident	/850720/
	.mcall	.pval
	.globl	v.area
;
; procedure pval(offset,value:integer);
;
; Value undefined if offset too large
;
	.psect
pval::
	.pval	#v.area,4(sp),2(sp)	;do it
	mov	(sp)+,(sp)
	mov	(sp)+,(sp)
	return
	.end
