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

Browse Source
This commit is contained in:
aaron 2017-05-18 13:53:09 +00:00
parent d4e567c67c
commit ca9537f89f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/drivers/keyboard.pas
View File

@ -30,7 +30,7 @@ var
key_buffer : array[1..128] of TkeyInfo; key_buffer : array[1..128] of TkeyInfo;
procedure init(); procedure init(keyboard_layout : pchar);
procedure callback(scan_code : void); procedure callback(scan_code : void);
procedure buffer_push_sc(scan_code : uInt8); procedure buffer_push_sc(scan_code : uInt8);
@ -44,8 +44,8 @@ begin
memset(uint32(@key_matrix[0]), 0, sizeof(TKeyInfo)*256); memset(uint32(@key_matrix[0]), 0, sizeof(TKeyInfo)*256);
memset(uint32(@key_buffer), 0, sizeof(TKeyInfo)*128); memset(uint32(@key_buffer), 0, sizeof(TKeyInfo)*128);
if(keyboard_layout = 'USA') then lang_USA(); if(keyboard_layout = pchar('USA')) then lang_USA();
if(keyboard_layout = 'UK') then lang_UK(); if(keyboard_layout = pchar('UK')) then lang_UK();
isr33.hook(uint32(@callback)); isr33.hook(uint32(@callback));