git @ Cat's Eye Technologies SixtyPical / master eg / c64 / joystick-demo.60p
master

Tree @master (Download .tar.gz)

joystick-demo.60p @masterraw · history · blame

include "joystick.60p"

word screen @ 1024

define main routine
  inputs joy2
  outputs delta
  trashes a, x, z, n, screen
{
    repeat {
        call read_stick
        copy delta, screen
        ld a, 1
    } until z
}