Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/glxfil.c10
There are 2 other files named glxfil.c10 in the archive. Click here to see a list.
 REP 27/1	;10C1
		FILEDT==105			;EDIT LEVEL
 WIT
		FILEDT==106			;EDIT LEVEL
 INS 164/3	;10C2
	0106	1601	In F%OOPN and F%AOPN, change protection check from 
			.CKACN to .CKAWR.

 REP 38/10	;10C3
		MOVX	S1,.CKACN		;THE PROTECTION TO CHECK FOR
		MOVEM	S1,O$PROT		;CONNECT TO DIRECTORY ACCESS
 WIT
	;[106] At F%OOPN: +10L change .CKACN to .CKAWR	JD	14-Jan-85
		MOVX	S1,.CKAWR		;THE PROTECTION TO CHECK FOR
		MOVEM	S1,O$PROT		;WRITE FILE ACCESS
 REP 44/11	;10C4
		MOVX	P1,.CKACN		;THE PROTECTION TO CHECK FOR
		MOVEM	P1,O$PROT		;CONNECT TO DIRECTORY ACCESS
 WIT
	;[106] At F%AOPN: +12L change .CKACN to .CKAWR	JD	14-Jan-85
		MOVX	P1,.CKAWR		;THE PROTECTION TO CHECK FOR
		MOVEM	P1,O$PROT		;WRITE FILE ACCESS
 REP 16/21	;10C5
	;**;[105]At OPNERR:+2L add 4 lines and change 1 line  JCR  5/29/84
		MOVE	S1,FB$JFN(FB)		;[105]Pick up the JFN
		JUMPE	S1,NOJFN		;[105]Is there really a JFN
		RLJFN				;[105]Yes, so release it
		JFCL				;[105]Ignore any errors
 WIT
	;**;[105]At OPNERR:+2L add 3 lines and change 1 line  JCR  5/29/84
		SKIPE	S1,FB$JFN(FB)		;[105]Don't release if no JFN exists
		RLJFN				;[105]Release the JFN
		ERJMP   .+1			;[105]Ignore any errors
 SUM 190381