IRQ Stuff
git-svn-id: https://spexeah.com:8443/svn/Asuro@66 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
@@ -28,11 +28,12 @@ implementation
|
||||
|
||||
procedure Main; interrupt; //IRQ0, called every 55ms
|
||||
begin
|
||||
CLI;
|
||||
//CLI;
|
||||
console.writestringln('helo1');
|
||||
if(procedure_ptr <> nil) then begin
|
||||
procedure_ptr();
|
||||
end;
|
||||
outb($0020, $20);
|
||||
outb($20, $20);
|
||||
end;
|
||||
|
||||
procedure register();
|
||||
|
@@ -28,12 +28,12 @@ implementation
|
||||
|
||||
procedure Main; interrupt; //IRQ1, Keyboard Interrupt
|
||||
begin
|
||||
CLI;
|
||||
//CLI;
|
||||
console.writestringln('helo2');
|
||||
if(procedure_ptr <> nil) then begin
|
||||
procedure_ptr(inb($60));
|
||||
end;
|
||||
console.writestringln('helo');
|
||||
outb($0020, $20);
|
||||
outb($20, $20);
|
||||
end;
|
||||
|
||||
procedure register();
|
||||
|
@@ -1,13 +1,13 @@
|
||||
{ ************************************************
|
||||
* Asuro
|
||||
* Unit: Drivers/isr32
|
||||
* Unit: Drivers/isr40
|
||||
* Description: 1024/s Timer interrupt
|
||||
************************************************
|
||||
* Author: Aaron Hance
|
||||
* Contributors:
|
||||
************************************************ }
|
||||
|
||||
unit isr49;
|
||||
unit isr40;
|
||||
|
||||
interface
|
||||
|
||||
@@ -28,11 +28,12 @@ implementation
|
||||
|
||||
procedure Main; interrupt; //IRQ0, called every 55ms
|
||||
begin
|
||||
CLI;
|
||||
//CLI;
|
||||
console.writestringln('helo3');
|
||||
if(procedure_ptr <> nil) then begin
|
||||
procedure_ptr();
|
||||
end;
|
||||
outb($0020, $20);
|
||||
outb($20, $20);
|
||||
end;
|
||||
|
||||
procedure register();
|
Reference in New Issue
Block a user