Added library reference joy_libref to JOY interface.

2013-06-01 00:36:08 +02:00
parent 619b215260
commit 23650cb946
34 changed files with 155 additions and 14 deletions
--- a/libsrc/joystick/joy-kernel.s
+++ b/libsrc/joystick/joy-kernel.s
@@ -4,6 +4,7 @@
 ; Common functions of the joystick API.
 ;

+        .import         joy_libref
        .importzp       ptr1
        .interruptor    joy_irq         ; Export as IRQ handler

@@ -55,6 +56,15 @@ _joy_install:
        dey
        bpl     @L0

+; Set the library reference
+
+        ldy     #JOY_HDR::LIBREF
+        lda     #<joy_libref
+        sta     (ptr1),y
+        iny
+        lda     #>joy_libref
+        sta     (ptr1),y
+
 ; Copy the mask array

        ldy     #JOY_HDR::MASKS + .sizeof(JOY_HDR::MASKS) - 1