Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qmangr.c09
There is 1 other file named qmangr.c09 in the archive. Click here to see a list.
 REP 2/1	;09C1
					
 WIT

 REP 40/1	;09C2
	QMAEDT==:2254	;EDIT NUMBER
 WIT
	QMAEDT==:2257	;EDIT NUMBER
 DEL 51/1	;09C3
		COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
 INS 201/3	;09C4
	;	2255	Add code to support modifing the /ASSIST switch.
	;		If this patch is installed QUASAR edit 1214
	;		is required or all modify  batch queue messages
	;		will be rejected.
	;		SPR 10-34294	GCO 10046	14-JUN-84/CTK
	;
	;	2256	Add ACK codes in messages sent to QUASAR so we can
	;		keep in synch and not display text that's not expected.
	;		SPR 10-34791	GCO 10059	26-Jul-84 /LWS
	;
	;	2257	Move COPYRIGHT macro after entry points. ASCIZ doesn't
	;		execute very well.
	;		GCO 10090 31-Aug-84 /LWS
	;
 REP 6/4	;09C5
					;WHEN CALLED BY K-QUE, 
 WIT
					;WHEN CALLED BY K-QUE,
 REP 19/6	;09C6
					;;4-5 RESERVED TO DEC
 WIT
	;**;[2255]ADD SYMBOL AT Q.IDEP:+7L	14-JUN-84/CTK
		QI.AST==3B5		;[2255]/ASSIST SWITCH
 REP 28/6	;09C7
					;12-17 RESERVED TO DEC
 WIT
	;**;[2255]ADD SYMBOL AT Q.IDEP:+15L	14-JUN-84/CTK
		QI.MNA==1B12		;[2255]ON MODIFY, MODIFY QI.AST
					;[2255]13-17 RESERVED TO DEC
 REP 17/14	;09C8
			PBOUT 
 WIT
			PBOUT
 INS 32/14	;09C9
	;**;[2257] Put COPYRIGHT macro after entry points. /LWS
		COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
 INS 48/14	;09C10
	;**;[2256] Add definitions for user ACK code fields. /LWS

		ACK.NT==400000,,0		;[2256] Mask for /NOTIFY
		ACK.JB==377400,,0		;[2256] Mask for job number
		ACK.UT==377,,777777		;[2256] Mask for UDT bits
 INS 21/15	;09C11
	;**;[2256] Insert 1 line after QMANGR+17L /LWS
		PUSHJ	P,BLDACK		;[2256] GO BUILD AN ACK CODE
 REP 51/22	;09C12
		;Here to default to user account string 
 WIT
		;Here to default to user account string
 INS 34/25	;09C13
	;**;[2255]ADD 5 LINES AT MOD.1A:+7L	14-JUN-84/CTK
		LOAD	T2,Q.IDEP(S1),QI.MNA	;[2255] *** GRP 1, WRD 11 = /ASSIST ***;
		SETO	T1,			;[2255]SET -1
		SKIPE	T2			;[2255]SKIP IF NO CHANGE
		LOAD	T1,Q.IDEP(S1),QI.AST	;[2255]GET /ASSIST: BITS
		PUSHJ	P,GRPSTO		;[2255]STORE /ASSIST
 REP 20/28	;09C14
		FAIL(<NCL Not enough core to receive list answer>)	
 WIT
		FAIL(<NCL Not enough core to receive list answer>)
 INS 45/28	;09C15
	;**;[2256] Insert 3 lines after LIST.0+2L /LWS
		MOVE	S2,ACKCOD(E)		;[2256] GET THE CODE WE WANT TO SEE
		CAME	S2,.MSCOD(P1)		;[2256] EXPECTING THIS MESSAGE?
		JRST	LIST.1			;[2256] NO, IGNORE IT
 REP 46/36	;09C16
	RCVA.A:	SKIPN	DEBUGW			;DEBUGGING?
 WIT
	;**;[2256] Insert 3 lines at RCVA.A+0L /LWS
	RCVA.A:	MOVE	S2,ACKCOD(E)		;[2256] GET ACK CODE WE'RE EXPECTING
		CAME	S2,.MSCOD(M)		;[2256] IS IT?
		JRST	RCVACK			;[2256] NO, IGNORE IT
		SKIPN	DEBUGW			;DEBUGGING?
 INS 10/38	;09C17
	;**;[2256] Insert 2 lines after MSGSND+6L /LWS
		MOVE	T1,ACKCOD(E)		;[2256] GET ACK CODE
		MOVEM	T1,.MSCOD(M)		;[2256] PUT IN MESSAGE HEADER
 REP 2/42	;09C18
	FPID:	
 WIT
	FPID:
 REP 7/43	;09C19
		
 WIT

 REP 69/43	;09C20
	> ;END OF FTUUOS
 WIT

	;**;[2256] Include new suboutine after OCTNAM subroutine.
	;SUBROUTINE TO BUILD AN ACK CODE
	;ACK CODE STORED IN ACKCOD(E).

	BLDACK:	PUSH	P,S1			;[2256] SAVE S1
		SETZM	ACKCOD(E)		;[2256] CLEAR TARGET
		PJOB	S1,			;[2256] GET OUR JOB NUMBER
		STORE	S1,ACKCOD(E),ACK.JB	;[2256] PUT IN PROPER PLACE
		MOVX	S1,%CNDTM		;[2256] GET UDT
		GETTAB	S1,			;[2256] ASK THE MONITOR
		  SETZ	S1,			;[2256] OH WELL
		STORE	S1,ACKCOD(E),ACK.UT	;[2256] STORE IN UDT FIELD OF CODE
		POP	P,S1			;[2256] RESTORE S1
		POPJ	P,			;[2256] RETURN
	> ;END OF FTUUOS

 INS 33/44	;09C21
	;**;[2256] Insert 1 line /LWS
	ACKCOD:! BLOCK	1		;[2256] ACKCOD FOR KEEPING IN SYNCH
 SUM 56064