.TITLE NETREJ Reject a logical link request .IDENT "X1.0" .ENABL LC .NLIST BEX,CND,TOC ;+ ; Index Reject a logical link request ; ; Usage ; ; #include /* NSP defs */ ; ; int lun; /* Net. data queue mailbox LUN */ ; int efn; /* Event flag # for wait */ ; int status[2]; /* Status block */ ; {typ} astsrv(); /* AST service routine */ ; struct r_conb *mail; /* --> GND$ received con. blk. */ ; char *out; /* Optional 1-16 byte msg. */ ; int outlen; /* Length of optional msg. */ ; int dir_stat; /* Directive status ($DSW) */ ; ; dir_stat = netrej(lun, efn, status, astsrv, mail, ; out, outlen); ; ; Description ; ; netrej() is issued by the server task to reject a logical link ; request by the client. Optionally, a 1- to 16-byte message ; can be returned to the client as part of the link request ; rejection. For more information, see the RSX DECnet Programmer's ; Reference Manual (May, 1982) section 2.8.11. ; ; The function returns $DSW. ; ; Notes ; ; The connect blocks generated and communicated by the CN-Library ; routines are of maximum length, i.e., they always contain room ; for a 16-byte service message. For this reason, the length of ; the connect block is not a parameter for the functions. ; ; The "out" and "outlen" parameters are paired; make both zero, ; or both 'live'. ; ; The first three parameters are required! ; ;- ; ; Edits: ; ; X1.0 27-Feb-83 RBD Initial edit ; .psect c$code .mcall rej$s NETREJ:: mov sp,r0 ; r0 --> parameter list rej$s 2(r0),4(r0),6(r0),10(r0),<12(r0),#116.,14(r0),16(r0)> mov $dsw,r0 ; Return $DSW return .end