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