@MSGID: 1@dont-email.me> 7eaf0d65
@REPLY:
<c2b00acc-05b3-4f5f-af37-38406de5b2abn@googlegroups.com> dbb304cb
@REPLYADDR dxf <dxforth@gmail.com>
@REPLYTO 2:5075/128 dxf
@CHRS: CP866 2
@RFC: 1 0
@RFC-Message-ID: 1@dont-email.me>
@RFC-References:
<c2b00acc-05b3-4f5f-af37-38406de5b2abn@googlegroups.com>
@TZUTC: 1000
@PID: Mozilla Thunderbird
@TID: FIDOGATE-5.12-ge4e8b94
On 30/09/2023 7:24 am, M. Simon wrote:
 > The SR Latch is well known for doing this for an SPDT. I make
it work for the much more common and single input wire SPST. 
> 
> Eliminate SPST Debounce Delay with an SR Latch
> https://spacetimepro.blogspot.com/2023/09/switch-debouncer.html

Didn`t look into the logic but the redundant jumps were easy enough
to eliminate.

 : SWITCH-STATE? ( what is the current state of the switch ? "1"
if open or opening "0" if closed or closing )

Switch-State @                     (  - SW-State )
Switch-Debouncing?                 (  - SW-State  t/f )
IF EXIT THEN
Switch-Port @ Switch-Mask AND DUP Switch-In ! (  - SW-State SW-Port )
10uSec-Wait
Switch-Port @ Switch-Mask AND   (  - SW-State SW-Port  SW-Port )
10uSec-Wait
Switch-Port @ Switch-Mask AND   (  - SW-State SW-Port  SW-Port  SW-Port )
   Three=?                      (  - SW-State t/f )
   IF
      Switch-In @
      =
      IF
         Switch-State @  EXIT
      THEN
      Switch-In @ DUP Switch-State !
      Start-Debouncing
   THEN
;

--- Mozilla Thunderbird
 * Origin: A noiseless patient Spider (2:5075/128)
SEEN-BY: 5001/100 5005/49 5015/255 5019/40 5020/715
848 1042 4441 12000
SEEN-BY: 5030/49 1081 5058/104 5075/128
@PATH: 5075/128 5020/1042 4441