Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/glxfil.c08
There are 2 other files named glxfil.c08 in the archive. Click here to see a list.
 REP 27/1	;08C1
		FILEDT==104			;EDIT LEVEL
 WIT
		FILEDT==105			;EDIT LEVEL
 INS 162/3	;08C2
	0105	1579	In OPNERR check for a JFN and if found, release it.

 REP 16/21	;08C3
		POP	P,S1			;RESTORE THE ERROR CODE
 WIT
	;**;[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
	NOJFN:	POP	P,S1			;[105]Restore the error code
 SUM 119822