.TITLE NTCLS .ENABLE LC .IDENT /010688/ ; ; File:[22,310]NTCLS.MAC ; Author: Jim Bostwick 1-JUN-1988 ; Last Edit: jmb - 1-JUN-1988 18:06:42 ; Desc: End Task Network Operations ; History: JMB 1-JUN-1988 ; ; .REM | Procedure NTCLS ( Lun: Integer; Efn: Event_flag; VAR Iosb: Io_Status_block );External; {*USER* This call ends all task network activity. All open logical links are aborted, and all network luns are freed. Most pending network activity is discarded. If incomming connect requests are in the network data queue, the task is rescheduled. } {*WIZZARD* AST not implemented. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .library /lb:[1,1]netlib.mlb/ .MCALL CLSW$S PROC NTCLS PARAM LUN, Integer PARAM EFN, Char PARAM IOSB, Address SAVE BEGIN mov sp, r0 mov efn(sp), r1 bic #^C377, r1 CLSW$S lun(r0),r1,iosb(r0) ENDPR .END