4548: start of a compiler for a new experimental low-level language

1 files changed, 24 insertions, 0 deletions

diff --git a/subx/examples/ex7.k2 b/subx/examples/ex7.k2
new file mode 100644
index 00000000..515c5c12
--- /dev/null
+++ b/subx/examples/ex7.k2
@@ -0,0 +1,24 @@
+var stream : int = 0
+var a : char = 97
+var b : char = 0
+var filename : (array char) = ".foo"
+
+fn main [
+  call create, filename
+  *stream <- call open, filename, 1/wronly
+  call write, *stream, a, 1
+  call close, *stream
+  stream <- call open, filename, 0/rdonly
+  call read, *stream, b, 1
+  call close, *stream
+  call unlink, filename
+  var result/EBX : char
+  result/EBX <- copy b  # TODO: copy char to int?
+  call exit-EBX
+]
+
+# like exit, but assumes the code is already in EBX
+fn exit-EBX [
+  code/EAX <- copy 1/exit
+  syscall
+]