TheBackShed.com

Forum Index : Microcontroller and PC projects : Problem with "PLAY WAV" and PicoMite 5.070606

Author

Message

Frank N. Furter
Guru

Joined: 28/05/2012
Location: Germany
Posts: 1153

Posted: 08:57pm 30 Dec 2022

Copy link to clipboard

Print this post

Hi!
I want to play a few WAV files in continuous loop for a future Halloween project. Unfortunately I get an error message after some playback time. The WAV are on the flash drive (PicoMite 5.070606).

Option Explicit

Dim WAVbusy As INTEGER

Const TRUE=1
Const FALSE=0

Do
WAVbusy=TRUE
Play wav "WIZSIT.wav",IROUTINE
Do
Loop While WAVbusy=TRUE
Pause 5

WAVbusy=TRUE
Play wav "MUMSIT.wav",IROUTINE
Do
Loop While WAVbusy=TRUE
Pause 5

WAVbusy=TRUE
Play wav "WIZSIT.wav",IROUTINE
Do
Loop While Wavbusy=TRUE
Pause 5

WAVbusy=TRUE
Play wav "MINACT.wav",IROUTINE
Do
Loop While Wavbusy=TRUE
Pause 5
Loop

Sub IROUTINE
WAVbusy=FALSE
IReturn

It works for some time, then I get this error message:

Quote [27] Loop While Wavbusy=TRUE
Error : Too many SUBs for interrupt

Here are my WAV files: WAV.zip

What am I doing wrong??? Is there any way to make it easier to query for the WAV end???

THANKS!

Frank

twofingers

Guru

Joined: 02/06/2014
Location: Germany
Posts: 1769

Posted: 09:01pm 30 Dec 2022

Copy link to clipboard

Print this post

@Frank

From manual

Quote IRETURN
Returns from an interrupt when the interrupt destination was a line number
or a label.
New programs should use a user defined subroutine as an interrupt
destination. In that case END SUB or EXIT SUB will cause a return from
the interrupt.

Regards
Michael

‚My name is Ozymandias, king of kings
Look on my works, ye Mighty, and despair!‘
Nothing beside remains. Round the decay
Of that colossal wreck, boundless and bare
The lone and ...

Frank N. Furter
Guru

Joined: 28/05/2012
Location: Germany
Posts: 1153

Posted: 09:26pm 30 Dec 2022

Copy link to clipboard

Print this post

Do you think I should exchange IReturn for END SUB? I do not fully understand the text from the manual...

Frank

Mixtel90

Guru

Joined: 05/10/2019
Location: United Kingdom
Posts: 9128

Posted: 09:36pm 30 Dec 2022

Copy link to clipboard

Print this post

Yes. An interrupt routine is now a normal SUB so IRETURN isn't required. END SUB or EXIT SUB can be used as usual.

Mick

Zilog Inside! nascom.info for Nascom & Gemini

Frank N. Furter
Guru

Joined: 28/05/2012
Location: Germany
Posts: 1153

Posted: 09:45pm 30 Dec 2022

Copy link to clipboard

Print this post

Thank you both so much!!!

Now it works as it should.

The program now looks like this:

Option Explicit

Dim WAVbusy As INTEGER

Const TRUE=1
Const FALSE=0

Do
PlayWAV "WIZSIT.wav"
PlayWAV "MUMSIT.wav"
PlayWAV "WIZSIT.wav"
PLAYWAV "MINACT.wav"
Loop

Sub PlayWAV wav$
WAVbusy=TRUE
Play WAV wav$,IROUTINE
Do
Loop While Wavbusy=TRUE
End Sub

Sub IROUTINE
WAVbusy=FALSE
End Sub

MANY THANKS!!!

Frank

twofingers

Guru

Joined: 02/06/2014
Location: Germany
Posts: 1769

Posted: 09:53pm 30 Dec 2022

Copy link to clipboard

Print this post

Frank N. Furter said Now it works as it should. �

�

Cool!

and "guten Rutsch!" (happy New Year!)

‚My name is Ozymandias, king of kings
Look on my works, ye Mighty, and despair!‘
Nothing beside remains. Round the decay
Of that colossal wreck, boundless and bare
The lone and ...

Frank N. Furter
Guru

Joined: 28/05/2012
Location: Germany
Posts: 1153

Posted: 03:26pm 31 Dec 2022

Copy link to clipboard

Print this post

Dito!

Frank

Print this page

To reply to this topic, you need to log in.