Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - lsu.c07
There is 1 other file named lsu.c07 in the archive. Click here to see a list.
 INS 16/1	;07C1
	;RLF	03-JUN-83	;[1067] Remove edit 1065.
	;RLF/JM	21-APR-83	;[1065] Make RETAIN NEXT,READ NEXT get key in RRT
	;				(part of edit is in CBLIO)
 REP 94/36	;07C2
	IFN ANS68,<
		SKIPN	2(ACRR)		;IF FILE IS RANDOM AND KEY IS 0,
		POPJ	PP,		;DO NOTHING
 WIT
	;[1067]	HRRZI	AT2,0		;[1065] START OFF WITH 0 BLOCK NO.
	IFN ANS68,<
		SKIPN	2(ACRR)		;IF FILE IS RANDOM AND KEY IS 0,
	;[D1065]	POPJ	PP,		;DO NOTHING
		POPJ	PP,		;[1067] DO NOTHING
	;[1067]	 JRST	BN0B		;[1065]
 REP 101/36	;07C3
		 POPJ	PP,		;YES, DO NOTHING
	>;END IFN ANS74
		JRST	BN0A
 WIT
	;[D1065]	 POPJ	PP,		;YES, DO NOTHING
		POPJ	PP,		;[1067] YES, DO NOTHING
	;[1067]	 JRST	BN0B		;[1065]
	;[1067]	LDB	AT1,CRRFG4	;[1065] GET RETAIN VERB FLAG
	;[1067]	CAIE	AT1,10		;[1065] DOING READ ONLY?
	;[1067]	 JRST	BN0B		;[1065]
	>;END IFN ANS74
		JRST	BN0A
	;[1067]BN0B:				;[1065]
	;[1067]	DPB	AT2,CRRBLK	;[1065] MAKE SURE CURRENT RECORD VALUE IS
	;[1067]				;[1065] FILLED.
	;[1067]	POPJ	PP,		;[1065] RETURN
 SUM 8268