43 lines
657 B
ArmAsm
43 lines
657 B
ArmAsm
|
|
.include "include/uskel.s"
|
|
|
|
.include "include/data.s"
|
|
.include "include/io.s"
|
|
.include "include/intops.s"
|
|
|
|
# || -> cont
|
|
.thunkcode main
|
|
# push a new integer
|
|
pushq $100
|
|
pushq $INT_code
|
|
mov %rsp, %r11 # backup first arg
|
|
|
|
# push another new integer
|
|
pushq $23
|
|
pushq $INT_code
|
|
mov %rsp, %r12 # backup second arg
|
|
|
|
# push the plus
|
|
push %r12
|
|
push %r11
|
|
pushq $2
|
|
pushq $plus
|
|
mov %rsp, %r11 # backup plus
|
|
|
|
# push the print
|
|
push %r11
|
|
pushq $1
|
|
pushq $print
|
|
mov %rsp, %r11 # backup print
|
|
|
|
# push a cont thunk for main_exit
|
|
push %rsi
|
|
pushq $1
|
|
pushq $main_exit
|
|
|
|
# evaluate into main_exit
|
|
mov %rsp, %rsi
|
|
enter %r11
|
|
|
|
.include "include/main_exit.s"
|