Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - qsrsch.c08
There is 1 other file named qsrsch.c08 in the archive. Click here to see a list.
 REP 24/5	;08C1
	SCHD.2:	TXNE	S1,OBSIGN+OBSSTP	;ARE WE IGNORING or STOPPED BY OPR ??
 WIT
	SCHD.2:	TXNE	S1,OBSIGN+OBSSTP+OBSFCH	;[1163] ARE WE IGNORING OR STOPPED BY OPR
						;[1163] OR CHANGING FORMS?
 REP 7/6	;08C2
		TXNE	S1,OBSSTA!OBSSUP!OBSSIP!OBSSTP	;STARTED+NOTSETUP+NOTSIP+NOT STOPPED
 WIT
		TXNE	S1,OBSSTA!OBSSUP!OBSSIP!OBSSTP!OBSFCH	;[1163] STARTED+NOTSETUP+NOTSIP+NOT STOPPED
 REP 20/17	;08C3
	CHKO.1:	MOVE	S1,P1			;GET THE OBJECT ADDRESS IN S1.
		PUSHJ	P,SHTINT		;SHUT DOWN THE OBJECT
		MOVX	S1,OBSSUP+OBSBUS+OBSSEJ+OBSSIP+OBSINT ;GET LOTS OF BITS
 WIT
		MOVE	S1,OBJSCH(P1)		;[1163] GET SCHEDULING BITS
		TXNE	S1,OBSFCH		;[1163] CHANGING FORMS
		$RETT				;[1163] YES,,DON'T SHUTDOWN YET
	CHKO.1:	MOVE	S1,P1			;GET THE OBJECT ADDRESS IN S1.
		PUSHJ	P,SHTINT		;SHUT DOWN THE OBJECT
		MOVX	S1,OBSSUP+OBSBUS+OBSSEJ+OBSSIP+OBSINT+OBSSTP+OBSFCH ;[1163] GET LOTS OF BITS
 REP 36/20	;08C4
		CAIE	S2,.OPINY		; Does he require opr intervention?
		 SKIPN	G$QUEUE##		; And are the queues disabled?
 WIT
	;**;[1152]REVAMP CODE AT INPF.2:+1L	18-SEP-83/CTK
		MOVE	S1,G$QUEUE##		;[1152]GET THE ENABLE/DISABLE FLAGS
		CAIE	S2,.OPINY		;[1152]DOES HE REQUIRE OPR INTERVENTION?
		 TXNN	S1,E.INPQ		;[1152]AND THE BATCH QUEUES DISABLED?
 INS 53/20	;08C5
	;**;[1203]ADD 1 LINE AT INPF.2:+17L	5-APR-84/CTK
		IMULI	S2,PAGSIZ		;[1203]CORE LIMIT PAGES TO WORDS
 INS 56/20	;08C6
	;**;[1201]ADD 8 LINES BEFORE INPF.3:+0L	30-MAR-84/CTK
		GETLIM	S1,.QELIM(P4),ONOD	;[1201]GET /DESTINATION SWITCH
	;**;[1206]ADD 1 LINE AT EDIT 1201+1L	20-APR-84/CTK
		JUMPE	S1,INPF.3		;[1206]CENTRAL SITE ???
		PUSHJ	P,N$GNOD##		;[1201]NO, DOES THE NODE EXIST ???
		JUMPF	INPF.4			;[1201]DID WE FIND THE NODE ???
		MOVE	S1,NETNBR(S2)		;[1201]YES, GET THE NUMBER
		JUMPE	S1,INPF.4		;[1201]IS THERE A NODE NUMBER ???
		STOLIM	S1,.QELIM(P4),ONOD	;[1201]YES, SAVE IT IN THE QE
 REP 23/22	;08C7
		GETLIM	S1,.EQLIM(M),ONOD	;GET OUTPUT NODE NUMBER
		SKIPN	S1			;HE SET IT, SO SKIP THIS
		PUSHJ	P,I$ONOD##		;NOT SET,,GO DEFAULT IT
 WIT
		GETLIM	S1,.EQLIM(M),ONOD	;GET OUTPUT NODE NUMBER/NAME
		SKIPN	S1			;HE SET IT, SO SKIP THIS
	;**;[1201]REVAMP CODE AT INPDEF:+18L	30-MAR-84/CTK 
		MOVE	S1,G$LNBR##		;[1201]DEFAULT, TO LOCAL NODE NUMBER
		TLNN	S1,600000		;[1201]IS IT BINARY ?
		  JRST	INPD.0			;[1201]YES, DON'T CONVERT
		PUSHJ	P,N$GNOD##		;[1201]CONVERT NODE NAME TO NUMBER
		JUMPF	INPD.0			;[1201]DID WE FIND THE NODE ???
		MOVE	S1,NETNBR(S2)		;[1201]YES, GET THE NUMBER
		SKIPE	S1			;[1201]IS THERE A NODE NUMBER ???
	INPD.0:	STOLIM	S1,.EQLIM(M),ONOD	;[1201]YES, SAVE IT IN THE EQ
 REP 23/46	;08C8
		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
		JRST	EQDF.0			;[1161] EITHER A WHEEL OR PRIO IS OK
		MOVX	S1,EQ.CHG		;[1161] GET PRIORITY WAS CHANGED BIT
		IORM	S1,.EQSEQ(M)		;[1161] LITE IT IN EQ
		MOVX	S2,MXUPRI		;LOAD MAX PRIO
	EQDF.0:	STORE	S2,.EQSEQ(M),EQ.PRI	;[1161] AND RE-STORE IT
 SUM 20627