main.ha


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use vga;
use term;
use rt;
use real;

export fn main() void = {
	let text = vga::attach(0xb8000, 80, 25);
	term::clear(&text);
	term::setcolors(&text, (term::color::LMAGENTA, term::color::BLACK));
	
	term::print(&text, "hello hare world!");
	for (let i = 0z; i < 10; i += 1) {
		term::print(&text, "a");
		for (let j = 0z; j < 10000000; j += 1) {
			yield;
		};
	};

	real::regs.edi = 0;
	real::regs.esi = 0x7c00;
	real::call((&real::testt): uintptr: u16);
};