Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/lsu.c14
There are 2 other files named lsu.c14 in the archive. Click here to see a list.
REP 129/15 ;14C1
P6:
MOVEI AT3,7 ;ASSUME FILE IS RELATIVE (QT = 7)
LDB AT1,FTAM ;GET FILE'S ACCESS METHOD
CAIN AT1,INDEXD ;TEST FOR INDEXED
MOVEI AT3,3 ; SET INDEXED EXCLUSIVE (QT = 3)
WIT
;[1157] The 12B/12C functionality of block locking rather than file locking
;[1157] is being returned. It is unknown as to why it was ever taken away in
;[1157] the first place. Ignore preceding comments.
P6:
MOVEI AT3,2 ;[1157]Allow shared access... lock on block
SUM 127020