.TITLE VSDA Variable Send Data .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index vsda Send Data ; ; Usage ; ; #include ; rad50 tsknam[2]; /* 2 word RAD50 task name */ ; word buffer msg[]; /* up to 256 word buffer */ ; word buflen; /* buffer length */ ; word eflag; /* Local event flag number */ ; word status; /* Returned DSW */ ; ; status = vsda(tsknam, msg, buflen, eflag); ; ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix Documentation. ; .mcall vsda$s vsda:: mov sp,r0 ;r0 --> parameters stack frame vsda$s 2(r0),4(r0),6(r0),10(r0) mov $dsw,r0 ;return dsw return .end