Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 30/26	;12C1
		JUMPE	P1,DTCH.2		;IF ATTCH,,SKIP DETACH CODE
 WIT
		JUMPE	P1,ATCH.2		;[1233] IF ATTCH,,SKIP DETACH CODE
 REP 34/26	;12C2
		SKIPE	.ATTPR(M)		;ANY NEW PRIMARY PORT ???
		JRST	DTCH.2			;YES,,PROCESS LIKE ATTACH
		MOVE	S1,P2			;GET THE UCB ADDRESS IN S1
 WIT
		SKIPN	S1,.ATTPR(M)		;[1233] NEW PRIME UNIT?
		JRST	DTCH.2			;[1233] NO, DETACHED ONLY PORT, DESTROY UCB
		SETZ	S2,			;[1233] GET A ZERO
		EXCH	S2,.UCBAU(P2)		;[1233] NO ALTERNATE NOW
		CAMN	S1,S2			;[1233] IS NEW PRIME OLD ALTERNATE?
		MOVEM	S1,.UCBNM(P2)		;[1233] YES, RESET THE NAME IN THE UCB
		$RETT				;[1233] DONE

	DTCH.2:	MOVE	S1,P2			;[1233] GET THE UCB ADDRESS IN S1
 REP 5/27	;12C3
	DTCH.2:	LOAD	S1,.UCBST(P2),UC.AVA	;GET THE AVAILABLE BIT
		JUMPN	S1,DTCH.3		;IF SET,,DON'T ALTER AVAILABLE COUNT
 WIT
	ATCH.2:	LOAD	S1,.UCBST(P2),UC.AVA	;[1233] GET THE AVAILABLE BIT
		JUMPN	S1,ATCH.3		;IF SET,,DON'T ALTER AVAILABLE COUNT
 REP 12/27	;12C4
	DTCH.3:	MOVE	S1,.ATTPR(M)		;GET THE NEW PRIMARY PORT
 WIT
	ATCH.3:	MOVE	S1,.ATTPR(M)		;[1233] GET THE NEW PRIMARY PORT
 REP 19/58	;12C5
		PUSHJ	P,ACTINI		;PERFORM ACCOUNTING INITIALIZATION
		MOVE	S1,.VSCRE(P1)		;GET THE CREATION DATE
 WIT
	;**;[1234] Insert code at I$TDSM+6L. /LWS
		PUSH	P,S1			;[1234] SAVE MSG TYPE
		PUSHJ	P,ACTINI		;PERFORM ACCOUNTING INITIALIZATION
		POP	P,S2			;[1234] GET MSG TYPE BACK
		LOAD	S1,.TDDVT(M),TDD.FL	;[1234] GET MONITOR FLAGS
		CAXE	S2,UGMGM$		;[1234] MOUNT STATS?
		TXNN	S1,TD.VSW		;[1234] VOLUME SWITCH STATS?
		JRST	TMNT.A			;[1234] NO, MOUNT OR REGULAR DISMOUNT
		MOVE	S1,.TDDEV(M)		;[1234] YES, GET DEVICE NAME
		MOVEM	S1,ACTSTR+UM$DEV	;[1234] SAVE IT
		JRST	TMNT.B			;[1234] GO GET STATS

	TMNT.A:	MOVE	S1,.VSCRE(P1)		;[1234] GET THE CREATION DATE
 REP 3/59	;12C6
		MOVE	S1,.TDCRD(M)		;[1165] GET THE CHARACTERS READ
 WIT
	;**;[1234] Add label at TMNT.0-12L. /LWS
	TMNT.B:	MOVE	S1,.TDCRD(M)		;[1234][1165] GET THE CHARACTERS READ
 REP 3/75	;12C7
	MOUACT:	CAILE	T2,1			;VALIDATE BLOCK LENGTH
 WIT
	MOUACT:	CAIN	T2,1			;[1237] ZERO LENGTH ACCOUNT STRING?
		JRST	MOUN.1			;[1237] YES (JUST THE HEADER)
		CAILE	T2,1			;VALIDATE BLOCK LENGTH
 SUM 164578