Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/qsrsch.c09
There are 2 other files named qsrsch.c09 in the archive. Click here to see a list.
 REP 13/46	;09C1
		MOVX	S1,EQ.RDE!EQ.SPL!EQ.JBC	;LOAD SOME BITS
 WIT
	;**;[1224]Change 1 line at EQDFLT:+5L   JCR  7/20/84
		MOVX	S1,EQ.CHP!EQ.RDE!EQ.SPL!EQ.JBC	;[1224]Load some bits
 REP 23/46	;09C2
		SKIPA				;EITHER A WHEEL OR PRIO IS OK
		MOVX	S2,MXUPRI		;LOAD MAX PRIO
		STORE	S2,.EQSEQ(M),EQ.PRI	;AND RE-STORE IT
 WIT
	;**;[1224]Replace 1 line with 3 lines, modify 1 line at EQDFLT:+14L JCR 7/20/84
		JRST	NONCHK			;[1224]Either a wheel or prio is ok
		MOVEI	S1,1			;[1224]Turn on the
		STORE	S1,.EQSEQ(M),EQ.CHP 	;[1224]Priority changed bit
		MOVX	S2,MXUPRI		;LOAD MAX PRIO
	NONCHK:	STORE	S2,.EQSEQ(M),EQ.PRI	;[1224]And re-store it
 SUM 76920