Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-23 12:33:32 +00:00
Code Issues Projects Releases Wiki Activity

shave some cycles

Browse Source
This commit is contained in:
4am 2021-12-02 08:13:15 -05:00
parent 872da54d49
commit e318fe031c
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/fx/fx.dhgr.48boxes.common.a
View File

@ -219,11 +219,11 @@ k_bitcopy = 30 ; must be last token
sta $C001 ; 80STORE mode so we can bank $2000/aux in & out with STA $C055 & $C054 sta $C001 ; 80STORE mode so we can bank $2000/aux in & out with STA $C055 & $C054
MainLoop ldx #48 MainLoop ldx #48
BoxLoop stx box BoxLoop ldy BoxStages-1, x ; for each box, get its current stage
ldy BoxStages-1, x ; for each box, get its current stage
inc BoxStages-1, x ; increment every box's stage every time through the loop inc BoxStages-1, x ; increment every box's stage every time through the loop
lda StagesHi, y lda StagesHi, y
beq NextBox ; if stage's drawing routine is 0, nothing to do beq NextBox ; if stage's drawing routine is 0, nothing to do
stx box
sta j+2 sta j+2
lda BoxesX-1, x lda BoxesX-1, x
ldy BoxesY-1, x ; Y = starting byte offset for this box ldy BoxesY-1, x ; Y = starting byte offset for this box

4
src/fx/fx.hgr.48boxes.common.a
View File

@ -211,11 +211,11 @@ k_right_mask = 17
+BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 hgrlo, hgrhi +BUILD_HGR_LOOKUP_TABLES_X_IS_ALREADY_0 hgrlo, hgrhi
MainLoop ldx #48 MainLoop ldx #48
BoxLoop stx box BoxLoop ldy BoxStages-1, x ; for each box, get its current stage
ldy BoxStages-1, x ; for each box, get its current stage
inc BoxStages-1, x ; increment every box's stage every time through the loop inc BoxStages-1, x ; increment every box's stage every time through the loop
lda StagesHi, y lda StagesHi, y
beq NextBox ; if stage's drawing routine is 0, nothing to do beq NextBox ; if stage's drawing routine is 0, nothing to do
stx box
sta j+2 sta j+2
lda BoxesX-1, x lda BoxesX-1, x
ldy BoxesY-1, x ; Y = starting byte offset for this box ldy BoxesY-1, x ; Y = starting byte offset for this box