.TITLE NETCLS End a task's network operations .IDENT "X1.0" .ENABL LC .NLIST BEX,CND,TOC ;+ ; Index End a task's network operations ; ; Usage ; ; #include /* NSP defs */ ; ; int lun; /* Network data mailbox LUN */ ; int efn; /* Event flag # for wait */ ; int status[2]; /* Status block */ ; {typ} astsrv(); /* AST service routine */ ; int dir_stat; /* Directive status ($DSW) */ ; ; dir_stat = netcls(lun, efn, status, astsrv); ; ; Description ; ; netcls() may be issued by either the client or server task to ; end that task's network activity, abort all of it's logical ; links, and free all of it's LUN's. If there is data in the ; network data queue mailbox, special action is taken. For more ; information, see the RSX DECnet Programmer's Reference Manual ; (May, 1982) section 2.8.3. ; ; The function returns $DSW. ; ; Notes ; ; The first three parameters are required! ;- ; ; Edits: ; ; X1.0 27-Feb-83 RBD Initial edit ; .psect c$code .mcall cls$s NETCLS:: mov sp,r0 ; r0 --> parameter list cls$s 2(r0),4(r0),6(r0),10(r0) mov $dsw,r0 ; Return $DSW return .end