Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[zerina]

Hi,

after years i back on amiga and trying to code with Amos.
I would like to play a SID file within my project, used the fd builder and created and bulided an amos extension to better comunicate with the playsid.library.

My task is realy simple, the programm should only play that sid file, but unfortunatly i wil not work.
Thes are the calls to the playsid.library i perfom
1) AllocEmulResource
2) Readicon
3) checkmodule
4) Setmodule
5) Playsong

Any help in starting with this would be great, probably someone had already included the playsid.library in his project and could share some ideas or code

regards

[Hungry Horace]

tough question!

One of the resident AMOS extension experts (Lonewolf? Sidewinder?) is probably best-placed to answer this as they may have experience tapping specific Libraries via AMOS....

[SamuraiCrow]

I've tried the FD Builder program before but I never got the resultant extensions to work.  Have you tried using the LibCall command?

[zerina]

Well any kind of example would help,

using the fd builder an d accessing the library in basic actions works:

Code: [Select]

A=Lvo Allocemulresource()teh above  is fd builder style

Code: [Select]

Lib Open 1,"playsid.library",0The above is Lib Open style

When yyou ste further you need pointer and register, an thats the point where i currently struggle, i need an example to step further.
The playsid.libraray order is clear
1) AllocEmulResource
2) Readicon
3) checkmodule
4) Setmodule
5) Playsong

I simply need some help

[SamuraiCrow]

If you know which registers to put the variables into you can use the Areg and Dreg commands to pass them into and out of the subroutines in the LibCall command.  Normally, values returned from the subroutines are in register D0.  Pointers, being returned are in the A0 register.  Most libraries are written for the C programming language and only return one value.

Case in point:
If the FD file or autodocs for the subroutine say that it takes a pointer in A0 and value1 in D0 and value2 in D1 but returns a handle as a pointer, the Libcall command would look like this:

Areg("A0")=pointer
Dreg("D0")=value1
Dreg("D1")=value2
LibCall(1,Lvo("subroutine_name"))
handle=Areg("A0")

[zerina]

Hi,

thanks for the explanation,
Openng the Lib works
Calling AllocEmulRessource works, but as soon as i try to call the readicon funtion Amos/Amiga crashes

Thes are the function of playsid.library

Code: [Select]

struct PlaySidBase *PlaySidBase;


AllocEmulResource -30(-$001E)
wersja: V1
wej¶cie: void
rezultat: D0
opis:   Allocates and initilizes memory resources.
error=(LONG)AllocEmulResource( void );
D0

CheckModule -48(-$0030)
wersja: V1
wej¶cie: A0
rezultat: D0
opis:   Checks if supplied header is a valid playsid header.
One part files starts with the header.
error=(LONG)CheckModule( (APTR)header );
D0 A0

ContinueSong -78(-$004E)
wersja: V1
wej¶cie: void
rezultat: D0
opis:   Same as start except it is used to continue a paused song.
error=(LONG)ContinueSong( void );
D0

ForwardSong -84(-$0054)
wersja: V1
wej¶cie: D0
rezultat: void
opis:   Used to fast forward a currently playing song. The play routine
will be called as many times as given in the speed parameter.
void ForwardSong( (UWORD)speed );
D0.W

FreeEmulResource -36(-$0024)
wersja: V1
wej¶cie: void
rezultat: void
opis:   Frees memory resources.
void FreeEmulResource( void );

PauseSong -72(-$0048)
wersja: V1
wej¶cie: void
rezultat: void
opis:   Same as Stop except that the song could be continued afterwards.
void PauseSong( void );

ReadIcon -42(-$002A)
wersja: V1
wej¶cie: A0
A1
rezultat: D0
opis: Reads icon info of supplied name (without .info suffix)
and stores it at "header".
error=(LONG)ReadIcon( (char *)filename,(APTR)header );
D0 A0 A1

RewindSong -90(-$005A)
wersja: V1
wej¶cie: D0
rezultat: void
opis: Used to rewind a currently playing song. The play routine will
be called as many times as given in the speed parameter. The reverse
flag needs to be set!
void RewindSong( (UWORD)speed );
D0.W

SetChannelEnable -102(-$0066)
wersja: V1
wej¶cie: A0
rezultat: void
opis: Sets the status of the four channels. "flags" is a pointer to an
array of four boolean values (16 bits each).
void SetChannelEnable( (BOOL)flags[4] );
A0

SetDisplayEnable -132(-$0084)
wersja: V1
wej¶cie: D0
rezultat: void
opis: funkcja prywatna
void SetDisplayEnable( (BOOL)flag );
D0

SetDisplaySignal -126(-$007E)
wersja: V1
wej¶cie: A0
D0
rezultat: void
opis: funkcja prywatna
void SetDisplaySignal( (struct Task *)task,(ULONG)displayMask );
A0 D0

SetModule -54(-$0036)
wersja: V1
wej¶cie: A0
A1
D0
rezultat: void
opis:   Sets a new module. Next time a song is started this module is used.
In one part files the file location and header could be the same, becuase
the function skips the headers.
void SetModule( (APTR)header,(APTR)fileLocation,(UWORD)fileLength );
A0 A1 D0

SetReverseEnable -108(-$006C)
wersja: V1
wej¶cie: D0
rezultat: void
opis: Sets the status of the reverse flag.
void SetReverseEnable( (BOOL)flag );
D0.W

SetTimeEnable -120(-$0078)
wersja: V1
wej¶cie: D0
rezultat:
opis: funkcja prywatna
void SetTimeEnable( (BOOL)flag );
D0

