Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lsu.c06
There is 1 other file named lsu.c06 in the archive. Click here to see a list.
 INS 16/1	;06C1
	; JSM	16-FEB-83	;[1054] ALLOW SMU OPEN UNAVAILABLE AFTER DECLARATIVES
	; RLF	10-FEB-83	;[1051] Make REWRITE after READ NEXT for relative
	;				file work
	; RLF	21-DEC-82	;[1047] DEQ record when fatal error encountered
 REP 51/3	;06C2
	;
 WIT
		EXTERNAL FS.FS,FS.IGE
 INS 42/30	;06C3
		SKIPN	FS.FS		;[1054] CHECK TWO-DIGIT FILE-STATUS CODE
		 JRST	LFENQ3		;[1054] IS ZERO, CONTINUE NORMAL PATH.
		SKIPN	FS.IGE		;[1054] ACTION CODE SET?
		 JRST	SU.ERJ		;[1054] NO
		HRRZ	AT1,FET3	;[1054] GET THE CONTENTS OF STACK POINTER.
		HLLZ	AT1,0(AT1)	;[1054] CHECK FOR UNAVAILABLE PATH
		JUMPE	AT1,RET.1	;[1054] NO UNAVAILABLE, RETURN + 1
		JRST	RET.2		;[1054] YES - RETURN + 2
	LFENQ3:				;[1054]
 REP 97/32	;06C4
		MOVE	AT4,@F.RACK(AP)	;GET ACTUAL KEY
		MOVE	AT3,D.RP(AP)	;GET CURRENT REC NUMBER
		CAIN	AT3,AT4		;RETAINED NEXT=CURRENT NEXT?
 WIT
		HRRZ	AT4,F.RACK(AP)	;[1051] GET ACTUAL KEY'S ADDRESS,
		MOVE	AT5,(AT4)	;[1051] THEN THE KEY.
		MOVE	AT3,D.RP(AP)	;GET CURRENT REC NUMBER
		CAMN	AT3,AT5		;[1051] RETAINED NEXT=CURRENT NEXT?
 INS 9/45	;06C5
		MOVE	AT1,[XWD .DEQDA,0]	;[1047] GET FUNCTION CODE
		CALLI	AT1,152			;[1047] DEQ ALL RECORDS
			JRST SU.ER7		;[1047] UNEXPECTED ERROR
 INS 46/45	;06C6
	;[1054] THE FOLLOWING LINE IS NEW ERROR MSG FOR SMU OPEN FAILED AFTER DECLARATIVES
	SU.ERJ:	$SUERR	<File Open Failed -- Cannot Continue.>

 SUM 143559