From f509179449d15350d0f82ce3ef277d52b1d23ac0 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Fri, 6 Jul 2018 15:11:23 -0400 Subject: [PATCH] credits: music is playing! --- split_screen/credits.s | 77 +++++++++++++++++++++++++++++++++++++++++ split_screen/music.tfv | Bin 7042 -> 7680 bytes 2 files changed, 77 insertions(+) diff --git a/split_screen/credits.s b/split_screen/credits.s index d08e3a18..0b386d61 100644 --- a/split_screen/credits.s +++ b/split_screen/credits.s @@ -11,6 +11,8 @@ LETTERD = $67 LETTER = $68 BLARGH = $69 + MBASE = $97 + MBOFFSET = $98 ;=================== ; init screen @@ -26,6 +28,11 @@ lda #37 sta TREE2X + lda #0 + sta MBOFFSET + lda #>music + sta MBASE + lda #letters @@ -441,6 +448,76 @@ loop4: ; gr bit LORES ; 4 + ;========================= + ; play mockingboard + + + lda MBASE + sta MB_ADDRH + lda #0 + sta MB_ADDRL + + ldx #0 + ldy MBOFFSET + lda (MB_ADDRL),Y + sta MB_VALUE + jsr write_ay_both + + clc + lda #6 + adc MB_ADDRH + sta MB_ADDRH + + ldx #2 + ldy MBOFFSET + lda (MB_ADDRL),Y + sta MB_VALUE + jsr write_ay_both + + clc + lda #6 + adc MB_ADDRH + sta MB_ADDRH + + ldx #3 + ldy MBOFFSET + lda (MB_ADDRL),y + sta MB_VALUE + jsr write_ay_both + + clc + lda #6 + adc MB_ADDRH + sta MB_ADDRH + + ldx #8 + ldy MBOFFSET + lda (MB_ADDRL),y + sta MB_VALUE + jsr write_ay_both + + clc + lda #6 + adc MB_ADDRH + sta MB_ADDRH + + ldx #9 + ldy MBOFFSET + lda (MB_ADDRL),y + sta MB_VALUE + jsr write_ay_both + + lda FRAME + and #1 + clc + adc MBOFFSET + sta MBOFFSET + + lda MBASE + adc #0 + sta MBASE + + ; want 5200 - 4 = 5196 cycles ; 1+y(6+5x) ; Try X=17 Y=57 cycles=5188, R8 diff --git a/split_screen/music.tfv b/split_screen/music.tfv index ad6ed1fe33e5dc7298cb9c310522beadb355cab9..ffb297166ac85902c0c6a53693e10cf0e7373ede 100644 GIT binary patch delta 65 mcmZoNZ?M_Wz&hE0H2{bWHaD;$IGeZ;?9B}V2+k%k1RDUBV-pVm delta 26 ccmZp$X)@o?z`BVIhR