Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - orion.c08
There is 1 other file named orion.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
		SUBTTL	Cliff Romash/Murray Berkowitz/PJT/CTK 30-Jun-83
 WIT
		SUBTTL	Cliff Romash/Murray Berkowitz/PJT/CTK 7-Mar-84
 REP 55/1	;08C2
		ORNEDT==340
 WIT
		ORNEDT==344
 INS 493/3	;08C3
	341	9/18/83	Add support for ENABLE/DISABLE queue functionality.
			Requires OPRCMD edit 146, ORNMAC edit 36,
			QUASAR edit 1152, MOUNT edit 53/CTK

	342	9/26/83	Fix "SHOW MESSAGE n" command case for system operator
			when the message is for a node other than the system
			node. The command currently fails with a
			"No outstanding messages" response.
			SPR 10-34203/CTK

	343	3/6/84	More of edit 340, the abort message to QUASAR
			is for stream zero (could be randon stream)
			because the call to M%GPAG in CHEK.2 trashes AC S2.
			SPR 10-34536/CTK

	344	3/7/84	If a user terminal is SET TTY GAG ORION will
			not send messages to the user and may send
			to the wrong terminal. Put the code for enforcing
			the GAG bit in conditional assembly so sites may
			make there own choice.
			SPR 10-34428,10-34429/CTK
 REP 22/34	;08C4
		$CALL	M%GPAG			;GET A PAGE
 WIT
	;**;[343]ADD 2 LINES AT CHEK.2:+2L	6-MAR-84/CTK
		PUSH	P,S2			;[343]SAVE S2, CONTAINS .GTOBI
		$CALL	M%GPAG			;GET A PAGE
		POP	P,S2			;[343]RESTORE AC S2
 REP 31/60	;08C5
		$RETIF				;Return on failure
		PJRST	CMDEND			;FINISH COMMAND AND SEND
 WIT
	;**;[341]REVAMP CODE ENAQUE:+3L		18-SEP-83/CTK
		SKIPF				;[341]DON'T BOTHER WITH KEYWORD
		$CALL	P$KEYW			;[341]GET A KEYWORD
		$RETIF				;[341]TOO BAD...
		MOVEI	S2,QUETAB		;[341]SET UP THE SEARCH
		$CALL	TABSRC			;[341]GO SEARCH FOR THE QUEUE
		$RETIF				;[341]ERROR...TOO BAD

	;CONTINUED ON THE NEXT PAGE
	;CONTINUED....

		MOVE	S1,(S2)			;[341]GET THE FLAG
		MOVEM	S1,ARG.DA(P3)		;[341]SET FLAGS UP TO SEND TO QUASAR
		MOVX	S1,.EDQUE		;[341]SET UP THE MESSAGE TYPE
		MOVX	S2,ARG.SZ		;[341]AND THE MESSAGE SIZE
		$CALL	ARGRTN			;[341]AND GO DO THAT
		PJRST	CMDEND			;[341]FINISH COMMAND AND SEND

	;THE FOLLOWING TABLE CONTAINS THE KEYWORDS AND CORRESPONDING FLAGS
	;FOR THE ENABLE/DISABLE QUEUE COMMAND.

	QUETAB:	$STAB				;[341]TABLE OF QUEUE FLAGS
		.KYALL,,[E.ALL]			;[341]ALL QUEUES
		.KYTAP,,[E.TAPQ]		;[341]TAPE MOUNT QUEUES
		.KYDSK,,[E.DSKQ]		;[341]DISK MOUNT QUEUES
		.KYBAT,,[E.INPQ]		;[341]BATCH QUEUES
		.KYLPT,,[E.LPTQ]		;[341]PRINT QUEUES
		.KYPLT,,[E.PLTQ]		;[341]PLOTTER QUEUES
		.KYRDR,,[E.CDPQ]		;[341]CARD READER QUEUES
		.KYPTP,,[E.PTPQ]		;[341]PAPER TAPE PUNCH QUEUES
		$ETAB				;[341]THAT'S ALL...

 REP 28/66	;08C6
		  SKIPF				;DOESN'T WANT IT
 WIT
	;**;[344]CHANGE 1 LINE AT NOTIFY:+23L	6-MAR-84/CTK
		$RETIF				;[344]CAN'T SEND IT, SO RETURN
 REP 70/66	;08C7
		TXNE	TF,JB.UML		;AT MONITOR LEVEL ?
		$RETT				;YES - OK TO SEND
 WIT
	;**;[344]CHANGE CODE AT NOTCHK:+3L	6-MAR-84/CTK
	REPEAT 1,<				;[344]DO WE WANT TO HONOR GAG BIT ???
		TXNE	TF,JB.UML		;AT MONITOR LEVEL ?
	>					;[344]
		$RETT				;YES - OK TO SEND
	REPEAT 1,<				;[344]DO WE WANT TO HONOR GAG BIT ???
 REP 81/66	;08C8
	>					;END OF TOPS-10 CONDITIONAL
 WIT
	>>					;[344]END OF TOPS-10 CONDITIONAL
 INS 31/77	;08C9
	;**;[342]ADD 1 LINE AT SHWM.2:+3L	26-SEP-83/CTK
		MOVE	P1,S1			;[342]AND SAVE IN P1
 SUM 139687