1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:38:05 +11:00

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
1+ DUP 7 = IF DROP 0 THEN ( inc gid )
1 OVER LSHIFT 0xff -^ ( group dmask ) _get
DUP 0xff = NOT UNTIL
DUP 0xff = NOT UNTIL _wait
( gid dmask )
0xff XOR ( dpos ) 0 ( dindex )
BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-

View File

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