.TITLE NETCON Request a logical link connection .IDENT "X1.0" .ENABL LC .NLIST BEX,CND,TOC ;+ ; Index Request a logical link connection ; ; Usage ; ; #include /* NSP defs */ ; ; int lun; /* LUN to be assg'd to link */ ; int efn; /* Event flag # for wait */ ; int status[2]; /* Status block */ ; {typ} astsrv(); /* AST service routine */ ; struct t_conb *conbl; /* --> Transmitted con. blk. */ ; char *out; /* Opt. 1-16 byte xmit msg. */ ; int outlen; /* Length of opt. xmit msg. */ ; char *in; /* Opt. 1-16 byte recv msg. */ ; int inlen; /* Length of opt. xmit msg. */ ; int dir_stat; /* Directive status ($DSW) */ ; ; dir_stat = netcon(lun, efn, status, astsrv, conbl, ; out, outlen, in, inlen); ; ; Description ; ; Issue netcon() in the client task to request a logical link connection ; to a server task. You can send an optional 1- to 16-byte message as ; part of the connect request, and you may also receive an optional 1- ; to 16-byte message from the server as part of it's acceptance or ; rejection message. For more information, see the RSX DECnet ; Programmer's Reference Manual (May, 1982) section 2.8.4. ; ; The function returns $DSW. ; ; Notes ; ; The length of the transmit connect block is fixed at N.RQL (72.) ; ; The "out" and "outlen" parameters are paired; make both zero, ; or both 'live'. Same for the "in" and "inlen" parameters. ; ; The NOFLOW option is not supported. ;- ; ; Edits: ; ; X1.0 27-Feb-83 RBD Initial edit ; .psect c$code .mcall con$s NETCON:: mov sp,r0 ; r0 --> parameter list con$s 2(r0),4(r0),6(r0),10(r0),<12(r0),#72.,14(r0),16(r0),20(r0),22(r0)> mov $dsw,r0 ; Return $DSW return .end