Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/glxfil.c12
There are no other files named glxfil.c12 in the archive.
REP 27/1 ;12C1
FILEDT==106 ;EDIT LEVEL
WIT
FILEDT==125 ;EDIT LEVEL
INS 167/3 ;12C2
0107 1620 In F%OOPN, allow a file to supersede an existing file
125 Increase version 4.2 maintenance edit number to correspond with version
5 maintenance edit number.
INS 38/10 ;12C3
;**;[107]At F%OOPN:10L insert four lines JCR 8/13/85
LOAD S1,FOB.CW(S2),FB.SUP ;[JCR]Get the supersede bit
TDZE S1,S1 ;[JCR]Is it on?
MOVX S1,GJ%FOU!GJ%NEW ;[JCR]Yes, get the bits to turn off
ANDCAM S1,O$GJFN ;[JCR]And turn them off
SUM 42290