; 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