izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ti/kbd: make Alpha and 2nd toggle

Browse Source 
Previously, when being in A-Lock mode, activating Alpha wouldn't make
us go temporarily in digit mode, as is expected.
This commit is contained in:
Virgil Dupras 2019-11-09 13:12:36 -05:00
parent 67f689260f
commit 418af5f626
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
kernel/ti/kbd.asm
View File

@ -31,7 +31,7 @@ kbdInit:
; waitForKey only go through after two actual key presses (otherwise, the user ; waitForKey only go through after two actual key presses (otherwise, the user
; doesn't have enough time to de-press the button before the next waitForKey ; doesn't have enough time to de-press the button before the next waitForKey
; routine registers the same key press as a second one). ; routine registers the same key press as a second one).
; ;
; Sending 0xff to the port resets the keyboard, and then we have to send groups ; Sending 0xff to the port resets the keyboard, and then we have to send groups
; we want to "listen" to, with a 0 in the group bit. Thus, to know if *any* key ; we want to "listen" to, with a 0 in the group bit. Thus, to know if *any* key
; is pressed, we send 0xff to reset the keypad, then 0x00 to select all groups, ; is pressed, we send 0xff to reset the keypad, then 0x00 to select all groups,
@ -90,7 +90,10 @@ kbdGetC:
jr z, .handle2nd jr z, .handle2nd
jp .loop jp .loop
.handleAlpha: .handleAlpha:
set 0, c ; Toggle Alpha bit in C. Also, if 2ND bit is set, toggle A-Lock mod.
ld a, 1 ; mask for Alpha
xor c
ld c, a
bit 1, c ; 2nd set? bit 1, c ; 2nd set?
jp z, .loop ; unset? loop jp z, .loop ; unset? loop
; we've just hit Alpha with 2nd set. Toggle A-Lock and set Alpha to ; we've just hit Alpha with 2nd set. Toggle A-Lock and set Alpha to
@ -101,9 +104,12 @@ kbdGetC:
ld c, a ld c, a
jp .loop jp .loop
.handle2nd: .handle2nd:
set 1, c ; toggle 2ND bit in C
ld a, 2 ; mask for 2ND
xor c
ld c, a
jp .loop jp .loop
.end: .end:
pop hl pop hl
pop bc pop bc