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

 REP 56/7	;10C1
		TXNE	S1,NETNSV+NETONL+NETIBM;MUST BE STATUS INVALID+ONLINE+NOT IBM
 WIT
	;**;[1234]Change 1 line at INTR.4:+4L  DRB  1/11/85
		TXNE	S1,NETNSV+NETONL+NETIBM+NETSNA;[1234]Must be status invalid+online+
						;[1234]Not IBM + not SNA
 INS 20/12	;10C2
	;**;[1234]Add 2 lines at ANET.1:+2L  DRB  1/11/85
		TXNE	S1,NETSNA		;[1234]Was it an SNA Workstation?
		$CALL	SNAPUR			;[1234]Yes, go purge special objects
 INS 5/13	;10C3
	;**;[1234]Add 9 lines at CMPNOD:-3L  DRB  1/11/85

	;[1234]Delete the Node Attribute Block (NAB) and Node Object Block (NOB) List
	;[1234]for an SNA-Workstation

	SNAPUR:	LOAD	S1,NETNAB(AP),NA.LEN		;[1234]Length of NAB
		LOAD	S2,NETNAB(AP),NA.ADR		;[1234]Address of NAB
		SKIPE	S1				;[1234]If block allocated,
		$CALL	M%RMEM				;[1234]Release it
		MOVE	S1,NETNOB(AP)			;[1234]Index of NOB list
		JUMPN	S1,L%DLST			;[1234]Delete list and return
		$RET

 INS 32/25	;10C4
	;**;[1234]Add 3 lines at NONL.1:+3L  DRB  1/11/85
	;[1234]Find if this is a SNA workstation

		LOAD	S1,NETSTS(AP),NETSNA	;[1234]Is this an SNA workstation
		JUMPN	S1,NONL.6		;[1234]Yes, skip this

 REP 10/26	;10C5
	NOFF.2:	CAXE	S1,.OTRDR		;Is it the reader?
		$RETT				;No, don't care about this one
 WIT
	;**;[1234]Replace 2 lines with 4 lines at NOFF.2:  DRB  1/11/85
	NOFF.2:	MOVE	P1,NETSTS(AP)		;[1234]Get status bits
		TXNN	P1,NETSNA		;[1234]Is this an SNA Workstation?
		CAXE	S1,.OTRDR		;[1234]No, is it the reader?
		$RETT				;[1234]SNA or reader, don't care about it
 REP 5/28	;10C6
	NOFF.9:	MOVE	P1,NETCOL(AP)		;Get node name to tell ORION if needed
		MOVX	S1,NETONL		;GET THE NODE ONLINE BIT
 WIT
	;**;[1234]Replace 2 lines with 8 lines at NOFF.9:  DRB  1/11/85
	NOFF.9:	MOVE	P1,NETSTS(AP)		;[1234]Get status bits
		TXNN	P1,NETSNA		;[1234]SNA Workstation?
		 JRST	NOFF10			;[1234]No
		MOVE	S1,OBJUNI(P2)		;[1234]Yes, get the unit number
		CAIE	S1,1			;[1234]Is it the main batch stream?
		 JRST	PASS.2			;[1234]No, finish up

	NOFF10:	MOVE	P1,NETCOL(AP)		;[1234]Get node name to tell ORION if needed
		MOVX	S1,NETONL		;[1234]GET THE NODE ONLINE BIT

 REP 13/32	;10C7
	N$SACT:	$SAVE	<P1,P2,P3>		;Save needed ac's
 WIT
	;**;[1234]Change 1 line at N$SACT:  DRB  1/11/85
	N$SACT:	$SAVE	<P1,P2,P3,P4>		;[1234]Save needed ac's
 REP 49/32	;10C8
		JUMPN	S2,NSAC.2		;If already defined, skip this

	;  Need to create the node

		$CALL	N$NNET			;Add the node
		MOVEI	TF,1			;Say this is a definition
		SKIPA				;Skip the next

	NSAC.2:	SETZM	TF			;Say this is a redifinition
 WIT
	;**;[1234]Replace 6 lines with 6 lines at NSAC.0:+7L  DRB  1/11/85
		MOVEI	P4,1			;[1234]Assume this is a definition
		JUMPE	S2,NSAC.1		;[1234]If not defined, go define it
		SETZM	P4			;[1234]And say this is a redefinition
		MOVE	TF,NETSTS(S2)		;[1234]Get status flags of this node
		TXNE	TF,NETSNA		;[1234]If SNA, do purge and recreate
	NSAC.1:	$CALL	N$NNET			;[1234]Add the node
 REP 69/32	;10C9
		MOVE	S1,TF			;Get the define type
 WIT
	;**;[1234]Change 1 line at NSAC.7:-3L  DRB  1/11/85
		MOVE	S1,P4			;Get the define type
 SUM 92584