.title	getpri
;+
;	subroutine getpri(prio)
;-
	.mcall	gtsk$s
ap=%5
prio=2
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
getpri::
	sub	#32.,sp			; block for GTSK parameters
	mov	sp,r0			; address in register
	gtsk$s	r0			; get task parameters
	mov	g.tspr(r0),@prio(ap)	; return priority
	add	#32.,sp			; restore stack
	return
	.end