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@93 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
aaron 2017-05-18 12:57:03 +00:00
parent 736212b77e
commit 2dd151913b
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/drivers/keyboard.pas
View File

@ -26,8 +26,8 @@ type
PKeyInfo = ^TKeyInfo; PKeyInfo = ^TKeyInfo;
var var
key_matrix : array [0..256] of TKeyInfo; key_matrix : array [1..256] of TKeyInfo;
key_buffer : TkeyInfo; key_buffer : array[1..128] of TkeyInfo;
procedure init(); procedure init();
@ -120,8 +120,14 @@ end;
procedure callback(scan_code : void); procedure callback(scan_code : void);
begin begin
key_buffer := key_matrix[integer(scan_code)]; if key_matrix[uint8(scan_code)] then begin
key_buffer := key_matrix[uint8(scan_code)];
end;
console.writechar(char(key_buffer.key_code)); console.writechar(char(key_buffer.key_code));
end; end;
procedure buffer_push();
begin
end;
end. end.