
;---------------------------------------------------------------------
	;; 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