pad.a65 435 B

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