bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 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

120
libsrc/atmos/joy/atmos-pase.s
View File

@@ -6,55 +6,55 @@
; Based on Ullrich von Bassewitz, 2002-12-20
;
.include "joy-kernel.inc"
.include "joy-error.inc"
; .include "atmos.inc"
.include "joy-kernel.inc"
.include "joy-error.inc"
; .include "atmos.inc"
; ------------------------------------------------------------------------
; 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 $10 ; JOY_UP
.byte $08 ; JOY_DOWN
.byte $01 ; JOY_LEFT
.byte $02 ; JOY_RIGHT
.byte $20 ; JOY_FIRE
.byte $00 ; Future expansion
.byte $00 ; Future expansion
.byte $00 ; Future expansion
.byte $10 ; JOY_UP
.byte $08 ; JOY_DOWN
.byte $01 ; JOY_LEFT
.byte $02 ; JOY_RIGHT
.byte $20 ; JOY_FIRE
.byte $00 ; Future expansion
.byte $00 ; Future expansion
.byte $00 ; Future expansion
; Jump table.
.addr INSTALL
.addr UNINSTALL
.addr COUNT
.addr READ
.addr 0 ; IRQ entry unused
.addr INSTALL
.addr UNINSTALL
.addr COUNT
.addr READ
.addr 0 ; IRQ entry unused
; ------------------------------------------------------------------------
; Constants
JOY_COUNT = 2 ; Number of joysticks we support
JOY_COUNT = 2 ; Number of joysticks we support
PRA = $0301
DDRA = $0303
PRA2 = $030F
PRA = $0301
DDRA = $0303
PRA2 = $030F
; ------------------------------------------------------------------------
; Data.
.bss
temp1: .byte $00
temp2: .byte $00
temp1: .byte $00
temp2: .byte $00
.code
@@ -66,9 +66,9 @@ temp2: .byte $00
;
INSTALL:
lda #JOY_ERR_OK
ldx #0
; rts ; Run into UNINSTALL instead
lda #JOY_ERR_OK
ldx #0
; rts ; Run into UNINSTALL instead
; ------------------------------------------------------------------------
; UNINSTALL routine. Is called before the driver is removed from memory.
@@ -76,7 +76,7 @@ INSTALL:
;
UNINSTALL:
rts
rts
; ------------------------------------------------------------------------
@@ -84,42 +84,42 @@ UNINSTALL:
;
COUNT:
lda #JOY_COUNT
ldx #0
rts
lda #JOY_COUNT
ldx #0
rts
; ------------------------------------------------------------------------
; READ: Read a particular joystick passed in A.
;
READ:
tay
tay
lda PRA
pha
lda DDRA
pha
lda #%11000000
sta DDRA
lda #%10000000
sta PRA2
lda PRA2
sta temp1
lda #%01000000
sta PRA2
lda PRA
sta temp2
pla
sta DDRA
pla
sta PRA2
lda PRA
pha
lda DDRA
pha
lda #%11000000
sta DDRA
lda #%10000000
sta PRA2
lda PRA2
sta temp1
lda #%01000000
sta PRA2
lda PRA
sta temp2
pla
sta DDRA
pla
sta PRA2
ldx #0
tya
bne @L1
lda temp1
eor #$FF
rts
@L1: lda temp2
eor #$FF
rts
ldx #0
tya
bne @L1
lda temp1
eor #$FF
rts
@L1: lda temp2
eor #$FF
rts