PDP-10 Archive: autopatch/rmsio.c08 from bb-kl11f-bm_tops20_v7_0_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/rmsio.c08

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

 REP 1/1	;08C1
	; UPD ID= 1526 on 2/7/84 at 4:07 PM by HOFFMAN                          
 WIT
	; UPD ID= 1616 on 5/21/84 at 4:36 PM by HOFFMAN                         
 INS 22/1	;08C2
	;***** V13  *****
	;JEH	14-MAY-84	[1122] Take 'at end' branch on 'read next' failure
	;JEH	13-APR-84	[1116] Reset file status before retrying file open

 REP 58/12	;08C3
		MOVEM	T1,RMS.BK		; section number in .GBASE
 WIT
		MOVEM	T1,RMS.BK##		;[1117]  section number in .GBASE
 INS 86/12	;08C4
	IFN DEBUG,<

	;[1117] 
 INS 106/12	;08C5
	>; END IFN DEBUG			[1117]

 INS 94/28	;08C6
		SETZM	FS.FS		;[1116] Clear the file status
		PUSHJ	PP,SETFS	;[1116] Set it in the appropriate locations
 REP 7/43	;08C7
		 JRST	RDMSE1		;GIVE ERROR
 WIT
		 JRST	RD.MS0		;[1122] GIVE ERROR
 REP 12/43	;08C8
		PUSHJ	PP,RDEOF		;YES, GO SET EOF ON FIRST TIME THRU
 WIT
	RD.MS0:	PUSHJ	PP,RDEOF	;[1122] YES, GO SET EOF ON FIRST TIME THRU
 INS 99/43	;08C9
		CAIE	T1,FS%16	;[1122] SECOND AT END?
 REP 128/43	;08C10
		MOVE	T0,F.WFLG(FT)	;GET FILE TABLE FLAG WORD AGAIN
 WIT
		MOVE	T0,.RCSTE(FTL)	;[1122]GET THE FILE'S STATUS:
		CAIG	T0,RC.INV	;[1122]IS FILE AT INVALID KEY STATE
		CAIGE	T0,RC.ATE	;[1122]OR HAS END-OF-FILE ALREADY BEEN REACHED?
		JRST	T0,RDEOF0	;[1122]NO
		MOVEI	T1,FS%16	;[1122]YES, ATTEMPTING TO READ SEQUENTIALLY
		JRST	RDEOF1		;[1122]FROM AN INVALID STATE
	RDEOF0:	MOVE	T0,F.WFLG(FT)	;[1122]GET FILE TABLE FLAG WORD AGAIN
 SUM 18386