From 2dd151913b97bad4c9c75b98f84924a90cbc08a8 Mon Sep 17 00:00:00 2001
From: aaron <aaron@6dbc8c32-bb84-406f-8558-d1cf31a0ab0c>
Date: Thu, 18 May 2017 12:57:03 +0000
Subject: [PATCH] git-svn-id: https://spexeah.com:8443/svn/Asuro@93
6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
---
src/drivers/keyboard.pas | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/src/drivers/keyboard.pas b/src/drivers/keyboard.pas
index 93e354cb..c895b885 100644
--- a/src/drivers/keyboard.pas
+++ b/src/drivers/keyboard.pas
@@ -26,8 +26,8 @@ type
PKeyInfo = ^TKeyInfo;
var
- key_matrix : array [0..256] of TKeyInfo;
- key_buffer : TkeyInfo;
+ key_matrix : array [1..256] of TKeyInfo;
+ key_buffer : array[1..128] of TkeyInfo;
procedure init();
@@ -120,8 +120,14 @@ end;
procedure callback(scan_code : void);
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));
end;
+procedure buffer_push();
+begin
+end;
+
end.
\ No newline at end of file