Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - qsrque.c08
There is 1 other file named qsrque.c08 in the archive. Click here to see a list.
 REP 37/10	;08C1
		TXNN	P3,.QIFNC+.QIRET	;INTERNAL CALL or ARCHIVE MSG ???
		SKIPL	G$QUEU##		;NO,,IS CREATING TURNED OFF ???
		SKIPA				;INTERNAL or ARCHIVE or CREATES ON !!
		PJRST	E$OHR##			;EXTERNAL and CREATES OFF IS AN ERROR
		AOS	S1,REQIDN		;GET THE REQUEST ID
 WIT
	;**;[1152]REVAMP CODE AT CREA.0:+15	18-SEP-83/CTK
		TXNE	P3,.QIFNC+.QIRET	;[1152]INTERNAL CALL OR ARCHIVE MSG ???
		 JRST	CRE.0A			;[1152]YEP, DON'T CHECK OBJECT QUEUE
		$CALL	CHKQUE			;[1152]OBJECT QUEUE AVAILABLE ???
	CRE.0A:	AOS	S1,REQIDN		;[1152]QUEUE AVAILABLE..GET REQUEST ID
 REP 30/12	;08C2
		MOVE	S1,.QEROB+.ROBTY(AP)	;GET THE OBJECT TYPE
 WIT
	;**;[1161] Insert 6 lines after CREA.4+8L. 17-Nov-83 /LWS
		MOVX	S1,EQ.CHG		;[1161] GET PRIORITY CHANGED BIT
		TDNN	S1,.EQSEQ(M)		;[1161] IS IT LIT?
		JRST	CRE.4B			;[1161] NO,,CONTINUE
		ANDCAM	S1,.EQSEQ(M)		;[1161] YES,,TURN IT OFF
		MOVX	S1,MXUPRI		;[1161] GET PRIORITY REQUEST WAS CHANGED TO
		$TEXT	(G$CCHR##,<[Requested priority changed to user maximum of ^D/S1/]>) ;[1161]

	CRE.4B:	MOVE	S1,.QEROB+.ROBTY(AP)	;[1161] GET THE OBJECT TYPE
 INS 50/15	;08C3
	;CTK
		SUBTTL	CHKQUE -- CHECK IF QUEUE IS ENABLED/DISABLED
	;**;[1152]ADD CHKQUE SUBROUTINE		18-SEP-83/CTK
	;
	;	CHKQUE IS USED TO DETERMINE IF THE OBJECT QUEUE REQUESTED BY THE
	;	USER IS ENABLED OR DISABLED. (E.G. MOUNT-REQUESTS, ETC.)
	;
	;CALL:	MOVE   	S2,REQUESTED OBJECT TYPE
	;	$CALL	CHKQUE
	;	 RETURN HERE ONLY IF THE QUEUE IS ENABLED.
	;
	;NOTE:	RETURN THROUGH THE ERRCDS MACRO (QSRMAC) IF QUEUE IS DISABLED.
	;	THE OLD SYSTEM (A$ENABLE/A$DISABLE) MERELY SET A GLOBAL
	;	FLAG (G$QUEUE) WHICH WAS CHECKED IN OTHER GALAXY MODULES BEFORE
	;	ALLOWING THE USER QUEUE REQUEST.
	;
	CHKQUE:	$SAVE	<S1>			;[1152]SAVE THIS FOR NOW
		MOVE	S1,G$QUEUE##		;[1152]GET THE FLAGS (E.XXXX)
		TXNE	S1,E.TAPQ		;[1152]TAPE MOUNTS DISABLED?
		 CAXE	S2,.OTMNT		;[1152]IS THAT THE OBJECT REQUESTED?
		  SKIPA				;[1152]....
		   PJRST E$MTA##		;[1152]THIS LOOSES..
		TXNE	S1,E.DSKQ		;[1152]DISK MOUNTS DISABLED?
		 CAXE	S2,.OTMNT		;[1152]IS THAT THE OBJECT REQUESTED?
		  SKIPA				;[1152]....
		   PJRST E$DSK##		;[1152]LOOSE BIG...
		TXNE	S1,E.INPQ		;[1152]BATCH QUEUES DISABLED?
		 CAXE	S2,.OTBAT		;[1152]IS THAT THE OBJECT REQUESTED?
		  SKIPA				;[1152]....
		   PJRST E$INP##		;[1152]OH WELL, JUST DIE..
		TXNE	S1,E.LPTQ		;[1152]PRINT QUEUES DISABLED?
		 CAXE	S2,.OTLPT		;[1152]IS THAT THE OBJECT REQUESTED?
		  SKIPA				;[1152]....
		   PJRST E$LPT##		;[1152]BETTER LUCK NEXT TIME
		TXNE	S1,E.PLTQ		;[1152]PLOTTER QUEUES DISABLED?
		 CAXE	S2,.OTPLT		;[1152]IS THAT THE OBJECT REQUESTED?
		  SKIPA				;[1152]....
		   PJRST E$PLT##		;[1152]LOOSER..
		;CONTINUED ON THE NEXT PAGE
		;CONTINUED FROM PREVIOUS PAGE...
		TXNE	S1,E.CDPQ		;[1152]CARD READER QUEUES AROUND?
		 CAXE	S2,.OTCDP		;[1152]IS THAT THE OBJECT REQUESTED?
		  SKIPA				;[1152]....
		   PJRST E$CDP##		;[1152]LOOSER (DOES IT MATTER?
		TXNE	S1,E.PTPQ		;[1152]HOWS ABOUT PAPER TAPE PUNCH?
		 CAXE	S2,.OTPTP		;[1152]...
		  SKIPA				;[1152]....
		   PJRST E$PTP##		;[1152]HAS ANYONE EVER USED THIS?
		$RETT				;[1152]THIS IS A WINNER

 REP 43/16	;08C4
	CRQODP:	CAIN	T2,1			;BLOCK LENGTH MUST BE 1
		CAIE	P2,.QHTOU		;AND THIS MUST BE AN OUTPUT QUEUE
 WIT
	;**;[1171] Change 1 line and delete 1 line at CRQODP+0L. /LWS
	CRQODP:	CAIE	T2,1			;[1171] BLOCK LENGTH MUST BE 1
 REP 31/18	;08C5
		STORE	T4,.EQROB+.ROBND(P1)	;OK,,SAVE THE NODE NAME/NUMBER
 WIT
	;**;[1201]REVAMP AND ADD CODE AT CRQNOD:+2L	30-MAR-84/CTK
		SKIPN	T4			;[1201]HE SET IT, SO SKIP THIS
		MOVE	T4,G$LNBR##		;[1201]DEFAULT, TO LOCAL NODE NUMBER
		STORE	T4,.EQROB+.ROBND(P1)	;[1201]LET'S SAVE A NAME/NUMBER
		TLNN	T4,600000		;[1201]IS IT BINARY ?
		  JRST	.RETT			;[1201]YES, DON'T CONVERT AND RETURN
		MOVE	S1,T4			;[1201]GET NODE NAME/NUMBER
		PUSHJ	P,N$GNOD##		;[1201]LET'S FIND THE NODE
		JUMPF	.RETT			;[1201]DID WE FIND THE NODE ???
		MOVE	S1,NETNBR(S2)		;[1201]YES, GET THE NUMBER
		SKIPE	S1			;[1201]IS THERE A VALID NODE NUMBER ?
	CQND.1:	STORE	S1,.EQROB+.ROBND(P1)	;OK,,SAVE THE NODE NAME/NUMBER
 SUM 178017