pad.a65 450 B

12345678910111213141516171819202122232425262728293031323334
  1. read_pad:
  2. php
  3. rep #$30 : .xl : .al
  4. read_pad1
  5. ldx pad1mem ;byetUDLRaxlriiii
  6. lda $4218
  7. sta pad1mem
  8. and #$0f00
  9. bne read_pad1_count
  10. stz pad1delay
  11. read_pad1_cont1
  12. txa
  13. eor pad1mem
  14. and pad1mem
  15. sta pad1trig
  16. lda #$0001
  17. ; lda #$0010
  18. cmp pad1delay
  19. bne read_pad1_cont2
  20. stz pad1mem
  21. lda #$0000
  22. ; lda #$000d
  23. sta pad1delay
  24. read_pad1_cont2
  25. ;lda $4218
  26. ;sta pad1trig
  27. plp
  28. rts
  29. read_pad1_count
  30. lda pad1delay
  31. inc
  32. sta pad1delay
  33. bra read_pad1_cont1