ableos_time/sysdata/programs/tests/src/main.hb

stn := @use("../../../libraries/stn/src/lib.hb");
.{log, string, memory, buffer} := stn

windo := @use("../../../libraries/windo/src/lib.hb");
.{WindowID, create_window} := windo

service_search := fn(): void {
	a := "\{01}\0"
	@eca(void, 3, a, string.length)

	return
}

main := fn(): int {
	// Create a buffer
	num := 2
	buffer_id := buffer.create()
	buffer.send_message(buffer_id)
	memory_pages := memory.request_page(3)
	buffer.receive_message(buffer_id, memory_pages, 4096 * 3)
	log.info("abc\0")
	memory.release_page(memory_pages, 3)

	window := create_window()

	// todo: abstract this out
	port_str := "\0\{70}\0"
	a := @eca(u8, 3, 3, port_str, 2)
	return 0
}