PDP-10 Archive: autopatch/rmsio.c15 from bb-kl11c-bm_tops20_v6_1_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/rmsio.c15

There are 2 other files named rmsio.c15 in the archive. Click here to see a list.

 INS 23/1	;15C1
	;RLF	14-OCT-86	[1170] Don't block if record > 1 page
 INS 28/24	;15C2
		MOVE	T1,RMS.RL	;[1170] DON'T BLOCK IF RECORD WILL BE
		CAIGE	T1,BA$WPU	;[1170] GREATER THAN ONE PAGE
 REP 120/42	;15C3
	RDRER1:	MOVEI	T1,RC.FAI	;READ-FAILED CODE
 WIT
	RDRER1:	CAIN	T1,ER$RLK	;[1173]RECORD LOCKED?
		 JRST 	RDLKER		;[1173]SET FILE STATUS 92
		MOVEI	T1,RC.FAI	;READ-FAILED CODE
 INS 159/43	;15C4
		MOVEI	T1,UP%ERR	;[1173]
		PUSHJ	PP,CHKUSE	;[1173]CHECK FOR USE PROCEDURE
		JRST	[TYPE [ASCIZ\
	?RECORD/BLOCK LOCKED BY ANOTHER USER.
	?TRY AGAIN LATER.
	\]				;[1173]NO USE PROCEDURE
		$ERROR(E.520,SV.KIL,MT.FIL)]
		PUSHJ	PP,(T1)		;[1173]DO IT
 SUM 23920