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

bubble_gr: figured out how to get it down to 256

Browse Source
This commit is contained in:
Vince Weaver 2024-05-06 00:52:48 -04:00
parent 60a7c2b743
commit 313dc4092a
1 changed files with 36 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
graphics/gr/bubble_universe/bubble_tiny64.s
View File

@ -42,19 +42,20 @@
; soft-switches ; soft-switches
SPEAKER = $C030 SPEAKER = $C030
FULLGR = $C052 FULLGR = $C052
; ROM routines ; ROM routines
PLOT = $F800 ;; PLOT AT Y,A PLOT = $F800 ; PLOT AT Y,A
SETGR = $FB40 SETGR = $FB40 ; enable lores 40x48 mode, split text screen
; and clear top of screen
; zero page ; zero page
COLOR = $30 COLOR = $30 ; used by PLOT
SINES_BASE = $C0 ;SINES_BASE = $C0
I = $D0 I = $D0
J = $D1 J = $D1
@ -68,7 +69,7 @@ PAN = $DC
INL = $FC INL = $FC
INH = $FD INH = $FD
sines = sines_base-$13 ; overlaps some code sines = sines_base-$1A ; overlaps some code
sines2 = sines+$100 ; duplicate so we can index cosine into it sines2 = sines+$100 ; duplicate so we can index cosine into it
cosines = sines+$c0 cosines = sines+$c0
@ -115,26 +116,39 @@ bubble_gr:
; .byte $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F ; .byte $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F
; .byte $40,$41,$42 ; .byte $40,$41,$42
; ;
;old_sines_base:
; .byte $42,$43,$44,$45,$46,$47,$48,
;sines_base: ;sines_base:
; .byte $42,$43,$44,$45,$46,$47,$48,$48,$49,$4A,$4B,$4C,$4C ; .byte $48,$49,$4A,$4B,$4C,$4C
; .byte $4D,$4E,$4E,$4F,$50,$50,$51,$52,$52,$53,$53,$54,$54,$55,$55,$55 ; .byte $4D,$4E,$4E,$4F,$50,$50,$51,$52,$52,$53,$53,$54,$54,$55,$55,$55
; .byte $56,$56,$57,$57,$57,$58,$58,$58,$58,$58 ; .byte $56,$56,$57,$57,$57,$58,$58,$58,$58,$58
;fifty_nines: ;fifty_nines:
; .byte $59,$59,$59,$59,$59,$59 ; .byte $59,$59,$59,$59,$59,$59
; .byte $59 ; .byte $59
]
ldx #$42 ; want to write $42 downto $30
ldy #$19 ; offset
ldx #$48 ; want to write $42 downto $30
; ldy #$12 ; offset
; ldx #$42 ; want to write $42 downto $30
looper: looper:
txa txa
sta sines-$30,X ; sines+12 .... sines ; sta sines-$30,X ; sines+12 .... sines
sta sines,Y ; sines+12 .... sines
lda #$59 lda #$59
sta fifty_nines-$30,X ; sta fifty_nines-$30,X
sta fifty_nines,Y
cpy #$13 ; we could save more bytes if we didn't
beq skipper ; bother trying to be exact
dex dex
cpx #$2F skipper:
bne looper dey
; cpx #$2F
bpl looper
;========================== ;==========================
@ -323,11 +337,12 @@ done_i:
; no panning first 256 times ; no panning first 256 times
bne ook bne no_t_oflo
inc PAN inc PAN
ook: no_t_oflo:
clc clc
lda u_smc+1 lda u_smc+1
adc PAN adc PAN
@ -356,7 +371,7 @@ cycle_color_loop:
; need to do this for pages 4-7 ; need to do this for pages 4-7
inc INH ; 2 inc INH ; 2
lda INH ; 2g lda INH ; 2
cmp #$8 ; 2 cmp #$8 ; 2
bne cycle_color_loop ; 2 bne cycle_color_loop ; 2
@ -416,8 +431,10 @@ done:
; .byte $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F ; .byte $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3A,$3B,$3C,$3D,$3E,$3F
; .byte $40,$41,$42 ; .byte $40,$41,$42
;old_sines_base:
; .byte $42,$43,$44,$45,$46,$47,$48,
sines_base: sines_base:
.byte $42,$43,$44,$45,$46,$47,$48,$48,$49,$4A,$4B,$4C,$4C .byte $48,$49,$4A,$4B,$4C,$4C
.byte $4D,$4E,$4E,$4F,$50,$50,$51,$52,$52,$53,$53,$54,$54,$55,$55,$55 .byte $4D,$4E,$4E,$4F,$50,$50,$51,$52,$52,$53,$53,$54,$54,$55,$55,$55
.byte $56,$56,$57,$57,$57,$58,$58,$58,$58,$58 .byte $56,$56,$57,$57,$57,$58,$58,$58,$58,$58
fifty_nines: fifty_nines:
@ -426,3 +443,4 @@ fifty_nines:
; floor(s*cos((x-96)*PI*2/256.0)+48.5); ; floor(s*cos((x-96)*PI*2/256.0)+48.5);