Trailing-Edge
-
PDP-10 Archives
-
bb-bt99r-bb
-
nebdcn.x24
There are no other files named nebdcn.x24 in the archive.
TITLE NEBDCN - DECnet-10 I/O driver for the Network Queue Controller
SUBTTL D. P. Mastrovito & Joseph A. Dziedzic /DPM/JAD
;
;
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION
; 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 NEBPRM
MODULE (NEBDCN)
IOVEC (DCN,<DECnet>)
SUBTTL DECnet-10 I/O driver -- Definitions and parameters
DCNLVL==0 ;INTERRUPT PRIORITY LEVEL
SUBTTL DECnet-10 specific DQS parameters
;Object type of DQS server
.OBDQS==^D66 ;OFFICIAL DQS OBJECT NUMBER
IFN OLDDQS,<
.OBOLD==OLDDQS ;UNOFFICIAL DQS USED A CUSTOMER TYPE
>
SUBTTL DECnet-10 I/O driver -- DCNINI - Initialization
DCNINI: PUSHJ P,PSIAVG## ;ASSIGN GLOBAL VECTOR
POPJ P, ;FAILED
MOVEM S1,DCNVEC ;SAVE VECTOR ADDRESS
MOVEI T1,DCNINT ;DECNET EVENT INTERRUPT ROUTINE
MOVEM T1,.PSVNP(S1) ;SET ADDRESS
HRREI T1,.PCNSP ;CONDITION CODE
MOVE T2,S2 ;OFFSET,,0
MOVSI T3,DCNLVL ;INTERRUPT PRIORITY LEVEL
MOVE S1,[PS.FAC+T1] ;ADD CONDITION BIT + ADDRESS
PISYS. S1, ;...
POPJ P, ;FAILED
JRST .POPJ1 ;RETURN
SUBTTL DECnet-10 I/O driver -- DCNINF - Return information about a node
;RETURN INFORMATION ABOUT NODE
; CALL: MOVE S1, NODE NAME
; PUSHJ P,DCNINF
DCNINF: TDNN S1,[-1,,777600] ;NODE NAME?
POPJ P, ;NO
MOVE T2,S1 ;ARGUMENT
MOVEI S1,T1 ;SET UP UUO AC
MOVE T1,[.DNNDI,,2] ;FUNCTION,,LENGTH
TXO T1,DN.FLE!DN.FLR ;EXECUTOR AND REACHABLE FLAGS
DNET. S1, ;CHECK STATUS
JSP S2,.+2 ;FAILED
JRST .POPJ1 ;RETURN GOODNESS
CAIN S1,DNNSN% ;NO SUCH NODE?
POPJ P, ;THAT'S OK
PJRST UUOERR## ;REPORT UUO ERROR AND RETURN
SUBTTL DECnet-10 I/O driver -- DCNOPN - Open connection
DCNOPN: MOVE S1,.JBNOD(R) ;GET NODE NAME
CAMN S1,[SIXBIT/*/] ;PASSIVE CONNECT?
JRST DCNOPP ;YES
;Open active connection
MOVEI S1,[ITEXT (^N/.JBNOD(R)/)] ;ITEXT POINTER TO STRING
MOVEI S2,NODBLK ;STRING BLOCK ADDRESS
PUSHJ P,FILSTB ;FILL IN THE STRING BLOCK
MOVEI S1,.NSCDD+1 ;LENGTH OF CONNECT BLOCK
MOVEM S1,CONBLK+.NSCNL
MOVEI S1,NODBLK ;NODE NAME STRING BLOCK ADDRESS
MOVEM S1,CONBLK+.NSCND
MOVEI S1,SRCBLK ;SOURCE TASK DESCRIPTOR BLOCK ADDRESS
MOVEM S1,CONBLK+.NSCSD
MOVEI S1,DSTBLK ;DESTINATION TASK DESCRIPTOR BLOCK ADDRESS
MOVEM S1,CONBLK+.NSCDD
MOVEI S1,.NSDPN+1 ;LENGTH OF SOURCE/DESTINATION TASK BLOCKS
MOVEM S1,SRCBLK+.NSDFL
MOVEM S1,DSTBLK+.NSDFL
MOVEI S1,1 ;FORMAT TYPE (NO SYMBOL)
MOVEM S1,SRCBLK+.NSDFM
SETZM SRCBLK+.NSDOB ;NO OBJECT TYPE
SETZM SRCBLK+.NSDPP ;NO PPN
MOVEI S1,STSBLK ;SOURCE TASK DESCRIPTOR STRING BLOCK ADDRESS
MOVEM S1,SRCBLK+.NSDPN
SETZM DSTBLK+.NSDFM ;FORMAT TYPE (NO SYMBOL)
MOVX S1,.OBDQS ;OBJECT TYPE
MOVEM S1,DSTBLK+.NSDOB
SETZM DSTBLK+.NSDPP ;NO PPN
SETZM DSTBLK+.NSDPN ;NO PROCESS NAME
MOVEI S1,[ITEXT (NEBULA-^D/.JQOBJ+OBJ.UN(R)/)] ;ITEXT POINTER TO STRING
MOVEI S2,STSBLK ;STRING BLOCK ADDRESS
PUSHJ P,FILSTB ;FILL IN THE STRING BLOCK
IFN OLDDQS,<
PUSHJ P,DCNOP0 ;TRY TO MAKE THE CONNECTION
TRNA ;ERROR: SPECIAL HANDLING
JRST .POPJ1 ;NO ERRORS: SKIP RETURN
CAXE S2,.NSSRJ ;REJECTED? (NO DJM)
POPJ P, ;NO, REPORT THE ERROR
MOVX S1,JB.OLD ;SET FLAG FOR OLD DQS OBJECT
IORM S1,.JBFLG(R) ;
MOVX S1,.OBOLD ;TRY AGAIN WITH THE OLD OBJECT NUMBER
MOVEM S1,DSTBLK+.NSDOB
DCNOP0:
>
MOVE S1,[.NSFEA,,3] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
SETZM .JNARG+.NSACH(R) ;ZERO STATUS AND CHANNEL NUMBER
MOVEI S1,CONBLK ;POINT TO CONNECT BLOCK
MOVEM S1,.JNARG+.NSAA1(R)
MOVEI S1,.JNARG(R) ;POINT TO ARGUMENT BLOCK
NSP. S1, ;ATTEMPT A CONNECTION
JSP S2,NSPERR ;ERROR
LOAD S1,.JNARG+.NSACH(R),NS.ACH ;GET CHANNEL NUMBER
MOVEM S1,.JNIOC(R) ;SAVE
SCDSET (.WSWCC,0) ;SET SCHEDULER PARAMETERS
PUSHJ P,SETPSR ;SET PSI REASON MASK FOR THIS CHANNEL
PUSHJ P,WSCHED## ;WAIT FOR CONNECT CONFIRM
LOAD S2,.JNIOS(R),NS.STA ;GET CONNECTION STATE
CAXN S2,.NSSRN ;RUNNING?
JRST .POPJ1 ;YES, SKIP RETURN
MOVE S1,[XWD .NSFRL,2] ;FUNCTION,,LENGTH
MOVE S1,.JNIOC(R) ;CHANNEL NUMBER
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
NSP. S1, ;RELEASE THE CHANNEL
JFCL ;IGNORE ERROR
SETZM .JNIOC(R) ;CHANNEL NUMBER NO LONGER IN USE
MOVEI S1,[ITEXT ()] ;NULL ITEXT
CAXN S2,.NSSRJ ;REJECTED? (NO DJM)
MOVEI S1,[ITEXT (< (Distributed Job Manager not running)>)]
POPJ P, ;RETURN
;Open passive connection
DCNOPP: MOVE S1,[.NSFEP,,3] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
SETZM .JNARG+.NSACH(R) ;ZERO STATUS AND CHANNEL NUMBER
MOVEI S1,CONBLK ;POINT TO CONNECT BLOCK
MOVEM S1,.JNARG+.NSAA1(R)
MOVEI S1,.NSCDD+1 ;LENGTH OF CONNECT BLOCK
MOVEM S1,CONBLK+.NSCNL
SETZM CONBLK+.NSCND ;NO NODE NAME BLOCK
SETZM CONBLK+.NSCSD ;NO SOURCE TASK DESCRIPTOR BLOCK
MOVEI S1,DSTBLK ;DESTINATION TASK DESCRIPTOR BLOCK ADDRESS
MOVEM S1,CONBLK+.NSCDD
MOVEI S1,.NSDPN+1 ;LENGTH OF DESTINATION TASK BLOCK
MOVEM S1,DSTBLK+.NSDFL
SETZM DSTBLK+.NSDFM ;FORMAT TYPE (NO SYMBOL)
MOVX S1,.OBDQS ;OBJECT TYPE
MOVEM S1,DSTBLK+.NSDOB
SETZM DSTBLK+.NSDPP ;NO PPN
SETZM DSTBLK+.NSDPN ;NO PROCESS NAME
MOVEI S1,.JNARG(R) ;POINT TO ARGUMENT BLOCK
NSP. S1, ;LISTEN FOR A CONNECTION
JSP S2,NSPERR ;ERROR
LOAD S1,.JNARG+.NSACH(R),NS.ACH ;GET CHANNEL NUMBER
MOVEM S1,.JNIOC(R) ;SAVE
SCDSET (.WSWRC,0) ;SET SCHEDULER PARAMETERS
PUSHJ P,SETPSR ;SET PSI REASON MASK FOR THIS CHANNEL
PUSHJ P,WSCHED## ;WAIT FOR REMOTE CONNECT
JRST .POPJ1 ;RETURN
SUBTTL DECnet-10 I/O driver -- DCNCLS - Close connection
DCNCLS: MOVE S1,[XWD .NSFSD,2] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
SKIPN S1,.JNIOC(R) ;CHANNEL NUMBER
JRST .POPJ1 ;ALREADY CLOSED, THIS IS A NO-OP
MOVEM S1,.JNARG+.NSACH(R)
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
SCDSET (.WSWDC,0) ;SET SCHEDULER PARAMETERS
NSP. S1, ;CLOSE (RELEASE) CONNECTION
JSP S2,NSPERR ;ERROR
PUSHJ P,WSCHED## ;WAIT FOR DISCONNECT CONFIRM
MOVE S1,[XWD .NSFRL,2] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
MOVE S1,.JNIOC(R) ;CHANNEL NUMBER
MOVEM S1,.JNARG+.NSACH(R)
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
NSP. S1, ;RELEASE THE CHANNEL
JFCL ;IGNORE ERROR (PROBABLY DISCONNECT CONFIRM)
SETZM .JNIOC(R) ;CHANNEL NUMBER NO LONGER IN USE
JRST .POPJ1 ;SUCCESS
SUBTTL DECnet-10 I/O driver -- DCNINP - Input a buffer
DCNINP: MOVE S1,[.NSFDR,,4] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
MOVE S1,.JNIOC(R) ;CHANNEL NUMBER
MOVEM S1,.JNARG+.NSACH(R)
MOVX S1,BFSBYT ;BUFFER SIZE (BYTES)
MOVEM S1,.JNARG+.NSAA1(R)
MOVEI S1,.JIIBF(R) ;INPUT BUFFER ADDRESS
HRLI S1,(POINT 8) ;8-BIT BYTE POINTER
MOVEM S1,.JNARG+.NSAA2(R)
MOVEM S1,.JIIBP(R) ;STORE VIRGIN POINTER
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
SCDSET (.WSINP,0) ;SET SCHEDULER PARAMETERS
NSP. S1, ;RECEIVE SOME DATA
JSP S2,NSPERR ;ERROR
MOVX S1,BFSBYT ;BUFFER SIZE (BYTES)
SUB S1,.JNARG+.NSAA1(R) ;SUBTRACT AMOUNT LEFT
JUMPE S1,DCNIN1 ;WAIT IF NOTHING WAS RECEIVED
SCDSET (.WSRUN,0) ;UNDO THE DAMAGE
MOVEM S1,.JIIBC(R) ;GIVES AMOUNT WE RECEIVED
JRST .POPJ1 ;SKIP RETURN
DCNIN1: PUSHJ P,WSCHED## ;WAIT FOR INPUT AVAILABLE
JRST DCNINP ;CHECK AGAIN
SUBTTL DECnet-10 I/O driver -- DCNOUT - Output a buffer
DCNOUT: SCDSET (.WSOUT,0) ;SET SCHEDULER PARAMETERS
PUSHJ P,REDSTS ;READ LINK STATUS
TXNN S1,NS.IDR!NS.NDR ;CAN WE SEND MORE DATA?
JRST DCNOU1 ;NO
MOVE S1,[NS.EOM!<.NSFDS,,4>] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
MOVE S1,.JNIOC(R) ;CHANNEL NUMBER
MOVEM S1,.JNARG+.NSACH(R)
MOVX S1,BFSBYT ;BUFFER SIZE (BYTES)
SUB S1,.JIOBC(R) ;SUBTRACT AMOUNT LEFT
MOVEM S1,.JNARG+.NSAA1(R) ;GIVES AMOUNT TO SEND
MOVEI S1,.JIOBF(R) ;OUTPUT BUFFER ADDRESS
HRLI S1,(POINT 8) ;8-BIT BYTE POINTER
MOVEM S1,.JNARG+.NSAA2(R)
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
NSP. S1, ;SEND SOME DATA
JSP S2,NSPERR ;ERROR
SCDSET (.WSRUN,0) ;UNDO THE DAMAGE
AOS (P) ;SET FOR SKIP RETURN
PJRST INIOBF## ;RE-INITIALIZE OUTPUT BUFFER
DCNOU1: PUSHJ P,WSCHED## ;WAIT FOR OUTPUT TO COMPLETE
JRST DCNOUT ;TRY FOR OUTPUT AGAIN
SUBTTL DECnet-10 I/O driver -- DCNABO - Abort a link
DCNABO: MOVE S1,[XWD .NSFAB,2] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
SETZ S1, ;TO ZERO OUT CHANNEL NUMBER
EXCH S1,.JNIOC(R) ;SWAP CHANNEL NUMBER
JUMPE S1,.POPJ ;RETURN IF ALREADY CLOSED
MOVEM S1,.JNARG+.NSACH(R)
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
MOVEI S2,DCNAB1 ;INCASE OF ERROR
NSP. S1, ;ABORT LINK
JSP S2,[PUSHJ P,DCNAB1 ;MAKE SURE THE JOB IS KILLED
JRST NSPERR] ; AND HANDLE THE ERROR
DCNAB1: MOVX S1,JB.KIL ;KILL
IORM S1,.JBFLG(R) ; JOB
POPJ P, ;RETURN
SUBTTL DECnet-10 I/O driver -- DCNSIA - skip if input data available
DCNSIA: PUSHJ P,REDSTS ;GET LINK STATUS
TXNE S1,NS.IDA!NS.NDA ;SOME TYPE OF DATA AVAILABLE?
AOS (P) ;YES, SET FOR SKIP RETURN
POPJ P, ;RETURN
SUBTTL DECnet-10 I/O driver -- DCNUUE - UUO error translation table
DCNUUE: UUO (<DNET.>,DNETL,DNETT)
UUO (<NSP.>,NSPL,NSPT)
EXP 0 ;TERMINATE TABLE
DNETT: DNADE%,,[ASCIZ /Address error/]
DNWNA%,,[ASCIZ /Wrong number of arguments/]
DNIDN%,,[ASCIZ /Illegal job number/]
DNFNE%,,[ASCIZ /Illegal function number/]
DNILF%,,[ASCIZ /Illegal flag set/]
DNNSN%,,[ASCIZ /No such node name/]
DNNSC%,,[ASCIZ /No such channel/]
DNNDA%,,[ASCIZ /Node is in different area/]
DNETL==.-DNETT
NSPT: NSABE%,,[ASCIZ /Argument block format error/]
NSALF%,,[ASCIZ /Allocation failure/]
NSBCN%,,[ASCIZ /Bad channel number/]
NSBFT%,,[ASCIZ /Bad format type in process block/]
NSCFE%,,[ASCIZ /Connect block format error/]
NSIDL%,,[ASCIZ /Interrupt data too long/]
NSIFM%,,[ASCIZ /Illegal flow control mode/]
NSILF%,,[ASCIZ /Illegal function/]
NSJQX%,,[ASCIZ /Job quota exhausted/]
NSLQX%,,[ASCIZ /Link quota exhausted/]
NSNCD%,,[ASCIZ /No connect data to read/]
NSPIO%,,[ASCIZ /Percentage input out of bounds/]
NSPRV%,,[ASCIZ /No privileges to perform function/]
NSSTB%,,[ASCIZ /Segment size too big/]
NSUKN%,,[ASCIZ /Unknown node name/]
NSUXS%,,[ASCIZ /Unexpected state: unspecified/]
NSWNA%,,[ASCIZ /Wrong number of arguments/]
NSWRS%,,[ASCIZ /Function called in wrong state/]
NSCBL%,,[ASCIZ /Connect block length error/]
NSPBL%,,[ASCIZ /Process block length error/]
NSSBL%,,[ASCIZ /String block length error/]
NSUDS%,,[ASCIZ /Unexpected state: disconnect sent/]
NSUDC%,,[ASCIZ /Unexpected state: disconnect confirmed/]
NSUCF%,,[ASCIZ /Unexpected state: no confidence/]
NSULK%,,[ASCIZ /Unexpected state: no link/]
NSUCM%,,[ASCIZ /Unexpected state: no communication/]
NSUNR%,,[ASCIZ /Unexpected state: no resources/]
NSRBO%,,[ASCIZ /Rejected by object/]
NSDBO%,,[ASCIZ /Disconnected by object (when running)/]
NSRES%,,[ASCIZ /No resources/]
NSUNN%,,[ASCIZ /Unrecognized node name/]
NSRNS%,,[ASCIZ /Remote node shut down/]
NSURO%,,[ASCIZ /Unrecognized object/]
NSIOF%,,[ASCIZ /Invalid object name format/]
NSOTB%,,[ASCIZ /Object too busy/]
NSABM%,,[ASCIZ /Abort by management/]
NSABO%,,[ASCIZ /Abort by object/]
NSINF%,,[ASCIZ /Invalid node name format/]
NSLNS%,,[ASCIZ /Local node shut down/]
NSACR%,,[ASCIZ /Access control rejection/]
NSNRO%,,[ASCIZ /No response from object/]
NSNUR%,,[ASCIZ /Node unreachable/]
NSNLK%,,[ASCIZ /No link/]
NSDSC%,,[ASCIZ /Disconnect complete/]
NSIMG%,,[ASCIZ /Image field too long/]
NSREJ%,,[ASCIZ /Unspecified reject reason/]
NSBCF%,,[ASCIZ /Bad combo of NS.EOM & NS.WAI flags/]
NSADE%,,[ASCIZ /Address error/]
NSPL==.-NSPT
SUBTTL Subroutines -- Fill in string block
;Routine to fill in a DECnet string block.
;Call:
; S1/ Address of ITEXT string to fill in string block
; S2/ Address of destination string block
FILSTB: MOVEM S2,STGADR ;SAVE STRING BLOCK ADDRESS
ADDI S2,.NSAST ;OFFSET TO STRING AREA
HRLI S2,(POINT 8) ;DECNET USES 8-BIT BYTES
MOVEM S2,STGPTR ;SAVE THE POINTER
SETZM STGCNT ;ZERO THE COUNT
$TEXT STGDPB,<^I/0(S1)/^A> ;WRITE OUT THE DATA
MOVE S1,STGCNT ;GET BYTE COUNT
STORE S1,@STGADR,NS.ASC ;STUFF LENGTH IN BYTES (OF STRING)
ADDI S1,3 ;ROUND UP TO A NUMBER OF WORDS
IDIVI S1,4 ;...
ADDI S1,.NSAST ;INCLUDE OVERHEAD WORDS
STORE S1,@STGADR,NS.ASL ;STUFF LENGTH IN WORDS (OF ENTIRE BLOCK)
POPJ P, ;RETURN
STGDPB: IDPB S1,STGPTR ;STORE THE BYTE
AOS STGCNT ;BUMP THE COUNT
$RETT ;RETURN
SUBTTL Subroutines -- Set PSI reason mask
SETPSR: MOVE S1,[XWD .NSFPI,3] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
MOVE S1,.JNIOC(R) ;CHANNEL NUMBER
MOVEM S1,.JNARG+.NSACH(R)
HRROI S1,-1 ;ENABLE FOR ANYTHING
MOVEM S1,.JNARG+.NSAA1(R)
MOVEI S1,.JNARG(R) ;POINT TO ARGUMENT BLOCK
NSP. S1, ;SET PSI REASON MASK
JSP S2,NSPERR ;ERROR
POPJ P, ;RETURN
SUBTTL Subroutines -- REDSTS - Read link status
REDSTS: MOVE S1,[XWD .NSFRS,2] ;FUNCTION,,LENGTH
MOVEM S1,.JNARG+.NSAFN(R)
MOVE S1,.JNIOC(R) ;CHANNEL NUMBER
MOVEM S1,.JNARG+.NSACH(R)
MOVEI S1,.JNARG(R) ;POINT AT ARGUMENTS
NSP. S1, ;READ LINK STATE
JSP S2,NSPERR ;ERROR
MOVE S1,.JNARG+.NSACH(R) ;GET CHANNEL/STATUS WORD
POPJ P, ;RETURN
SUBTTL Subroutines -- NSPERR - Process NSP. UUO errors
NSPERR: PUSHJ P,UUOERR## ;GENERATE ERROR TEXT
MOVE S2,.JNARG+.NSAFN(R) ;GET FUNCTION WORD
$WTO (<^T/G$NAM/ error>,<^T/.JBIDN(R)/^T/(S1)/^I/NSPETX/>,.JQOBJ(R))
POPJ P, ;RETURN
NSPETX: ITEXT (<UUO function word: ^O6R0/S2,LHMASK/,,^O6R0/S2,RHMASK/>)
SUBTTL Subroutines -- DECnet-10 software interrupt
DCNINT: $BGINT (1)
MOVSI P1,-JOBN ;AOBJN POINTER
MOVE S1,DCN+.IOABV ;OUR ABBREVIATION
MOVE P2,DCNVEC ;GET VECTOR ADDRESS
SKIPN S2,.PSVIS(P2) ;CHANNEL NUMBER
JRST DCNIT3 ;BOGUS INTERRUPT
HRRZS S2 ;KEEP ONLY THE CHANNEL NUMBER
DCNIT1: SKIPE R,G$ADR##(P1) ;GET STREAM RELOCATION
CAME S1,.JNIOV+.IOABV(R) ;MATCH?
JRST DCNIT2 ;TRY ANOTHER
CAME S2,.JNIOC(R) ;I/O CHANNEL MATCH?
JRST DCNIT2 ;NO
MOVE S1,.PSVIS(P2) ;GET INTERRUPT STATUS WORD
MOVEM S1,.JNIOS(R) ;SAVE FOR POSTERITY
MOVE S2,.JBWSC(R) ;GET STREAM WAIT STATE CODE
PUSHJ P,@WSCHK(S2) ;DO SOMETHING
MOVEM S2,.JBWSC(R) ;UPDATE WAIT STATE
JRST DCNIT3 ;DONE
DCNIT2: AOBJN P1,DCNIT1 ;SEARCH FOR TARGET STREAM
DCNIT3: $DEBRK ;DISMISS INTERRUPT
DEFINE X (NAM,TXT),<IFIW NAM'CHK>
WSCHK: WSTATE
;WAITING FOR CONNECT CONFIRM
WCCCHK: LDB S1,[POINTR (S1,NS.STA)] ;GET CONNECTION STATE
CAIE S1,.NSSCS ;CONNECT SENT?
PJRST RUNJOB ;MAKE RUNNABLE
POPJ P, ;IGNORE THIS INTERRUPT
;(WAIT FOR TRANSITION INTO RUN OR FAILURE)
;WAITING FOR REMOTE CONNECT
WRCCHK: PUSHJ P,RUNCHK ;CHECK FOR LINK GOING DOWN
CAIN S1,.NSSCS ;CONNECT SENT?
PJRST RUNJOB ;MAKE RUNNABLE
POPJ P, ;RETURN
;WAITING FOR DISCONNECT CONFIRM
WDCCHK: PUSHJ P,RUNCHK ;CHECK FOR LINK GOING DOWN
CAIE S1,.NSSDR ;DISCONNECT RECEIVED?
CAIN S1,.NSSDC ;DISCONNECT CONFIRMED?
PJRST RUNJOB ;MAKE RUNNABLE
CAIE S1,.NSSCF ;NO CONFIDENCE?
CAIN S1,.NSSLK ;NO LINK?
JRST RUNJOB ;MAKE RUNNABLE
CAIE S1,.NSSCM ;NO COMMUNICATION
CAIN S1,.NSSNR ;NO RESOURCES
JRST RUNJOB ;MAKE RUNNABLE
POPJ P, ;RETURN
;WAITING FOR OUTPUT DONE
OUTCHK: TXNN S1,NS.IDR!NS.NDR ;READY FOR MORE DATA?
;WAITING FOR INPUT DONE
INPCHK: TXNE S1,NS.IDA!NS.NDA ;DATA AVAILABLE?
MOVEI S2,.WSRUN ;MAKE RUNNABLE
;STREAM RUNNING
RUNCHK: LOAD S1,S1,NS.STA ;GET CONNECTION STATE
CAIE S1,.NSSCF ;NO CONFIDENCE?
CAIN S1,.NSSLK ;NO LINK?
JRST RUNABO ;DOWN
CAIE S1,.NSSCM ;NO COMMUNICATION
CAIN S1,.NSSNR ;NO RESOURCES
JRST RUNABO ;DOWN
POPJ P, ;NO PROBLEMS
;STREAM IDLE
IDLCHK: ;FALL INTO RUNABO
;STREAM PAUSED
PAUCHK: ;FALL INTO RUNABO
RUNABO: PUSHJ P,ABORTJ## ;QUEUE UP ABORT
RUNJOB: MOVEI S2,.WSRUN ;MAKE RUNNABLE
POPJ P, ;RETURN
SUBTTL Impure storage
DCNVEC: BLOCK 1 ;ADDRESS OF DECNET INTERUPT VECTOR
;Blocks for NSP. UUO functions (shared among all streams)
CONBLK: BLOCK .NSCMX ;CONNECT BLOCK
NODBLK: BLOCK 3 ;NODE NAME STRING BLOCK
SRCBLK: BLOCK .NSDMX ;SOURCE TASK DESCRIPTOR BLOCK
DSTBLK: BLOCK .NSDMX ;DESTINATION TASK DESCRIPTOR BLOCK
STSBLK: BLOCK 4 ;SOURCE TASK NAME STRING BLOCK
DTSBLK: BLOCK 4 ;DESTINATION TASK NAME STRING BLOCK
STGADR: BLOCK 1 ;ADDRESS OF STRING BLOCK FOR FILSTB
STGPTR: BLOCK 1 ;BYTE POINTER TO DEPOSIT BYTES IN STRING BLOCK
STGCNT: BLOCK 1 ;NUMBER OF BYTES DEPOSITED
END