Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-19 15:30:08 +00:00
Code Issues Projects Releases Wiki Activity

bubble_gr: more optimization

Browse Source
This commit is contained in:
Vince Weaver 2024-05-01 00:23:17 -04:00
parent 6d8bf2b877
commit a0292dd846
2 changed files with 128 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
graphics/gr/bubble_universe/bubble_tiny.s
View File

@ -13,6 +13,9 @@
; 531 bytes = remove keyboard code
; 527 bytes = inline sine gen
; 523 bytes = optimize init a bit
; 301 bytes = generate color lookup table
; 297 bytes = optimize color lookup table
; 282 bytes = optimize color shift
; soft-switches
@ -60,8 +63,6 @@ GBASH = $27
MASK = $2E
COLOR = $30
HPLOTYL = $92
I = $D0
@ -77,13 +78,14 @@ INH = $FD
OUTL = $FE
OUTH = $FF
sines = $6c00
sines2 = $6d00
cosines = $6e00
cosines2= $6f00
color_map = $1000
bubble_gr:
;=======================
@ -97,7 +99,68 @@ bubble_gr:
; setup lookup tables
;========================
;========================
; color lookup
;========================
; 34 bytes originally
; 30 updated
ldy #0 ; y=0;
loop2:
lda #0 ; a=0;
loop1:
sta color_map,Y ; values[y]=a;
iny ; y++;
ldx #15
xloop:
sta color_map,Y ; values[y]=a;
clc
adc #$10 ; a+=16
iny
dex
bne xloop
; clc
adc #$11
cpy #16
beq loop2
cpy #0
bne loop1
.if 0
ldy #0 ; 2
xloop:
ldx #15 ; 2
loop:
tya ; 1
sec ; 1
sbc #$11 ; 2
cpx #15 ; 2
bne skip2 ; 2
and #$f0 ; 2
clc ; 1
adc #$10 ; 2
skip2:
cpy #16 ; 2
bcs skip ; 2
and #$f ; 2
skip:
sta color_map,Y ; 3
iny ; 1
beq done ; 2
dex ; 1
bmi xloop ; 2
bpl loop ; 2
done:
.endif
;==========================
; make sine/cosine tables
;==========================
; floor(s*sin((x-96)*PI*2/256.0)+48.5);
@ -164,9 +227,9 @@ cosine_loop:
sty U
sty V
sty T
sty INL
dey
; lda #$FF ; reset color to white, needed?
dey ; Y=FF (color white)
sty COLOR
;=========================
@ -231,9 +294,6 @@ it1_smc:
; U already in A
; adc #44 ; 2
; lsr
; lsr
sbc #48
tay ; 2
bmi no_plot
@ -246,9 +306,6 @@ it1_smc:
bmi no_plot
cmp #48
bcs no_plot
; lsr
; lsr
;PLOT = $F800 ;; PLOT AT Y,A
@ -304,7 +361,22 @@ flip_pages:
ldy #$0
lda #4
sta INH
clear_loop:
lda (INL),Y
tax
lda color_map,X
sta (INL),Y
iny
bne clear_loop
inc INH
lda INH
cmp #$8
bne clear_loop
.if 0
ldx $400,Y
lda color_map,X
sta $400,Y
@ -322,8 +394,9 @@ clear_loop:
sta $700,Y
dey
bne clear_loop
.endif
jmp next_frame ; just out of range...
beq next_frame ; just out of range...
@ -339,7 +412,7 @@ sines_base:
; floor(s*cos((x-96)*PI*2/256.0)+48.5);
.if 0
color_map:
; 00 10 20 30 40 50 60 70 80 90 A0 B0 C0 D0 E0 F0
.byte $00,$00,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$E0 ;0
@ -358,5 +431,5 @@ color_map:
.byte $0C,$0C,$1C,$2C,$3C,$4C,$5C,$6C,$7C,$8C,$9C,$AC,$BC,$CC,$DC,$EC ;D
.byte $0D,$0D,$1D,$2D,$3D,$4D,$5D,$6D,$7D,$8D,$9D,$AD,$BD,$CD,$DD,$ED ;E
.byte $0E,$0E,$1E,$2E,$3E,$4E,$5E,$6E,$7E,$8E,$9E,$AE,$BE,$CE,$DE,$EE ;F
.endif

39
graphics/gr/bubble_universe/make_table.c
View File

@ -2,7 +2,7 @@
int main(int argc, char **argv) {
int x;
int a,x,y;
unsigned char values[256];
@ -37,11 +37,48 @@ int main(int argc, char **argv) {
// bpl loop ; 2
//done:
#if 0
for(x=0;x<256;x++) {
values[x]=x-0x11;
if (x%16==0) values[x]=(values[x]&0xf0)+0x10;
if (x<16) values[x]&=0xf;
}
#endif
#if 0
y=0;
loop2:
a=0;
loop1:
values[y]=a;
y++;
for(x=0;x<15;x++) {
values[y]=a;
a+=16;
y++;
}
a+=17;
if (y==16) goto loop2;
if(y!=256) goto loop1;
#endif
y=0;
loop2:
a=0;
loop1:
// values[y]=a;
// y++;
for(x=0;x<16;x++) {
values[y]=a;
if (x) a+=16;
y++;
}
a+=17;
if (y==16) goto loop2;
if(y!=256) goto loop1;
for(x=0;x<256;x++) {
if (x%16==0) printf("\n");