Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - tapuuo.c11
There is 1 other file named tapuuo.c11 in the archive. Click here to see a list.
 REP 16/27	;11C1
		MOVE	P1,T1		;SAVE FCN IN P1
 WIT
		HRR	P1,T1		;SAVE FCN IN P1
 DEL 5/38	;11C2
		PUSHJ	P,TPSTAT		;REPORT STATISTICS
 REP 16/38	;11C3
		MOVE	P3,T2		;SAVE PRED.
 WIT
		CAMN	P1,F		;OLD SAME AS NEW?
		JRST	CPOPJ1##	;YES--THEN IT'S A NOOP
		MOVE	P3,T2		;SAVE PRED.
		EXCH	F,P1		;GET OLD DDB ADDRESS FOR STATS
		PUSHJ	P,SNDVSS##	;SEND VOL SWITCH TAPE STATS FOR ACCOUNTING
		  JFCL			;WE TRIED
		PUSHJ	P,TPSTAT	;REPORT STATS
		EXCH	F,P1		;GET NEW DDB BACK
 REP 4/71	;11C4
	LBLMSG:	LDB	T1,TUYRQT	;GET REQUEST TYPE
		CAIE	T1,LR.EOT	;END OF TAPE?
		CAIN	T1,LR.EOV	;END OF VOLUME?
		PUSHJ	P,TPSTAT	;YES, REPORT STATS
		PUSHJ	P,SAVE3##	;SAVE P1-P3
 WIT
	LBLMSG:	PUSHJ	P,SAVE3##	;SAVE P1-P3
 SUM 203302