ableos/sysdata/libraries/stn/src/buffer.hb

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)
}