Moved types to system.pas

Added first ISR (ISR0).

git-svn-id: https://spexeah.com:8443/svn/Asuro@37 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/isr.pas

@@ -0,0 +1,31 @@
+unit isr;
+
+interface
+
+uses
+    idt,
+    console,
+    util;
+
+procedure init();
+
+implementation
+
+procedure CLI(); assembler; nostackframe;
+asm
+    CLI
+end;
+
+procedure isr0(); interrupt;
+begin
+    CLI;
+    console.writestringln('Divide by Zero Exception.');
+    util.halt_and_catch_fire;
+end;
+
+procedure init();
+begin
+    idt.set_gate(0, uint32(@isr0), $08, $8E);
+end;
+
+end.