mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-26 11:30:12 +00:00
tfv: move lookup_map inline
This commit is contained in:
Vince Weaver
parent
2dba13ea86
commit
d86a962432
@ -132,28 +132,40 @@ static int lookup_map(int xx, int yy) {
|
||||
offset+=xx;
|
||||
cycles.lookup_map+=39;
|
||||
|
||||
if ((yy>7) || (xx>7)) {
|
||||
cycles.lookup_map+=14;
|
||||
color=water_map[offset&0x1f];
|
||||
if (yy>7) {
|
||||
cycles.lookup_map+=3;
|
||||
goto ocean_color;
|
||||
}
|
||||
cycles.lookup_map+=7;
|
||||
|
||||
if (xx>7) {
|
||||
cycles.lookup_map+=3;
|
||||
goto ocean_color;
|
||||
}
|
||||
|
||||
color=flying_map[offset];
|
||||
cycles.lookup_map+=11;
|
||||
|
||||
goto update_cache;
|
||||
|
||||
}
|
||||
ocean_color:
|
||||
color=water_map[offset&0x1f];
|
||||
cycles.lookup_map+=8;
|
||||
goto update_cache;
|
||||
|
||||
/* 2 2 2 2 2 2 2 2 */
|
||||
/* e 2 2 2 2 2 2 2 */
|
||||
/* 2 2 2 2 2 2 2 2 */
|
||||
/* 2 2 2 2 e 2 2 2 */
|
||||
|
||||
color=flying_map[offset];
|
||||
cycles.lookup_map+=8;
|
||||
|
||||
if (!displayed) {
|
||||
printf("COLOR! %x\n",color);
|
||||
}
|
||||
|
||||
|
||||
|
||||
update_cache:
|
||||
if (!displayed) {
|
||||
printf("COLOR! %x\n",color);
|
||||
}
|
||||
cycles.lookup_map+=10;
|
||||
ram[LAST_MAP_COLOR]=color;
|
||||
return color;
|
||||
@ -816,7 +828,7 @@ static void draw_background_mode7(void) {
|
||||
|
||||
nomatch:
|
||||
map_color=lookup_map(ram[SPACEX_I],ram[SPACEY_I]);
|
||||
cycles.mode7+=6;
|
||||
cycles.lookup_map-=6;
|
||||
match:
|
||||
|
||||
ram[COLOR]=(map_color&0xf);
|
||||
@ -825,40 +837,51 @@ match:
|
||||
y=0;
|
||||
if ((ram[SCREEN_Y]&1)==0) {
|
||||
ram[y_indirect(GBASL,y)]=ram[COLOR];
|
||||
cycles.mode7+=18;
|
||||
}
|
||||
else {
|
||||
a=ram[COLOR];
|
||||
ram[y_indirect(GBASL,y)]|=(a<<4);
|
||||
cycles.mode7+=22;
|
||||
|
||||
}
|
||||
|
||||
ram[GBASL]++;
|
||||
cycles.mode7+=21;
|
||||
|
||||
|
||||
// advance to the next position in space
|
||||
fixed_add(ram[SPACEX_I],ram[SPACEX_F],
|
||||
ram[DX_I],ram[DX_F],
|
||||
&ram[SPACEX_I],&ram[SPACEX_F]);
|
||||
cycles.mode7+=18;
|
||||
|
||||
fixed_add(ram[SPACEY_I],ram[SPACEY_F],
|
||||
ram[DY_I],ram[DY_F],
|
||||
&ram[SPACEY_I],&ram[SPACEY_F]);
|
||||
cycles.mode7+=18;
|
||||
|
||||
ram[SCREEN_X]--;
|
||||
if (ram[SCREEN_X]== 0) break;
|
||||
cycles.mode7+=41;
|
||||
|
||||
|
||||
/* cache last value */
|
||||
cycles.mode7+=8;
|
||||
if (ram[SPACEY_I]==ram[LAST_SPACEY_I]) {
|
||||
cycles.mode7+=7;
|
||||
if (ram[SPACEX_I]==ram[LAST_SPACEX_I]) {
|
||||
if (ram[SCREEN_X]== 0) {
|
||||
cycles.mode7+=5;
|
||||
break;
|
||||
}
|
||||
cycles.mode7+=4;
|
||||
/* cache last value */
|
||||
cycles.mode7+=5;
|
||||
if (ram[SPACEY_I]!=ram[LAST_SPACEY_I]) {
|
||||
cycles.mode7+=3;
|
||||
goto nomatch;
|
||||
}
|
||||
cycles.mode7+=7;
|
||||
|
||||
if (ram[SPACEX_I]!=ram[LAST_SPACEX_I]) {
|
||||
cycles.mode7+=3;
|
||||
goto nomatch;
|
||||
}
|
||||
cycles.mode7+=7;
|
||||
map_color=ram[LAST_MAP_COLOR];
|
||||
goto match;
|
||||
}
|
||||
}
|
||||
goto nomatch;
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
@ -225,6 +225,20 @@ This looks like a pessimization, but it's because the cycle counting code
|
||||
Total = 181,397
|
||||
Frame Rate = 5.51 fps
|
||||
|
||||
Make lookup_map inline. Again it looks like an impressive speedup
|
||||
but some of this was fixing the cycle count estimates.
|
||||
|
||||
Cycles: flying= 187
|
||||
Cycles: getkey= 46
|
||||
Cycles: page_flip= 26
|
||||
Cycles: multiply= 40,680
|
||||
Cycles: mode7= 111,882
|
||||
Cycles: lookup_map= 19,872
|
||||
Cycles: put_sprite= 2,561
|
||||
================================
|
||||
Total = 175,254
|
||||
Frame Rate = 5.71 fps
|
||||
|
||||
|
||||
|
||||
Each cycle removed from inner X loop saves
|
||||
|
||||
135
tfv/tfv_flying.s
135
tfv/tfv_flying.s
@ -50,7 +50,7 @@ flying_start:
|
||||
lda #2 ; initialize sky both pages
|
||||
sta DRAW_SKY
|
||||
|
||||
lda #4
|
||||
lda #4 ; starts out at 4.5
|
||||
sta SPACEZ_I
|
||||
lda #$80
|
||||
sta SPACEZ_F
|
||||
@ -955,9 +955,73 @@ screenx_loop:
|
||||
|
||||
|
||||
nomatch:
|
||||
;====================================
|
||||
; do a full lookup, takes much longer
|
||||
jsr lookup_map ; get color in A ; 6
|
||||
; used to be a separate function but we inlined it here
|
||||
|
||||
;====================
|
||||
; lookup_map
|
||||
;====================
|
||||
; finds value in space_x.i,space_y.i
|
||||
; returns color in A
|
||||
; CLOBBERS: A,Y
|
||||
|
||||
lda SPACEX_I ; 3
|
||||
sta spacex_label+1 ; self modifying code, LAST_SPACEX_I ; 4
|
||||
and #CONST_MAP_MASK_X ; wrap at 64 ; 2
|
||||
sta SPACEX_I ; store i patch out ; 3
|
||||
tay ; copy to Y for later ; 2
|
||||
|
||||
lda SPACEY_I ; 3
|
||||
sta spacey_label+1 ; self modifying code, LAST_SPACEY_I ; 4
|
||||
and #CONST_MAP_MASK_Y ; wrap to 64x64 grid ; 2
|
||||
sta SPACEY_I ; 3
|
||||
|
||||
asl ; 2
|
||||
asl ; 2
|
||||
asl ; multiply by 8 ; 2
|
||||
clc ; 2
|
||||
adc SPACEX_I ; add in X value ; 3
|
||||
; only valid if x<8 and y<8
|
||||
|
||||
; SPACEX_I is also in y
|
||||
cpy #$8 ; 2
|
||||
;============
|
||||
; 39
|
||||
|
||||
bcs ocean_color ; bgt 8 ; 2nt/3
|
||||
ldy SPACEY_I ; 3
|
||||
cpy #$8 ; 2
|
||||
;=============
|
||||
; 7
|
||||
|
||||
bcs ocean_color ; bgt 8 ; 2nt/3
|
||||
|
||||
tay ; 2
|
||||
lda flying_map,Y ; load from array ; 4
|
||||
|
||||
bcc update_cache ; 3
|
||||
;============
|
||||
; 11
|
||||
ocean_color:
|
||||
and #$1f ; 2
|
||||
tay ; 2
|
||||
lda water_map,Y ; the color of the sea ; 4
|
||||
;===========
|
||||
; 8
|
||||
|
||||
update_cache:
|
||||
sta map_color_label+1 ; self-modifying ; 4
|
||||
|
||||
;===========
|
||||
; 4
|
||||
|
||||
; rts ; 6
|
||||
|
||||
|
||||
|
||||
; jsr lookup_map ; get color in A ; 6
|
||||
; ;============
|
||||
; 6
|
||||
match:
|
||||
|
||||
@ -966,66 +1030,67 @@ mask_label:
|
||||
|
||||
ldy #0 ; 2
|
||||
mask_branch_label:
|
||||
; ldx COLOR_MASK ;
|
||||
; bpl big_bottom ;
|
||||
beq big_bottom ; F0=beq, D0=bne ; 2nt/3
|
||||
beq big_bottom ; this branch is modified based on odd/even
|
||||
; F0=beq, D0=bne ; 2nt/3
|
||||
|
||||
ora (GBASL),Y ; we're odd, or the bottom in ; 4
|
||||
ora (GBASL),Y ; we're odd, or the bottom in ; 5
|
||||
big_bottom:
|
||||
|
||||
sta (GBASL),Y ; plot double height ; 6
|
||||
sta (GBASL),Y ; plot double height pixel ; 6
|
||||
inc GBASL ; point to next pixel ; 5
|
||||
;============
|
||||
; 21
|
||||
; 22/18
|
||||
|
||||
|
||||
|
||||
; advance to the next position in space
|
||||
|
||||
clc ; fixed_add(&space_x,&dx,&space_x); ; 2
|
||||
; fixed_add(&space_x,&dx,&space_x);
|
||||
|
||||
clc ; 2
|
||||
lda SPACEX_F ; 3
|
||||
; adc DX_F ;
|
||||
dxf_label:
|
||||
adc #0 ; 2
|
||||
adc #0 ; self modifying, is DX_F ; 2
|
||||
sta SPACEX_F ; 3
|
||||
lda SPACEX_I ; 3
|
||||
; adc DX_I ;
|
||||
dxi_label:
|
||||
adc #0 ; 2
|
||||
adc #0 ; self modifying, is DX_I ; 2
|
||||
sta SPACEX_I ; 3
|
||||
;==========
|
||||
; 18
|
||||
|
||||
clc ; fixed_add(&space_y,&dy,&space_y); ; 2
|
||||
; fixed_add(&space_y,&dy,&space_y);
|
||||
|
||||
clc ; 2
|
||||
lda SPACEY_F ; 3
|
||||
; adc DY_F ;
|
||||
dyf_label:
|
||||
adc #0 ; 2
|
||||
adc #0 ; self modifyig, is DY_F ; 2
|
||||
sta SPACEY_F ; 3
|
||||
lda SPACEY_I ; 3
|
||||
; adc DY_I ;
|
||||
dyi_label:
|
||||
adc #0 ; 2
|
||||
adc #0 ; self mofidying is DY_I ; 2
|
||||
sta SPACEY_I ; 3
|
||||
;============
|
||||
; 18
|
||||
|
||||
dex ; decrement SCREEN_X ; 2
|
||||
beq done_screenx_loop ; branch until we've done 40 ; 2nt/3
|
||||
;=============
|
||||
; 41
|
||||
; 4/5
|
||||
|
||||
|
||||
; cache color and return if same as last time
|
||||
lda SPACEY_I ; 3
|
||||
spacey_label:
|
||||
cmp #0 ; LAST_SPACEY_I ; 2
|
||||
cmp #0 ; self modify, LAST_SPACEY_I ; 2
|
||||
bne nomatch ; 2nt/3
|
||||
lda SPACEX_I ; 3
|
||||
spacex_label:
|
||||
cmp #0 ; LAST_SPACEX_I ; 2
|
||||
cmp #0 ; self modify, LAST_SPACEX_I ; 2
|
||||
bne nomatch ; 2nt/3
|
||||
map_color_label:
|
||||
lda #0 ; LAST_MAP_COLOR ; 2
|
||||
lda #0 ; self modify, LAST_MAP_COLOR ; 2
|
||||
jmp match ; 3
|
||||
;===========
|
||||
; max 19
|
||||
|
||||
done_screenx_loop:
|
||||
inc SCREEN_Y ; 5
|
||||
@ -1045,22 +1110,18 @@ done_screeny:
|
||||
; finds value in space_x.i,space_y.i
|
||||
; returns color in A
|
||||
; CLOBBERS: A,Y
|
||||
; this is used to check if above water or grass
|
||||
; the high-performance per-pixel version has been inlined
|
||||
lookup_map:
|
||||
|
||||
;nomatch:
|
||||
lda SPACEX_I ; 3
|
||||
;nomatch2:
|
||||
sta spacex_label+1 ; LAST_SPACEX_I ; 4
|
||||
and #CONST_MAP_MASK_X ; 2
|
||||
sta SPACEX_I ; 3
|
||||
tay ; 2
|
||||
|
||||
lda SPACEY_I ; 3
|
||||
sta spacey_label+1 ; LAST_SPACEY_I ; 4
|
||||
and #CONST_MAP_MASK_Y ; wrap to 64x64 grid ; 2
|
||||
sta SPACEY_I ; 3
|
||||
|
||||
|
||||
asl ; 2
|
||||
asl ; 2
|
||||
asl ; multiply by 8 ; 2
|
||||
@ -1071,27 +1132,27 @@ lookup_map:
|
||||
; SPACEX_I is in y
|
||||
cpy #$8 ; 2
|
||||
;============
|
||||
; 39
|
||||
; 31
|
||||
|
||||
bcs ocean_color ; bgt 8 ;^2nt/3
|
||||
bcs ocean_color_outline ; bgt 8 ;^2nt/3
|
||||
ldy SPACEY_I ; 3
|
||||
cpy #$8 ; 2
|
||||
bcs ocean_color ; bgt 8 ; 2nt/3
|
||||
bcs ocean_color_outline ; bgt 8 ; 2nt/3
|
||||
|
||||
tay ; 2
|
||||
lda flying_map,Y ; load from array ; 4
|
||||
|
||||
bcc update_cache ; 3
|
||||
bcc update_cache_outline ; 3
|
||||
|
||||
ocean_color:
|
||||
ocean_color_outline:
|
||||
and #$1f ; 2
|
||||
tay ; 2
|
||||
lda water_map,Y ; the color of the sea ; 4
|
||||
|
||||
update_cache:
|
||||
sta map_color_label+1 ; self-modifying ; 4
|
||||
update_cache_outline:
|
||||
rts ; 6
|
||||
|
||||
|
||||
flying_map:
|
||||
.byte $22,$ff,$ff,$ff, $ff,$ff,$ff,$22
|
||||
.byte $dd,$cc,$cc,$88, $44,$44,$00,$dd
|
||||
|
||||
Loading…
Reference in New Issue
Block a user