Use new joystick decls

git-svn-id: svn://svn.cc65.org/cc65/trunk@2777 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2003-12-16 22:38:12 +00:00
parent 30577253b1
commit b15e4106dc
11 changed files with 35 additions and 54 deletions

View File

@@ -21,7 +21,7 @@
; Driver signature
.byte $6A, $6F, $79 ; "joy"
.byte $00 ; Driver API version number
.byte JOY_API_VERSION ; Driver API version number
; Button state masks (8 values)
@@ -103,11 +103,9 @@ pollirq:
ldy #$00 ; port b direction
sty $dd03 ; => input
; ldy #$00
sty $dd05 ; cia2 timer a highbyte
sty $dc05 ; cia1 timer a highbyte
iny
; lda #$01
sty $dd04 ; cia2 timer a lowbyte
sty $dc04 ; cia1 timer a lowbyte
@@ -119,10 +117,6 @@ pollirq:
; serial port: input
; cia 1 setup
; lda #%00000001
; sty $dc0d ; irq ctrl reg
lda #%01010001
sta $dc0e ; control register a
; timer: start
@@ -132,13 +126,11 @@ pollirq:
; read directions 3
lda $dd01 ;read cia 2 port b
and #$0f
sta temp3
; read button 3
lda $dd02 ;cia 2 port a
and #%11111011 ;data direction
sta $dd02 ;=> bit 2 input
@@ -151,7 +143,6 @@ pollirq:
sta temp3
; read directions 4
lda $dd01 ;read cia 2 port b
lsr a
lsr a
@@ -160,7 +151,6 @@ pollirq:
sta temp4
; read button 4
ldx #$ff ;serial data register
stx $dc0c;=> writing $ff causes
;cia to output some

View File

@@ -21,7 +21,7 @@
; Driver signature
.byte $6A, $6F, $79 ; "joy"
.byte $00 ; Driver API version number
.byte JOY_API_VERSION ; Driver API version number
; Button state masks (8 values)
@@ -37,7 +37,7 @@
; Jump table.
.word INSTALL
.word DEINSTALL
.word UNINSTALL
.word COUNT
.word READ
@@ -59,15 +59,14 @@ JOY_COUNT = 4 ; Number of joysticks we support
INSTALL:
lda #<JOY_ERR_OK
ldx #>JOY_ERR_OK
; rts ; Run into DEINSTALL instead
; rts ; Run into UNINSTALL instead
; ------------------------------------------------------------------------
; DEINSTALL routine. Is called before the driver is removed from memory.
; UNINSTALL routine. Is called before the driver is removed from memory.
; Can do cleanup or whatever. Must not return anything.
;
DEINSTALL:
UNINSTALL:
rts

View File

@@ -22,7 +22,7 @@
; Driver signature
.byte $6A, $6F, $79 ; "joy"
.byte $00 ; Driver API version number
.byte JOY_API_VERSION ; Driver API version number
; Button state masks (8 values)
@@ -65,7 +65,7 @@ INSTALL:
lda #<JOY_ERR_OK
ldx #>JOY_ERR_OK
; rts ; Run into DEINSTALL instead
; rts ; Run into UNINSTALL instead
; ------------------------------------------------------------------------
; UNINSTALL routine. Is called before the driver is removed from memory.