Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-03 12:31:32 +00:00
Code Issues Projects Releases Wiki Activity

megademo: hack to avoid glitch in music during starring_people

Browse Source
This commit is contained in:
Vince Weaver 2018-11-01 14:46:13 -04:00
parent ee3881a599
commit f63408c6a3
1 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
megademo/starring_people.s
View File

@ -94,10 +94,18 @@ sp_smc6:
jsr vapor_lock ; 6 jsr vapor_lock ; 6
; vapor lock returns with us at beginning of hsync in line ; vapor lock returns with us at beginning of hsync in line
; 114 (7410 cycles), so with 5070 lines to go ; 114 (7410 cycles), so with 5070 cycles to go
; so to get to end of blank = 9620 - 9298 = 322
; really could use a sound update in the middle there, but 1038 cycles?
jsr play_music ; 6+1032
jsr gr_copy_to_current ; 6+ 9292 jsr gr_copy_to_current ; 6+ 9292
; 322-1028 = 716 cycles into display, so need to delay
; 12480 - 716 = 11764
; now we have 322 left ; now we have 322 left
; GR part ; GR part
@ -111,13 +119,34 @@ sp_smc6:
; Try X=9 Y=6 cycles=307 ; Try X=9 Y=6 cycles=307
ldy #6 ; 2 ; 11749
sploopA:ldx #9 ; 2 ; Try X=70 Y=33 cycles=11749
ldy #33 ; 2
sploopA:ldx #70 ; 2
sploopB:dex ; 2 sploopB:dex ; 2
bne sploopB ; 2nt/3 bne sploopB ; 2nt/3
dey ; 2 dey ; 2
bne sploopA ; 2nt/3 bne sploopA ; 2nt/3
jsr play_music ; 6+1032
; 4550 - 1038 = 3512
; Try X=99 Y=7 cycles=3508 R4
nop
nop
ldy #7 ; 2
sploopT:ldx #99 ; 2
sploopQ:dex ; 2
bne sploopQ ; 2nt/3
dey ; 2
bne sploopT ; 2nt/3
jmp sp_begin_loop jmp sp_begin_loop
.align $100 .align $100