the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
libsrc/atari/joy/atarimj8.s
View File

@@ -7,48 +7,48 @@
; Using code from Carsten Strotmann and help from Christian Groessler
;
.include "zeropage.inc"
.include "zeropage.inc"
.include "joy-kernel.inc"
.include "joy-error.inc"
.include "atari.inc"
.include "joy-kernel.inc"
.include "joy-error.inc"
.include "atari.inc"
.macpack generic
.macpack generic
; ------------------------------------------------------------------------
; Header. Includes jump table
.segment "JUMPTABLE"
.segment "JUMPTABLE"
; Driver signature
.byte $6A, $6F, $79 ; "joy"
.byte JOY_API_VERSION ; Driver API version number
.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
.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
.addr INSTALL
.addr UNINSTALL
.addr COUNT
.addr READJOY
.addr 0 ; IRQ entry not used
; ------------------------------------------------------------------------
; Constants
JOY_COUNT = 8 ; Number of joysticks we support
JOY_COUNT = 8 ; Number of joysticks we support
; ------------------------------------------------------------------------
@@ -65,15 +65,15 @@ JOY_COUNT = 8 ; Number of joysticks we support
;
INSTALL:
lda #$30
sta PACTL
lda #$F0
sta PORTA
lda #$34
sta PACTL
lda #JOY_ERR_OK
ldx #0
; rts ; Run into UNINSTALL instead
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.
@@ -81,7 +81,7 @@ INSTALL:
;
UNINSTALL:
rts
rts
; ------------------------------------------------------------------------
@@ -89,27 +89,27 @@ UNINSTALL:
;
COUNT:
lda #JOY_COUNT
ldx #0
rts
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
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
lda PORTA ; get position
and #%00001111
asl a
ora TRIG0 ; add button information
eor #%00011111
ldx #0 ; fix X
rts