mirror of https://github.com/digarok/festro.git
201 lines
3.7 KiB
ArmAsm
201 lines
3.7 KiB
ArmAsm
**************************************************
|
|
* COSMOS THEME
|
|
**************************************************
|
|
PlaySong01Note
|
|
:start lda Song01
|
|
]song01Ptr equ *-2
|
|
cmp #$02
|
|
bne :noLoop
|
|
lda #Song01
|
|
sta ]song01Ptr
|
|
lda #>Song01
|
|
sta ]song01Ptr+1
|
|
bra :start
|
|
:noLoop
|
|
;ldx #$20 ; x passed as wait value.. omg the hacks
|
|
jsr SENoteAX
|
|
|
|
lda ]frameCount
|
|
cmp #_frameRepeat
|
|
beq :nextNote
|
|
inc ]frameCount
|
|
rts
|
|
:nextNote stz ]frameCount
|
|
inc ]song01Ptr
|
|
beq :inc
|
|
rts
|
|
:inc inc ]song01Ptr+1
|
|
rts
|
|
]frameCount db 0
|
|
_frameRepeat equ 2
|
|
|
|
Song01 hex 66,99,a3,66,99,a3,66,99,66,99,a3,66,99,a3,66,99
|
|
hex 72,99,a3,72,99,a3,72,99,72,99,a3,72,99,a3,72,99
|
|
hex 79,a3,b5,79,a3,b5,79,a3,79,a3,b5,79,a3,b5,79,a3
|
|
hex 6c,99,a3,6c,99,a3,6c,99,6c,99,a3,6c,99,a3,6c,5b
|
|
hex 66,99,a3,66,99,a3,66,99,66,99,a3,66,99,a3,66,99
|
|
hex 02 ;end
|
|
|
|
**************************************************
|
|
* Logo Theme
|
|
**************************************************
|
|
PlaySong02
|
|
ldy #0
|
|
:loop lda Song02,y
|
|
cmp #NoteEnd
|
|
beq :done
|
|
cmp #NoteRest
|
|
bne :notRest
|
|
lda Song02+1,y
|
|
jsr SimplerWait
|
|
bra :nextNote
|
|
:notRest ldx Song02+1,y
|
|
pha
|
|
phx
|
|
phy
|
|
jsr SENoteAX
|
|
lda #5
|
|
jsr SimplerWait
|
|
jsr VBlank
|
|
ply
|
|
plx
|
|
pla
|
|
:nextNote iny
|
|
iny
|
|
bra :loop
|
|
:done rts
|
|
Song02 hex 00,30,00,30,00,30,00,30,00,30,F0,30,AC,50,01,30
|
|
hex 00,30,00,30,00,30,00,30,00,30,F0,30,AC,50,01,30
|
|
hex 00,30,00,30,00,30,00,30,00,30,F0,30,AC,50,01,30
|
|
hex F0,40,90,50,CB,60,C0,80,02
|
|
|
|
|
|
**************************************************
|
|
* play random short note
|
|
**************************************************
|
|
SErandBlip
|
|
jsr GetRand
|
|
sta _SECURRNOTE
|
|
lda #5
|
|
sta _SECURRNOTE+1
|
|
jsr SEplayNote
|
|
rts
|
|
|
|
**************************************************
|
|
* wrapper for SEplayNote
|
|
* a = freq ... x = dur
|
|
**************************************************
|
|
SENoteAX
|
|
sta _SECURRNOTE
|
|
stx _SECURRNOTE+1
|
|
jsr SEplayNote
|
|
rts
|
|
|
|
**************************************************
|
|
*
|
|
**************************************************
|
|
SEplayNote
|
|
:loop lda SPEAKER
|
|
:whyWut dey
|
|
bne :thar
|
|
dec _SECURRNOTE+1
|
|
beq :doneThat
|
|
:thar dex
|
|
bne :whyWut
|
|
ldx _SECURRNOTE
|
|
jmp :loop
|
|
:doneThat rts
|
|
|
|
|
|
_SECURRNOTE db 0,0 ; current note being played (frequency/duration)
|
|
|
|
SEToneAX
|
|
:clickLoop
|
|
pha
|
|
ldy SPEAKER
|
|
:waitLoop dec
|
|
bne :waitLoop
|
|
pla
|
|
inc ; slide?
|
|
inc
|
|
inc
|
|
inc
|
|
dex
|
|
bne :clickLoop
|
|
rts
|
|
|
|
|
|
**************************************************
|
|
* This is essentially the scale
|
|
**************************************************
|
|
_SE_tones db NoteG0,NoteGsharp0,NoteA0,NoteBflat0,NoteB0
|
|
db NoteC1,NoteCsharp1,NoteD1,NoteDsharp1,NoteE1
|
|
db NoteF1,NoteFsharp1,NoteG1,NoteGsharp1,NoteA1
|
|
db NoteBflat1,NoteB1,NoteC2,NoteCsharp2,NoteD2
|
|
db NoteDsharp2,NoteE2,NoteF2
|
|
|
|
NoteRest equ $01 ;\_ these are inaudible anyway
|
|
NoteEnd equ $02 ;/
|
|
NoteG0 equ $00 ; because it loops
|
|
NoteGsharp0 equ $f0
|
|
NoteA0 equ $e6
|
|
NoteBflat0 equ $d5
|
|
NoteB0 equ $cb ; speculating here on up
|
|
NoteC1 equ $c0
|
|
NoteCsharp1 equ $b5
|
|
NoteD1 equ $ac
|
|
NoteDsharp1 equ $a3
|
|
NoteE1 equ $99
|
|
NoteF1 equ $90
|
|
NoteFsharp1 equ $89
|
|
NoteG1 equ $80
|
|
NoteGsharp1 equ $79
|
|
NoteA1 equ $72
|
|
NoteBflat1 equ $6c
|
|
NoteB1 equ $66
|
|
NoteC2 equ $60
|
|
NoteCsharp2 equ $5b
|
|
NoteD2 equ $56
|
|
NoteDsharp2 equ $51
|
|
NoteE2 equ $4c
|
|
NoteF2 equ $48
|
|
; starts to suck here anyway
|
|
|
|
|
|
SErandStatic
|
|
ldy #$ff
|
|
:loop lda SPEAKER
|
|
jsr GetRand
|
|
* lsr
|
|
beq :next
|
|
:wait dec
|
|
bne :wait
|
|
:next dey
|
|
bne :loop
|
|
rts
|
|
|
|
* y = length
|
|
SErandStaticBit
|
|
:loop lda SPEAKER
|
|
jsr GetRand
|
|
lsr
|
|
beq :next
|
|
:wait dec
|
|
bne :wait
|
|
:next dey
|
|
bne :loop
|
|
rts
|
|
|
|
* y = length - no shift so wider range
|
|
SErandStaticBit2
|
|
:loop lda SPEAKER
|
|
jsr GetRand
|
|
beq :next
|
|
:wait dec
|
|
bne :wait
|
|
:next dey
|
|
bne :loop
|
|
rts
|
|
|
|
|