fragment / INY / STY $C8

increment Y and store somewhere.
Not copyrightagble.
