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