Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
aaron 2017-05-17 17:38:37 +00:00
parent f8399ecace
commit 0e67eaf2b6
2 changed files with 85 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
src/drivers/isr32.pas
View File

@ -1,7 +1,7 @@
{ ************************************************
* Asuro
* Unit: Drivers/isr32
* Description: 55ms Timer interrupt
* Description: 1024hz Timer interrupt
************************************************
* Author: Aaron Hance
* Contributors:
@ -17,21 +17,27 @@ uses
isr_types,
IDT;
//type
// pp_void = procedure();
//var
// procedure_ptr : pp_void = nil;
procedure register();
procedure hook(hook_method : uint32);
procedure unhook(hook_method : uint32);
implementation
procedure Main; interrupt; //IRQ0, called every 55ms
var
Hooks : Array[1..MAX_HOOKS] of pp_hook_method;
procedure Main; interrupt; //IRQ0, 1024.19hz aprox
var
i : integer;
begin
//if(procedure_ptr <> nil) then begin
//procedure_ptr();
//end;
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) <> 0 then begin
Hooks[i](nil);
end else begin
Hooks[i](nil);
end;
end;
outb($20, $20);
end;
@ -45,7 +51,34 @@ begin
mov al, ah
out $40, al
end;
memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS);
IDT.set_gate(32, uint32(@Main), $08, ISR_RING_0);
end;
procedure hook(hook_method : uint32);
var
i : uint32;
begin
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) = hook_method then exit;
end;
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) = 0 then begin
Hooks[i]:= pp_hook_method(hook_method);
exit;
end;
end;
end;
procedure unhook(hook_method : uint32);
var
i : uint32;
begin
for i:=0 to MAX_HOOKS-1 do begin
If uint32(Hooks[i]) = hook_method then Hooks[i]:= nil;
exit;
end;
end;
end.

53
src/drivers/isr33.pas
View File

@ -17,24 +17,27 @@ uses
isr_types,
IDT;
type
pp_byte = procedure(key_code : byte);
var
procedure_ptr : pp_byte = nil;
procedure register();
procedure hook(hook_method : uint32);
procedure unhook(hook_method : uint32);
implementation
procedure Main; interrupt; //IRQ1, Keyboard Interrupt
var
Hooks : Array[1..MAX_HOOKS] of pp_hook_method;
procedure Main(); interrupt;
var
i : integer;
begin
console.writestring('Keyboard: ');
console.writehexln(inb($60));
if(procedure_ptr <> nil) then begin
procedure_ptr(inb($60));
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) <> 0 then begin
Hooks[i](nil);
end else begin
Hooks[i](void(inb($60)));
end;
end;
outb($A0, $20);
outb($20, $20);
end;
@ -42,5 +45,31 @@ procedure register();
begin
IDT.set_gate(33, uint32(@Main), $08, ISR_RING_0);
end;
procedure hook(hook_method : uint32);
var
i : uint32;
begin
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) = hook_method then exit;
end;
for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) = 0 then begin
Hooks[i]:= pp_hook_method(hook_method);
exit;
end;
end;
end;
procedure unhook(hook_method : uint32);
var
i : uint32;
begin
for i:=0 to MAX_HOOKS-1 do begin
If uint32(Hooks[i]) = hook_method then Hooks[i]:= nil;
exit;
end;
end;
end.