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