ti84: fix a-lock debouncing bug
Yup, it was a deja vu. I remember now.
Tento commit je obsažen v:
rodič
06a4674317
revize
a6aba40327
2
blk/569
2
blk/569
@ -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-
|
||||
|
3
blk/570
3
blk/570
@ -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! ;
|
||||
|
Načítá se…
Odkázat v novém úkolu
Zablokovat Uživatele