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

Browse Source
This commit is contained in:
aaron 2017-05-17 12:51:41 +00:00
parent 807397dcfc
commit 96aaad4e6e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/drivers/isr33.pas
View File

@ -8,10 +8,10 @@ uses
IDT; IDT;
type type
pp_int : procedure(byte); pp_byte : procedure(byte);
var var
procedure_ptr : pp_int = nil; procedure_ptr : pp_byte = nil;
procedure register(); procedure register();
@ -20,7 +20,7 @@ implementation
procedure Main; interrupt; //IRQ1, Keyboard Interrupt procedure Main; interrupt; //IRQ1, Keyboard Interrupt
begin begin
CLI; CLI;
if(procedure_ptr <> nil) tehn begin if(procedure_ptr <> nil) then begin
procedure_ptr(inb($60)); procedure_ptr(inb($60));
end; end;
outb($0020, $20); outb($0020, $20);