;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
;      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
;      *         NIH CA06927                                 *
;      *         NIH CA22780                                 *
;      *                                                     *
;      *      DIRECT INQUIRIES TO:                           *
;      *            COMPUTER CENTER                          *
;      *            THE INSTITUTE FOR CANCER RESEARCH        *
;      *            7701 BURHOLME AVENUE                     *
;      *            PHILADELPHIA, PENNSYLVANIA   19111       *
;      *                                                     *
;      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
;      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
;      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
;      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
;      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
;      *      OWNED RIGHTS.                                  *
;      *                                                     *
;      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
;      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
;      *      THE USE OF THIS SOFTWARE                       *
;      *                                                     *
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
;      *      PDP-11/70 OPERATING UNDER IAS V2.0 USING       *
;      *      THE IAS PDP-11 MACRO ASSEMBLER.                *
;      *                                                     *
;      *******************************************************
	.TITLE	TIPRIV	MAKE TI PRIVILEDGED AND RESTORE ITS OLD PRIV
	.IDENT	/ICR001/
;
;	CALL TIPRIV(OPT,UIC)
;		OPT - OPTION - 0 = MAKE PRIV, 1 = RESTORE OLD PRIV
;		UIC - NEW UIC FOR TI
;
TIPRIV::
	TST	@2(R5)			;OPTION ?
	BNE	50$			;NE - RESTORE OLD PRIV
	MOV	@#.CRTSK,R1		;GET OUR ATL
	MOV	A.TI(R1),R1		;NOW OUR TI
	MOV	R1,SAVPUD		;SAVE PUD ADDRESS
	MOVB	U.PR(R1),SAVPRV		;SAVE PRIVILEDGE BYTE
	MOV	U.UI(R1),SAVUIC		;SAVE UIC
	BISB	#UT.PR,U.PR(R1)		;SET PRIVILEDGED
	MOV	@4(R5),U.UI(R1)		;SET NEW UIC
	BR	100$			;DONE
50$:
	MOV	SAVPUD,R1		;WAS A SAVE DONE FIRST?
	BEQ	100$			;EQ - NO
	CLR	SAVPUD			;CLEAR IT FOR NEXT TIME
	MOVB	SAVPRV,U.PR(R1)		;RESTORE OLD PRIVILEDGE
	MOV	SAVUIC,U.UI(R1)		;RESTORE OLD PRIVILEDGE
100$:
	RETURN
SAVPUD:	0
SAVPRV:	0
SAVUIC:	0
	.END