Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/glxtxt.c07
There are no other files named glxtxt.c07 in the archive.
 REP 29/1	;07C1
		TXTEDT==51			;MODULE EDIT LEVEL
 WIT
		TXTEDT==52			;MODULE EDIT LEVEL
 INS 75/3	;07C2
	0052	4.2.1551	Edit 50 doesn't make it.  Go back to disabling
				interrupt when evaluating arguments with P set funny.
				But be clever and check first to see if indirect or
				indexed info is included in argument and skip the
				whole thing if not.

 INS 22/8	;07C3
	;**;[52]  Insert 5 lines at TEXT.2 + 9L. DEK 8-SEP-83
		TXNN	TF,<@(17)>		;[52]Check for index or indirect
		JRST	TEXT.4			;[52]None, no need to resolve
		PUSH	P,TF			;[52]Save pointer for a min.
		$CALL	I%IOFF##		;[52]Disable interrupts
		POP	P,TF			;[52]Get the pointer back
 REP 27/8	;07C4
		TLNE	TF,777777		;IS THIS A POINTER?
 WIT
	;**;[52]  Insert 3 lines and add a label at TEXT.2 + 14L. DEK 8-SEP-83
		PUSH	P,TF			;[52]Save pointer for a min.
		$CALL	I%ION##			;[52]Enable interrupts
		POP	P,TF			;[52]Get the pointer back
	TEXT.4:	TLNE	TF,777777		;[52]IS THIS A POINTER?
 REP 48/11	;07C5
	;	PUSHJ	P,I%IOFF##		;TURN OFF INTERRUPTS
 WIT
	;**;[52]  Change 1 line at PARG.3 + 4L. DEK 8-SEP-83
		$CALL	I%IOFF##		;[52]Disable interrupts
 REP 56/11	;07C6
	;	PUSHJ	P,I%ION##		;TURN ON INTERRUPTS
 WIT
	;**;[52]  Change 1 line at PARG.3 + 11L. DEK 8-SEP-83
		$CALL	I%ION##			;[52]Enable interrupts
 SUM 62404