undar-lang/test/malloc.ul.ir

41 lines
942 B
Plaintext

global str terminal_namespace = "/dev/term/0"
global str prompt = "Enter a string:"
global str new_line = "\n"
function main ()
int mode $11;
str term $10;
load_immediate terminal_namespace -> term
load_immediate 0 -> mode
syscall OPEN term mode -> term // Terminal term = open("/dev/term/0", 0);
load_immediate prompt -> $7
string_length $7 -> $8
syscall WRITE term $7 $8 // print prompt
str user_string $9
load_immediate 32 -> $8
malloc $8 -> user_string
syscall READ term user_string $8 // read in max 32 byte string
call pln user_string -> void
exit 0
function pln (str message $0)
str ts $1
int mode $5
int msg_length $2
str nl $3
int nl_length $4
load_immediate terminal_namespace -> ts
load_immediate 0 -> mode
syscall OPEN ts mode -> ts
strlen message -> msg_length
syscall WRITE ts message msg_length
load_immediate new_line -> nl
strlen nl -> nl_length
syscall WRITE ts nl nl_length
return