Cool Sound Effects?

[Art]

Here's one that sounds like a blast from a futuristic laser:

blast:                                    '
soundcalc = $FD    : sndcnt = 0            'make blast sound
@ movlw     0x8F                        'set the start frequency
@ movwf     _sbuff                        '
xxxxx:
@ incf        _sndcnt    ,F                    '
IF sndcnt = $25 THEN return                '
@ movf         _soundcalc     ,W                'calc the next sound
@ addwf     _sbuff     ,F                    '
@ call         _audo                        'make sound
@ decf         _sbuff    ,F                    '
@ incfsz     _sbuff    ,F                    '
@ goto         _xxxxx                        'check for exit blast routine
@ return                                'exit when sound is finished
audo:
SOUND portc.7,[sbuff,sbyte]                'output sound
@ return

'

[Darrel Taylor]

Translation to PBP.

SoundPin VAR PORTC.7

Post #1

ticksnd:
    sbuff = $FF
    WHILE sbuff != 0
        sbuff = sbuff + $1B
        SOUND SoundPin,[sbuff,1]
    WEND
RETURN

Post #2

blast:
    FOR sndcnt = $8F TO $20 STEP -3
        SOUND Sound2Pin,[sndcnt,1]
    NEXT sndcnt
RETURN

A little easier on the eyes.

Uht-Oh, I got an idea......

[Heckler]

So I'd like to try some of these sound effects... But it seems this thread started out of thin air??? What am I missing? Is this a continuation of another thread? Is there a complete sample code that can be posted.

In the dark here... (though that is nothing new for me)
Thanks

[Art]

That is the complete code, you only need to declare the byte sized variables used,
and use the sounds in some program of your own

[rsocor01]

Translation to PBP.

It is always good to have a translator .