Cool Sound Effects?

Here's one:

Code:

---

ticksnd:
@ movlw    0x01                        'set sound duration for intro
@ movwf    _sbyte                        '
@ movlw    0x1B                        'set sound step value for intro
@ movwf    _soundcalc                    'soundcalc = $1B
@ movlw    0xFF                        'set the start frequency
@ movwf    _sbuff                        '
xcr:
@ movf        _soundcalc    ,W                'calc the next sound
@ addwf    _sbuff    ,F                    '
@ call        _audo                        'make sound
@ decf        _sbuff    ,F                    '
@ incfsz    _sbuff    ,F                    '
@ goto        _xcr                        'check for exit blast routine
@ return                                'exit when sound is finished
audo:
SOUND portc.7,[sbuff,sbyte]                'output sound
@ return
'

---

Just gosub ticksnd.

Anyone got any others to share?

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

Code:

---

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

'

---

Translation to PBP. :D

SoundPin VAR PORTC.7

Post #1

Code:

---

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

---

Post #2

Code:

---

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......

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

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 :)

Quote:

---

Originally Posted by Darrel Taylor

Translation to PBP.

---

It is always good to have a translator :D.

Here are a couple more sound effects. All of these use the freqout command. I tried them on a PIC18F4550 at 48 mhz. You can listen to them on the attached sound file.


Howler

Code:

---

Howler:
  FOR sndcnt = 1 TO 4
    FREQOUT sound2pin, 500, 467, 687          ' was combine 1400 Hz and 2060 Hz
    FREQOUT Sound2pin, 500, 817, 867          ' was combine 2450 Hz and 2600 Hz
  NEXT sndcnt

---

Space Transporter

Code:

---

Space_Transporter:
  'DEBUG "Space Transporter", CR
  FOR sndcnt = 5 TO 5000 STEP 5                  ' frequency sweep up
    FREQOUT sound2pin, 15, sndcnt, sndcnt */ 323    ' play note, note * 1.26
  NEXT sndcnt
  FOR sndcnt = 5000 TO 5 STEP -5                ' frequency sweep down
    FREQOUT sound2pin, 15, sndcnt;, sndcnt */ 323  ' play note, note * 1.26
  NEXT sndcnt

---

Warp

Code:

---

Warp:
for sndcnt2 = 200 to 450 step 1
  FREQOUT Sound2pin,7,sndcnt2;,(sndcnt2 -166)
next sndcnt2

---

warble/alarm sinusoidal - could use some work

Code:

---

sineval var byte[32]
sineval[0] = 128
sineval[1] = 148
sineval[2] = 167
sineval[3] = 185
sineval[4] = 200
sineval[5] = 213
sineval[6] = 222
sineval[7] = 228
sineval[8] = 230
sineval[9] = 228
sineval[10] = 222
sineval[11] = 213
sineval[12] = 200
sineval[13] = 185
sineval[14] = 167
sineval[15] = 148
sineval[16] = 128
sineval[17] = 108
sineval[18] = 189
sineval[19] = 171
sineval[20] = 156
sineval[21] = 143
sineval[22] = 134
sineval[23] = 128
sineval[24] = 126
sineval[25] = 128
sineval[26] = 134
sineval[27] = 143
sineval[28] = 156
sineval[29] = 171
sineval[30] = 189
sineval[31] = 208

warble:      ;alarmish sinusoidal - needs some work!
 for sbuff = 1 to 10
    for sndcnt2 = 0 to 31 step 1
        FREQOUT Sound2pin,7,(500 +sineval[sndcnt2]);,(sndcnt2 -166)
    next sndcnt2
 next sbuff

---

Nice :)

___________________