From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 system/net/1.7.5/src/callee | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 system/net/1.7.5/src/callee

(limited to 'system/net/1.7.5/src/callee')

diff --git a/system/net/1.7.5/src/callee b/system/net/1.7.5/src/callee
new file mode 100644
index 0000000..42d80da
--- /dev/null
+++ b/system/net/1.7.5/src/callee
@@ -0,0 +1,14 @@
+PACKET callee DEFINES callee:
+
+TASK PROC callee (TASK CONST t): 
+  IF im wait THEN trick 1 (t); trick 2 ELSE niltask FI.
+im wait: (status(t) AND 3) = 2. 
+END PROC callee; 
+ 
+PROC trick 1 (TASK CONST t): 
+  INT VAR x := pcb(t,11), y:=pcb(t,12); 
+END PROC trick1; 
+ 
+TASK PROC trick 2: TASK VAR calle; calle END PROC trick2; 
+ 
+END PACKET callee;
-- 
cgit v1.2.3