mirror of
https://frontier.innolan.net/github/AmigaExamples.git
synced 2026-09-13 20:12:09 +00:00
77 lines
1.5 KiB
ArmAsm
77 lines
1.5 KiB
ArmAsm
include "includes.i"
|
|
|
|
xdef PlayNextSound
|
|
|
|
PlayNextSound:
|
|
if SFX=1
|
|
move.w #2,AUD3LEN(a6) ; set the empty sound for the next sample to be played
|
|
move.l #emptySound,AUD3LCH(a6)
|
|
endif
|
|
rts
|
|
|
|
if SFX=1
|
|
xdef PlayJumpSound
|
|
xdef PlayFallingSound
|
|
xdef PlayChachingSound
|
|
xdef PlayWhooshSound
|
|
|
|
PlayJumpSound:
|
|
lea jump(pc),a1
|
|
move.l a1,AUD3LCH(a6)
|
|
move.w #123,AUD3PER(a6)
|
|
move.w #64,AUD3VOL(a6)
|
|
move.w #(endJump-jump)/2,AUD3LEN(a6) ;Set length in words
|
|
move.w #(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
|
|
rts
|
|
|
|
PlayWhooshSound:
|
|
KillSound
|
|
lea whoosh,a1
|
|
move.l a1,AUD3LCH(a6)
|
|
move.w #256,AUD3PER(a6)
|
|
move.w #64,AUD3VOL(a6)
|
|
move.w #(endWhoosh-whoosh)/2,AUD3LEN(a6) ;Set length in words
|
|
move.w #(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
|
|
rts
|
|
|
|
|
|
PlayFallingSound:
|
|
KillSound
|
|
lea falling(pc),a1
|
|
move.l a1,AUD3LCH(a6)
|
|
move.w #256,AUD3PER(a6)
|
|
move.w #25,AUD3VOL(a6)
|
|
move.w #(endFalling-falling)/4,AUD3LEN(a6) ;Set length in words
|
|
move.w #(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
|
|
rts
|
|
|
|
PlayChachingSound:
|
|
KillSound
|
|
lea chaching,a1
|
|
move.l a1,AUD3LCH(a6)
|
|
move.w #256,AUD3PER(a6)
|
|
move.w #64,AUD3VOL(a6)
|
|
move.w #(endChaching-chaching)/2,AUD3LEN(a6) ;Set length in words
|
|
move.w #(DMAF_AUD3|DMAF_SETCLR),DMACON(a6)
|
|
rts
|
|
|
|
align 4
|
|
jump:
|
|
incbin "out/jump.raw"
|
|
endJump:
|
|
align 4
|
|
falling:
|
|
incbin "out/falling.raw"
|
|
endFalling:
|
|
align 4
|
|
chaching:
|
|
incbin "out/chaching.raw"
|
|
endChaching:
|
|
whoosh:
|
|
incbin "out/whoosh.raw"
|
|
endWhoosh:
|
|
|
|
align 2
|
|
emptySound:
|
|
dc.l 0
|
|
endif |