All the things.
Keyboard works now. git-svn-id: https://spexeah.com:8443/svn/Asuro@70 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
1 parent
96dfb38124
commit
6a6eea6840
7 files changed
+5
-9
No files matched your search
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -28,13 +28,10 @@ implementation
|
|||||||
|
|
||||||
procedure Main; interrupt; //IRQ0, called every 55ms
|
procedure Main; interrupt; //IRQ0, called every 55ms
|
||||||
begin
|
begin
|
||||||
CLI;
|
|
||||||
console.writestringln('helo1');
|
|
||||||
if(procedure_ptr <> nil) then begin
|
if(procedure_ptr <> nil) then begin
|
||||||
procedure_ptr();
|
procedure_ptr();
|
||||||
end;
|
end;
|
||||||
outb($20, $20);
|
outb($20, $20);
|
||||||
STI;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure register();
|
procedure register();
|
||||||
|
|||||||
@@ -28,13 +28,13 @@ implementation
|
|||||||
|
|
||||||
procedure Main; interrupt; //IRQ1, Keyboard Interrupt
|
procedure Main; interrupt; //IRQ1, Keyboard Interrupt
|
||||||
begin
|
begin
|
||||||
CLI;
|
console.writestring('Keyboard: ');
|
||||||
console.writestringln('helo2');
|
console.writehexln(inb($60));
|
||||||
if(procedure_ptr <> nil) then begin
|
if(procedure_ptr <> nil) then begin
|
||||||
procedure_ptr(inb($60));
|
procedure_ptr(inb($60));
|
||||||
end;
|
end;
|
||||||
|
outb($A0, $20);
|
||||||
outb($20, $20);
|
outb($20, $20);
|
||||||
STI;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure register();
|
procedure register();
|
||||||
|
|||||||
@@ -26,15 +26,14 @@ procedure register();
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
procedure Main; interrupt; //IRQ0, called every 55ms
|
procedure Main; interrupt; //IRQ0, called 1024 times a second.
|
||||||
begin
|
begin
|
||||||
CLI;
|
|
||||||
console.writestringln('helo3');
|
console.writestringln('helo3');
|
||||||
if(procedure_ptr <> nil) then begin
|
if(procedure_ptr <> nil) then begin
|
||||||
procedure_ptr();
|
procedure_ptr();
|
||||||
end;
|
end;
|
||||||
|
outb($A0, $20);
|
||||||
outb($20, $20);
|
outb($20, $20);
|
||||||
STI;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure register();
|
procedure register();
|
||||||
|
|||||||
Reference in new issue
Block a user