2 ; DXS/HIT-4 Player joystick driver for the C64
4 ; Groepaz/Hitmen, 2002-12-23
5 ; obviously based on Ullrichs driver :)
8 .include "zeropage.inc"
10 .include "joy-kernel.inc"
11 .include "joy-error.inc"
18 ; ------------------------------------------------------------------------
19 ; Header. Includes jump table
21 module_header _c64_hitjoy_joy
25 .byte $6A, $6F, $79 ; "joy"
26 .byte JOY_API_VERSION ; Driver API version number
39 ; ------------------------------------------------------------------------
42 JOY_COUNT = 4 ; Number of joysticks we support
44 ; ------------------------------------------------------------------------
45 ; Data. Written in the IRQ, read by the READ routine
54 ; ------------------------------------------------------------------------
55 ; INSTALL routine. Is called after the driver is loaded into memory. If
56 ; possible, check if the hardware is present and determine the amount of
58 ; Must return an JOY_ERR_xx code in a/x.
65 ; rts ; Run into UNINSTALL instead
67 ; ------------------------------------------------------------------------
68 ; UNINSTALL routine. Is called before the driver is removed from memory.
69 ; Can do cleanup or whatever. Must not return anything.
75 ; ------------------------------------------------------------------------
76 ; COUNT: Return the total number of available joysticks in a/x.
79 COUNT: lda #<JOY_COUNT
83 ; ------------------------------------------------------------------------
84 ; READ: Read a particular joystick passed in A.
92 ldy #$00 ; port b direction
95 sty $dd05 ; cia2 timer a highbyte
96 sty $dc05 ; cia1 timer a highbyte
98 sty $dd04 ; cia2 timer a lowbyte
99 sty $dc04 ; cia1 timer a lowbyte
102 sta $dd0e ; control register a
110 sta $dc0e ; control register a
114 ; serial port: output
117 lda $dd01 ;read cia 2 port b
122 lda $dd02 ;cia 2 port a
123 and #%11111011 ;data direction
124 sta $dd02 ;=> bit 2 input
126 lda $dd00 ;read cia 2 p.A
127 and #%00000100 ;check bit 2
134 lda $dd01 ;read cia 2 port b
142 ldx #$ff ;serial data register
143 stx $dc0c ;=> writing $ff causes
145 ;count signals at cnt1
147 ldx $dd0c ;read cia 2 serial in
148 beq fire ;button press if zero
155 ; FIXME: to be really 100% correct this should restore the correct timer
156 ; values for the respective machine (PAL: $4025, NTSC: $4295)
157 ; however, this should hardly be a problem in a real world program
172 tax ; Joystick number into X