Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-26 15:29:55 +00:00
Code Issues Projects Releases Wiki Activity

mode7: optimize rasterbars a bit

Browse Source
This commit is contained in:
Vince Weaver 2018-01-31 00:19:04 -05:00
parent 0118de5eee
commit 4f5f6d08d2
1 changed files with 19 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
mode7/rasterbars.s
View File

@ -7,7 +7,7 @@
;===========
ELEMENTS EQU 64
NUM_ROWS EQU 20
;=====================
; Rasterbars
@ -26,7 +26,7 @@ ELEMENTS EQU 64
;===============
lda #0 ; 2
sta DRAW_PAGE ; 3
sta SCREEN_Y
sta SCREEN_Y ; 3
;===========================
;===========================
@ -34,64 +34,51 @@ ELEMENTS EQU 64
;===========================
;===========================
raster_loop:
jsr clear_top ; clear screen
; clear rows
ldy #19 ; 2
lda #0
init_rows:
sta row_color,Y
dey
bpl init_rows
ldy #(NUM_ROWS-1) ; 2
lda #0 ; 2
jsr clear_top
init_rows:
sta row_color,Y ; 5
dey ; 2
bpl init_rows ; 2nt/3
;================
; set colors
lda #COLOR_BOTH_AQUA ; aqua
sta COLOR
ldy SCREEN_Y
jsr set_row_color
lda #COLOR_BOTH_MEDIUMBLUE ; medium blue
sta COLOR
iny
jsr set_row_color
lda #COLOR_BOTH_LIGHTGREEN ; light green
sta COLOR
iny
jsr set_row_color
lda #COLOR_BOTH_DARKGREEN ; green
sta COLOR
iny
jsr set_row_color
lda #COLOR_BOTH_YELLOW ; yellow
sta COLOR
iny
jsr set_row_color
lda #COLOR_BOTH_ORANGE ; orange
sta COLOR
iny
jsr set_row_color
lda #COLOR_BOTH_PINK ; pink
sta COLOR
iny
jsr set_row_color
lda #COLOR_BOTH_RED ; red
sta COLOR
iny
jsr set_row_color
;=================
; draw rows
ldy #19
ldy #(NUM_ROWS-1) ; 2
draw_rows_loop:
lda row_color,Y
sta COLOR
@ -144,11 +131,13 @@ not_there:
;===================
; set_row_color
;===================
; color in COLOR
; color in A
; Y=offset
; Y preserved?
set_row_color:
; Y preserved
; A, X trashed
set_row_color:
sta COLOR
tya ; wrap y offset
and #(ELEMENTS-1)
tax
@ -216,6 +205,8 @@ no_inc:
pla
jsr put_color
iny ; increment for next time
rts
put_color: