.TITLE NTABT .ENABLE LC .IDENT /101488/ ; ; File:[22,310]NTABT.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit 1-JUN-1988 01:58:34 ; ; Desc: NTABT - Abort Network Link ; ; History: JMB 1-JUN-1988 ; ; .REM | Procedure NTABT ( Lun: Integer; efn: Event_flag; msg: CH16; VAR IOSB: IO_Status_block; );External; {*USER* Immediately abort specified logical link. All pending traffic on the link is killed, and the LUN freed. EFN is required (do NOT use f0), and is set when the abort completes (will be set upon return). MSG is an optional user data string which is sent to the other end of the link as part of the disconnect message. It may be of zero length (in-use length). It is recommended that an empty type-0 string be used if no user message is desired. Control returns when the abort completes. } {*WIZZARD* } | ; ; Assemble with PASMAC.MAC as prefix file. ; .library /lb:[1,1]netlib.mlb/ .MCALL ABTW$S PROC NTABT PARAM LUN, Integer ; lun of link to be killed PARAM EFN, Char ; (byte) Event flag PARAM msg, 16*Char ; user data PARAM iosb, address ; io status block SAVE BEGIN mov sp, r0 ; get local copy movb efn(sp), r1 ; copy efn bic #^C377, r1 ; zap high byte ABTW$S lun(r0),r1,iosb(r0),, ENDPR .END