The spans do now contain the size of a span, no longer the end offset.

[cc65] / libsrc / atari / atari-stdjoy.s

diff --git a/libsrc/atari/atari-stdjoy.s b/libsrc/atari/atari-stdjoy.s
index 54b8d7228e8f6d98b4b60cec197515a61a0bfb89..53eff79fefa5975d9cd9f0f8c0eb0178c6a5654b 100644 (file)
--- a/libsrc/atari/atari-stdjoy.s
+++ b/libsrc/atari/atari-stdjoy.s
@@ -6,47 +6,48 @@
 ; Using the readjoy code from Christian Groessler
 ;
 
-       .include        "zeropage.inc"
+       .include        "zeropage.inc"
 
-       .include        "joy-kernel.inc"
-        .include        "joy-error.inc"
-        .include        "atari.inc"
+       .include        "joy-kernel.inc"
+       .include        "joy-error.inc"
+       .include        "atari.inc"
 
-        .macpack        generic
+       .macpack        generic
 
 
 ; ------------------------------------------------------------------------
 ; Header. Includes jump table
 
-.segment        "JUMPTABLE"
+.segment       "JUMPTABLE"
 
 ; Driver signature
 
-        .byte   $6A, $6F, $79          ; "joy"
-        .byte   JOY_API_VERSION                ; Driver API version number
+       .byte   $6A, $6F, $79           ; "joy"
+       .byte   JOY_API_VERSION         ; Driver API version number
 
 ; Button state masks (8 values)
 
-        .byte   $01                     ; JOY_UP
-        .byte   $02                     ; JOY_DOWN
-        .byte   $04                     ; JOY_LEFT
-        .byte   $08                     ; JOY_RIGHT
-        .byte   $10                     ; JOY_FIRE
-        .byte   $00                     ; Future expansion
-        .byte   $00                     ; Future expansion
-        .byte   $00                     ; Future expansion
+       .byte   $01                     ; JOY_UP
+       .byte   $02                     ; JOY_DOWN
+       .byte   $04                     ; JOY_LEFT
+       .byte   $08                     ; JOY_RIGHT
+       .byte   $10                     ; JOY_FIRE
+       .byte   $00                     ; JOY_FIRE2 not available
+       .byte   $00                     ; Future expansion
+       .byte   $00                     ; Future expansion
 
 ; Jump table.
 
-        .word   INSTALL
-        .word   UNINSTALL
-        .word   COUNT
-        .word   READJOY
+       .addr   INSTALL
+       .addr   UNINSTALL
+       .addr   COUNT
+       .addr   READJOY
+       .addr   0                       ; IRQ entry not used
 
 ; ------------------------------------------------------------------------
 ; Constants
 
-JOY_COUNT       = 4             ; Number of joysticks we support
+JOY_COUNT      = 4             ; Number of joysticks we support
 
 
 ; ------------------------------------------------------------------------
@@ -63,9 +64,9 @@ JOY_COUNT       = 4             ; Number of joysticks we support
 ;
 
 INSTALL:
-        lda     #<JOY_ERR_OK
-        ldx     #>JOY_ERR_OK
-;      rts                     ; Run into UNINSTALL instead
+       lda     #JOY_ERR_OK
+       ldx     #0
+;      rts                     ; Run into UNINSTALL instead
 
 ; ------------------------------------------------------------------------
 ; UNINSTALL routine. Is called before the driver is removed from memory.
@@ -73,7 +74,7 @@ INSTALL:
 ;
 
 UNINSTALL:
-        rts
+       rts
 
 
 ; ------------------------------------------------------------------------
@@ -108,5 +109,4 @@ READJOY:
        ora     STICK0,x        ; add position information
        eor     #$1F
        ldx     #0              ; fix X
-       rts
-
+       rts