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

10
src/drivers/isr33.pas
View File

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