.TITLE SREF Send by Reference .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index SREF Send by Reference ; ; ; Usage ; ; #include ; #include /* WDB definition */ ; rad50 tsknam[2]; /* Receiver task name */ ; word eflag; /* Event flag number */ ; struct wdb winblk; /* Window definition block */ ; word status; /* Returned DSW */ ; ; status = sref(tsknam, &winblk, eflag); ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix Documentation. ; .mcall sref$s sref:: mov sp,r0 ;r0 --> parameters stack frame sref$s 2(r0),4(r0),6(r0) mov $dsw,r0 ;return dsw return .end