.TITLE NETGLN Get local node information .IDENT "X1.0" .ENABL LC .NLIST BEX,CND,TOC ;+ ; Index Get local node information ; ; 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 gln_dat *lni; /* --> Local node info struct */ ; int dir_stat; /* Directive status ($DSW) */ ; ; dir_stat = netgln(lun, efn, status, astsrv, lni); ; ; Description ; ; netgln() may be called to obtain the local node's name ; and the default NSP segment size. ; For more information, see the RSX DECnet Programmer's ; Reference Manual (May, 1982) section 2.8.7. ; ; The function returns $DSW. ; ; Notes ; ; The "gln_dat" struct is always 8 words long; both the ; node name (6 bytes, blank filled) and the default NSP ; segment size are returned. ; ; The first three parameters are required! ; ;- ; ; Edits: ; ; X1.0 27-Feb-83 RBD Initial edit ; .psect c$code .mcall gln$s NETGLN:: mov sp,r0 ; r0 --> parameter list gln$s 2(r0),4(r0),6(r0),10(r0),<12(r0),#8.> mov $dsw,r0 ; Return $DSW return .end