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

Browse Source
This commit is contained in:
aaron 2017-05-18 13:16:51 +00:00
parent 2dd151913b
commit 2d57e08d8a
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/drivers/keyboard.pas
View File

@ -32,6 +32,7 @@ var
procedure init();
procedure callback(scan_code : void);
procedure buffer_push_sc(scan_code : uInt8);
implementation
@ -118,16 +119,23 @@ begin
end;
procedure callback(scan_code : void);
begin
if key_matrix[uint8(scan_code)] then begin
key_buffer := key_matrix[uint8(scan_code)];
if key_matrix[uint8(scan_code)].key_code <> 0 then begin
buffer_push_sc(uint8(scan_code));
end;
console.writechar(char(key_buffer.key_code));
console.writechar(char(key_buffer[0].key_code));
end;
procedure buffer_push();
procedure buffer_push_sc(scan_code : uInt8);
var
i : uInt32;
begin
for i:=127 downto 2 do begin
key_buffer[i] = key_buffer[i - 1];
end;
key_buffer[0] = key_matrix[scan_code];
end;
end.