summaryrefslogtreecommitdiff
path: root/main.ha
diff options
context:
space:
mode:
Diffstat (limited to 'main.ha')
-rw-r--r--main.ha22
1 files changed, 22 insertions, 0 deletions
diff --git a/main.ha b/main.ha
new file mode 100644
index 0000000..edd4607
--- /dev/null
+++ b/main.ha
@@ -0,0 +1,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);
+};