Trailing-Edge
-
PDP-10 Archives
-
bb-jr93e-bb
-
7,6/ap016/oprnet.x16
There are 2 other files named oprnet.x16 in the archive. Click here to see a list.
TITLE OPRNET ORION NETWORK SUPPORT CODE
SUBTTL Murray Berkowitz 12-SEP-85
;*******
;THIS PROGRAM IS ONLY FOR THE -20 AT PRESENT AND IS THEREFORE COMPLETELY
;UNDER CONDITIONAL ASSEMBLY **********
;
;
;
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1975,1976,1977,1978,1979,
;1980,1981,1982,1983,1984,1986,1987. ALL RIGHTS RESERVED.
;
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
; AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE
; AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
; SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT BE PROVIDED OR
; OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO
; AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE
; WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
; BY DIGITAL EQUIPMENT CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY
; DIGITAL.
SEARCH GLXMAC,ORNMAC
PROLOG(OPRNET)
%%.OPR==:%%.OPR ;GET ORNMAC'S AND
OPRVRS==:OPRVRS ;OPR/ORION'S VERSIONS
ERRSET ;INIT ERROR TABLES
TOPS20 <
EXTERNAL G$HOST
EXTERNAL LEVTAB
EXTERNAL CHNTAB
EXTERNAL NSPCON
EXTERNAL NSPACT
EXTERNAL NODNAM
EXTERNAL SRVTBL
EXTERNAL SRVDAT
EXTERNAL TRMFRK
EXTERNAL SRVACS
SUBTTL Table of Contents
; TABLE OF CONTENTS FOR oprnet
;
;
; SECTION PAGE
; 1. Murray Berkowitz Jul 25, 1979...................... 1
; 2. Table of Contents......................................... 2
; 3. N$INIT Initialize a server link.......................... 3
; 4. N$ISRV Open the server link.............................. 4
; 5. N$CONN Process the NSP connect request................... 5
; 6. N$CFRK Create a fork and process the link................ 6
; 7. N$TERM Terminate an inferior process..................... 7
; 8. N$KFRK Kill the current process.......................... 8
; 9. N$INT Process connect interupts......................... 9
; 10. N$PINT Process a data interupt........................... 10
; 11. N$ITER Process inferior termination...................... 11
SUBTTL N$INIT Initialize a server link
;THIS ROUTINE WILL TRY TO SETUP A PASSIVE TASK FOR OPERATOR
;CONNECTIONS. IF SUCCESSFUL IT WILL TURN ON NSPACT OTHERWISE
;IT WILL LEAVE IT OFF
N$INIT:: SETZM NSPACT ;INITIALIZE NSP ACTIVE FLAG
HRROI S1,[ASCIZ/SRV/] ;IS THERE A SERVER
STDEV ;SEE IF EXISTS?
PJRST NSPSE1 ;NSP ERROR ..NO NSP
$CALL L%CLST ;CREATE A LIST
MOVEM S1,G$NETL## ;SAVE THE NETWORK LIST NUMBER
MOVEI P1,NUMSRV ;NUMBER OF SERVERS
MOVEI P2,SRVTBL ;ADDRESS OF TABLE
MOVEI P3,CHNSRV ;CHANNEL DISPATCH ADDRESS
MOVEI S1,SRVTSK ;GET SERVER NUMBER
SKIPE DEBUGW ;ARE WE DEBUGGING
MOVEI S1,DEBSRV ;GET DEBUGGING SERVER
$TEXT (<-1,,SRVDAT>,<SRV:^D/S1/^0>)
INIT.1: MOVEM P3,SRV.CN(P2) ;SAVE THE CHANNEL NUMBER
$CALL N$ISRV ;INIT A SERVER
MOVEI P2,SRV.SZ(P2) ;GET THE NEXT ENTRY
; AOS P3 ;NEXT CHANNEL
ADDI P3,2 ;2 CHANNELS PER SERVER (EDIT 2)
SOJG P1,INIT.1 ;TRY NEXT ONE
MOVE S1,[IPCLEV,,N$ITER] ;INTERRUPT ON FORK TERMINATION
MOVEM S1,CHNTAB+.ICIFT ;SAVE IN CHANNEL TABLE
MOVX S1,.FHSLF ;GET MY HANDLE
MOVX S2,<CHNINT!1B<.ICIFT>> ;SERVERS AND FORK TERMINATION
AIC ;ACTIVATE THE CHANNEL
POPJ P, ;RETURN
SUBTTL N$ISRV Open the server link
;THIS ROUTINE WILL OPEN A SERVER FOR THE OPR TASK AND SAVE
;JFN AND DATA IN THE SERVER TABLE
;
;CALLED WITH P1/ SERVER ENTRY
; P2/ SERVER ENTRY ADDRESS
N$ISRV: MOVX S1,GJ%SHT!GJ%NEW ;NEW CONNECTION
HRROI S2,SRVDAT ;POINTER TO STRING
GTJFN ;GET A JFN
PJRST NSPSE2 ;CAN NOT GET A JFN
MOVEM S1,SRV.JF(P2) ;SAVE THE JFN
MOVE S2,[FLD(NETBSZ,OF%BSZ)+OF%RD+OF%WR] ;OPEN FLAGS AND SIZE
OPENF ;TRY TO OPEN LINK
PJRST NSPSE3 ;OPEN FAILED..RETURN
MOVE S1,SRV.JF(P2) ;GET THE JFN
MOVEI S2,.MOACN ;ATTACH TO INTERRUPT SYSTEM
SETZM T1 ;CLEAR THE FLAG
MOVE T2,SRV.CN(P2) ;GET CHANNEL NUMBER
STORE T2,T1,MO%CDN ;SAVE FOR CONNECTS
AOS T2 ;GET NEXT CHANNEL
STORE T2,T1,MO%DAV ;DATA AVAILABLE INTERRUPTS (EDIT 2)
MTOPR ;DO THE FUNCTION
ERJMP NSPSE3 ;CLEAN UP
POPJ P, ;RETURN
;ERRORS
NSPSE3: MOVE S1,SRV.JF(P2) ;GET THE JFN
TXO S1,CZ%ABT ;SET THE ABORT BIT
CLOSF ;CLOSE AND RELEASE THE JFN
JRST .+1 ;IGNORE ERRORS
NSPSE1:
NSPSE2:
$RETF ;ERROR..RETURN ***
SUBTTL N$CONN Process the NSP connect request
;THIS ROUTINE WILL PROCESS THE CONNECT THAT WAS FLAGED BY THE
;INTERRUPT AND RESET THE FLAG
N$CONN:: SKIPN NSPCON ;CONNECT?
$RETT ;NO..JUST RETURN
SETZ S1, ;CLEAR S1
EXCH S1,NSPCON ;RESET THE VALUE
MOVEI P1,NUMSRV ;GET NUMBER OF SERVERS
MOVEI P2,SRVTBL ;ADDRESS OF SERVER TABLE
CONN.1: SETOM S1 ;INDICATOR
CAME S1,SRV.IN(P2) ;DID WE GET CONNECT
JRST CONN.5 ;NO..TRY NEXT ONE
SETZM SRV.IN(P2) ;CLEAR THE FLAG
MOVE S1,SRV.JF(P2) ;GET THE JFN FOR LINK
MOVX S2,.MORLS ;READ LINK STATUS
MTOPR ;GET STATUS IN T1
ERJMP CONRE1 ;BAD LINK ***
TXNN T1,MO%WCC ;WAITING FOR CONNECT?
PJRST CONN.3 ;NO..TRY OTHER STATES
MOVE S1,SRV.JF(P2) ;GET THE JFN
MOVEI S2,.MORHN ;READ THE HOST NAME
HRROI T1,NODNAM ;PLACE TO STORE NAME
MTOPR ;GET THE NAME
ERJMP CONRE3 ;BAD LINK..***
MOVEI S1,NODNAM ;GET NODE NAME ADDRESS
$CALL S%SIXB ;CONVERT TO SIXBIT
SKIPE DEBUGW ;ARE WE DEBUGGING
PJRST CONN.2 ;YES..IGNORE NODE CHECK
CAMN S2,G$HOST ;IS IT CENTRAL SITE
PJRST CONN.4 ;CLOSE THE LINK
CONN.2: MOVEM S2,SRVACS+T2 ;SAVE THE NODE NAME
$CALL N$CFRK ;CREATE THE PROCESS
; $CALL N$ISRV ;GET ANOTHER SERVER (EDIT 2)
JRST CONN.5 ;TRY NEXT ENTRY
CONN.3: PJRST CONN.5 ;IGNORE OTHER CODES FOR NOW ***
CONN.4: MOVE S1,SRV.JF(P2) ;GET THE JFN
MOVEI S2,.MOCLZ ;REFUSE THE CONNECT
HRROI T1,[ASCIZ/Not remote node/]
HRLI S2,.DCX34 ;GET THE CODE
MOVEI T2,^D15 ;15 CHARACTERS
MTOPR ;REJECT IT
ERJMP .+1 ;IGNORE ERROR ***
CLOSF ;CLOSE THE LINK
ERJMP .+1 ;*** IGNORE ERROR
$CALL N$ISRV ;SETUP ANOTHER SERVER (EDIT 4)
CONN.5: MOVEI P2,SRV.SZ(P2) ;GET TO NEXT ENTRY
SOJG P1,CONN.1 ;TRY NEXT ONE
$RETT ;ALL DONE..RETURN
CONRE1:
CONRE2:
CONRE3: $RETF ;RETURN FALSE.***
SUBTTL N$CFRK Create a fork and process the link
;THIS ROUTINE WILL START UP AN OPR AND PROCESS THE LINK
;AS A NORMAL OPR BUT WILL ENTER OPR AT OPRRMT
N$CFRK:: MOVE S1,G$NETL## ;GET NET LIST NUMBER
$CALL L%LAST ;POSITION TO THE END
MOVE S1,G$NETL## ;GET THE NUMBER
MOVEI S2,NET.SZ ;SIZE OF AN ENTRY
$CALL L%CENT ;CREATE AN ENTRY
JUMPF CFRK.2 ;Trouble in river city
MOVE T2,S2 ;SAVE IN T2 ENTRY ADDRESS
MOVE S1,SRV.JF(P2) ;GET NETWORK JFN
MOVEM S1,SRVACS+T1 ;SAVE IN AC T1..SERVER LINK
MOVX S1,<CR%CAP!CR%ACS> ;CAPABILITIES AND AC BLOCK
MOVEI S2,SRVACS ;ADDRESS OF AC BLOCK
CFORK ;CREATE A FORK
JRST CFRK.1 ;ERROR..
MOVEM S1,NET.FK(T2) ;SAVE FORK HANDLE
MOVEM S1,SRV.FK(P2) ;SAVE FORK HANDLE (EDIT 2)
MOVEM P2,NET.SA(T2) ;SAVE SERVER TABLE ADDRESS( EDIT 2 + 7)
MOVX S1,GJ%SHT+GJ%OLD ;SHORT+OLD JFN
HRROI S2,[ASCIZ/SYS:OPR.EXE/] ;OPR PROGRAM
SKIPE DEBUGW ;ARE WE DEBUGGING
HRROI S2,[ASCIZ/OPR.EXE/] ;GET FROM LOCAL AREA
GTJFN ;GET THE JFN
JRST CFRK.2 ;ERROR..
HRL S1,NET.FK(T2) ;GET THE FORK HANDLE
SETZ S2, ;CLEAR S2
GET ;GET THE PROGRAM INTO THE PROCESS
ERJMP CFRK.3 ;KILL FORK AND RETURN
MOVEM S1,NET.PG(T2) ;SAVE THE JFN OF PROGRAM
MOVE S1,NET.FK(T2) ;GET THE FORK HANDLE
MOVEI S2,1 ;USE ENTRY 1 IN ENTRY VECTOR
SFRKV ;START UP THE FORK
ERJMP CFRK.3 ;KILL THE FORK
MOVE S1,SRV.JF(P2) ;GET THE JFN OF LINK
MOVEM S1,NET.LJ(T2) ;SAVE THE LINK IN DATA BASE
$RETT ;RETURN
CFRK.1:
CFRK.2: $RETF ;ERROR...***
CFRK.3: PJRST N$KFRK ;KILL THE PROCESS
SUBTTL N$TERM Terminate an inferior process
;THIS ROUTINE WILL FIND THE TERMINATED PROCESS AND RELEASE THE
;PROCESS AND JFNS
N$TERM:: SKIPN TRMFRK ;ANY TERMINATIONS
$RETT ;NO..RETURN
SETZ S1, ;CLEAR S1
EXCH S1,TRMFRK ;RESET THE FLAG
MOVE S1,G$NETL## ;GET THE NET LIST NUMBER
$CALL L%FIRST ;POSITION TO THE FIRST
JUMPF .RETT ;JUST IGNORE..MUST BE ARCHEIVE
TERM.1: MOVE T2,S2 ;GET THE ENTRY NUMBER
MOVE S1,NET.FK(T2) ;GET PROCESS HANDLE
RFSTS ;READ FORK STATUS
ERJMP TERM.2 ;TRY NEXT ONE
LOAD S2,S1,RF%STS ;GET THE STATUS
CAIE S2,.RFHLT ;HALTED??
CAIN S2,.RFFPT ;TERMINATED
SKIPA ;YES..
JRST TERM.2 ;NO..TRY NEXT ONE
$CALL N$KFRK ;KILL THE PROCESS
TERM.2: MOVE S1,G$NETL## ;GET LIST NUMBER
$CALL L%NEXT ;GET THE NEXT ENTRY
JUMPT TERM.1 ;O.K..CHECK IT OUT
$RETT ;RETURN
SUBTTL N$KFRK Kill the current process
;THIS ROUTINE WILL DO THE APPROPRIATE FORK KILLING AND JFN
;RELEASING
N$KFRK:: MOVE S1,G$NETL## ;GET THE LIST NUMBER
$CALL L%CURR ;POSITION TO CURRENT ENTRY
SKIPT ;O.K.
STOPCD (NCS,HALT,,<No current server data base in skew>)
MOVE T2,S2 ;PLACE ADDRESS IN T2
MOVE S1,NET.FK(T2) ;GET FORK HANDLE
KFORK ;KILL THE FORK
ERJMP KFRK.1 ;ERROR..***
MOVE S1,NET.PG(T2) ;JFN OF PROGRAM IN PROCESS
RLJFN ;RELEASE THE JFN
JRST .+1 ;IGNORE ERRORS
MOVE S1,NET.LJ(T2) ;GET LINK JFN
TXO S1,CZ%ABT ;SET THE ABORT BIT
CLOSF ;CLOSE AND RELEASE THE JFN
JRST .+1 ;IGNORE ERRORS
MOVE P2,NET.SA(T2) ;ADDRESS OF SERVER TABLE (EDIT 2)
MOVE S1,G$NETL## ;GET LIST NUMBER
$CALL L%DENT ;DELETE THE ENTRY
SETZM SRV.FK(P2) ;CLEAR FORK WORD
$CALL N$ISRV ;INIT THE SERVER (EDIT 2)
$RETT ;RETURN
KFRK.1: STOPCD (IPH,HALT,,<Invalid process handle to kill>)
SUBTTL N$INT Process connect interupts
DEFINE SRVINT(XX,YY,ZZ),<
N$INI'XX:: $BGINT IPCLEV ;INIT INTERRUPT LEVEL
SETOM NSPCON ;MARK CONNECT INTERRUPT
SETOM SRVTBL+SRV.IN+YY ;SET INTERRUPT OCCURRED FLAG
$DEBRK ;EXIT FROM INTERRUPT
N$INI'ZZ:: $BGINT IPCLEV ;INIT INTERRUPT LEVEL (EDIT 2)
MOVEI P1,SRVTBL+YY ;GET SERVER TABLE
JRST N$PINP ;PROCESS INPUT INTERRUPT
>;END SRVINT
XX==0
YY==0
ZZ==1
REPEAT NUMSRV,<SRVINT(\XX,YY,\ZZ)
XX=XX+2
ZZ==XX+1
YY==YY+SRV.SZ
>;END GENERATION
SUBTTL N$PINT Process a data interupt
;THIS ROUTINE WILL CHECK THE SERVER AND IF ACTIVE AND
;THERE IS DATA AVAILABLE...THEN GIVE INTERRUPT TO THE
;PROCESS ..ELSE DEBRK
N$PINP: SKIPN SRV.FK(P1) ;FORK EXIST?
$DEBRK ;JUST IGNORE IT
MOVE S1,SRV.JF(P1) ;GET THE SERVER JFN
MOVX S2,.MORLS ;READ THE LINK STATUS
SETZ T1, ;WORD FOR STATUS
MTOPR ;DO THE MTOPR
ERJMP PINT.2 ;FLAG ERROR
TXNN T1,MO%CON ;CHECK IF CONNECTED?
JRST PINT.1 ;NO.. FORCE INTERRUPT TO TERMINATE
TXNN T1,MO%EOM ;WAS THERE DATA
$DEBRK ;NO..IGNORE IT
PINT.1: MOVE S1,SRV.FK(P1) ;GET THE PROCESS HANDLE
MOVX S2,<1B<INPCHN>> ;INPUT CHANNEL
IIC ;GENERATE THE INTERRUPT
ERJMP .+1 ;IGNORE...***
$DEBRK ;EXIT FROM INTERRUPT
PINT.2: $DEBRK ;IGNORE FOR NOW***
SUBTTL N$ITER Process inferior termination
;THIS ROUTINE WILL FLAG FORK TERMINATION TO BE
;PROCESSED IN MAIN LOOP
N$ITER: $BGINT IPCLEV ;SETUP INTERRUPT LEVEL
SETOM TRMFRK ;SET FORK TERMINATION
$DEBRK ;EXIT FROM INTERRUPT
>;END TOPS20
END