IRQ Stuff

git-svn-id: https://spexeah.com:8443/svn/Asuro@66 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron
2017-05-17 15:06:21 +00:00
parent 3959607fc1
commit 1c2102f023
5 changed files with 24 additions and 19 deletions

View File

@@ -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();

View File

@@ -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();

View File

@@ -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();