.title getuid ;+ ; subroutine getuid(grp, mem) ;- ap=%5 grp=2 mem=4 .mcall gtsk$s .psect $r.roi,con,ro,rel,lcl,i .enabl lsb getuid:: clr @grp(ap) ; initialize to 0 clr @mem(ap) ; ... sub #32.,sp ; space for GTSK buffer mov sp,r0 ; address of buffer gtsk$s r0 ; get task parameters movb g.tsdu(r0),@mem(ap) ; copy member number movb g.tsdu+1(r0),@grp(ap) ; copy group number add #32.,sp ; restore stack return .end