pad.a65 424 B

1234567891011121314151617181920212223242526272829303132
  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 #$0010
  17. cmp pad1delay
  18. bne read_pad1_cont2
  19. stz pad1mem
  20. lda #$000d
  21. sta pad1delay
  22. read_pad1_cont2
  23. ;lda $4218
  24. ;sta pad1trig
  25. plp
  26. rts
  27. read_pad1_count
  28. lda pad1delay
  29. inc
  30. sta pad1delay
  31. bra read_pad1_cont1