[CSDb] - User Forums - Sid playing automatically from .prg

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

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

; 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: 5094

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

!!!

Refresh

Subscribe to this thread: