dsds

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

src/isr.pas

@@ -16,7 +16,7 @@ uses
     ISR0,  ISR1,  ISR2,  ISR3,  ISR4,  ISR5,  ISR6,  ISR7,  ISR8, ISR9, 
     ISR10, ISR11, ISR12, ISR13, ISR14, ISR15, ISR16, ISR17, ISR18, 
     ISR32, ISR33,
-    ISR40;   
+    ISR40, ISR45;   
 
 procedure init();
 
@@ -48,6 +48,7 @@ begin
     ISR32.register(); // 55ms Timer
     ISR33.register(); // Keyboard
     ISR40.register(); // 1024/s Timer
+    ISR45.register(); // Mouse
     console.writestringln('ISR: INIT END.');
 end;
 

src/isr/isr32.pas

@@ -29,9 +29,14 @@ var
 procedure Main; interrupt; //IRQ0, 1024.19hz aprox
 var
     i : integer;
+    regs : PRegisters;
 
 begin
     CLI;
+    asm
+        MOV EAX, EBP
+        MOV Regs, EAX
+    end;
     for i:=0 to MAX_HOOKS-1 do begin
         if uint32(Hooks[i]) <> 0 then begin 
             Hooks[i](nil);

src/isr/isr46.pas

@@ -41,7 +41,7 @@ end;
 procedure register();
 begin
     memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
-    IDT.set_gate(18, uint32(@Main), $08, ISR_RING_0);
+    IDT.set_gate(46, uint32(@Main), $08, ISR_RING_0);
 end;
 
 procedure hook(hook_method : uint32);

src/system.pas

@@ -65,6 +65,11 @@ type
     UBit28 = 0..(1 shl 28) - 1;
     UBit30 = 0..(1 shl 30) - 1;
 
+    TBitMask = bitpacked record
+      b7,b6,b5,b4,b3,b2,b1,b0 : Boolean;
+    end;
+    PBitMask = ^TBitMask;
+
 implementation
 
 end.