]> git.sur5r.net Git - cc65/blobdiff - libsrc/atmos/joy/atmos-pase.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / atmos / joy / atmos-pase.s
index 18ac7b88709551bcddf8705ee51acc5815da01f0..81dba394aa8cf5c76e84854bfbfc1d63451b13d5 100644 (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
-
-       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
+        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
+
+        ldx     #0
+        tya
+        bne     @L1
+        lda     temp1
+        eor     #$FF
+        rts
+@L1:    lda     temp2
+        eor     #$FF
+        rts