.title priv - makes task non-priv if terminal is non-priv ;+ ; ; code stolen from INDINX.MAC from the indirect command file processor. ; ;- priv:: MOV $TKTCB,R1 ; GET OUR TCB ADDRESS MOV T.UCB(R1),R0 ; GET INVOKING TERMINAL UCB ADDRESS BIC #T3.PRV,T.ST3(R1) ; MAKE OURSELVES NON-PRIVILEGED BIT #U2.PRV,U.CW2(R0) ; IS TERMINAL PRIVILEGED? BEQ 1$ ; N - JUMP BIS #T3.PRV,T.ST3(R1) ; Y - MAKE OURSELVES PRIVILEGED 1$: return ;---exit .end