Added standard ISRs.

Added Header Comments to units.

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

src/drivers/isr0.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR0
+  * Description: Divide-By-Zero Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit isr0;
 
 interface
@@ -5,15 +14,15 @@ interface
 uses
     util,
     console,
+    isr_types,
     IDT;
 
 procedure register();
 
 implementation
 
-procedure Main; interrupt;
+procedure Main(); interrupt;
 begin
-    CLI;
     console.writestringln('Divide by Zero Exception.');
     util.halt_and_catch_fire;
 end;

src/drivers/isr1.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR1
+  * Description: Debug Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit isr1;
 
 interface
@@ -5,16 +14,15 @@ interface
 uses
     util,
     console,
+    isr_types,
     IDT;
 
 procedure register();
 
 implementation
 
-procedure Main; interrupt;
+procedure Main(); interrupt;
 begin
-    CLI;
-    
     util.halt_and_catch_fire;
 end;
 

src/drivers/isr10.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR10
+  * Description: Bad TSS Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr10;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(10, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr11.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR11
+  * Description: Segment Not Present Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr11;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(11, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr12.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR12
+  * Description: Stack Fault Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr12;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(12, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr13.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR13
+  * Description: General Protection Fault
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr13;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(13, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr14.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR14
+  * Description: Page Fault
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr14;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(14, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr15.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR15
+  * Description: Unknown Interrupt Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr15;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(15, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr16.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR11
+  * Description: Coprocessor Fault Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr16;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(16, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr17.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR17
+  * Description: Alignment Check Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr17;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(17, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr18.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR18
+  * Description: Machine Check Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr18;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(18, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr2.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR2
+  * Description: Non-Maskable Interrupt Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr2;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(2, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr3.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR3
+  * Description: Breakpoint Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr3;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(3, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr4.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR4
+  * Description: Into Detected Overflow Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr4;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(4, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr5.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR5
+  * Description: Out of Bounds Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr5;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(5, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr6.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR6
+  * Description: Invalid OPCode Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr6;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(6, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr7.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR7
+  * Description: No Coprocessor Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr7;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(7, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr8.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR8
+  * Description: Double Fault Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr8;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(8, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr9.pas

@@ -0,0 +1,34 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/ISR9
+  * Description: Coprocessor Seg Overrun Exception
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr9;
+
+interface
+
+uses
+    util,
+    console,
+    isr_types,
+    IDT;
+
+procedure register();
+
+implementation
+
+procedure Main(); interrupt;
+begin
+    util.halt_and_catch_fire;
+end;
+
+procedure register();
+begin
+    IDT.set_gate(9, uint32(@Main), $08, ISR_RING_0);
+end;
+
+end.

src/drivers/isr_types.pas

@@ -0,0 +1,22 @@
+{ ************************************************
+  * Asuro
+  * Unit: Drivers/isr_types
+  * Description: Defines for ISRs (WIP)
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
+unit isr_types;
+
+interface
+
+type
+    ISR_REGS = record
+        ip, cs, flags, sp, ss : uint16;
+    end;
+	PISR_REGS = ^ISR_REGS;
+
+implementation
+
+end.