Google
 

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