5485 - promote SubX to top-level

1 files changed, 22 insertions, 0 deletions

diff --git a/archive/3.transect/ex3.k2 b/archive/3.transect/ex3.k2
new file mode 100644
index 00000000..63151396
--- /dev/null
+++ b/archive/3.transect/ex3.k2
@@ -0,0 +1,22 @@
+# add the first 10 numbers, and return the result in the exit code
+
+fn main [
+  var result/EBX : int
+  result/EBX <- copy 0
+  var counter/ECX : int
+  counter/ECX <- copy 1
+  {
+    compare counter/ECX, 10
+    break-if >
+    result/EBX <- add counter/ECX
+    counter/ECX <- add 1
+    loop
+  }
+  call exit, 1
+]
+
+fn exit x : int [
+  code/EBX <- copy x
+  code/EAX <- copy 1/exit
+  syscall
+]