37 lines
878 B
Plaintext
37 lines
878 B
Plaintext
|
|
function main ()
|
|
int mode is $11
|
|
str term is $10
|
|
|
|
load_heap_immediate "/dev/term/0" -> term
|
|
load_immediate 0 -> mode
|
|
syscall OPEN term mode -> term # Terminal term = open("/dev/term/0", 0);
|
|
|
|
load_heap_immediate "Enter a string:" -> $7
|
|
string_length $7 -> $8
|
|
syscall WRITE term $7 $8 # print prompt
|
|
|
|
str user_string is $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
|
|
exit 0
|
|
|
|
function pln (str message is $0)
|
|
str ts is $1
|
|
int mode is $5
|
|
int msg_length is $2
|
|
str nl is $3
|
|
int nl_length is $4
|
|
|
|
load_heap_immediate "/dev/term/0" -> ts
|
|
load_immediate 0 -> mode
|
|
syscall OPEN ts mode -> ts # get terminal device
|
|
strlen message -> msg_length
|
|
syscall WRITE ts message msg_length
|
|
load_heap_immediate "\n" -> nl
|
|
strlen nl -> nl_length
|
|
syscall WRITE ts nl nl_length
|