Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - plrtap.c08
There is 1 other file named plrtap.c08 in the archive. Click here to see a list.
 INS 1/7	;08C1
	SUBTTL	T$SUNI -- Routine to Switch to Same Unit


	T$SUNI::$TRACE	(T$SUNI,6,S1)
		$CALL	.SAVET			;SAVE SOME ACS
		MOVE	T1,[3,,T2]		;SET UP UUO AC
		MOVEI	T2,.TFLSU		;FUNCTION CODE
		MOVE	T3,TCB.DV(B)		;GET DRIVE NAME
		MOVE	T4,T3			;SAME UNIT, REMEMBER?
		TAPOP.	T1,			;KICK MONITOR
		  PUSHJ	P,S..CSU		;SHOULDN'T FAIL
		POPJ	P,			;AND RETURN
 INS 58/9	;08C2
		HRRZS	P1			;ISOLATE FUNCTION CODE
		CAIN	P1,.TFDSE		;DATA SECURITY ERASE?
		$RETF				;EASY ONE TO HANDLE
 SUM 80389