{ ************************************************ * Asuro * Unit: Drivers/ISR46 * Description: Primary ATA IRQ ************************************************ * Author: Aaron Hance * Contributors: ************************************************ } unit ATA_ISR; interface uses util, console, isr_types, isrmanager, IDT; procedure register(); procedure hook(hook_method : uint32); procedure unhook(hook_method : uint32); implementation var Hooks : Array[1..MAX_HOOKS] of pp_hook_method; procedure Main(); interrupt; var i : integer; begin CLI; for i:=0 to MAX_HOOKS-1 do begin if uint32(Hooks[i]) <> 0 then Hooks[i](void($00000000)); end; console.writestringln('Disk Operation Complete'); end; procedure register(); begin memset(uint32(@Hooks[0]), 0, sizeof(pp_hook_method)*MAX_HOOKS); isrmanager.registerISR(76, @Main); //IDT.set_gate(76, 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.