]> git.sur5r.net Git - cc65/blobdiff - libsrc/atari/tgi/atari8.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / atari / tgi / atari8.s
index fe97a5a0a157d7efb995e0a5efbd8862d727b132..7d2a638631951ec3b6f9eea67ced96c0fe5c4ca2 100644 (file)
@@ -4,77 +4,77 @@
 ; Fatih Aygun (2009)
 ;
 
-       .include        "atari.inc"
-       .include        "zeropage.inc"
+        .include        "atari.inc"
+        .include        "zeropage.inc"
 
-       .include        "tgi-kernel.inc"
-       .include        "tgi-error.inc"
+        .include        "tgi-kernel.inc"
+        .include        "tgi-error.inc"
 
-       .macpack        generic
+        .macpack        generic
 
 ; ******************************************************************************
 
-       ; ----------------------------------------------------------------------
-       ;
-       ; Constants and tables
-       ;
-       ; ----------------------------------------------------------------------
+        ; ----------------------------------------------------------------------
+        ;
+        ; Constants and tables
+        ;
+        ; ----------------------------------------------------------------------
 
 ; Graphics mode
-       grmode = 8
+        grmode = 8
 ; X resolution
-       x_res = 320
+        x_res = 320
 ; Y resolution
-       y_res = 192
+        y_res = 192
 ; Number of colors
-       colors = 2
+        colors = 2
 ; Pixels per byte
-       ppb = 8
+        ppb = 8
 ; Screen memory size in bytes
-       scrsize = x_res * y_res / ppb
+        scrsize = x_res * y_res / ppb
 ; Pixel aspect ratio
-       aspect = $00CC                          ; based on 4/3 display
+        aspect = $00CC                          ; based on 4/3 display
 ; Free memory needed
-       mem_needed = 7147
+        mem_needed = 7147
 ; Number of screen pages
-       pages = 1
+        pages = 1
 
 .rodata
-       mask_table:                             ; Mask table to set pixels
-               .byte   %10000000, %01000000, %00100000, %00010000, %00001000, %00000100, %00000010, %00000001
-       masks:                                  ; Color masks
-               .byte   %00000000, %11111111
-       bar_table:                              ; Mask table for BAR
-               .byte   %11111111, %01111111, %00111111, %00011111, %00001111, %00000111, %00000011, %00000001, %00000000
-       default_palette:
-               .byte   $00, $0E
+        mask_table:                             ; Mask table to set pixels
+                .byte   %10000000, %01000000, %00100000, %00010000, %00001000, %00000100, %00000010, %00000001
+        masks:                                  ; Color masks
+                .byte   %00000000, %11111111
+        bar_table:                              ; Mask table for BAR
+                .byte   %11111111, %01111111, %00111111, %00011111, %00001111, %00000111, %00000011, %00000001, %00000000
+        default_palette:
+                .byte   $00, $0E
 .code
 
 ; ******************************************************************************
 
 .proc SETPALETTE
 
-       ; ----------------------------------------------------------------------
-       ;
-       ; SETPALETTE: Set the palette (in ptr1)
-       ;
-       ; ----------------------------------------------------------------------
+        ; ----------------------------------------------------------------------
+        ;
+        ; SETPALETTE: Set the palette (in ptr1)
+        ;
+        ; ----------------------------------------------------------------------
 
 .code
-       ; Copy the palette
-       ldy     #colors - 1
-loop:  lda     (ptr1),y
-       sta     palette,y
-       dey
-       bpl     loop
+        ; Copy the palette
+        ldy     #colors - 1
+loop:   lda     (ptr1),y
+        sta     palette,y
+        dey
+        bpl     loop
 
-       ; Get the color entries from the palette
-       lda     palette
-       sta     COLOR2
-       lda     palette + 1
-       sta     COLOR1
+        ; Get the color entries from the palette
+        lda     palette
+        sta     COLOR2
+        lda     palette + 1
+        sta     COLOR1
 
-       ; Done, reset the error code
+        ; Done, reset the error code
         lda     #TGI_ERR_OK
         sta     error
         rts