2 ; Joystick driver using C128 number pad in 64 mode.
3 ; May be used multiple times when linked to the statically application.
5 ; Stefan Haubenthal, 2004-01-26
6 ; Based on Ullrich von Bassewitz, 2002-12-20
9 .include "zeropage.inc"
11 .include "joy-kernel.inc"
12 .include "joy-error.inc"
18 ; ------------------------------------------------------------------------
19 ; Header. Includes jump table
25 .byte $6A, $6F, $79 ; "joy"
26 .byte JOY_API_VERSION ; Driver API version number
32 ; Button state masks (8 values)
34 .byte $02 ; JOY_UP "8"
35 .byte $10 ; JOY_DOWN "2"
36 .byte $20 ; JOY_LEFT "4"
37 .byte $08 ; JOY_RIGHT "6"
38 .byte $04 ; JOY_FIRE "5" ENTER
39 .byte $00 ; JOY_FIRE2 unavailable
40 .byte $00 ; Future expansion
41 .byte $00 ; Future expansion
49 .addr 0 ; IRQ entry unused
51 ; ------------------------------------------------------------------------
54 JOY_COUNT = 1 ; Number of joysticks we support
57 ; ------------------------------------------------------------------------
63 ; ------------------------------------------------------------------------
64 ; INSTALL routine. Is called after the driver is loaded into memory. If
65 ; possible, check if the hardware is present and determine the amount of
67 ; Must return an JOY_ERR_xx code in a/x.
71 lda #JOY_ERR_OK ; Assume we have a joystick
72 ldx VIC_CLK_128 ; Test for a C128
74 bne @C128 ; Jump if we have one
75 lda #JOY_ERR_NO_DEVICE ; No C128 -> no numpad
76 @C128: ldx #0 ; Set high byte
78 ; rts ; Run into UNINSTALL instead
80 ; ------------------------------------------------------------------------
81 ; UNINSTALL routine. Is called before the driver is removed from memory.
82 ; Can do cleanup or whatever. Must not return anything.
89 ; ------------------------------------------------------------------------
90 ; COUNT: Return the total number of available joysticks in a/x.
97 ; ------------------------------------------------------------------------
98 ; READ: Read a particular joystick passed in A.
101 READ: tax ; Clear high byte
114 sty VIC_KBD_128 ; Reset to $FF