.TITLE RCVD Receive Data .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index RCVD Receive Data ; ; Usage ; ; #include ; rad50 tsknam[2]; /* 2 word RAD50 task name */ ; word buffer[15]; /* Received data packet */ ; word status; /* Returned DSW */ ; ; status = rcvd(tsknam, buffer); ; ; Notes ; ; The first 2 words of the 'buffer' will contain the sender ; task name. ; ; To receive data from any task, 'tsknam' must be ; a NULL pointer. ; ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix documentation. ; .mcall rcvd$s rcvd:: mov sp,r0 ;save arg frame pointer tst 2(r0) ;null task name pointer? beq 10$ rcvd$s 2(r0),4(r0) ;receive from specified task br 20$ 10$: rcvd$s ,4(r0) ;receive from any task 20$: mov $dsw,r0 ;return DSW return .end