git-svn-id: https://spexeah.com:8443/svn/Asuro@49 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

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

View File

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

View File

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