Fixed IRQs(ish)+

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

src/console.pas

@@ -15,6 +15,8 @@ uses
      util, 
      bios_data_area;
 
+const DEBUG = FALSE;
+
 type
     TColor = ( Black   = $0,
                Blue    = $1,
@@ -371,7 +373,7 @@ begin
      end;
      Console_Cursor.X:= 0;
      console._update_cursor;
-     psleep(500);
+     if DEBUG then psleep(500);
 end;
 
 procedure _newline(); [public, alias: '_console_newline'];

src/drivers/isr0.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Divide by Zero Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr1.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Debug Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr10.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Bad TSS Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr11.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Segment Not Present Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr12.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Stack Fault Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr13.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('General Protection Fault.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr14.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Page Fault.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr15.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Unknown Interrupt Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr16.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Coprocessor Fault Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr17.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Alignment Check Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr18.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Machine Check Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr2.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('NMI Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr3.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('Breakpoint Exception');
     util.halt_and_catch_fire;
 end;

src/drivers/isr32.pas

@@ -28,12 +28,13 @@ implementation
 
 procedure Main; interrupt; //IRQ0, called every 55ms
 begin
-    //CLI;
+    CLI;
     console.writestringln('helo1');
     if(procedure_ptr <> nil) then begin
         procedure_ptr();
     end;
     outb($20, $20);
+    STI;
 end;
 
 procedure register();

src/drivers/isr33.pas

@@ -28,12 +28,13 @@ implementation
 
 procedure Main; interrupt; //IRQ1, Keyboard Interrupt
 begin
-    //CLI;
+    CLI;
     console.writestringln('helo2');
     if(procedure_ptr <> nil) then begin
         procedure_ptr(inb($60));
     end;
     outb($20, $20);
+    STI;
 end;
 
 procedure register();

src/drivers/isr4.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('IDO Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr40.pas

@@ -28,12 +28,13 @@ implementation
 
 procedure Main; interrupt; //IRQ0, called every 55ms
 begin
-    //CLI;
+    CLI;
     console.writestringln('helo3');
     if(procedure_ptr <> nil) then begin
         procedure_ptr();
     end;
     outb($20, $20);
+    STI;
 end;
 
 procedure register();

src/drivers/isr5.pas

@@ -23,6 +23,7 @@ implementation
 
 procedure Main(); interrupt;
 begin
+    CLI;
     console.writestringln('OOB Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr6.pas

@@ -23,8 +23,8 @@ implementation
 
 procedure Main(); interrupt;
 begin
-        console.writestringln('Invalid OPCode Exception.');
-
+    CLI;
+    console.writestringln('Invalid OPCode Exception.');
     util.halt_and_catch_fire;
 end;