.include "zeropage.inc"
.include "tgi-kernel.inc"
- .include "tgi-mode.inc"
.include "tgi-error.inc"
.macpack generic
; ----------------------------------------------------------------------
; Graphics mode
- .define grmode 3
+ grmode = 3
; X resolution
- .define x_res 40
+ x_res = 40
; Y resolution
- .define y_res 24
+ y_res = 24
; Number of colors
- .define colors 4
+ colors = 4
; Pixels per byte
- .define ppb 4
+ ppb = 4
; Screen memory size in bytes
- .define scrsize x_res * y_res / ppb
+ scrsize = x_res * y_res / ppb
; Pixel aspect ratio
- .define aspect $0100 ; 1:1
+ aspect = $00CC ; based on 4/3 display
; Free memory needed
- .define mem_needed 1
+ mem_needed = 1
; Number of screen pages
- .define pages 1
+ pages = 1
.rodata
mask_table: ; Mask table to set pixels
;
; ----------------------------------------------------------------------
+.code
; Copy the palette
ldy #colors - 1
loop: lda (ptr1),y