15 lines
389 B
Plaintext
15 lines
389 B
Plaintext
-- KRoC wrapper to run Tock-generated CIF program
|
|
|
|
#INCLUDE "cifccsp.inc"
|
|
|
|
#PRAGMA EXTERNAL "PROC C.tock.main.init (INT raddr, CHAN BYTE in?, out!, err!) = 0"
|
|
#PRAGMA EXTERNAL "PROC C.tock.main.free (VAL INT raddr) = 0"
|
|
|
|
PROC kroc.main (CHAN BYTE in?, out!, err!)
|
|
INT addr:
|
|
SEQ
|
|
C.tock.main.init (addr, in?, out!, err!)
|
|
cifccsp.startprocess (addr)
|
|
C.tock.main.free (addr)
|
|
:
|