Added standard ISRs.

Added Header Comments to units.

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

src/bios_data_area.pas

@@ -1,3 +1,13 @@
+{ ************************************************
+  * Asuro
+  * Unit: bios_data_area
+  * Description: Data Structures controlled by
+  *              the BIOS.
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit bios_data_area;
 
 interface

src/console.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: console
+  * Description: Basic Console Output
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit console;
 
 interface

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.

src/gdt.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: GDT
+  * Description: GDT Structure and Implementation
+  ************************************************
+  * Author: K Morris
+  * Contributors: A Hance
+  ************************************************ }
+
 unit gdt;
 
 interface

src/idt.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: IDT
+  * Description: IDT Structure and Implementation
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit idt;
 
 interface

src/isr.pas

@@ -1,10 +1,21 @@
+{ ************************************************
+  * Asuro
+  * Unit: isr
+  * Description: Stub for ISR Driver Initialization
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit isr;
 
 interface
 
 uses
-    ISR0,
+    ISR0,  ISR1,  ISR2,  ISR3,  ISR4,  ISR5,  ISR6,  ISR7,  ISR8, ISR9, 
-    ISR1;
+    ISR10, ISR11, ISR12, ISR13, ISR14, ISR15, ISR16, ISR17, ISR18;
+
+    
 
 procedure init();
 
@@ -14,6 +25,23 @@ procedure init();
 begin
     ISR0.register();
     ISR1.register();
+    ISR2.register();
+    ISR3.register();
+    ISR4.register();
+    ISR5.register();
+    ISR6.register();
+    ISR7.register();
+    ISR8.register();
+    ISR9.register();
+    ISR10.register();
+    ISR11.register();
+    ISR12.register();
+    ISR13.register();
+    ISR14.register();
+    ISR15.register();
+    ISR16.register();
+    ISR17.register();
+    ISR18.register();
 end;
 
 end.

src/kernel.pas

@@ -47,6 +47,7 @@ begin
      console.setdefaultattribute(console.combinecolors(Red, Black));
      if dds = $08 then console.setdefaultattribute(console.combinecolors(Green, Black));
      console.writehexln(dds);
+     mbm := mbm div z;
      console.setdefaultattribute(console.combinecolors(Green, Black));
      console.writestringln('Asuro Booted Correctly!');
      console.writestringln('');
@@ -61,7 +62,6 @@ begin
      console.writeint(((mbinfo^.mem_upper + 1000) div 1024) +1);
      console.writestringln('MB');
      console.setdefaultattribute(console.combinecolors(lYellow, Black));
-     mbm := mbm div z;
      util.halt_and_catch_fire;
      {while true do begin
           c:= keyboard.get_scancode;

src/keyboard.pas

@@ -1,3 +1,14 @@
+{ ************************************************
+  *                  DEPRECATED
+  ************************************************
+  * Asuro
+  * Unit: keyboard
+  * Description: Basic Keyboard Polling
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit keyboard;
 
 {$ASMMODE intel}

src/multiboot.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: Multiboot
+  * Description: Mutliboot (GRUB) Structures.
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit multiboot;
  
 interface

src/system.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: system
+  * Description: Standard System Types
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit system;
 
 interface

src/util.pas

@@ -1,3 +1,12 @@
+{ ************************************************
+  * Asuro
+  * Unit: util
+  * Description: Utilities for data manipulation
+  ************************************************
+  * Author: K Morris
+  * Contributors: 
+  ************************************************ }
+
 unit util;
 
 {$ASMMODE intel}