.TITLE NETSND Send data over logical link .IDENT "X1.0" .ENABL LC .NLIST BEX,CND,TOC ;+ ; Index Send data over a logical link ; ; Usage ; ; #include /* NSP defs */ ; ; int lun; /* LUN assigned to link */ ; int efn; /* Event flag # for wait */ ; int status[2]; /* Status block */ ; {typ} astsrv(); /* AST service routine */ ; char *buf; /* --> Data buffer */ ; int buflen; /* Size of message, bytes */ ; int dir_stat; /* Directive status ($DSW) */ ; ; dir_stat = netsnd(lun, efn, status, astsrv, buf, ; buflen); ; ; Description ; ; netsnd() may be issued by either the client or server task ; to send message data over a previously established logical ; link. For more information, see the RSX DECnet Programmer's ; Reference Manual (May, 1982) section 2.8.10. ; ; The function returns $DSW. ; ; Notes ; ; The message size must not exceed 8128. bytes. ; ;- ; ; Edits: ; ; X1.0 27-Feb-83 RBD Initial edit ; .psect c$code .mcall snd$s NETSND:: mov sp,r0 ; r0 --> parameter list snd$s 2(r0),4(r0),6(r0),10(r0),<12(r0),14(r0)> mov $dsw,r0 ; Return $DSW return .end