.TITLE VSRC Variable Send, Request, and Connect .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index VSRC Variable Send, Request,and Connect RSX-11M plus and P/OS Specific ; ; Usage ; ; #include ; rad50 tsknam[2]; /* 2 word RAD50 offspring task */ ; char *buf /* name of send buffer */ ; int buflen /* Length of buffer */ ; int efn /* Event Flag Number */ ; char *east /* Offspring's exit AST routine */ ; char *esb /* Offspring's exit status block */ ; word status; /* Returned $DSW */ ; ; status = vsrc(tsknam,buf,buflen,efn,east,ebn) ; ; [end] ;- ; Edits: ; V1.0 31-May-84 KH Initial Creation ; .if df RSX ; Not on RSX vsrc:: mov #IE.SDP,r0 ; Return "unsupported system service" return .iff ; Only on P/OS, RSX-11MPLUS, Micro RSX .mcall vsrc$s vsrc:: mov sp,r0 ; r0-->parameter stack frame vsrc$s 2(r0),4(r0),6(r0),10(r0) mov $dsw,r0 ; return status return .endc .end