Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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