diff options
author | Kartik Agaram <vc@akkartik.com> | 2018-09-17 22:57:10 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2018-09-17 22:57:58 -0700 |
commit | f09280141f18fbe8cef0ed576cf932e12e315666 (patch) | |
tree | d00962b07cb013f89d4fdb2fcf19c392afb62b5c /subx/examples/ex4.k2 | |
parent | 0a7b03727a736f73c16d37b22afef8496c60d657 (diff) | |
download | mu-f09280141f18fbe8cef0ed576cf932e12e315666.tar.gz |
4548: start of a compiler for a new experimental low-level language
Diffstat (limited to 'subx/examples/ex4.k2')
-rw-r--r-- | subx/examples/ex4.k2 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/subx/examples/ex4.k2 b/subx/examples/ex4.k2 new file mode 100644 index 00000000..ad968eaf --- /dev/null +++ b/subx/examples/ex4.k2 @@ -0,0 +1,17 @@ +# variables are always references +# read their address with their names: x (can't write to their address) +# read/write their contents with a lookup: *x +var x : char + +fn main [ + call read 0/stdin, x, 1/size # watch out; reading a global may not be possible in all instructions + # but the address is more easily obtained + result/EAX <- call write 1/stdout, x, 1/size + call exit, result/EAX +] + +fn exit x : int [ + code/EBX <- copy x + code/EAX <- copy 1/exit + syscall +] |