blob: 6aa53b425b92e731ae59b0cd97545208b82966e7 [file] [log] [blame]
adamdunkels942aabf2003-04-09 00:31:13 +00001
2;---------------------------------------------------------------------
adamdunkelsc3f548b2003-04-25 08:43:17 +00003 ;; The 1351 mouse code was taken from the CC65 libraries,
4 ;; written by Ullrich von Bassewitz
5;---------------------------------------------------------------------
adamdunkels942aabf2003-04-09 00:31:13 +00006
adamdunkelsb31fe572003-04-24 17:08:51 +00007 .macpack generic
8
adamdunkels942aabf2003-04-09 00:31:13 +00009 .import _ctk_mouse_joyx, _ctk_mouse_joyy
10 .import _ctk_mouse_firebutton
11 .export _ctk_mouse_asm_irq
adamdunkels6b828fb2003-08-09 13:13:24 +000012 .import _ctk_mouse_joy, _ctk_mouse_1351
adamdunkels942aabf2003-04-09 00:31:13 +000013;---------------------------------------------------------------------
adamdunkelsb31fe572003-04-24 17:08:51 +000014
adamdunkels942aabf2003-04-09 00:31:13 +000015;---------------------------------------------------------------------
16.code
adamdunkelsb31fe572003-04-24 17:08:51 +000017
adamdunkelsb31fe572003-04-24 17:08:51 +000018;---------------------------------------------------------------------
19_ctk_mouse_asm_irq:
adamdunkels6b828fb2003-08-09 13:13:24 +000020 lda #0
adamdunkelsa9b51fe2003-08-06 23:58:03 +000021 sta _ctk_mouse_firebutton
adamdunkelsb31fe572003-04-24 17:08:51 +000022
adamdunkels6b828fb2003-08-09 13:13:24 +000023 jsr _ctk_mouse_joy
24 ;; jsr_ctk_mouse_1351
25
26 ; lda _ctk_mouse_joybutton
27 ; ora _ctk_mouse_1351button
28 ; sta _ctk_mouse_firebutton
29
adamdunkels942aabf2003-04-09 00:31:13 +000030 lda _ctk_mouse_joyy
31 clc
adamdunkels9e5028e2003-04-09 09:02:05 +000032 adc #$32
adamdunkels942aabf2003-04-09 00:31:13 +000033 sta $d001
adamdunkels9e5028e2003-04-09 09:02:05 +000034 sta $d003
adamdunkels942aabf2003-04-09 00:31:13 +000035
36 lda _ctk_mouse_joyx
37 clc
38 adc #$18
39 sta $d000
adamdunkels9e5028e2003-04-09 09:02:05 +000040 sta $d002
adamdunkels942aabf2003-04-09 00:31:13 +000041 lda #0
42 adc _ctk_mouse_joyx+1
43 and #1
adamdunkelse6f14d62003-04-11 20:24:08 +000044 beq :+
45 lda #3
46:
adamdunkels942aabf2003-04-09 00:31:13 +000047 sta $d010
48 jmp $ea31