.TITLE NTSND
	.ENABLE LC
	.IDENT /010688/

;
;     Description: Send Data over DECnet Logical Link
; 	     File: [22,310]NTSND.MAC
;	   Author: Jim Bostwick   1-JUN-1988 
;	Last Edit: 15-NOV-1988 12:27:23 
;	  History: 
;		 3-AUG-1989 10:50:29 - JMB - changed location of PASMAC (again)
;		 15-NOV-88 12:00:00 - JMB - Conform to AMI Header specs. 
;
;		 23-JUN-1988 21:17:57  - JMB PA3UTL upgrade.
;

.REM |
{*CALL*}

Procedure NTSND (
	lun: Integer;
	efn: Event_flag;
	Buff: Address;
	Blen: Integer;
	VAR IOSB: IO_Status_block
	);External;

{*USER*

Send the contents of BUFF over logical link active on LUN. BLEN is length
in bytes of buffer, range 1..8128. 
 } 

{*WIZARD*

SNDW$S asynchronous call used. No AST support. 
 }

|

;
; Assemble with PASMAC.MAC as prefix file.
;

	.library /lb:[1,1]netlib.mlb/
	.include /pas$utl:pasmac.mac/

	.mcall SNDW$S

	PROC NTSND
	PARAM LUN, Integer
	PARAM EFN, Char
	PARAM Buff, Address
	PARAM Blen, Integer
	PARAM IOSB, Address

	SAVE <R0,R1>
	BEGIN
	mov	sp, r0
	movb	efn(sp), r1	; get efn
	bic	#^C377, r1
	SNDW$S lun(r0),r1,iosb(r0),,<buff(r0),blen(r0)>

	ENDPR

	.END