20 lines
489 B
Plaintext
20 lines
489 B
Plaintext
string := @use("rel:string.hb")
|
|
|
|
receive_message := fn(buffer_id: int, memory_map_location: ^u8, length: int): ^u8 {
|
|
return @eca(^u8, 4, buffer_id, memory_map_location, length)
|
|
}
|
|
|
|
send_message := fn(buffer_id: int): void {
|
|
message := "Hello there\0"
|
|
message_length := string.length(message)
|
|
@eca(i32, 3, buffer_id, message, message_length)
|
|
return
|
|
}
|
|
|
|
create := fn(): int {
|
|
msg := "\{01}Number\0"
|
|
msg_length := string.length(msg);
|
|
*msg = 0
|
|
return @eca(int, 1, 0, msg, msg_length)
|
|
}
|