1
0
Fork 0
undar-lang/test/malloc.uir.ul

44 lines
949 B
C

str terminal_namespace = "/dev/term/0";
str prompt = "Enter a string:";
str new_line = "\n";
function main () {
int mode;
str term;
load_address terminal_namespace -> term;
load_immediate 0 -> mode;
syscall OPEN term mode term; // Terminal term = open("/dev/term/0", 0);
load_address prompt -> $7;
string_length $7 -> $8;
syscall WRITE term $7 $8; // print prompt
str user_string;
load_immediate 32 -> $8;
malloc $8 -> user_string;
syscall READ term user_string $8; // read in max 32 byte string
call pln (user_string);
exit 0;
}
function pln (str message) {
ptr term;
int msg_length;
str nl;
int nl_length;
int mode;
str term_ns;
load_immediate 0 -> mode;
load_address terminal_namespace -> term_ns;
syscall OPEN term_ns mode term;
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;
}