BATMCRDIS.MAC/-AU=MCRDIS.MAC
-2,2
	.IDENT	/03.21B/					; [ SMTBV3 ]
-79
;	STEVE THOMPSON	28 APRIL 1983				; [ SMTBV3 ]
;	ADD SUPPORT FOR AUTOMATIC PRIORITY SETTING FOR BATCH	; [ SMTBV3 ]
;	SYSTEM VERSION 3 JOBS.					; [ SMTBV3 ]
;								; [ SMTBV3 ]
-911,912
;	 IF RUNNING IN THE BATCH STREAM, THE PRIORITY WILL BE	; [ SMTBV3 ]
;	 SET TO THE MINIMUM OF T.PRI OR THE VALUE CONTAINED	; [ SMTBV3 ]
;	 IN THE U.BPRI UCB OFFSET. THIS IS A BATCH SYSTEM	; [ SMTBV3 ]
;	 VERSION 3 PATCH. PRIORITY ADJUSTMENT IS NOT DONE IF	; [ SMTBV3 ]
;	 THE TASK IS PRIVILEGED.				; [ SMTBV3 ]
;								; [ SMTBV3 ]
30$:	MOV	R0,-(SP)	; SAVE THE TCB ADDRESS			;JRK164
	MOV	$MUCB,R2	; GET OUR TI: UCB			;JRK164
U.BPRI=177764							; [ SMTBV3 ]
	BIT	#T3.PRV,T.ST3(R0) ; PRIVILEGED TASK?		; [ SMTBV3 ]
	BNE	3001$		; IF NE YES, SKIP IT		; [ SMTBV3 ]
	MOV	U.DCB(R2),R3	; GET DCB ADDRESS		; [ SMTBV3 ]
	CMP	D.NAM(R3),#"VT	; TASK RUNNING IN BATCH?	; [ SMTBV3 ]
	BNE	3001$		; IF NE NO, SKIP IT		; [ SMTBV3 ]
	TSTB	U.BPRI(R2)	; YES, BATCH PRIORITY SPECIFIED?; [ SMTBV3 ]
	BEQ	3001$		; IF EQ NO, SKIP IT		; [ SMTBV3 ]
	CMPB	T.PRI(R0),U.BPRI(R2) ; ALREADY RUNNING AT LOW PRIO.?; [ SMTBV3 ]
	BLOS	3001$		; IF LOS YES, LEAVE IT LOW	; [ SMTBV3 ]
	MOVB	U.BPRI(R2),T.PRI(R0) ; NO, SET NEW PRIORITY	; [ SMTBV3 ]
3001$:								; [ SMTBV3 ]
/