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

Browse Source
This commit is contained in:
aaron 2017-05-18 12:39:45 +00:00
parent 3a394ff74c
commit 736212b77e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/drivers/keyboard.pas
View File

@ -18,7 +18,7 @@ uses
type type
TKeyInfo = bitpacked record TKeyInfo = packed record
key_code : byte; key_code : byte;
pressed : boolean; pressed : boolean;
end; end;
@ -37,9 +37,9 @@ implementation
procedure init(); procedure init();
begin begin
console.writestring('b4');
memset(uint32(@key_matrix[0]), 0, sizeof(TKeyInfo)*256); memset(uint32(@key_matrix[0]), 0, sizeof(TKeyInfo)*256);
console.writestring('aft'); memset(uint32(@key_buffer), 0, sizeof(TKeyInfo));
key_matrix[1].key_code := $1B; key_matrix[1].key_code := $1B;
key_matrix[2].key_code := $31; key_matrix[2].key_code := $31;
key_matrix[3].key_code := $32; key_matrix[3].key_code := $32;
@ -120,7 +120,8 @@ end;
procedure callback(scan_code : void); procedure callback(scan_code : void);
begin begin
key_buffer := key_matrix[scan_code^]; key_buffer := key_matrix[integer(scan_code)];
console.writechar(char(key_buffer.key_code));
end; end;
end. end.