Log inRegister an accountBrowse CSDbHelp & documentationFacts & StatisticsThe forumsAvailable RSS-feeds on CSDbSupport CSDb Commodore 64 Scene Database
You are not logged in - nap
CSDb User Forums


Forums > C64 Composing > Sid playing automatically from .prg
2007-08-10 17:47
neshmod
Account closed

Registered: Aug 2007
Posts: 2
Sid playing automatically from .prg

Hi,

Im looking for very simple source code or program to make executable .prg file from .sid, similar to psid64. Psid64 is good but I just want to show Song name and Author on screen while song plays, nothing else.

BR, nesh.
2007-08-10 19:02
tlr

Registered: Sep 2003
Posts: 1714
I think there is an example program for this in Kick-Assembler. I could depend on your .sid of course, but most should be easy to get working.
2007-08-10 19:47
Scout

Registered: Dec 2002
Posts: 1568
; Quick n dirty SID player by Scout
; Compiles with TASS 1.45
; Doesn't work with multispeed & sample-tunes :P

*=$0800

		.byte $00,$0b,$08	; BASIC line setup; 666 sys2061
		.word 666		
		.byte $9e		
		.text "2061",0,0,0	

*=$080d

		lda #$00
		jsr $1000		; init music

		lda #<yoyo
		ldy #>yoyo
		jsr $ab1e


		sei
		lda #$00
		sta $d012
		
playloop
		lda #$38
		cmp $d012
		bne *-3
		dec $d020
		jsr $1003		; play music
		inc $d020
		jmp playloop

		.enc screen
yoyo
		.byte 147	; <-- clear screen
		.text "i made this ubercool zax in 2007 ad!",0  ; <--- your 1337 text. add a 0 (zero) to end string
*=$1000

.binary "Maniac_Mansion.sid",126	; load sid, strip the SID header (126 bytes)
2007-08-10 19:59
neshmod
Account closed

Registered: Aug 2007
Posts: 2
Thank you both very much! I got it working now \o/
2007-08-10 20:04
Oswald

Registered: Apr 2002
Posts: 5017
Quote:
; Quick n dirty SID player by Scout
; Compiles with TASS 1.45
; Doesn't work with multispeed & sample-tunes :P

*=$0800

		.byte $00,$0b,$08	; BASIC line setup; 666 sys2061
		.word 666		
		.byte $9e		
		.text "2061",0,0,0	

*=$080d

		lda #$00
		jsr $1000		; init music

		lda #<yoyo
		ldy #>yoyo
		jsr $ab1e


		sei
		lda #$00
		sta $d012
		
playloop
		lda #$38
		cmp $d012
		bne *-3
		dec $d020
		jsr $1003		; play music
		inc $d020
		jmp playloop

		.enc screen
yoyo
		.byte 147	; <-- clear screen
		.text "i made this ubercool zax in 2007 ad!",0  ; <--- your 1337 text. add a 0 (zero) to end string
*=$1000

.binary "Maniac_Mansion.sid",126	; load sid, strip the SID header (126 bytes)


.word 666


!!!
RefreshSubscribe to this thread:

You need to be logged in to post in the forum.

Search the forum:
Search   for   in  
All times are CET.
Search CSDb
Advanced
Users Online
Zardax/Artline Designs
ΛΛdZ
Mihai
Ray Manta/DataDoor
Guests online: 129
Top Demos
1 Next Level  (9.8)
2 Mojo  (9.7)
3 Coma Light 13  (9.7)
4 Edge of Disgrace  (9.6)
5 Comaland 100%  (9.6)
6 No Bounds  (9.6)
7 Uncensored  (9.6)
8 Wonderland XIV  (9.6)
9 Memento Mori  (9.6)
10 Bromance  (9.5)
Top onefile Demos
1 It's More Fun to Com..  (9.7)
2 Party Elk 2  (9.7)
3 Cubic Dream  (9.6)
4 Copper Booze  (9.5)
5 TRSAC, Gabber & Pebe..  (9.5)
6 Rainbow Connection  (9.5)
7 Wafer Demo  (9.5)
8 Dawnfall V1.1  (9.5)
9 Quadrants  (9.5)
10 Daah, Those Acid Pil..  (9.5)
Top Groups
1 Nostalgia  (9.3)
2 Oxyron  (9.3)
3 Booze Design  (9.3)
4 Censor Design  (9.3)
5 Crest  (9.3)
Top Musicians
1 Vincenzo  (9.8)
2 Rob Hubbard  (9.7)
3 Stinsen  (9.7)
4 Jeroen Tel  (9.6)
5 Linus  (9.6)

Home - Disclaimer
Copyright © No Name 2001-2024
Page generated in: 0.058 sec.