.TITLE NETOPN Access the network .IDENT "X1.0" .ENABL LC .NLIST BEX,CND,TOC ;+ ; Index Access the network ; ; Usage ; #include /* NSP defs. */ ; ; int lun; /* Net. data mailbox LUN */ ; int efn; /* Event flag # for wait */ ; int status[2]; /* Status block */ ; {typ} astsrv(); /* AST service routine */ ; int maxlinks; /* Max. # of logical links */ ; int lrp; /* Link recovery period, min. */ ; int dir_stat; /* Directive status ($DSW) */ ; ; dir_stat = netopn(lun, efn, status, astsrv, maxlinks, ; lrp); ; ; Description ; ; This function establishes the current task as an active network ; task and creates a network data queue mailbox for it. For more ; information, see the RSX DECnet Programmer's Reference Manual ; (May, 1982) section 2.8.9. ; ; The function returns $DSW. ; ; Notes ; ; netopn() must be issued before using any other intertask ; communication function in the CN library. ; ; The first three parameters are required! ;- ; ; Edits: ; ; X1.0 27-Feb-83 RBD Initial edit ; .psect c$code .mcall opn$s NETOPN:: mov sp,r0 ; r0 --> parameter list opn$s 2(r0),4(r0),6(r0),10(r0),<12(r0),14(r0)> mov $dsw,r0 ; Return $DSW return .end