.title gettsk .enable lc .ident /wrg/ ; gettsk(iarray,dsw) ; int *dsw ; iarray may be either int or char depending on callers needs ; ; written 23-Jul-80 by Wayne R. Graves .mcall gtsk$,dir$ iarray=2 dsw=4 gtsk: gtsk$ ; get task information gettsk:: mov iarray(sp),gtsk+2 ; get address of array for return data clr @dsw(sp) ; init return status dir$ #gtsk ; get task parameters bcc 10$ ; if no error branch mov @#$dsw,@dsw(sp) ; save error for return 10$: mov @dsw(sp),r0 ; set r0 for return return ; return to caller .end