// Load the music into an object in the script language .var music = LoadSid("C:/C64Music/Tel_Jeroen/Closing_In.sid") // init the music lda #music.startSong-1 jsr music.init // play the music jsr music.play
.enum {IMM, ABS, ABSX, ABSY} .macro add16(mode, arg1, arg2) { clc :add8_nc(mode,arg1,arg2) :add8_nc(mode,arg1+1,arg2+1) } // Add8 no carry .macro add8_nc(mode, arg1, arg2) { lda arg1 .if (mode==IMM) adc #arg2 else .if (mode==ABS) adc arg2 else .if (mode==ABSX) adc arg2,x else .if (mode==ABSY) adc arg2,y else .print "Error: Invalid mode!" sta arg1 }
:add16(IMM,point1,$0800) :add16(ABS,point1,point2) ldx #27 :add16(ABSX,point1,pointTable)