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

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

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

 REP 11/1	;13C1
	COPYRIGHT (C) 1979, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1979, 1983, 1986 BY DIGITAL EQUIPMENT CORPORATION
 INS 23/1	;13C2
	;MJC	11-FEB-86	[1155] Fix RMS ENQ quota exceeded error
	;MJC	12-JAN-86	[1153] Fix RMS EBCDIC dynamic. Fix edit 1044.
 REP 105/23	;13C3
		MOVE	T2,[EXP ASCCT,
				EBCCT,
				SIXCT](T3)	;[1044] GET BYTES/WORD IN T2
 WIT
		MOVE	T2,[ASCCT
			    EBCCT
			    SIXCT](T3)	;[1153][1044] GET BYTES/WORD IN T2
 INS 88/28	;13C4
		MOVE	T2,.RCFAB(FTL)	;[1155]ADDR OF THE FAB
		$FETCH	T1,STV,(T2)	;[1155]Get returned STV
		CAIE	T1,ENQX18	;[1155]QUOTA EXCEEDED?
		 JRST	OPFLE1		;[1155]NO - GIVE BUSY ERROR
		$ERROR	(E.534,SV.FAT,MT.FIL!MT.OER,OPOFL1) ;[1155]QUOTA EXCEEDED
	OPFLE1:				;[1155]
 SUM 19066