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

 INS 31/5	;10C1
	;**;[1234]Add 2 lines at SCHD.2:+6L  DRB  1/11/85
		LOAD	S1,OBJSCH(P1),OBSSNA	;[1234]If SNA printer or punch
		JUMPN	S1,SCHD.4		;[1234]Don't schedule any jobs
 INS 20/6	;10C2
	;**;[1234]Add 2 lines at SCH2.2:+13L  DRB  1/11/85
		TXNE	P3,NETSNA		;[1234]Is this a SNA Workstation
		JRST	SCH2.6			;[1234]Yes, process it
 INS 36/6	;10C3
	;**;[1234]Add 2 lines at SCH2.0:+5L  DRB  1/11/85
		TXNE	P3,NETSNA		;[1234]Is it a SNA Workstation
		JRST	SCH.2A			;[1234]Yes, don't care if there are any jobs

 INS 58/6	;10C4
	;**;[1234]Add 2 lines at SCH2.3:+3L  DRB  1/11/85
		TXNE	P3,NETSNA		;[1234]Is this a SNA node?
		MOVX	S1,.OTSNA		;[1234]Yes, then search for SNA spooler
 INS 67/6	;10C5
	;**;[1234]Add 9 lines at SCH2.5:+2L

	;[1234]Here if node is an SNA workstation and node is Offline
	;[1234]only the main batch stream can be started

	SCH2.6:
		LOAD	S1,OBJTYP(P1)		;[1234]Get the object type
		LOAD	S2,OBJUNI(P1)		;[1234]Get the object unit
		CAXN	S1,.OTBAT		;[1234]Is it the main batch object
		CAXE	S2,1			;[1234]That is batch stream 1
		JRST	SCH2.5			;[1234]No, just process next object
		JRST	SCH.2A			;[1234]Yes, leterrip !!!


 INS 31/7	;10C6
	;**;[1234]Add 2 lines at SETUP:+15L  DRB  1/11/85
		LOAD	S1,NETSTS(S2),NETSNA	;[1234]Is this an SNA Workstation
		JUMPN	S1,SETU.2		;[1234]Yes, go process it
 INS 42/8	;10C7
	;**;[1234]Add 29 lines at SETU.1:+15L  DRB  1/11/85

		;[1234]CONTINUED ON THE NEXT PAGE

		;[1234]CONTINUED FROM THE PREVIOUS PAGE

	SETU.2:					;[1234]Here to set up for SNA Workstation
		MOVE	S1,NETSTS(P4)		;[1234]Get the node status/flag bits
		MOVEM	S1,SUP.ST(P3)		;[1234]Save them for the processor
		MOVE	S1,NETGWY(P4)		;[1234]Get the Gateway node
		MOVEM	S1,SUP.GW(P3)		;[1234]Save it for the processor
		DMOVE	S1,NETACC(P4)		;[1234]Get the Access Name
		DMOVEM	S1,SUP.AN(P3)		;[1234]Save it for the processor
		MOVE	S1,NETACC+2(P4)		;[1234]Get all of access name
		MOVEM	S1,SUP.AN+2(P3)		;[1234]Save it for the processor
		MOVE	S1,OBJTYP(P2)		;[1234]Get object type
		CAIE	S1,.OTBAT		;[1234]Is it batch?
		JRST	SETU.3			;[1234]No
		LOAD	S1,NETNAB(P4),NA.ADR	;[1234]Yes, Get the Node Attribute Block
		MOVEI	S2,SUP.AB(P3)		;[1234]Where it goes in SETUP msg
		HRL	S2,S1			;[1234]Source,,destination
		BLT	S2,SUP.AB+NABSIZ-1(P3)	;[1234]Move it
		JRST	SETU.1			;[1234]Continue on !!!

	SETU.3:	MOVE	S1,NETNOB(P4)		;[1234]Get the list index
		PUSH	P,P1			;[1234]Save P1
		MOVE	P1,P2			;[1234]P1 points to object
		$CALL	FNDNOB##		;[1234]Get the NOB
		POP	P,P1			;[1234]P1 points to PSB again
		JUMPF	SETU.1			;[1234]No NOB entry, continue on
		MOVEI	S2,SUP.AB(P3)		;[1234]Where it goes in SETUP msg
		HRL	S2,S1			;[1234]Source,,destination
		BLT	S2,SUP.AB+NOBSIZ-1(P3)	;[1234]Move it
		JRST	SETU.1			;[1234]Continue on !!!

 REP 13/10	;10C8
		LOAD	S1,NETSTS(S2),NETIBM	;GET THE IBM REMOTE INDICATOR
		JUMPE	S1,SHUT.2		;NOT AN IBM REMOTE,,SKIP THIS
		MOVE	S1,S2			;GET NODE DB ADDRESS IN S1
 WIT
	;**;[1234]Replace 3 lines with 4 lines at SHUT.1:+9L  DRB  1/11/85
		MOVE	S1,NETSTS(S2)		;[1234]Get the node status bits
		TXNN	S1,NETIBM!NETSNA	;[1234]Is this an IBM type node ???
		JRST	SHUT.2			;[1234]Not an IBM remote,,skip this
		MOVE	S1,S2			;[1234]Get node DB address in S1
 REP 6/12	;10C9
		LOAD	S1,NETSTS(S2),NETIBM	;IS THIS AN IBM REMOTE STATION ???
		SKIPE	S1			;CHECK THE BIT !!
 WIT
	;**;[1234]Replace 2 lines with 2 lines at RSET.0:+3L  DRB  1/11/85
		MOVE	S1,NETSTS(S2)		;[1234]Get the node status bits
		TXNE	S1,NETIBM!NETSNA	;[1234]Is this an IBM type node?
 REP 16/17	;10C10
		TXNE	S2,NETIBM		;IS THIS AN IBM TYPE NODE ???
 WIT
	;**;[1234]Change 1 line at CHKOBJ:+9L  DRB  1/11/85
		TXNE	S2,NETIBM!NETSNA	;[1234]IS THIS AN IBM TYPE NODE ???
 SUM 108599