git-svn-id: https://spexeah.com:8443/svn/Asuro@49 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
96aaad4e6e
commit
f1c1f6931b
@ -8,7 +8,7 @@ uses
|
||||
IDT;
|
||||
|
||||
type
|
||||
pp_void : procedure();
|
||||
pp_void = procedure();
|
||||
|
||||
var
|
||||
procedure_ptr : pp_void = nil;
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user