.TITLE NTXMI
	.ENABLE LC
	.IDENT /010688/

;
;     Description: Send DECnet Interrupt Message
;	     File: [22,310]NTXMI.MAC
;	   Author: Jim Bostwick   1-JUN-1988 
;	Last Edit: 15-NOV-1988 12:30:38 
;	  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:18:02  - JMB PA3UTL upgrade.
;

.REM |
{*CALL*}

Procedure NTXMI (
	lun: Integer;
	EFN: Event_flag;
	MSG: CH16;
	VAR IOSB: IO_Status_block
	);External;

{*USER*

Sends an interrupt message over the link active on LUN. The message goes
to the remote task's network data queue, and must be retrieved by the 
target task via a GND call. Only one XMI message can be pending on a given
logical link at one time. 
 MSG is the user data placed in the target task network data queue. 
 } 

{*WIZARD*

Message size fixed at 16. bytes (the maximum). No AST support. Uses the 
XMIW$S synchronous call. 
 }

|

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

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

	.mcall XMIW$S

	PROC NTXMI
	PARAM lun, integer
	PARAM efn, Char
	PARAM msg, 16.*char
	PARAM iosb, Address

	SAVE <R0,R1,R2>
	BEGIN
	mov	sp, r0
	movb	efn(sp), r1	; get efn
	bic	#^C377, r1
	mov 	r0, r2		; get msg addx
	add	#MSG, r2
	XMIW$S lun(r0),r1,iosb(r0),,<r2,#16.>

	ENDPR

	.END