20 lines
527 B
Plaintext
20 lines
527 B
Plaintext
|
string := @use("rel:string.hb");
|
||
|
|
|
||
|
|
receive_message := fn(buffer_id: int, memory_map_location: ^u8, length: int): ^u8 {
|
||
|
|
return @eca(void, 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);
|
||
|
|
}
|