Added delay to print.

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

src/console.pas

@@ -371,6 +371,7 @@ begin
      end;
      Console_Cursor.X:= 0;
      console._update_cursor;
+     psleep(500);
 end;
 
 procedure _newline(); [public, alias: '_console_newline'];

src/gdt.pas

@@ -11,6 +11,9 @@ unit gdt;
 
 interface
 
+uses
+    console;
+
 type
     TGDT_Entry = bitpacked record
         limit_low   : uint16;
@@ -58,10 +61,14 @@ begin
     gdt_entries[Gate_Number].limit_low   := (Limit AND $FFFF);
     gdt_entries[Gate_Number].granularity := ((Limit SHR 16) AND $0F) OR (Granularity AND $F0);
     gdt_entries[Gate_Number].access      := Access;    
+    console.writestring('GDT: GATE ');
+    console.writeint(Gate_Number);
+    console.writestringln(' SET.');
 end;
 
 procedure init();
 begin
+    console.writestringln('GDT: INIT START.');
     gdt_pointer.limit := (sizeof(TGDT_Entry) * 5) - 1;
     gdt_pointer.base  := uint32(@gdt_entries);
     set_gate($00, $00, $00,       $00, $00);
@@ -69,7 +76,9 @@ begin
     set_gate($02, $00, $FFFFFFFF, $92, $CF);
     set_gate($03, $00, $FFFFFFFF, $FA, $CF);
     set_gate($04, $00, $FFFFFFFF, $F2, $CF);
-    flush_gdt(uint32(@gdt_pointer))
+    console.writestringln('GDT: FLUSH.');
+    flush_gdt(uint32(@gdt_pointer));
+    console.writestringln('GDT: INIT END.');
 end;
 
 end.

src/idt.pas

@@ -12,7 +12,7 @@ unit idt;
 interface
 
 uses
-    util;
+    util, console;
 
 const
      ISR_RING_0 = $8E;
@@ -52,6 +52,9 @@ begin
     IDT_Entries[Number].selector:= Selector;
     IDT_Entries[Number].flags:= Flags;
     IDT_Entries[Number].always_0:= $00;
+    console.writestring('IDT: GATE ');
+    console.writeint(Number);
+    console.writestringln(' SET.');
 end;
 
 procedure load(idt_pointer : uint32); assembler; nostackframe;
@@ -62,10 +65,14 @@ end;
 
 procedure init();
 begin
+    console.writestringln('IDT: INIT START.');
     IDT_Pointer.limit:= (sizeof(TIDT_Entry) * 256) - 1;
     IDT_Pointer.base:= uint32(@IDT_Entries);
+    console.writestringln('IDT: CLEAR.');
     util.memset(uint32(@IDT_Entries), 0, sizeof(TIDT_Entry) * 256);
+    console.writestringln('IDT: LOAD.');
     load(uint32(@IDT_Pointer));
+    console.writestringln('IDT: INIT END.');
 end;
 
 end.

src/irq.pas

@@ -11,7 +11,7 @@ unit irq;
 
 interface
 
-uses util;
+uses util, console;
 
 procedure init();
 
@@ -19,6 +19,7 @@ implementation
 
 procedure init();
 begin
+    console.writestringln('IRQ: INIT START.');
     outb($20, $11);
     outb($A0, $11);
     outb($21, $20);
@@ -29,6 +30,7 @@ begin
     outb($A1, $01);
     outb($21, $00);
     outb($A1, $00);
+    console.writestringln('IRQ: INIT END.');
 end;
 
 end.

src/isr.pas

@@ -12,6 +12,7 @@ unit isr;
 interface
 
 uses
+    Console,
     ISR0,  ISR1,  ISR2,  ISR3,  ISR4,  ISR5,  ISR6,  ISR7,  ISR8, ISR9, 
     ISR10, ISR11, ISR12, ISR13, ISR14, ISR15, ISR16, ISR17, ISR18, 
     ISR32, ISR33,
@@ -23,6 +24,7 @@ implementation
 
 procedure init();
 begin
+    console.writestringln('ISR: INIT START.');
     ISR0.register();  // Divide-By-Zero
     ISR1.register();  // Debug
     ISR2.register();  // Non-Maskable Inturrupt
@@ -46,6 +48,7 @@ begin
     ISR32.register(); // 55ms Timer
     ISR33.register(); // Keyboard
     ISR40.register(); // 1024/s Timer
+    console.writestringln('ISR: INIT END.');
 end;
 
 end.

src/kernel.pas

@@ -28,26 +28,34 @@ var
 begin
      mbi:= mbinfo;
      mbm:= mbmagic;
-     gdt.init();
-     idt.init();
-     isr.init();
-     irq.init();
      console.init();
+
      console.writestringln('Booting Asuro...');
+
      if (mbm <> MULTIBOOT_BOOTLOADER_MAGIC) then begin
         console.setdefaultattribute(console.combinecolors(Red, Black));
         console.writestringln('Multiboot Compliant Boot-Loader Needed!');
         console.writestringln('HALTING');
         util.halt_and_catch_fire;
      end;
-     console.clear();
-     console.writestring('If this reads "0x8" then we have a GDT: ');
+
+     gdt.init();
+     idt.init();
+     isr.init();
+     irq.init();
+
      asm
         MOV dds, CS
      end;
-     console.setdefaultattribute(console.combinecolors(Red, Black));
-     if dds = $08 then console.setdefaultattribute(console.combinecolors(Green, Black));
-     console.writehexln(dds);
+
+     if dds = $08 then begin
+        console.setdefaultattribute(console.combinecolors(Green, Black));
+        console.writestringln('GDT: LOAD SUCCESS.');
+     end else begin
+        console.setdefaultattribute(console.combinecolors(Red, Black));
+        console.writestringln('GDT: LOAD FAIL.');
+     end;
+     console.writestringln('');
      console.setdefaultattribute(console.combinecolors(Green, Black));
      console.writestringln('Asuro Booted Correctly!');
      console.writestringln('');

src/util.pas

@@ -26,6 +26,7 @@ function inb(port : uint16) : uint8;
 function inw(port : uint16) : uint16;
 function inl(port : uint16) : uint32;
 procedure memset(location : uint32; value : uint8; size : uint32);
+procedure psleep(t : uint16);
 
 implementation
 
@@ -49,6 +50,18 @@ begin
      switchendian:= (lo(b) SHL 4) OR hi(b);
 end;
 
+procedure psleep(t : uint16);
+var
+    i : uint32;
+    t1, t2 : uint32;
+
+begin
+    for i:=0 to t*t*t do begin
+        t1:=i;
+        t2:=t1+4444+i;
+    end;
+end;
+
 procedure outl(port : uint16; val : uint32); [public, alias: 'util_outl'];
 begin
      asm