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

	TITLE MACLIB -- MACRO SUBROUTINE LIBRARY
	SUBTTL SECTION 10. -- DECnet/10 FORTRAN ROUTINES
;
;
;	=================================================================
;
;	MAPC	DECSYSTEM-10	MACRO SUBROUTINE LIBRARY
;
;	Developed by R. W. Stamerjohn, DEC-10 Systems Group
;
;	These routines and all related documentation were developed at
;	Monsanto Agricultural Products Company, St. Louis, Mo. 63167.
;
;	=================================================================
;
;	Use the following DECsystem-10 Monitor command to include
;	the MACLIB subroutine library as part of a user program:
;
;	.EX YOURS,REL:MACLIB/SEARCH
;
;	If you do not include the /SEARCH switch, you will load
;	the entire library as part of your program.
;
;
;
;
COMMENT %

;+


        List of Routines in This Section:
        --------------------------------

    ABTNT	Abort a connection
    ACCNT	Accept an incoming connect
    CONNT[W]	Connect (active) to remote node
    DSCNT	Disconnect a connection
    PASNT[W]	Connect (passive) from remote node
    RCCNT[W]	Read connect confirm data
    RCINT[W]	Read incoming connect initiate data
    RDCNT	Read disconnect data
    RECNT[W]	Receive data message
    REJNT	Reject an incoming connect
    RLSNT	Release channel
    RXINT[W]	Read interrupt data
    SNDNT[W]	Send data message
    STSNT	Return general channel status
    SXINT[W]	Send interrupt message

    BCON	Build a initial connect block
    BNOD	Build nodname   block string
    BUID	Build user-id   block string
    BPWD	Build password  block string
    BACC	Build account   block string
    BDAT	Build user data block string
    BOPT	Build optional  block string
    BSRC	Build a source (active) descriptor
    BDST	Build a destination (passive) descriptor

    RNOD	Read nodname   block string
    RUID	Read user-id   block string
    RPWD	Read password  block string
    RACC	Read account   block string
    RDAT	Read user data block string
    ROPT	Read optional  block string
    RSRC	Read a source (active) descriptor
    RDST	Read a destination (passive) descriptor

    ISTAST	Check current link state against list
    IRECST	Check for available input  buffers
    IRXIST	Check for available interrupt message
    ISNDST	Check for available output buffers
    ISXIST	Check for available interrupt buffer

;-

	Module Revision History
	------------------------

	Edit 1:		1 Aug 83	RWS	Original

END COMMENT %
	PRGEND

	TITLE	ABTNT
	SUBTTL	Abort a Connection

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine aborts a DECnet/10 logical link and
;			releases the I/O channel.
;
;			If the link is in the "running" (.NSSRN) state, the
;			call will disconnect the link. In all other states
;			this function is illegal, but the channel is always
;			released and no further functions are allowed.
;
;	Usage:		CALL ABTNT(chan,stat[,strmsg])
;
;	Arguments:	chan	Integer variable with DECnet/10 channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			strmsg	Optional integer array containing message in
;				NSP string notation (see BOPT) to send to the
;				remote partner. A maximum of 16 8-bit bytes
;				may be sent.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	ABTNT

ABTNT:	MOVE	T0,[.NSFAB,,2]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	CAIGE	AN,3			;Do we have optional data
	 JRST	ABT.1			; No, skip optional data handling
	MOVEI	T0,@2(A)		;Get address of string pointer
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	AOS	.NSAFN(NS)		; and bump number of arguments

