Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - rmsio.c07
There is 1 other file named rmsio.c07 in the archive. Click here to see a list.
 INS 13/1	;07C1
	;JEH	18-JUL-83	[1073] Add $ERASE call if CLOSE WITH DELETE
 INS 172/14	;07C2
		MOVE	T0,F.WFLG(FT)	;[1066] RESTORE SWITCH AC.
 REP 26/21	;07C3
	;CLOSE WAS SUCCESSFUL. RELEASE THE CORE.
		PUSHJ	PP,ROPCOR	;* RELEASE CORE FROM OPEN *
 WIT
		TXNN	FLG,CLS%DL	;[1073] CLOSE WITH DELETE?
		 JRST	CL.AFT		;[1073] NO
		MOVE	T2,.RCFAB(FTL)	;[1073] YES, POINT AT FAB
		$ERASE	<(T2)>,RCLSER	;[1073] ** DELETE THE FILE **

	;CLOSE WAS SUCCESSFUL. RELEASE THE CORE.
	CL.AFT:	PUSHJ	PP,ROPCOR	;[1073] * RELEASE CORE FROM OPEN *
 SUM 210098