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

Browse Source
This commit is contained in:
aaron 2017-05-17 13:04:37 +00:00
parent 96aaad4e6e
commit f1c1f6931b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/drivers/isr32.pas
View File

@ -8,7 +8,7 @@ uses
IDT; IDT;
type type
pp_void : procedure(); pp_void = procedure();
var var
procedure_ptr : pp_void = nil; procedure_ptr : pp_void = nil;

3
src/drivers/isr33.pas
View File

@ -8,7 +8,7 @@ uses
IDT; IDT;
type type
pp_byte : procedure(byte); pp_byte = procedure(key_code : byte);
var var
procedure_ptr : pp_byte = nil; procedure_ptr : pp_byte = nil;
@ -23,6 +23,7 @@ begin
if(procedure_ptr <> nil) then begin if(procedure_ptr <> nil) then begin
procedure_ptr(inb($60)); procedure_ptr(inb($60));
end; end;
console.writechar(inb($60));
outb($0020, $20); outb($0020, $20);
end; end;