pad.a65 523 B

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