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@47 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
aaron 2017-05-17 12:49:23 +00:00
parent 57d13fb19f
commit 807397dcfc
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/drivers/isr32.pas
View File

@ -20,7 +20,7 @@ implementation
procedure Main; interrupt; //IRQ0, called every 55ms
begin
CLI;
if(proc_ptr <> nil) then begin
if(procedure_ptr <> nil) then begin
procedure_ptr();
end;
outb($0020, $20);

10
src/drivers/isr33.pas
View File

@ -7,9 +7,11 @@ uses
console,
IDT;
type
pp_int : procedure(byte);
var
last_key : byte;
//func pointer to active application
procedure_ptr : pp_int = nil;
procedure register();
@ -18,7 +20,9 @@ implementation
procedure Main; interrupt; //IRQ1, Keyboard Interrupt
begin
CLI;
last_key = inb($60);
if(procedure_ptr <> nil) tehn begin
procedure_ptr(inb($60));
end;
outb($0020, $20);
end;