Initial revision
diff --git a/contiki-cpc/contiki-cpc/ctk/unused/ctk-mouse-asm.S b/contiki-cpc/contiki-cpc/ctk/unused/ctk-mouse-asm.S
new file mode 100644
index 0000000..6aa53b4
--- /dev/null
+++ b/contiki-cpc/contiki-cpc/ctk/unused/ctk-mouse-asm.S
@@ -0,0 +1,48 @@
+
+;---------------------------------------------------------------------
+ ;; 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