add Atari MultiJoy driver from Stefan A. Haubenthal

git-svn-id: svn://svn.cc65.org/cc65/trunk@3962 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/libsrc/Makefile b/libsrc/Makefile
index f134e604053cd9290b4e55298cd3b418e6f397b6..f5d994814ad01748806e195d98575641369015c5 100644 (file)
--- a/libsrc/Makefile
+++ b/libsrc/Makefile
@@ -80,6 +80,7 @@ atarilib:
        done
        mv atari/crt0.o atari.o
        cp atari/atari-stdjoy.joy ataristd.joy
+       cp atari/atari-multijoy.joy atarimj8.joy
 
 #-----------------------------------------------------------------------------
 # Oric Atmos

diff --git a/libsrc/atari/Makefile b/libsrc/atari/Makefile
index 5a2386374efc964ea4c1c829008596c36fc2f448..0ea8e48e9360fc0ba543b80d091542a775b438d0 100644 (file)
--- a/libsrc/atari/Makefile
+++ b/libsrc/atari/Makefile
@@ -119,7 +119,7 @@ OBJS =      _scrsize.o      \
 
 EMDS =
 
-JOYS = atari-stdjoy.joy
+JOYS = atari-stdjoy.joy atari-multijoy.joy
 
 TGIS =
 

diff --git a/libsrc/atari/atari-multijoy.s b/libsrc/atari/atari-multijoy.s
new file mode 100644 (file)
index 0000000..863737b
--- /dev/null
+++ b/libsrc/atari/atari-multijoy.s
@@ -0,0 +1,115 @@
+;
+; MultiJoy joystick driver for the Atari. May be used multiple times when linked
+; to the statically application.
+;
+; Ullrich von Bassewitz, 2002-12-21
+; Stefan Haubenthal, 2009-04-10
+; Using code from Carsten Strotmann and help from Christian Groessler
+;
+
+       .include        "zeropage.inc"
+
+       .include        "joy-kernel.inc"
+       .include        "joy-error.inc"
+       .include        "atari.inc"
+
+       .macpack        generic
+
+
+; ------------------------------------------------------------------------
+; Header. Includes jump table
+
+.segment       "JUMPTABLE"
+
+; Driver signature
+
+       .byte   $6A, $6F, $79           ; "joy"
+       .byte   JOY_API_VERSION         ; Driver API version number
+
+; Button state masks (8 values)
+
+       .byte   $02                     ; JOY_UP
+       .byte   $04                     ; JOY_DOWN
+       .byte   $08                     ; JOY_LEFT
+       .byte   $10                     ; JOY_RIGHT
+       .byte   $01                     ; JOY_FIRE
+       .byte   $00                     ; JOY_FIRE2 not available
+       .byte   $00                     ; Future expansion
+       .byte   $00                     ; Future expansion
+
+; Jump table.
+
+       .addr   INSTALL
+       .addr   UNINSTALL
+       .addr   COUNT
+       .addr   READJOY
+       .addr   0                       ; IRQ entry not used
+
+; ------------------------------------------------------------------------
+; Constants
+
+JOY_COUNT      = 8             ; Number of joysticks we support
+
+
+; ------------------------------------------------------------------------
+; Data.
+
+
+.code
+
+; ------------------------------------------------------------------------
+; INSTALL routine. Is called after the driver is loaded into memory. If
+; possible, check if the hardware is present and determine the amount of
+; memory available.
+; Must return an JOY_ERR_xx code in a/x.
+;
+
+INSTALL:
+       lda     #$30
+       sta     PACTL
+       lda     #$F0
+       sta     PORTA
+       lda     #$34
+       sta     PACTL
+       lda     #JOY_ERR_OK
+       ldx     #0
+;      rts                     ; Run into UNINSTALL instead
+
+; ------------------------------------------------------------------------
+; UNINSTALL routine. Is called before the driver is removed from memory.
+; Can do cleanup or whatever. Must not return anything.
+;
+
+UNINSTALL:
+       rts
+
+
+; ------------------------------------------------------------------------
+; COUNT: Return the total number of available joysticks in a/x.
+;
+
+COUNT:
+       lda     #JOY_COUNT
+       ldx     #0
+       rts
+
+; ------------------------------------------------------------------------
+; READ: Read a particular joystick passed in A.
+;
+
+READJOY:
+       asl     a
+       asl     a
+       asl     a
+       asl     a
+       sta     PORTA
+
+; Read joystick
+
+       lda     PORTA           ; get position
+       and     #%00001111
+       asl     a
+       ora     TRIG0           ; add button information
+       eor     #%00011111
+       ldx     #0              ; fix X
+       rts