aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/multitask-messages.frt
blob: af162494ef9a8c6fcacebb0b1f4d7b4f75488d11 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
variable message \ the message box, the data exchanged itself.
cvariable sender \ a task local semaphore

: send ( message -- )
    sender wait
    message !
    sender signal
;

: receive
    sender wait
    message @
    sender signal
;