ABT.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	ACCNT
	SUBTTL	Accept an Incoming Connect

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine accepts an incoming connect from
;			a remote node.
;
;			The link must be in the "connect receive" (.NSSCR)
;			state to issue this call. The link is left in the
;			"running" (.NSSRN) state. The routine will fail if
;			the link is in any other state.
;
;	Usage:		CALL ACCNT(chan,stat[,strmsg])
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by passive network connect
;				request (PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			strmsg	Optional integer array containing message in
;				NSP string notation (see BOPT) to send to the
;				remote partner. A maximum of 16 8-bit bytes
;				may be sent.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	ACCNT

ACCNT:	MOVE	T0,[.NSFAC,,2]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	CAIGE	AN,3			;Do we have optional data
	 JRST	ACC.1			; No, skip optional data handling
	MOVEI	T0,@2(A)		;Get address of block
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	AOS	.NSAFN(NS)		;and bump number of arguments

ACC.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore errors
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	CONNTW
	SUBTTL	Connect (Active) to Remote Node

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine makes a connect request to a remote
;			node. The channel number is returned for use in the
;			future network I/O requests.
;
;			If the non-blocking (CONNT) form is used, the routine
;			will return immediately with the link state "connect
;			sent" if the call was successful. If the blocking form
;			(CONNTW) is used, the routine will wait and give a
;			success return when the link is established or a
;			failure if the connect request is rejected.
;
;
;	Usage:		CALL CONNT[W] (chan,stat,conblk)
;
;	Arguments:	chan	Integer variable to return the channel number
;				for a successful call. This number must be used
;				in future calls.
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			conblk	Integer array setup for the connect request
;				(see BCON, BSRC, BDST, etc).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	CONNTW
	ENTRY	CONNT

CONNTW:	MOVE	T0,[NS.WAI+<.NSFEA,,3>]	;Get function code,,size
	 SKIPA				; Skip to common code

CONNT:	MOVE	T0,[.NSFEA,,3]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	MOVEI	T0,@2(A)		;Get address of connect block
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore errors
	MOVE	T1,.NSACH(NS)		;Get channel number
	MOVEM	T1,@0(A)		;Return to caller
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	DSCNT
	SUBTTL	Disconnect a Connection

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine disconnects a DECnet/10 logical link.
;
;			If the link is in the "running" (.NSSRN) state, the
;			call will send a disconnect to the remote end and put
;			the link in the "disconnect sent" (.NSSDS) state. In
;			all other states, this function is illegal.
;
;			After a successful function call, data may still be
;			received from the remote but no further data can be
;			sent. The channel can be released when the disconnect
;			confirmed is seen.
;
;	Usage:		CALL DSCNT (chan,stat[,strmsg])
;
;	Arguments:	chan	Integer variable with DECnet/10 channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			strmsg	Optional integer array containing message in
;				NSP string notation (see BOPT) to send to the
;				remote partner. A maximum of 16 8-bit bytes
;				may be sent.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	DSCNT

DSCNT:	MOVE	T0,[.NSFSD,,2]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	CAIGE	AN,3			;Do we have optional data
	 JRST	DSC.1			; No, skip optional data handling
	MOVEI	T0,@2(A)		;Get address of string pointer
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	AOS	.NSAFN(NS)		; and bump number of arguments

DSC.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	PASNTW
	SUBTTL	Connect (Passive) to Remote Node

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine prepares for a connect request from
;			a remote node. The channel number is returned for use
;			in future network I/O requests.
;
;			If the non-blocking (PASNT) form is used, the routine
;			will return immediately with the link state "connect
;			wait" if the call was successful. If the blocking form
;			(PASNTW) is used, the routine will wait and give a
;			success return when an incoming connect is received.
;
;	Usage:		CALL PASNT[W] (chan,stat,conblk)
;
;	Arguments:	chan	Integer variable to return the channel number
;				for a successful call. This number must be used
;				in future calls.
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			conblk	Integer array setup for the connect request
;				(see BCON, BSRC, BDST, etc.).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	PASNTW
	ENTRY	PASNT

PASNTW:	MOVE	T0,[NS.WAI+<.NSFEP,,3>]	;Get function code,,size
	SKIPA				; Skip to common code

PASNT:	MOVE	T0,[.NSFEP,,3]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	MOVEI	T0,@2(A)		;Get address of connect block
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore errors
	MOVE	T1,.NSACH(NS)		;Get channel number
	MOVEM	T1,@0(A)		;Return to caller
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	RCCNTW
	SUBTTL	Read Connect Confirm Data

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads any optional data returned from
;			the remote node when it accepts a connect from us.
;
;			The non-blocking version (RCCNT) is only legal from
;			the "running" (.NSSRN) state. The blocking version
;			(RCCNTW) can also be issued from the "connect sent"
;			(.NSSCS) state and will wait till the remote node
;			accepts or rejects the connection request.
;
;			The optional data is only available until a normal
;			send/receive is issued.
;
;	Usage:		CALL RCCNT[W] (chan,stat[,strbuf])
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			strmsg	Optional integer array to get possible message
;				from remote partner. The first word in the
;				array must be set with the size of the array.
;				The message will be returned in NSP string
;				notation.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RCCNTW
	ENTRY	RCCNT

RCCNTW:	MOVE	T0,[NS.WAI+<.NSFRC,,2>]	;Get function code,,size
	 SKIPA				; and continue

RCCNT:	MOVE	T0,[.NSFRC,,2]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	CAIGE	AN,3			;Do we have optional data
	 JRST	RCC.1			; No, skip optional data handling
	MOVEI	T0,@2(A)		;Get address of block
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	AOS	.NSAFN(NS)		;and bump number of arguments

RCC.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				;Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	RCINTW
	SUBTTL	Read Incoming Connect Data

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the data from an incoming connect
;			request into a connect block. This information can then
;			be used to accept or reject the connect request.
;
;			If the non-blocking (RCINT) form is used, the routine
;			must be called from link state "connect received".
;			If the blocking form is used, the call be also be
;			used from the "connect wait" (.NSSCW) state and will
;			not return until a connect is received.
;
;
;	Usage:		CALL RCINT[W] (chan,stat,conblk)
;
;	Arguments:	chan	Integer variable to return the channel number
;				for a successful call. This number must be used
;				in future calls.
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or zero (if
;				success) in the low half.
;
;			conblk	Integer array setup for the connect request
;				(see BCON, BSRC, BDST, etc.).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RCINTW
	ENTRY	RCINT

RCINTW:	MOVE	T0,[NS.WAI+<.NSFRI,,3>]	;Get function code,,size
	SKIPA				; Skip to common code

RCINT:	MOVE	T0,[.NSFRI,,3]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	MOVEI	T0,@2(A)		;Get address of connect block
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore errors
	POPJ	P,			;Return to caller

	PRGEND
	TITLE	RDCNT
	SUBTTL	Read Disconnect Data

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the disconnect reason and
;			optional data from the remote when it disconnects.
;
;			The function is only legal from the "disconnect
;			received" (.NSSDR) state and no change of state
;			occurs.
;
;	Usage:		CALL RDCNT(chan,stat[,strbuf])
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The next
;				word gets the resulting network status in the
;				high half and the NSP. error code or reason
;				code for disconnect (if success) in the low
;				half.
;
;			strmsg	Optional integer array to get possible message
;				from remote partner. The first word in the
;				array must be set with the size of the array.
;				The message will be returned in NSP string
;				notation.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RDCNT

RDCNT:	MOVE	T0,[.NSFRD,,4]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	CAIGE	AN,3			;Do we have optional data
	 JRST	RDC.1			; No, continue
	MOVEI	T0,@2(A)		;Yes, Get address of string pointer
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data

RDC.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 JRST	RDC.2			;Exit on an error
	MOVE	T0,.NSAA2(NS)		;Get the disconnect reason
	HRRM	T0,1(EA)		; and store in status block
RDC.2:	POPJ	P,			;Return to caller

	PRGEND
	TITLE	RECNTW
	SUBTTL	Receive a Message

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine receives an incomming message from
;			a remote node. The link must be in the "running
;			(.NSSRN) state to issue this call.
;
;			Whole messages are always received. If a blocking
;			receive (RECNTW) is issued, the routine will wait
;			until an entire message is received, the user buffer
;			is filled, or a network error occurs. If the non-
;			blocking (RECNT) is issued, the routine will return
;			success immediately if no data is currently available
;			but with a byte count of zero in the status. If any
;			data is received, the routine will block until the
;			entire message is received.
;
;	Usage:		CALL RECNT[W] (chan,stat,msgsiz,msgbuf)
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				bytes received (if success) in the low half.
;
;			msgsiz	Integer variable or value with size of receive
;				message in 8-bit bytes.
;
;			msgbuf	Integer array to receive message. Must be at
;				least (msgsiz/4)+1 in size.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RECNTW
	ENTRY	RECNT

RECNTW:	MOVE	T0,[NS.WAI+NS.EOM+<.NSFDR,,4>]	;Get function code,,size
	 SKIPA					; and continue

RECNT:	MOVE	T0,[.NSFDR,,4]			;Get function code,,size
	PUSHJ	P,NSPA..##			;Setup for NSP. call.

	MOVE	T1,@2(A)		;Get size of block
	MOVEM	T1,.NSAA1(NS)		;Store size of buffer
	MOVEI	T1,@3(A)		;Get address of buffer
	ADD	T1,[POINT 8,,]		;Form 8-bit byte pointer
	MOVEM	T1,.NSAA2(NS)		;Store byte pointer to buffer

REC.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 JRST	REC.3			; Exit on any error
	MOVE	T0,.NSAFN(NS)		;Get the function and flags
	TDOE	T0,[NS.WAI]		;Was this a blocking request?
	 JRST	REC.2			; Yes, exit with buffer
	MOVE	T1,@2(A)		;Get size of buffer
	CAMN	T1,.NSAA1(NS)		;Were any bytes input?
	 JRST	REC.2			; No, just exit with zero transfer
	TDOE	T0,[NS.EOM]		;Was a complete message received?
	 JRST	REC.2			; Yes, exit with complete transfer
	MOVEM	T0,.NSAFN(NS)		;Set function for wait, full message
	JRST	REC.1			; and reissue input.

REC.2:	MOVE	T1,@2(A)		;Get size of buffer
	SKIPLE	.NSAA1(NS)		;Skip if full or overrun
	 SUB	T1,.NSAA1(NS)		;Get size of bytes transferd
	HRRM	T1,1(EA)		;Store the size transfered

REC.3:	POPJ	P,			;Return to caller

	PRGEND

	TITLE	REJNT
	SUBTTL	Reject an Incoming Connect

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine rejects an incoming connect from
;			a remote node.
;
;			The link must be in the "connect receive" (.NSSCR)
;			state to issue this call. The channel is released
;			if this UUO is successful.
;
;	Usage:		CALL REJNT (chan,stat[,strmsg])
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				zero if success in the low half.
;
;			strmsg	Integer array containing optional message in
;				NSP. string block notation (see BOPT).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	REJNT

REJNT:	MOVE	T0,[.NSFRJ,,2]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.

	CAIGE	AN,3			;Do we have optional data
	 JRST	REJ.1			; No, skip optional data handling
	MOVEI	T0,@2(A)		;Get address of block
	MOVEM	T0,.NSAA1(NS)		;Store pointer to optional data
	AOS	.NSAFN(NS)		;and bump number of arguments

REJ.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RLSNT
	SUBTTL	Release Channel

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine releases the DECnet/10 channel. This
;			function can only be issued if the link is in the
;			the "connect wait" (.NSSCW), "disconnect received"
;			(.NSSDR), or "disconnect confirmed" (.NSSDC) states.
;
;	Usage:		CALL RLSNT[W] (chan,stat)
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				zero if success in the low half.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RLSNT

RLSNT:	MOVE	T0,[.NSFRL,,2]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RXINTW
	SUBTTL	Recieve an Interrupt Message

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine receives am interrupt message from a
;			remote node. The link must be in the "running (.NSSRN)
;			state to issue this call.
;
;	Usage:		CALL RXINT[W] (chan,stat,strbuf)
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				zero if success in the low half.
;
;			strbuf	Integer array that will receive NSP. string
;				block format message (see BOPT). The first
;				word in array must be set to size of array.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RXINTW
	ENTRY	RXINT

RXINTW:	MOVE	T0,[NS.WAI+<.NSFIR,,3>]	;Get function code,,size
	 SKIPA				; and continue

RXINT:	MOVE	T0,[.NSFIR,,3]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.
	MOVEI	T1,@2(A)		;Get address of buffer
	MOVEM	T1,.NSAA1(NS)		;Store pointer to buffer
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				;Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	SNDNTW
	SUBTTL	Send a Message

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine sends a message to a remote node. The
;			link must be in the "running (.NSSRN) state to issue
;			this call.
;
;			Whole messages are always transmitted. If a blocking
;			send (SNDNTW) is issued, the routine will wait until
;			an entire message is transmitted or a network error
;			occurs. If the non-blocking (SNDNT) is issued, the
;			routine will return success immediately if no data is
;			currently transmitted but with a byte count of zero.
;			If any data is sent, the routine will block until the
;			entire message is tranmitted.
;
;	Usage:		CALL SNDNT[W] (chan,stat,msgsiz,msgbuf)
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				bytes transfered (if success) in the low half.
;
;			msgsiz	Integer variable or value with size of message
;				in 8-bit bytes.
;
;			msgbuf	Integer array to send to remote node. Must be
;				at least (msgsiz/4)+1 in size.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	SNDNTW
	ENTRY	SNDNT

SNDNTW:	MOVE	T0,[NS.WAI+NS.EOM+<.NSFDS,,4>]	;Get function code,,size
	SKIPA					; and continue

SNDNT:	MOVE	T0,[NS.EOM+<.NSFDS,,4>]		;Get function code,,size
	PUSHJ	P,NSPA..##			;Setup for NSP. call.

	MOVE	T1,@2(A)		;Get size of block
	MOVEM	T1,.NSAA1(NS)		;Store size of buffer
	MOVEI	T1,@3(A)		;Get address of buffer
	ADD	T1,[POINT 8,,]		;Form 8-bit byte pointer
	MOVEM	T1,.NSAA2(NS)		;Store byte pointer to buffer

SND.1:	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 JRST	SND.3			; Exit on any error
	MOVE	T0,.NSAFN(NS)		;Get the function and flags
	TDOE	T0,[NS.WAI]		;Was this a blocking request?
	 JRST	SND.2			; Yes, exit with buffer
	MOVE	T1,@2(A)		;Get size of buffer
	CAMN	T1,.NSAA1(NS)		;Were any bytes transmitted?
	 JRST	SND.2			; No, just exit with zero transfer
	SKIPN	.NSAA1(NS)		;Was entire message sent?
	 JRST	SND.2			; Yes, exit with complete transfer
	MOVEM	T0,.NSAFN(NS)		;Set function for wait, full message
	JRST	SND.1			; and reissue send.

SND.2:	MOVE	T1,@2(A)		;Get size of buffer
	SKIPLE	.NSAA1(NS)		;Skip if full or overrun
	 SUB	T1,.NSAA1(NS)		;Get size of bytes transferd
	HRRM	T1,1(EA)		;Store the size transfered

SND.3:	POPJ	P,			;Return to caller

	PRGEND

	TITLE	STSNT
	SUBTTL	Get Network Status

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine gets the status for the given channel.
;
;	Usage:		CALL STSNT (chan,stat[,segsiz[,flow]])
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				zero if success in the low half.
;
;			segsize	Optional integer variable to return segment
;				size for this link.
;
;			flow	Optional integer variable to return remote
;				flow control in high half and local flow
;				control in low half.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	STSNT

STSNT:	MOVE	T0,[.NSFRS,,4]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				; Ignore any errors
	MOVE	T0,.NSAA1(NS)		;Get the segment size
	CAIL	AN,3			;Is segment argument present
	 MOVEM	T0,@2(A)		;Return segment size
	MOVE	T0,.NSAA2(NS)		;Get flow control
	CAIL	AN,4			;Is flow argument present
	 MOVEM	T0,@3(A)		;Return flow argument
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	SXINTW
	SUBTTL	Send a Interrupt Message

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine sends a interrupt message to a remote
;			mode. The link must be in the "running (.NSSRN) state
;			to issue this call.
;
;	Usage:		CALL SXINT[W] (chan,stat,strbuf)
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			stat	Two-word integer array to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure. The
;				second word gets the resulting network status
;				in the high half and the NSP. error code or
;				zero if success in the low half.
;
;			strbuf	Integer array in NSP. string block format to
;				to send to remote node. Message cannot be
;				larger than 16 bytes (see BOPT).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	SXINTW
	ENTRY	SXINT

SXINTW:	MOVE	T0,[NS.WAI+<.NSFIS,,3>]	;Get function code,,size
	SKIPA				; and continue

SXINT:	MOVE	T0,[.NSFIS,,3]		;Get function code,,size
	PUSHJ	P,NSPA..##		;Setup for NSP. call.
	MOVEI	T1,@2(A)		;Get address of buffer
	MOVEM	T1,.NSAA1(NS)		;Store pointer to buffer
	PUSHJ	P,NSPU..##		;Issue NSP. UUO and process errors
	 SKIP				;Ignore any errors
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BCON
	SUBTTL	Build an Initial Connect Block

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine intialized the given array in NSP
;			connect block format, including the space for the
;			various string fields. This call must proceed any
;			BSRC, BDST, BNOD, BUID, BPWD, BACC, or BDAT calls.
;
;	Usage:		CALL BCON (conblk)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block. This array will be initialized with
;				a dummy structure that has empty string
;				pointers of full size.
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	T3=3		;Temporary AC
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	R=1B0		;Relocate address

	ENTRY	BCON

BCON:	MOVEI	T1,@0(A)		;Get address of user connect block
	MOVE	T2,[-LEN,,CONBLK]	;Get length, address of dummy block
BCON.1:	HRRZ	T3,(T2)			;Get template word
	SKIPGE	(T2)			;Get next word in block
	 ADDI	T3,@0(A)		; Add in start of array
	MOVEM	T3,(T1)			;Store in user array
	AOS	T1			;Bump the array pointer
	AOBJN	T2,BCON.1		; and loop till done
	POPJ	P,			;Return to caller

CONBLK:
	PHASE	0

	XWD	0,10			;(.NSCNL) Length of argument block
	EXP	NOD!R			;(.NSCND) Node name string pointer
	EXP	SRCDSC!R		;(.NSCND) Source process pointer
	EXP	DSTDSC!R		;(.NSCDD) Destination process pointer
	EXP	UID!R			;(.NSCUS) User-id   string pointer
	EXP	PWD!R			;(.NSCPW) Password  string pointer
	EXP	ACC!R			;(.NSCAC) Account   string pointer
	EXP	DAT!R			;(.NSCUD) User data string pointer

SRCDSC:	XWD	0,5			;(.NSDSL) Source process descriptor
	EXP	0			;(.NSDFM) Format type (0,1,2)
	EXP	0			;(.NSDOB) Object type (0-255)
	XWD	0,0			;(.NSDPP) PPN in half words
	EXP	SRC!R			;(.NSDPN) Source process name
DSTDSC:	XWD	0,5			;(.NSDSL) Destination process descriptor
	EXP	0			;(.NSDFM) Format type (0,1,2)
	EXP	0			;(.NSDOB) Object type (0-255)
	XWD	0,0			;(.NSDPP) PPN in half words
	EXP	DST!R			;(.NSDPN) Destination process name

NOD:	XWD	0,3			;Node name string
	BLOCK	2
SRC:	XWD	0,5			;Source process string
	BLOCK	4
DST:	XWD	0,5			;Destination process string
	BLOCK	4
UID:	XWD	0,13			;User-ID string
	BLOCK	12
PWD:	XWD	0,13			;Password string
	BLOCK	12
ACC:	XWD	0,13			;Account string
	BLOCK	12
DAT:	XWD	0,5			;User data string
	BLOCK	4
LEN:
	DEPHASE

	PRGEND

	TITLE	BNOD
	SUBTTL	Build Connect Block Nodename String

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine intialized the connect block with
;			the given nodename string. The BCON routine must
;			be called to initialize the connect block before
;			this routine is called.
;
;	Usage:		CALL BNOD (conblk,stat,nodnam,nodlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			nodnam	String with node name to store in connect
;				block. If present, may have size of 1-6
;				characters.
;
;			nodlen	Number of characters in nodnam or -1 if
;				name is self-counting (ASCIZ).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BNOD

BNOD:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get nodename string
	MOVE	T2,@3(A)		;Get nodename string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCND(W1)		;Get address of nodename block
	MOVE	W2,[^D6,,^D3]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BUID
	SUBTTL	Build User-ID Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine intialized the access user-id control
;			field in a Fortan connect block. The BCON routine must
;			be called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL BUID (conblk,stat,uidnam,uidlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			uidnam	String with user-id to store in connect block
;				String may have have size of 1-39 characters.
;
;			uidlen	Number of characters in uidnam or -1 if string
;				is self-counting (ASCIZ).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BUID

BUID:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get user-id string
	MOVE	T2,@3(A)		;Get user-id string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCUS(W1)		;Get address of user-id block
	MOVE	W2,[^D39,,^D11]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BPWD
	SUBTTL	Build Password Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine intialized the access password control
;			field in a Fortan connect block. The BCON routine must
;			be called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL BPWD (conblk,stat,pwdnam,pwdlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			pwdnam	String with password to store in connect block
;				String may have have size of 1-39 characters.
;
;			pwdlen	Number of characters in uidnam or -1 if string
;				is self-counting (ASCIZ).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BPWD

BPWD:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get password string
	MOVE	T2,@3(A)		;Get password string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCPW(W1)		;Get address of password block
	MOVE	W2,[^D39,,^D11]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BACC
	SUBTTL	Build Account Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine intialized the access account control
;			field in a Fortan connect block. The BCON routine must
;			be called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL BACC (conblk,stat,accnam,acclen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			accnam	String with account to store in connect block
;				String may have have size of 1-39 characters.
;
;			acclen	Number of characters in accnam or -1 if string
;				is self-counting (ASCIZ).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BACC

BACC:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get account string
	MOVE	T2,@3(A)		;Get account string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCAC(W1)		;Get address of account block
	MOVE	W2,[^D39,,^D11]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BDAT
	SUBTTL	Build User Data Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine intialized the user data control field
;			in a Fortan connect block. The BCON routine must be
;			called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL BDAT (conblk,stat,datnam,datlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			datnam	String with user date to store in connect block
;				String may have have size of 1-16 characters.
;
;			datlen	Number of characters in datnam or -1 if string
;				is self-counting (ASCIZ).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BDAT

BDAT:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get user data string
	MOVE	T2,@3(A)		;Get user data string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCUD(W1)		;Get address of user data block
	MOVE	W2,[^D16,,^D5]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BOPT
	SUBTTL	Build Optional Data Buffer

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine setups a 5-word integer array with a
;			optional message buffer that can be used with various
;			NSP functions (DSCNT, ABTNT, REJNT, ACCNT).
;
;	Usage:		CALL BOPT (optblk,stat,optmsg,optlen)
;
;	Arguments:	optblk	Integer 5-word array to receive optmsg string.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			optmsg	String with user data to store in optblk.
;				String may have have size of 1-16 characters.
;
;			optlen	Number of characters in optmsg or -1 if string
;				is self-counting (ASCIZ).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BOPT

BOPT:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get user data string
	MOVE	T2,@3(A)		;Get user data string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCUD(W1)		;Get string pointer
	MOVE	W2,[^D16,,^D5]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	BSRC
	SUBTTL	Build Source/Destination Process Descriptor

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine builds either the source or destination
;			process descriptors used for the Fortran NSP connect
;			block. The BCON routine must be called before these
;			routines.
;
;	Usage:		CALL BSRC (conblk,stat,fmt,obj,[pronam,prolen[,ppn]])
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			fmt	Descriptor format type (0,1,or 2).
;
;			obj	Object type for descriptor. Must be 1-255 if
;				fmt type 0 and 0 if fmt 1 or 2.
;
;			pronam	String with process name to store in the
;				descriptor. string may have have size of
;				1-16 characters and is not used for fmt 0.
;
;			prolen	Number of characters in pronam or -1 if string
;				is self-counting (ASCIZ).
;
;			ppn	PPN to use for descriptor, stored in half-word
;				format. Only used for fmt 2.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	BSRC
	ENTRY	BDST

BSRC:	MOVEI	T1,.NSCSD		;Get source descriptor offset
	 SKIPA				; and continue
BDST:	MOVEI	T1,.NSCDD		;Get destination descriptor offset

	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	ADDI	T1,@0(A)		;Get address of descriptor pointer
	MOVEI	W1,@(T1)			;Get address of descriptor block
	SETZM	.NSDFM(W1)		;Zero any preexisting values
	SETZM	.NSDOB(W1)		;Zero any preexisting values
	SETZM	.NSDPP(W1)		;Zero any preexisting values

	SKIPE	T1,@2(A)		;Get the format type
	 JRST	BSRC.1			; Jump if non-zero
	SKIPN	T2,@3(A)		;Get the object type
	 JRST	BSRC.E			; If zero, error
	MOVEM	T2,.NSDOB(W1)		;Store the object type
	POPJ	P,			;Return to caller

BSRC.1:	MOVEM	T1,.NSDFM(W1)		;Store the descriptor type
	SKIPE	T2,@3(A)		;Get the object type
	 JRST	BSRC.E			; If non-zero, error
	CAIN	T1,1			;Is this format type 1
	 JRST	BSRC.2			; Jump if yes
	CAIE	T1,2			;Is this format type 2
	 JRST	BSRC.E			; If not, error
	MOVE	T1,6(A)			;Get the PPN
	MOVEM	T1,.NSDPP(W1)		; and store in the block

BSRC.2:	MOVEI	T1,4(A)			;Get user data string
	MOVE	T2,@5(A)		;Get user data string size
	MOVE	W1,.NSDPN(W1)		;Get start of process name
	MOVE	W2,[^D16,,^D5]		;Get maximum size of string,,block
	PUSHJ	P,NSPS..##		;Construct string block
	POPJ	P,			;Return to caller

BSRC.E:	SETZM	(EA)			;Flag setup error
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RNOD
	SUBTTL	Read Connect Block Nodename String

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the nodename string from the
;			the given connect block. The BCON routine must be
;			called to initialize the connect block before this
;			routine is called.
;
;	Usage:		CALL RNOD (conblk,stat,nodnam,nodlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1)
;				for success and .FALSE. (0) for failure.
;
;			nodnam	String to return nodenode string. Nodenames can
;				be up to 6 characters in length.
;
;			nodlen	Number of characters allowed in nodnam or
;				-1 if name is self-counting (ASCIZ). If the
;				length is insufficent for the actual node
;				name, an error is returned. If too large,
;				nodnam will be blank filled.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RNOD

RNOD:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get nodename string
	MOVE	T2,@3(A)		;Get nodename string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCND(W1)		;Get address of nodename block
	PUSHJ	P,NSPR..##		;Return string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RUID
	SUBTTL	Read User-ID Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the access user-id control field
;			in a Fortan connect block. The BCON routine must be
;			called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL RUID (conblk,stat,uidnam,uidlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			uidnam	String to return user-id. User-id can
;				be up to 39 characters in length.
;
;			uidlen	Number of characters allowed in uidnam or
;				-1 if name is self-counting (ASCIZ). If the
;				length is insufficent for the actual user-id
;				an error is returned. If too large, uidnam
;				will be blank filled.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RUID

RUID:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get user-id string
	MOVE	T2,@3(A)		;Get user-id string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCUS(W1)		;Get address of user-id block
	PUSHJ	P,NSPR..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RPWD
	SUBTTL	Read Password Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the access password control
;			field in a Fortan connect block. The BCON routine must
;			be called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL RPWD (conblk,stat,pwdnam,pwdlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			pwdnam	String to return password. Pasword can
;				be up to 39 characters in length.
;
;			pwdlen	Number of characters allowed in pwdnam or
;				-1 if name is self-counting (ASCIZ). If the
;				length is insufficent for the actual password
;				an error is returned. If too large, pwdnam
;				will be blank filled.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RPWD

RPWD:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get password string
	MOVE	T2,@3(A)		;Get password string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCPW(W1)		;Get address of password block
	PUSHJ	P,NSPR..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RACC
	SUBTTL	Read Account Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the access account control
;			field in a Fortan connect block. The BCON routine must
;			be called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL RACC (conblk,stat,accnam,acclen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			accnam	String to return account. Account can
;				be up to 39 characters in length.
;
;			acclen	Number of characters allowed in accnam or
;				-1 if name is self-counting (ASCIZ). If the
;				length is insufficent for the actual account
;				an error is returned. If too large, accnam
;				will be blank filled.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RACC

RACC:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get account string
	MOVE	T2,@3(A)		;Get account string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCAC(W1)		;Get address of account block
	PUSHJ	P,NSPR..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RDAT
	SUBTTL	Read User Data Control Information

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads the user data control field
;			in a Fortan connect block. The BCON routine must be
;			called prior to this routine to initial the 69-word
;			connect block array.
;
;	Usage:		CALL RDAT (conblk,stat,datnam,datlen)
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			datnam	String to return user data. User data can
;				be up to 16 characters in length.
;
;			datlen	Number of characters allowed in datnam or
;				-1 if name is self-counting (ASCIZ). If the
;				length is insufficent for the actual user data
;				an error is returned. If too large, datnam
;				will be blank filled.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RDAT

RDAT:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get user data string
	MOVE	T2,@3(A)		;Get user data string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCUD(W1)		;Get address of user data block
	PUSHJ	P,NSPR..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	ROPT
	SUBTTL	Read Optional Data Buffer

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads an optional message buffer and
;			returns the ASCII data. It should only be used to
;			change from the 8-bit to 7-bit format for ASCII.
;
;	Usage:		CALL ROPT (optblk,stat,optmsg,optlen)
;
;	Arguments:	optblk	Integer 5-word array to read optmsg string.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			optmsg	String to return string from optblk.
;				String may have have size of 1-16 characters.
;
;			optlen	Number of characters in optmsg or -1 if string
;				is self-counting (ASCIZ). If insufficient space
;				for message, an error will be returned.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	ROPT

ROPT:	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	MOVEI	T1,2(A)			;Get user data string
	MOVE	T2,@3(A)		;Get user data string size
	MOVEI	W1,@0(A)		;Get start of connect block
	MOVE	W1,.NSCUD(W1)		;Get string pointer
	PUSHJ	P,NSPR..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	RSRC
	SUBTTL	Read Source/Destination Process Descriptor

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This subroutine reads either the source or destination
;			process descriptors used for the Fortran NSP connect
;			block. The BCON routine must be called before these
;			routines.
;
;	Usage:		CALL RSRC (conblk,stat,fmt,obj,[pronam,prolen[,ppn]])
;
;	Arguments:	conblk	Integer 69-word array to use as NSP connect
;				block.
;
;			stat	Integer variable to receive status of
;				operation. First word is set .TRUE. (-1) for
;				success and .FALSE. (0) for failure.
;
;			fmt	Integer variable to receive descriptor format
;				type (0,1,or 2).
;
;			obj	Integer variable to receive object type for
;				descriptor.
;
;			pronam	String to return with process name in the
;				descriptor. String may have have size of
;				1-16 characters and is not used for fmt 0.
;
;			prolen	Number of characters in pronam or -1 if string
;				is self-counting (ASCIZ).
;
;			ppn	Integer variable to receive PPN for descriptor,
;				stored in half-word format.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	RSRC
	ENTRY	RDST

RSRC:	MOVEI	T1,.NSCSD		;Get source descriptor offset
	 SKIPA				; and continue
RDST:	MOVEI	T1,.NSCDD		;Get destination descriptor offset

	MOVEI	EA,@1(A)		;Get error block address
	SETOM	0(EA)			;Preset to success

	ADDI	T1,@0(A)		;Get address of descriptor pointer
	MOVEI	W1,@(T1)		;Get address of descriptor block

	MOVE	T1,.NSDFM(W1)		;Get format type
	MOVEM	T1,@2(A)		;Return format type
	MOVE	T1,.NSDOB(W1)		;Get object type
	MOVEM	T1,@3(A)		;Return object type
	MOVE	T1,.NSDPP(W1)		;Get ppn
	MOVEM	T1,@6(A)		;Return ppn value

	MOVEI	T1,4(A)			;Get user data string
	MOVE	T2,@5(A)		;Get user data string size
	MOVE	W1,.NSDPN(W1)		;Get start of process name
	PUSHJ	P,NSPR..##		;Construct string block
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	ISTAST
	SUBTTL	Check link state status

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This function checks the current channel state against
;			a given list of states and returns a Fortran index to
;			the matching state or a zero if no state matches. The
;			result can be used in a computed GOTO or other areas.
;
;	Usage:		ivar = ISTAST(chan,state1[,state2,...staten])
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;			staten	Integer variable or value corresponding to
;				DECnet/10 link states.
;
;	Returns ivar set to one (1) if current link state matches state1, two
;	(2) if matches state2, and so forth. If no matches, set ivar to zero.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	ISTAST

ISTAST:	MOVE	T1,@0(A)		;Get the channel number
	HRRZM	T1,STABLK+.NSACH	; and store in NSP. block
	MOVEI	T1,STABLK		;Get status NSP. block
	NSP.	T1,			;Get the current link status
	 JRST	ISTA.2			; UUO failed, return false
	MOVE	T1,STABLK+.NSACH	;Get current channel status
	AND	T1,[NS.STA]		;Get just state field
	MOVS	T1,T1			; and position in low part

	HLL	A,-1(A)			;Get number of arguments
	SETZ	T0,			;Set index to zero
ISTA.1:	AOBJP	A,ISTA.2		;Skip first argument
	AOS	T0			;Count the argument
	CAME	T1,0(A)			;Is this the correct state
	 JRST	ISTA.1			; No, continue check
	SKIPA				;Skip to return
ISTA.2:	SETZ	T0,			;Return not found
	POPJ	P,			;Return to caller

STABLK:	XWD	.NSFRS,2
	XWD	0,0

	PRGEND

	TITLE	I???ST
	SUBTTL	Check link data status

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	These functions check various data status for a DECnet
;			channel and return .TRUE. (-1) or .FALSE. (0) values.
;			The four routines correspond to the available NSP.
;			status indicators:
;
;			IRECST(chan)	returns .TRUE. if normal data is
;					available to read (NS.NDA).
;
;			IRXIST(chan)	returns .TRUE. if interrupt data is
;					available to read (NS.IDA).
;
;			ISNDST(chan)	returns .TRUE. if buffers are available
;					to send normal data to remote (NS.NDR).
;
;			ISXIST(chan)	returns .TRUE. if buffers are available
;					to send interrupt message (NS.IDR).
;
;	Usage:		ivar = IxxxST(chan)
;
;	Arguments:	chan	Integer variable with DECnet channel number
;				that was returned by active or passive network
;				connect requests (CONNT/PASNT).
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	IRECST
	ENTRY	IRXIST
	ENTRY	ISNDST
	ENTRY	ISXIST

IRECST:	MOVE	T1,[NS.NDA]		;Set status bit to test
	JRST	ICHKST			; and continue in common

IRXIST:	MOVE	T1,[NS.IDA]		;Set status bit to test
	JRST	ICHKST			; and continue in common

ISNDST:	MOVE	T1,[NS.NDR]		;Set status bit to test
	JRST	ICHKST			; and continue in common

ISXIST:	MOVE	T1,[NS.IDR]		;Set status bit to test

ICHKST:	PUSH	P,T2			;Save a worker
	SETZ	T0,			;Set return to .FALSE.
	MOVE	T2,@0(A)		;Get the channel number
	HRRZM	T2,CHKBLK+.NSACH	; and store in NSP. block
	MOVEI	T2,CHKBLK		;Get status NSP. block
	NSP.	T2,			;Get the current link status
	 JRST	ICHK.1			; UUO failed, return false
	TDNE	T1,CHKBLK+.NSACH	;Is the desired status set?
	 SETO	T0,			;Yes, return true
ICHK.1:	POP	P,T2			;Restore worker
	POPJ	P,			;Return to caller

CHKBLK:	XWD	.NSFRS,2
	XWD	0,0

	PRGEND

	TITLE	NSPU..
	SUBTTL	Issue NSP UUO and Return Errors

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This internal routine issues a NSP UUO and does the
;			Fortran error processing.
;
;	Usage:		PUSHJ	P,NSPU..##
;
;	Arguments:	NS	NSP. argument block pointer
;			EA	Address of error routine or zero.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	P=17		;Push-down stack pointer

	ENTRY	NSPU..

NSPU..:	AOS	(P)			;Preset success return
	SETOM	0(EA)			;Preset success return
	SETZM	1(EA)			;Zero secondary status
	MOVE	T1,NS			;Copy NSP. data block
	NSP.	T1,			;Issue NSP. UUO
	 SKIPA				; Process the error
	JRST	NSPU.1			;Continue in common code

	SOS	(P)			;Set failure return
	SETZM	0(EA)			;Set failure return
	HRRZM	T1,1(EA)		;Return error status
	MOVE	T0,[.NSFRS,,2]		;Get read channel code
	MOVEM	T0,.NSAFN(NS)		; and store in argument block
	MOVE	T1,NS			;Copy NSP. data block
	NSP.	T1,			;Issue NSP. UUO
	 SKIP				; Ignore any errors

NSPU.1:	HLL	T1,.NSACH(NS)		;Get status for network
	HLLM	T1,1(EA)		; and return to caller
	POPJ	P,			;Return to caller

	PRGEND

	TITLE	NSPA..
	SUBTTL	Setup NSP. UUO Block

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This internal routine sets up the NSP. UUO block
;			from the standard Fortran call.
;
;	Usage:		PUSHJ	P,NSPA..##
;
;	Arguments:	T0	NSP. function code,,default length
;
;	Routine returns address of NSP. data block in NS, address (if any)
;	of error return in EA, and positive number of Fortran arguments in
;	NA. Expects calls in format:
;
;		CALL xxxNT[W] (chan,stat[,...])
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	AN=13		;Number of Fortran arguments
	NS=14		;NSP. argument block pointer
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	NSPA..

NSPA..:	MOVEI	NS,NSPBUF		;Get address of NSP. data block
	MOVEM	T0,.NSAFN(NS)		; and store function,,length
	HLRE	AN,-1(A)		;Get number of arguments
	MOVN	AN,AN			; and convert to positive
	MOVEI	EA,@1(A)		;Get address of error block
	MOVE	T0,@0(A)		;Get channel number
	MOVEM	T0,.NSACH(NS)		; and store in NSP. data block
	SETZM	.NSAA1(NS)		;Zero rest of block
	SETZM	.NSAA2(NS)		; ...
	SETZM	.NSAA3(NS)		; ...
	POPJ	P,			;Return to caller

NSPBUF:	BLOCK	5			;NSP. UUO buffer

	PRGEND

	TITLE	NSPS..
	SUBTTL	Setup NSP. String Block

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This internal routine sets up the NSP. string block.
;
;	Usage:		PUSHJ	P,NSPS..##
;
;	Arguments:	T1	Address of user string
;			T2	Length of string or -1 if ASCIZ
;			W1	Address of NSP string block buffer
;			W2	Maximum characters,,string block size
;			EA	Address of error return variable.
;
;	Routine gets address of string, checks for valid length, and copies
;	7-bit ASCII into 8-bit NSP. string block. Will return .FALSE. (0) if
;	length error seen. Null strings are allowed.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	NSPS..

NSPS..:	PUSH	P,T2			;Save string length
	PUSHJ	P,CKSA..##		;Get type for format string
	CAIN	T0,15			;Check of F77 string
	 MOVEM	T2,(P)			; Set F77 string length
	POP	P,T2			;Restore string length

	JUMPGE	T2,NSPS.2		;Do we need to count string?
	PUSH	P,T1			;Save pointer
	SETZ	T2,			;Zero the counter
NSPS.1:	ILDB	T0,T1			;Get next byte
	SKIPE	T0			;Skip of no more
	 AOJA	T2,NSPS.1		; Loop till done
	POP	P,T1			;Restore pointer

NSPS.2:	HLRZ	T0,W2			;Get maximum size of string
	CAMLE	T2,T0			;Is the size in range?
	 JRST	NSPS.E			; No, take error exit
	HRRM	W2,.NSASL(W1)		;Put size of field in words
	HRLM	T2,.NSASL(W1)		;Put actual character count
	HRRZ	W1,W1			;Wipe upper half of word
	ADD	W1,[POINT 8,.NSAST,]	;Update address and form byte pointer
NSPS.3:	SOJL	T2,NSPS.S		;Count a move and exit when done
	ILDB	T0,T1			;Get next character
	IDPB	T0,W1			;Store in the byte field
	JRST	NSPS.3			; and loop till finished

NSPS.E:	SETZM	(EA)			;Set bad return
NSPS.S:	POPJ	P,			;Return to caller

	PRGEND

	TITLE	NSPR..
	SUBTTL	Read NSP. String Block

	SEARCH	UUOSYM
;
;	Author:		R. W. Stamerjohn,	MAPC DEC-10 Systems Group
;	Written:	25-Apr-83
;
;+
;	Purpose:	This internal routine reads NSP. string block.
;
;	Usage:		PUSHJ	P,NSPR..##
;
;	Arguments:	T1	Address of user string
;			T2	Length of string or -1 if ASCIZ
;			W1	Address of NSP string block buffer
;			EA	Address of error return variable.
;
;	Routine gets address of string, checks for valid length, and copies
;	8-bit NSP. string block into 7-bit ASCII. Will return .FALSE. (0) if
;	length error seen. Null strings are allowed.
;
;-
;	Register Definition:
;

	T0=0		;Temporary AC
	T1=1		;Temporary AC
	T2=2		;Temporary AC
	W1=3		;Worker AC
	W2=4		;Worker AC
	EA=15		;Address of error return block or zero
	A=16		;Fortran argument block pointer
	P=17		;Push-down stack pointer

	ENTRY	NSPR..

NSPR..:	MOVE	W2,T2			;Save string length
	PUSHJ	P,CKSA..##		;Get type for format string
	CAIN	T0,15			;Check if F77 string
	 MOVEM	T2,W2			; Set F77 string length
	SKIPGE	W2			;Skip if size specified
	 MOVE	W2,T2			;Get size from call

	HLRZ	T2,.NSASL(W1)		;Get field character count
	HRRZ	W1,W1			;Wipe any upper halfword stuff
	ADD	W1,[POINT 8,.NSAST,]	;Update address and form byte pointer
NSPR.1:	SOJL	T2,NSPR.2		;Count char to move and jump if none
	SOJL	W2,NSPR.E		;Count char to move and jump if none
	ILDB	T0,W1			;Get next byte
	IDPB	T0,T1			;Store byte in user string
	JRST	NSPR.1			; and loop

NSPR.2:	MOVEI	T0,40			;Get blank
NSPR.3:	SOJL	W2,NSPR.S		;Count char to move and jump if none
	IDPB	T0,T1			;Blank fill the rest.
	JRST	NSPR.3			; and loop

NSPR.E:	SETZM	(EA)			;Set bad return
NSPR.S:	POPJ	P,			;Return to caller

	END