ti84: fix a-lock debouncing bug

Yup, it was a deja vu. I remember now.
This commit is contained in:
Virgil Dupras 2020-05-10 11:26:58 -04:00
parent 06a4674317
commit a6aba40327
2 changed files with 2 additions and 3 deletions

View File

@ -4,7 +4,7 @@
DROP DROP
1+ DUP 7 = IF DROP 0 THEN ( inc gid ) 1+ DUP 7 = IF DROP 0 THEN ( inc gid )
1 OVER LSHIFT 0xff -^ ( group dmask ) _get 1 OVER LSHIFT 0xff -^ ( group dmask ) _get
DUP 0xff = NOT UNTIL DUP 0xff = NOT UNTIL _wait
( gid dmask ) ( gid dmask )
0xff XOR ( dpos ) 0 ( dindex ) 0xff XOR ( dpos ) 0 ( dindex )
BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1- BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-

View File

@ -7,6 +7,5 @@
IF _tbl^ _2nd@ IF _alock^ THEN THEN IF _tbl^ _2nd@ IF _alock^ THEN THEN
SWAP 0x81 = _2nd! SWAP 0x81 = _2nd!
_gti + C@ _gti + C@
DUP 0 0x80 >< UNTIL ( loop if not in range ) DUP 0 0x80 >< UNTIL ( loop if not in range ) ;
_wait ;
: KBD$ 0 [ KBD_MEM LITN ] C! ; : KBD$ 0 [ KBD_MEM LITN ] C! ;