SetTimeSignal -114(-$0072)
wersja: V1
wej¶cie: A0
D0
rezultat: void
opis: funkcja prywatna
void SetTimeSignal( (struct Task *)task,(ULONG)timeMask );
A0 D0

SetVertFreq -96(-$0060)
wersja: V1
wej¶cie: D0
rezultat: void
opis: Sets the simulated TV system frequence. 50Hz for PAL or 60Hz for NTSC.
void SetVertFreq( (UWORD)frequency );
D0.W

StartSong -60(-$003C)
wersja: V1
wej¶cie: D0
rezultat: D0
opis: Starts to play the supplied tune number. The audio device, timers
and interrupts are allocated.
error=(LONG)StartSong( (UWORD)tune );
D0 D0.W

StopSong -66(-$0042)
wersja: V1
wej¶cie: void
rezultat: void
opis:   Stops the current song. The audio device, timers and interrupts are freed.
void StopSong( void );

So Readicon takes

Code: [Select]

error=(LONG)ReadIcon( (char *)filename,(APTR)header );
D0 A0 A1Thats where i fail / the programm crahes, can you pleas push me to the right direction.

[SamuraiCrow]

Since the library is written in C and/or Assembly, some conventions are used that are different than AmosPro.  One example is string handling.  AmosPro, like many BASIC variations, stores the length of the string so that it doesn't have to recalculate it every time.  C doesn't do that.  It marks the end with a null character.  Because that is the case, you need a conversion function that will add the CHR$(0) on the end to create a null character and send the address of the first character to the function you need.

Also, if a function has a return code, you have to check that as well.  If it is properly handled, you may have to assign a function's return code to a variable.  If you're using the LVO wrapper, it might let you use the format:

Code: [Select]

FNAME$="Filename.sid"+Chr$(0)
Reserve As Bank Work 14, 124 ` allocate size of PlaySid header in bank 14
SIDHEAD=Start(14) ` copy the start address of the header into a variable
STATUS=Lvo Readicon(Varptr(FNAME$)+2, SIDHEAD) ` read the icon of filename.sid into the header.
By the way, I had to download PlaySid3 just to find the documentation needed to use the library.  It takes more than just functions, it takes structures also.

[zerina]

Again thanks for your Help,

i have hacked some small code, it still crashes, now when calling the playsong function, all other calls deliver no error, so my guess is, that i reference the sid module false. so the pointer is wrong.

Code: [Select]

Erase All
A=_playsid Base()
If A=0
 Print "error"
End If
A=Lvo Allocemulresource()
M0DULE$=Fsel$("*.sid","","Load a ","SID Module")
M0DULE$=M0DULE$+Chr$(0)
Open Random 1,M0DULE$
M0DULE_LENGTH=Lof(1)
Close 1
If Chip Free<M0DULE_LENGTH
   Cls
   Centre "Not enough CHIP RAM.  Press any key to exit."
   Wait Key
End If
Reserve As Work 14,124
SIDHEAD=Start(14)
STATUS=Lvo Readicon(Varptr(M0DULE$),SIDHEAD)
Print STATUS
STATUS=Lvo Checkmodule(SIDHEAD)
Print STATUS

M0DULE_POINTER=Varptr(M0DULE$)
STATUS=Lvo Setmodule(SIDHEAD,M0DULE_POINTER,M0DULE_LENGTH)
Print STATUS

STATUS=Lvo Startsong(1)
Print STATUS
Wait Key


[SamuraiCrow]

You need to add 2 to the location of VarPtr(MODULE$) because the length of the string is stored in the first two byte word of MODULE$.  I should have explained that earlier.

[zerina]

I tested that but if doing so then the string is left cutted 2 chars
for example the string is "Amos:mytune.sid"
then when running the readicon function the system says
"Inset Volume os"
if removing the the +2 no error comes up.

[Lonewolf10]

Your error routine stops until you press a key. I suggest adding an End instruction (coloured green in the code below), for safety
Are you sure that the bank you are reserving is large enough (highlighted in red)? Shouldn't that be replaced with MODULE_LENGTH, or is that purely for the header only??


If Chip Free<M0DULE_LENGTH
   Cls
   Centre "Not enough CHIP RAM.  Press any key to exit."
   Wait Key
   End
End If
Reserve As Work 14,124



Edit: Are you sure the bank is being reserved in Chip RAM and not fast RAM?

[SamuraiCrow]

Bank 14, as my example allocated, was to be allocated in FAST RAM for use as the header only.

Edit:  @Lonewolf10: The SID file can be Fast RAM as well because SID files contain only 4-bit samples that have to be converted by the library in realtime.  The other 3 voices are synthesized in realtime by the library also thus all Chip RAM needed is allocated by the library itself, I would think.

@zebrina:
Where are you loading the SID file itself?

[Lonewolf10]

Bank 14, as my example allocated, was to be allocated in FAST RAM for use as the header only.

Ahh, I see.

Edit:  @Lonewolf10: The SID file can be Fast RAM as well because SID files contain only 4-bit samples that have to be converted by the library in realtime.  The other 3 voices are synthesized in realtime by the library also thus all Chip RAM needed is allocated by the library itself, I would think.

Ok

[zerina]

Where are you loading the SID file itself?

well this is the part where the sid file is beeing selected and loaded

Code: [Select]

M0DULE$=Fsel$("*.sid","","Load a ","SID Module")
M0DULE$=M0DULE$+Chr$(0)
Open Random 1,M0DULE$
M0DULE_LENGTH=Lof(1)

[SamuraiCrow]

I see that you open the file, find the length, and close it.  It never reads it into a bank after that.  Before you use LVO Setmodule you need to load the file into another bank with either a "Reserve as Work 15, MODULE_LENGTH:Bload module$, 15" or something similar from the library itself.