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:
parent
96dfb38124
commit
6a6eea6840
BIN
bin/kernel.bin
BIN
bin/kernel.bin
Binary file not shown.
Binary file not shown.
BIN
lib/libpkernel.a
BIN
lib/libpkernel.a
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();
|
||||||
|
Loading…
x
Reference in New Issue
Block a user