diff options
Diffstat (limited to 'subx/examples')
-rw-r--r-- | subx/examples/ex3.k2 | 20 | ||||
-rw-r--r-- | subx/examples/ex4.k2 | 17 | ||||
-rw-r--r-- | subx/examples/ex5.k2 | 12 | ||||
-rw-r--r-- | subx/examples/ex6.k2 | 13 | ||||
-rw-r--r-- | subx/examples/ex7.k2 | 24 | ||||
-rw-r--r-- | subx/examples/ex8.k2 | 41 |
6 files changed, 0 insertions, 127 deletions
diff --git a/subx/examples/ex3.k2 b/subx/examples/ex3.k2 deleted file mode 100644 index aa17ac7b..00000000 --- a/subx/examples/ex3.k2 +++ /dev/null @@ -1,20 +0,0 @@ -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 -] diff --git a/subx/examples/ex4.k2 b/subx/examples/ex4.k2 deleted file mode 100644 index ad968eaf..00000000 --- a/subx/examples/ex4.k2 +++ /dev/null @@ -1,17 +0,0 @@ -# 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 -] diff --git a/subx/examples/ex5.k2 b/subx/examples/ex5.k2 deleted file mode 100644 index 79920614..00000000 --- a/subx/examples/ex5.k2 +++ /dev/null @@ -1,12 +0,0 @@ -fn main [ - var x : char - call read 0/stdin, x, 1/size - result/EBX <- call write 1/stdout, x, 1/size - call exit-EBX -] - -# like exit, but assumes the code is already in EBX -fn exit-EBX [ - code/EAX <- copy 1/exit - syscall -] diff --git a/subx/examples/ex6.k2 b/subx/examples/ex6.k2 deleted file mode 100644 index d9b54dd4..00000000 --- a/subx/examples/ex6.k2 +++ /dev/null @@ -1,13 +0,0 @@ -var size : int = 14 -var x : (array character) = "hello, world!" - -fn main [ - call write 1/stdout, x, size - call exit, 0 -] - -fn exit x : int [ - code/EBX <- copy x - code/EAX <- copy 1/exit - syscall -] diff --git a/subx/examples/ex7.k2 b/subx/examples/ex7.k2 deleted file mode 100644 index 515c5c12..00000000 --- a/subx/examples/ex7.k2 +++ /dev/null @@ -1,24 +0,0 @@ -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 -] diff --git a/subx/examples/ex8.k2 b/subx/examples/ex8.k2 deleted file mode 100644 index f6c359f7..00000000 --- a/subx/examples/ex8.k2 +++ /dev/null @@ -1,41 +0,0 @@ -fn main argc : int, argv : (array (ref array char)) -> [ - var tmp : (index char) - tmp <- index 1, %size(ref array char) - var tmp2 : (address (ref array char)) - tmp2 <- advance argv, tmp - var s/EBX : (ref array char) - s/EBX <- copy *tmp2 - var result/EAX : int - result/EAX <- ascii_length s/EBX - call exit, result/EAX -] - -# must -fn ascii_length s : (ref array char) -> result : int [ - var result/EBX : int - result/EBX <- copy 0 - { - var tmp0/EDI : (offset char) - tmp0/EDI <- index result/EBX, %size(char) - var tmp/EDX : (address char) - tmp/EDX <- advance *s, tmp0/EDI - => compare (ESP+4), *(ESP+8) ; '*' from compiler2 - jump-unless-equal panic - EDX <- add ESP, 8 - EDX <- copy *EDX - EDX <- add EDX, 4 - EDX <- 8d/lea EDX + result - var c/ECX : char - c/ECX <- copy *tmp - compare c/ECX, 0 - break-if-equal - loop - } - return result/EBX -] - -fn exit x : int [ - code/EBX <- copy x - code/EAX <- copy 1/exit - syscall -] |