git-svn-id: https://spexeah.com:8443/svn/Asuro@54 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
5390621fdd
commit
6f6d274b69
@ -1,3 +1,12 @@
|
|||||||
|
{ ************************************************
|
||||||
|
* Asuro
|
||||||
|
* Unit: Drivers/isr32
|
||||||
|
* Description: 55ms Timer interrupt
|
||||||
|
************************************************
|
||||||
|
* Author: Aaron Hance
|
||||||
|
* Contributors:
|
||||||
|
************************************************ }
|
||||||
|
|
||||||
unit isr32;
|
unit isr32;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
|
@ -1,3 +1,12 @@
|
|||||||
|
{ ************************************************
|
||||||
|
* Asuro
|
||||||
|
* Unit: Drivers/isr33
|
||||||
|
* Description: Keyboard interrupt
|
||||||
|
************************************************
|
||||||
|
* Author: Aaron Hance
|
||||||
|
* Contributors:
|
||||||
|
************************************************ }
|
||||||
|
|
||||||
unit isr33;
|
unit isr33;
|
||||||
|
|
||||||
interface
|
interface
|
||||||
@ -23,7 +32,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(char(inb($60)));
|
console.writechar(char(inb($60)));
|
||||||
outb($0020, $20);
|
outb($0020, $20);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user