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

credits: music is playing!

Browse Source
This commit is contained in:
Vince Weaver 2018-07-06 15:11:23 -04:00
parent a8246b7ea0
commit f509179449
2 changed files with 77 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
split_screen/credits.s
View File

@ -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
sta LETTERL
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

BIN
split_screen/music.tfv
View File

Binary file not shown.