debounce.dbg 308 B

1234567891011121314151617
  1. XDEF Debounce
  2. XREF __SEG_END_SSTACK
  3. Debounce:
  4. PSHX ;save X register
  5. LDX #1000 ;1 ms delay
  6. Loop: ;delay loop
  7. DEX
  8. BNE Loop
  9. PULX ;restore X register
  10. RTS ;go back