;+ ; ; File TPRIV.MAC ; ;- .include /SY:[1,2]COMMON.MAC/ .title TPRIV .ident /1.0.0/ .psect $TPRIV ;+ ; ; Author: Paul F. Flaherty, Jr. ; DANIELS & CRONIN ; Three Center Plaza ; Penthouse Mezzanine ; Boston, Massachusetts 02108 USA ; (617) 227-5570 ; ; Date: August 24, 1988. ; ;- ;+ ; ; Program description ; ======= =========== ; ; This is a MACRO-11 subroutine written in conformance with the Digital ; Equipment Corporation document entitled "Writing MACRO Subroutines for ; RSTS/E DIBOL V5.1." ; ; The calls to this routine are made by calling either DPRIV to drop ; temporary privileges, or RPRIV, to restore temporary privileges dropped ; by DPRIV. TPRIV itself is not called. ; ;- ;+ ; ; Revision History ; ======== ======= ; ; When Who What ; ---------------------------------------------------------------------------- ; 24-Jul-1988 PFFJr Initial source ; ;- .MACRO DOXRB, ?A ;clear the xrb and then set jfsys mov #xrb, r3 ;point to the xrb A: clr (r3)+ ;clear a word cmp r3, #xrb+14 ;done yet? blos A ;nope mov #jfsys, xrb+xrlen ;pick the bit .ENDM DOXRB RPRIV:: DOXRB ;set up the XRB .SET ;regain privs rts pc ;return to DIBOL DPRIV:: DOXRB ;set up the XRB .CLEAR ;drop privs rts pc ;return to DIBOL .end ;that's it