Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - quench.c10
There is 1 other file named quench.c10 in the archive. Click here to see a list.
 REP 42/1	;10C1
		QUHEDT==522			;EDIT NUMBER
 WIT
		QUHEDT==523			;EDIT NUMBER
 INS 230/7	;10C2
	;523	Edit 517 does not handle the "PRINT REL:FILE.EXT[,,EXAMPLE]"
	;	command. When an ERSATZ device is part of the file spec
	;	QUEUE can not find any SFD's on it.
	;	SPR 10-34921	GCO 10126	3-DEC-84/CTK
	;
 REP 33/26	;10C3
		SETZM	.FXDIR(I)	;[517]YES, CLEAR PPN
		SETOM	.FXDIM(I)	;[517]AND IT'S NOT WILD ANY MORE
		MOVSI	T1,.FXDIR(I)	;[517]ALSO CLEAR ANY SPECIFIED PATH
		HRRI	T1,.FXDIR+1(I)	;[517]
		BLT	T1,.FXDIR+2*.FXLND-1(I)	;[517]CLEAR IT
		ANDCAM	S1,.FXMOD(I)	;[517]CAN'T SPECIFY DEVICE
		ANDCAM	S1,.FXMOM(I)	;[517]OR DIRECTORY
		  JRST	INDEFD		;[517]SET UP DIRECTORY NOW
	INDFU1:	MOVSI	T1,-1		;[517]YES--USE HIM FOR DEFAULT
 WIT
	;**;[523]ADD AND REVAMP CODE INDFU1:-8L	3-DEC-84/CTK
		MOVE	T1,PTHBLK+.PTPPN;[523]YES, GET THE PPN
		SKIPN	.FXDIR(I)	;[523]DID WE SPECIFY ANY ???
		MOVEM	T1,.FXDIR(I)	;[523]YES, STORE IT
		SETOM	.FXDIM(I)	;[523]NO, AND IT'S  NOT WILD ANY MORE
		  JRST	INDEFD		;[523]SET UP DIRECTORY NOW
	INDFU1:	MOVSI	T1,-1		;[523]YES--USE HIM FOR DEFAULT
 SUM 166659