.title	sdat
;+
;	integer function sdat(proces, buf)
;-
ap=%5
proces=2
buf=4
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
	.mcall	sdat$s
sdat::
	sdat$s	proces(ap),buf(ap)
	mov	@#$dsw,r0
	return
	.end