]> git.sur5r.net Git - cc65/blobdiff - libsrc/pet/joy/pet-ptvjoy.s
Removed IRQ support from joystick drivers.
[cc65] / libsrc / pet / joy / pet-ptvjoy.s
index 997352f06ce275bde8fe3ebc6442698674ed8f82..7620013be28a34828e2a0a20653e5acfe8d71554 100644 (file)
 
         .include "joy-kernel.inc"
         .include "joy-error.inc"
-;       .include "pet.inc"
-VIA_PRA         := $E841                ; Port register A
-VIA_DDRA        := $E843                ; Data direction register A
+
+        .macpack module
+
 
 ; ------------------------------------------------------------------------
 ; Header. Includes jump table
 
-        .segment "JUMPTABLE"
+        module_header   _pet_ptvjoy_joy
 
 ; Driver signature
 
         .byte   $6A, $6F, $79   ; "joy"
         .byte   JOY_API_VERSION ; Driver API version number
 
-; Button state masks (8 values)
+; Library reference
 
-        .byte   $01                     ; JOY_UP
-        .byte   $02                     ; JOY_DOWN
-        .byte   $04                     ; JOY_LEFT
-        .byte   $08                     ; JOY_RIGHT
-        .byte   $10                     ; JOY_FIRE
-        .byte   $00                     ; JOY_FIRE2 unavailable
-        .byte   $00                     ; Future expansion
-        .byte   $00                     ; Future expansion
+        .addr   $0000
 
 ; Jump table.
 
@@ -41,12 +34,14 @@ VIA_DDRA        := $E843                ; Data direction register A
         .addr   UNINSTALL
         .addr   COUNT
         .addr   READ
-        .addr   0                       ; IRQ entry unused
 
 ; ------------------------------------------------------------------------
 ; Constants
 
-JOY_COUNT       = 2             ; Number of joysticks we support
+JOY_COUNT       = 2                     ; Number of joysticks we support
+
+VIA_PRA         := $E841                ; Port register A
+VIA_DDRA        := $E843                ; Data direction register A
 
 
 .code