Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-10-24 23:25:28 +00:00
Code Issues Projects Releases Wiki Activity

pt3: optimize fast_clear

Browse Source
This commit is contained in:
Peter Ferrie 2019-06-01 21:43:18 -04:00 committed by Vince Weaver
parent a24bf74d23
commit cb037335f7
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pt3_player/gr_fast_clear.s
View File

@ -4,7 +4,6 @@ clear_screens:
;=================================== ;===================================
lda #$0 lda #$0
sta DRAW_PAGE
jsr clear_top jsr clear_top
jsr clear_bottom jsr clear_bottom
@ -13,7 +12,6 @@ clear_screens:
;=================================== ;===================================
lda #$4 lda #$4
sta DRAW_PAGE
jsr clear_top jsr clear_top
jmp clear_bottom jmp clear_bottom
@ -29,11 +27,12 @@ clear_screens:
; (pageX,40rows): 50*120+4+6 = 6010 = 6.0ms 166Hz ; (pageX,40rows): 50*120+4+6 = 6010 = 6.0ms 166Hz
; 50*120+4+6+37 = 6055 = 6.0ms 166Hz ; 50*120+4+6+37 = 6055 = 6.0ms 166Hz
clear_top: clear_top:
lda #0 ; 2 ldy #0 ; 2
clear_top_a:
sta COLOR ; 3 clear_top_y:
sty COLOR ; 3
sta DRAW_PAGE ; 3
clc ; 2 clc ; 2
lda DRAW_PAGE ; 3
adc #4 ; 2 adc #4 ; 2
sta __ctf+2 ; 3 sta __ctf+2 ; 3
@ -80,7 +79,6 @@ clear_bottoms:
;=================================== ;===================================
lda #$0 lda #$0
sta DRAW_PAGE
jsr clear_bottom jsr clear_bottom
;=================================== ;===================================
@ -88,7 +86,6 @@ clear_bottoms:
;=================================== ;===================================
lda #$4 lda #$4
sta DRAW_PAGE
; fall through ; fall through
;========================================================= ;=========================================================
@ -97,8 +94,8 @@ clear_bottoms:
; clear bottom of draw page ; clear bottom of draw page
clear_bottom: clear_bottom:
sta DRAW_PAGE ; 3
clc ; 2 clc ; 2
lda DRAW_PAGE ; 3
adc #6 ; 2 adc #6 ; 2
sta __cbf2+2 ; 3 sta __cbf2+2 ; 3
@ -130,7 +127,6 @@ clear_screens_notext:
;=================================== ;===================================
lda #$0 lda #$0
sta DRAW_PAGE
jsr clear_all jsr clear_all
;=================================== ;===================================
@ -138,7 +134,6 @@ clear_screens_notext:
;=================================== ;===================================
lda #$4 lda #$4
sta DRAW_PAGE
; fall through ; fall through
@ -149,8 +144,8 @@ clear_screens_notext:
; clear color: clear_all_color+1 ; clear color: clear_all_color+1
clear_all: clear_all:
sta DRAW_PAGE ; 3
clc ; 2 clc ; 2
lda DRAW_PAGE ; 3
adc #4 ; 2 adc #4 ; 2
sta __caf+2 ; 3 sta __caf+2 ; 3