Commander X16

 

Thanks a lot for this! The interrupt handler is particularly valuable for me and also your blog post explaining how it works. I managed to adapt the code slightly and use it in my upcoming "Invaderz" game (written in C)  - if that's ok?.

I'm just thinking to improve it further so it would use multiple PSG channels. I have the situation that sound effects could overlap (shots + explosions). That would require the player to use a new channel every time a previous effect is still running - let's say for up to 4 channels. Right now I just hacked this by duplicating the code and the variables 4 times - with some checks which one to use in the beginning. Not the most elegant way of doing it. But my 6502 assembler skills are just not good enough (yet) for anything else (I used to code 68000 assembler, totally different).

Did you consider improving the player in that direction?

Of course Andy, that's why I posted the source code so that anybody can reuse it.

I didn't plan to make this particular library multichannel but it should be pretty easy doable. I think your approach to simply duplicate the code four times for four channels is totally fine, the other approach would be a loop.

I am actually working on another library that is intended to play music in the background and supports full ADSR sound modulation and would have few predefined instruments etc. It is almost working but I am currently distracted by another project but hopefully I can find few days to finish and test it.

I'm going to plug this into my Rogue Forest program, because it's got exactly what I want: simple sound effects.

 

22 hours ago, rje said:

I'm going to plug this into my Rogue Forest program, because it's got exactly what I want: simple sound effects.



 

Great, I am glad you find it useful.

That's really nice ... xForth uses $8000-$9BFF as seven block buffers, so the $9000 verdipon can be installed at the cost of one buffer.

Does it preserve registers? If so:

CODE PING $9000 CALL, ENDCODE

...and a PING word would be defined. Otherwise I'll have to add PHX, PHY, PLX, PLY, to my small set of code words.

(NB. Don't look for ;CODE and friends in the uploaded version, that's in the next on coming this weekend).

 

So I wrote this quick-and-dirty BASIC program just to play with the values, and it works ... as long as I don't try to change the envelope while the sound routine is actually running.  In other words, you have to wait for the decay to complete before changing a value!

 


TEST-SOUND.BAS

22 hours ago, BruceMcF said:

That's really nice ... xForth uses $8000-$9BFF as seven block buffers, so the $9000 verdipon can be installed at the cost of one buffer.



Does it preserve registers? If so:



CODE PING $9000 CALL, ENDCODE



...and a PING word would be defined. Otherwise I'll have to add PHX, PHY, PLX, PLY, to my small set of code words.



(NB. Don't look for ;CODE and friends in the uploaded version, that's in the next on coming this weekend).



 

Very cool! No I don't preserve registers.

16 hours ago, rje said:

So I wrote this quick-and-dirty BASIC program just to play with the values, and it works ... as long as I don't try to change the envelope while the sound routine is actually running.  In other words, you have to wait for the decay to complete before changing a value! 



 



TEST-SOUND.BAS 871 B · 0 downloads

Interesting. It might be tricky to poke values directly because BASIC might be too slow and the player is called 50 times per second. Maybe try stopping the current sound by poking 0 into "running" first, change the envelope parameters and then start the sound by poking 255 into "phase". Obviously I haven't tried this...

On 8/30/2020 at 3:37 PM, DusanStrakl said:

Interesting. It might be tricky to poke values directly because BASIC might be too slow and the player is called 50 times per second. Maybe try stopping the current sound by poking 0 into "running" first, change the envelope parameters and then start the sound by poking 255 into "phase". Obviously I haven't tried this...

I'll add these and see what happens!  

stop:
;*******************************************************************************
        ldx #0
        stx running
        rts

restart:
;*******************************************************************************
        ldx #$ff
        stx phase
        rts