Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - ufdset.c08
There is 1 other file named ufdset.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	D. Mastrovito /DPM	7-Feb-84
 WIT
	SUBTTL	D. Mastrovito /DPM	26-Mar-84
 REP 38/1	;08C2
		UFDEDT==35			;EDIT LEVEL
 WIT
		UFDEDT==36			;EDIT LEVEL
 INS 92/2	;08C3
	;
	; 36	Avoid RENAME error 26 by renaming the UFD before defining the
	;	search list which could set the structure status to NOWRITE.
 REP 18/8	;08C4
		PUSHJ	P,DEFJSL		;DEFINE THE NEW JOB SEARCH LIST
		PUSHJ	P,RENUFD		;RENAME THE UFD
 WIT
		PUSHJ	P,RENUFD		;RENAME THE UFD
		PUSHJ	P,DEFJSL		;DEFINE THE NEW JOB SEARCH LIST
 SUM 71309