59 lines
1.4 KiB
Plaintext
59 lines
1.4 KiB
Plaintext
global str terminal_namespace = "/dev/term/0";
|
|
global str prompt = "Enter a string:";
|
|
global str new_line = "\n";
|
|
|
|
function main ()
|
|
real a $0;
|
|
int i $1;
|
|
int in_mode $11;
|
|
str in_term $10;
|
|
|
|
load_immediate 5.0 -> a;
|
|
load_immediate 5000 -> i;
|
|
load_immediate 0 -> $2;
|
|
load_immediate -1 -> $3;
|
|
load_immediate 5.0 -> $5;
|
|
loop loop_body
|
|
add_real a $5 -> a;
|
|
add_int i $3 -> i;
|
|
jump_ge_int loop_body i $2;
|
|
|
|
load_address terminal_namespace -> in_term;
|
|
load_immediate 0 -> in_mode;
|
|
syscall OPEN in_term in_mode -> in_term; // Terminal term = open("/dev/term/0", 0);
|
|
|
|
nat b $1;
|
|
real_to_nat a -> b;
|
|
load_address prompt -> $7;
|
|
string_length $7 -> $8;
|
|
syscall WRITE in_term $7 $8; // print prompt
|
|
|
|
str user_string $9;
|
|
load_immediate 32 -> $8;
|
|
malloc $8 -> user_string;
|
|
syscall READ in_term user_string $8; // read in max 32 byte string
|
|
|
|
call pln user_string;
|
|
nat_to_string b -> $4;
|
|
call pln $4;
|
|
real_to_string a -> $3;
|
|
call pln $3;
|
|
exit 0;
|
|
|
|
function pln (str message $0)
|
|
plex term $1;
|
|
int msg_length $2;
|
|
str nl $3;
|
|
int nl_length $4;
|
|
int mode $5;
|
|
|
|
load_address terminal_namespace -> term;
|
|
load_immediate 0 -> mode;
|
|
syscall OPEN term mode -> term; // Terminal term = open("/dev/term/0", 0);
|
|
string_length message -> msg_length;
|
|
syscall WRITE term message msg_length;
|
|
load_address new_line -> nl;
|
|
string_length nl -> nl_length;
|
|
syscall WRITE term nl nl_length;
|
|
return;
|