Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@89 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
aaron 2017-05-18 10:19:06 +00:00
parent 4cd3661833
commit 5389f4e2b0
2 changed files with 1 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/drivers/isr33.pas
View File

@ -33,7 +33,7 @@ var
begin begin
b:= inb($60); b:= inb($60);
console.writehexln(b); //console.writehexln(b);
for i:=0 to MAX_HOOKS-1 do begin for i:=0 to MAX_HOOKS-1 do begin
if uint32(Hooks[i]) <> 0 then begin if uint32(Hooks[i]) <> 0 then begin
Hooks[i](void(b)); Hooks[i](void(b));

42
src/keyboard.pas
View File

@ -1,42 +0,0 @@
{ ************************************************
* DEPRECATED
************************************************
* Asuro
* Unit: keyboard
* Description: Basic Keyboard Polling
************************************************
* Author: K Morris
* Contributors:
************************************************ }
unit keyboard;
{$ASMMODE intel}
interface
uses
util;
function get_scancode() : uint8;
implementation
function get_scancode() : uint8; [public, alias: 'get_scancode'];
var
c : uint8;
begin
c:= 0;
while true do begin
if inb($60) <> c then begin
c:= inb($60);
if c > 0 then begin
get_scancode:= c;
exit;
end;
end;
end;
end;
end.