From a6aba403278725dde5e0fb6fa10843949612a557 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 10 May 2020 11:26:58 -0400
Subject: [PATCH] ti84: fix a-lock debouncing bug

Yup, it was a deja vu. I remember now.
---
 blk/569 | 2 +-
 blk/570 | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/blk/569 b/blk/569
index 5cc514f..c629f23 100644
--- a/blk/569
+++ b/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-
diff --git a/blk/570 b/blk/570
index a71f0ff..cb25da7 100644
--- a/blk/570
+++ b/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! ;