mirror of
https://github.com/KarolS/millfork.git
synced 2024-11-01 05:05:32 +00:00
70 lines
1.4 KiB
Plaintext
70 lines
1.4 KiB
Plaintext
// mouse driver for Commodore 1531 mouse on Commodore 64
|
|
|
|
#if not(CBM_64) || not(WIDESCREEN)
|
|
#warn c1531 module should be only used on C64-compatible targets
|
|
#endif
|
|
|
|
import mouse
|
|
import c64_hardware
|
|
import stdlib
|
|
|
|
sbyte _c1531_calculate_delta (byte old, byte new) {
|
|
byte mouse_delta
|
|
mouse_delta = (new - old)
|
|
mouse_delta &= $3f
|
|
if mouse_delta >= $20 {
|
|
mouse_delta |= $c0
|
|
}
|
|
return mouse_delta
|
|
}
|
|
|
|
void _c1531_handle_x() {
|
|
static byte _c1531_old_pot_x
|
|
sbyte mouse_delta
|
|
byte new_pot_x
|
|
|
|
new_pot_x = sid_paddle_x >> 1
|
|
mouse_delta = _c1531_calculate_delta(_c1531_old_pot_x, new_pot_x)
|
|
_c1531_old_pot_x = new_pot_x
|
|
|
|
mouse_x += mouse_delta
|
|
mouse_x.hi &= 1
|
|
|
|
if mouse_x > 319 {
|
|
if mouse_delta > 0 {
|
|
mouse_x = 319
|
|
} else {
|
|
mouse_x = 0
|
|
}
|
|
}
|
|
}
|
|
|
|
void _c1531_handle_y() {
|
|
static byte _c1531_old_pot_y
|
|
byte new_pot_y
|
|
sbyte mouse_delta
|
|
|
|
new_pot_y = sid_paddle_y >> 1
|
|
mouse_delta = _c1531_calculate_delta(_c1531_old_pot_y, new_pot_y)
|
|
_c1531_old_pot_y = new_pot_y
|
|
mouse_y -= mouse_delta
|
|
if mouse_y > 199 {
|
|
if mouse_delta > 0 {
|
|
mouse_y = 0
|
|
} else {
|
|
mouse_y = 199
|
|
}
|
|
}
|
|
}
|
|
|
|
void c1531_mouse () {
|
|
cia1_pra = ($3f & cia1_pra) | $40
|
|
_c1531_handle_x()
|
|
_c1531_handle_y()
|
|
byte value
|
|
poke($dc03, 0)
|
|
value = peek($dc01)
|
|
mouse_rbm = (value & 1) ^ 1
|
|
if value & 16 == 0 { mouse_lbm = 1 } else { mouse_lbm = 0}
|
|
}
|