contiki/backyard/platform/c64/ctk/ctk-mouse-asm.S

49 lines
1.1 KiB
ArmAsm

;---------------------------------------------------------------------
;; The 1351 mouse code was taken from the CC65 libraries,
;; written by Ullrich von Bassewitz
;---------------------------------------------------------------------
.macpack generic
.import _ctk_mouse_joyx, _ctk_mouse_joyy
.import _ctk_mouse_firebutton
.export _ctk_mouse_asm_irq
.import _ctk_mouse_joy, _ctk_mouse_1351
;---------------------------------------------------------------------
;---------------------------------------------------------------------
.code
;---------------------------------------------------------------------
_ctk_mouse_asm_irq:
lda #0
sta _ctk_mouse_firebutton
jsr _ctk_mouse_joy
;; jsr_ctk_mouse_1351
; lda _ctk_mouse_joybutton
; ora _ctk_mouse_1351button
; sta _ctk_mouse_firebutton
lda _ctk_mouse_joyy
clc
adc #$32
sta $d001
sta $d003
lda _ctk_mouse_joyx
clc
adc #$18
sta $d000
sta $d002
lda #0
adc _ctk_mouse_joyx+1
and #1
beq :+
lda #3
:
sta $d010
jmp $ea31