git-svn-id: https://spexeah.com:8443/svn/Asuro@43 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
parent
a8095eace4
commit
a62bc4983a
@ -14,8 +14,7 @@ implementation
|
||||
procedure Main; interrupt; //IRQ0, called every 55ms
|
||||
begin
|
||||
CLI;
|
||||
|
||||
util.halt_and_catch_fire;
|
||||
outb($0020, $20);
|
||||
end;
|
||||
|
||||
procedure register();
|
||||
|
@ -7,6 +7,9 @@ uses
|
||||
console,
|
||||
IDT;
|
||||
|
||||
var
|
||||
last_key : byte;
|
||||
|
||||
procedure register();
|
||||
|
||||
implementation
|
||||
@ -14,8 +17,8 @@ implementation
|
||||
procedure Main; interrupt; //IRQ1, Keyboard Interrupt
|
||||
begin
|
||||
CLI;
|
||||
|
||||
util.halt_and_catch_fire;
|
||||
last_key = inb($60);
|
||||
outb($0020, $20);
|
||||
end;
|
||||
|
||||
procedure register();
|
||||
|
Loading…
x
Reference in New Issue
Block a user