44 lines
736 B
ArmAsm
44 lines
736 B
ArmAsm
|
|
|
|
.include "include/uskel.s"
|
|
|
|
.include "include/data.s"
|
|
.include "include/io.s"
|
|
.include "include/intops.s"
|
|
|
|
.primop1 sumn
|
|
needs_alloc $0110
|
|
|
|
mov 010(%rsi), %rax
|
|
test %rax, %rax
|
|
jz sumn_zero
|
|
|
|
dec %rax
|
|
thunkto %r10, $INT_code, %rax
|
|
thunkto %r10, $sumn, $1, %r10
|
|
thunkto %r10, $plus, $2, %rsi, %r10 #TODO try the other way?
|
|
primop1_cont_indirect %r10
|
|
|
|
sumn_zero:
|
|
primop1_ret_int $0
|
|
|
|
# || -> cont
|
|
.thunkcode main
|
|
needs_alloc $0160
|
|
# push a new integer
|
|
thunkto %r11, $INT_code, $10000000
|
|
|
|
# push the plus
|
|
thunkto %r11, $sumn, $1, %r11
|
|
|
|
# push the print
|
|
thunkto %r11, $print, $1, %r11
|
|
|
|
# push a cont thunk for main_exit
|
|
thunkto %rsi, $main_exit, $0
|
|
|
|
# evaluate into main_exit
|
|
enter %r11
|
|
|
|
.include "include/main_exit.s"
|