.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 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),, ENDPR .END