Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -4,50 +4,50 @@
|
||||
; 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 = 10
|
||||
grmode = 10
|
||||
; X resolution
|
||||
x_res = 80
|
||||
x_res = 80
|
||||
; Y resolution
|
||||
y_res = 192
|
||||
y_res = 192
|
||||
; Number of colors
|
||||
colors = 9
|
||||
colors = 9
|
||||
; Pixels per byte
|
||||
ppb = 2
|
||||
ppb = 2
|
||||
; Screen memory size in bytes
|
||||
scrsize = x_res * y_res / ppb
|
||||
scrsize = x_res * y_res / ppb
|
||||
; Pixel aspect ratio
|
||||
aspect = $0330 ; based on 4/3 display
|
||||
aspect = $0330 ; based on 4/3 display
|
||||
; Free memory needed
|
||||
mem_needed = 15339
|
||||
mem_needed = 15339
|
||||
; Number of screen pages
|
||||
pages = 2
|
||||
pages = 2
|
||||
|
||||
.rodata
|
||||
mask_table: ; Mask table to set pixels
|
||||
.byte %11110000, %00001111
|
||||
masks: ; Color masks
|
||||
.byte $00, $11, $22, $33, $44, $55, $66, $77, $88
|
||||
bar_table: ; Mask table for BAR
|
||||
.byte %11111111, %00001111, %00000000
|
||||
default_palette:
|
||||
.byte $00, $0E, $32, $96, $68, $C4, $74, $EE, $4A
|
||||
mask_table: ; Mask table to set pixels
|
||||
.byte %11110000, %00001111
|
||||
masks: ; Color masks
|
||||
.byte $00, $11, $22, $33, $44, $55, $66, $77, $88
|
||||
bar_table: ; Mask table for BAR
|
||||
.byte %11111111, %00001111, %00000000
|
||||
default_palette:
|
||||
.byte $00, $0E, $32, $96, $68, $C4, $74, $EE, $4A
|
||||
|
||||
.code
|
||||
|
||||
@@ -55,22 +55,22 @@
|
||||
|
||||
.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
|
||||
sta PCOLR0,y
|
||||
dey
|
||||
bpl loop
|
||||
; Copy the palette
|
||||
ldy #colors - 1
|
||||
loop: lda (ptr1),y
|
||||
sta palette,y
|
||||
sta PCOLR0,y
|
||||
dey
|
||||
bpl loop
|
||||
|
||||
; Done, reset the error code
|
||||
; Done, reset the error code
|
||||
lda #TGI_ERR_OK
|
||||
sta error
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user