OU:TDSCH.MAC;2=IN:[11,10]TDSCH.VGN;1/AU:72.
\
-2,2
	.IDENT	/9.11X/
-/MSH098/,,
;
;	JAMES G. DOWNARD	20-JUL-81
;
;	JGD  --  CHANGE UPTIM: TO UPTIM:: TO MAKE INSERTING
;		 THE CLOCK TIC HOOK A LITTLE MORE STRAIGHTFORWARD.
;
;     JGD27  --  Support for dynamic tuning for Round Robin priority
;		 range, and swap priority.  Allow both a high and
;		 low limit for swap priority, $SWPRH is what the swap
;		 priority will be initialized to, but we will let the
;		 priority drop down to H.DPRI-$SWPRL instead of
;		 H.DPRI-$SWPRH. Change SWPCT to global symbol for SHF.
%
-/RNDCT:/,,/; JGD27/
RNDH::	.WORD	R$$NDH		; high priority of round robin range
RNDL::	.WORD	R$$NDL		; low priority of round robin range
-/SWPCT:/,.,/; JGD27/
SWPCT::	.WORD	S$$WPC		; Clock tics to next swapping interval
$SWPRL::.WORD	-S$$WPR		; low point for swaping priority
-/UPTIM:/,.,/; JGD/
UPTIM::	MOV	#$TKPS+2,R4	;POINT PAST CONVERSION VECTOR
-/ROBIN:/,,
-/CMPB	#R$$NDH/,.,/; JGD27
	CMPB	RNDH,T.PRI(R1)	; Priority in range
-/CMPB	#R$$NDL/,.,/; JGD27
20$:	CMPB	RNDL,T.PRI(R1)	; Priority in range
-/SWAP:/,,
-/S$$WPR/,.,/; JGD27/
	CMPB	H.SPRI(R4),$SWPRL; Swapping priority at a minimum?
/