32 lines
677 B
Plaintext
32 lines
677 B
Plaintext
global str terminal_namespace = "/dev/term/0";
|
|
global real x = 1.0;
|
|
global real y = 1.0;
|
|
|
|
function main ()
|
|
real x $0;
|
|
load_absolute_32 x -> x;
|
|
real y $1;
|
|
load_absolute_32 y -> y;
|
|
real result $2;
|
|
add_real x y -> result;
|
|
str result_str $3;
|
|
real_to_string result -> result_str;
|
|
call pln result_str -> void;
|
|
exit 0;
|
|
|
|
function pln (str message $0)
|
|
str term $1;
|
|
int msg_length $2;
|
|
str nl $3;
|
|
int nl_length $4;
|
|
int mode $5;
|
|
|
|
load_immediate 0 -> mode;
|
|
syscall OPEN terminal_namespace mode -> term;
|
|
strlen message -> msg_length;
|
|
syscall WRITE term message msg_length;
|
|
load_address new_line -> nl;
|
|
strlen nl -> nl_length;
|
|
syscall WRITE term nl nl_length;
|
|
return;
|