// 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 

 
.pc = $0400
.function toRe(i) .return -2+2.7*[i-floor(i/40)*40]/39
.function toIm(i) .return -1.6+3.2*floor(i/40)/24
.function mandelbroot(re,im) {
   .var zr = 0
   .var zi = 0 
   .var iter=0
   .for(;[zr*zr+zi*zi]<4 && iter<20;iter++) {
      .var newZr = zr*zr-zi*zi + re
      .var newZi = 2*zr*zi + im
      .eval zr = newZr
      .eval zi = newZi
   }
   .var colors = List().add($20,$0f,$20,$08)
   .return colors.get(iter&3) 
} 
.fill 25*40,mandelbroot(toRe(i),toIm(i))

.pc = $1000
.if (trickyLabel<$2000) {
.fill $2000,0	
}
trickyLabel: 

.var x = labelResolveLater		// Assignments works fine	
.var y = min(x + 400, pow(x,3))  	// Functions etc. work fine
 sta $1000+y			// Asm commands works fine 
labelResolvedLater:

.var x = labelResolveLater		// Assignments works fine	
.var y = min(x + 400, pow(x,3))  	// Functions etc. work fine
 .if (y<100) sta $1000+y		// .ifs won’t work
labelResolvedLater:

.macro Move(source, target, size) {
	.if (size<=$1000)   :FastMove(source,target,size)
	.if (size>$1000)    :GeneralMove(source,target,size)
} 

// define macro...
.macro add16 (adr, number) {
    lda adr
    clc
    adc #<number
    sta adr
    lda adr+1
    adc #>number
    sta adr+1
}

//use it...
    :add16($fe,3)
    :add16($2000,$ffff)

.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)

.pseudocommand add16 arg1;arg2;arg3 {
	// Use first argument as target if none is given
	.if (arg3.getType()==AT_NONE)
		.eval arg3=arg1

	// Arg1		
	.var arg1a = CmdArgument(arg1.getType(), arg1.getValue()) 
	.var arg1b = CmdArgument(arg1.getType(), arg1.getValue()+1) 
	
	// Arg2
	.if (arg2.getType()==AT_IMMEDIATE) {
		.var arg2a = CmdArgument(arg2.getType(), <arg2.getValue()) 
		.var arg2b = CmdArgument(arg2.getType(), >arg2.getValue()) 
	} else {
		.var arg2a = CmdArgument(arg2.getType(), arg2.getValue()) 
		.var arg2b = CmdArgument(arg2.getType(), arg2.getValue()+1) 
	}
	
	// Arg3 (Destination)
	.var arg3a = CmdArgument(arg3.getType(), arg3.getValue()) 
	.var arg3b = CmdArgument(arg3.getType(), arg3.getValue()+1) 

	clc
	lda arg1a
	adc arg2a
	sta arg3a
	lda arg1b
	adc arg2b
	sta arg3b
}

	:add16 point1 ; #$1234               // p1=p1+$1234
	nop
	:add16 point1 ; point2               // p1=p1+p2
	nop
	:add16 point1 ; point2 ; point3      // p3=p1+p2
	nop
	:add16 pointTable,x ; pointTable,y ; point3 // p3 = pointTable[x] + pointTable[y]

 :Do_irq (controlirq,$0090,true)
                     ^

Error: Syntax error

In cml.kickass.libraries.MathLibrary:

if(name.equals("mod"))
{
   nrOfArgs(2, args, a);
   return new NumberValue((double)(((int)a[0]) % ((int)a[1])));
}

.print "al C:"+toHexString(myLabel1) + " .myLabel1"
.print "al C:"+toHexString(myLabel2) + " .myLabel2"
etc.

    seg.u zp
    org $a0
ptr_zp:
    ds.w 1

    seg.u bss
    org $a000
var:
    ds.b 1
    align 256
table:
    ds.b 256

.segment zp {
  .pc = $a0 virtual
  ptr_zp: .word 0
  flag_zp: .byte 0
}
.segment code {
  .pc = $1000
  sei
  ... code here ...
}
.segment bss {
  .pc = $4000 virtual // or even .pc = segment(code).end or similar
  flag: .byte 0
  .align 256
  tab: .fill 256 // should default to .fill 256,0 if it doesn't already
}

.segment zp {
  ptr2_zp: .word 0
}
.segment code {
  ... more code ...
}
.segment bss {
  ... more bss ...
}

.segment code {
  scope: {
    .segment zp {
      ptr_zp: .word 0
    }
  }
}

.print "al C:"+toHexString(myLabel1) + " .myLabel1"
.print "al C:"+toHexString(myLabel2) + " .myLabel2"
etc.

.macro export(sym) {
    .print ".var " + sym.name + "= $" + toHexString(sym)
}

label:
        jmp label
    :export(label)

    .pc = $1000
    sei
loop:
    inc $d020
    jmp loop

    lda #$00
hi_addr = * + 2
    sta $1000

or
sintab:
    .fill 256, blahblah...
costab = sintab + 64

.macro BasicUpstart(address) {
	.byte <upstartEnd, >upstartEnd,10,0,$9e
	.text ""+address
	.byte 0,0,0		 
upstartEnd: 
}

// The function 
.function toDecString(value) {
	.var strValue = ""+value
	.for (var i=0;i<strValue.size(); i++) 
		.if (strValue.charAt(i)==".")	.return strValue.substring(0,i)
	.return strValue
}


// Some examples
.print "decString1="+toDecString(15.12324)
.print "decString1="+toDecString(11)
.print "decString1="+toDecString(-3.9)


// Basic upstart macro with decString
.macro BasicUpstart2(address) {
	.byte <upstartEnd, >upstartEnd,10,0,$9e
	.text ""+toDecString(address)
	.byte 0,0,0		 
upstartEnd: 
}

.macro BasicUpstart(address) {
	.word upstartEnd  // link address
        .word 10   // line num
        .byte $9e  // sys
	.text ""+address
	.byte 0
upstartEnd:
        .word 0  // empty link signals the end of the program
}

.var InfoList = List(12)

.pc=$0400
.for(var j=0; j<InfoList.size(); j++)
{
  .for(var i=0; i<InfoList.get(j).size(); i++)
  {
    .by [InfoList.get(j).charAt(i)]
  }
}

.te [InfoList.get(j).charAt(i)]+$1

.var allChars = "abcdefghijklmnopqrstuvwxyz"
.var charToValueTable = Hashtable()
.var valueToCharTable = Hashtable()
.for (var i=0; i<allChars.size(); i++) {
  .eval charToValueTable.put(allChars.charAt(i), i)
  .eval valueToCharTable.put(i, allChars.charAt(i))
}

.by charToValueTable.get(InfoList.get(j).charAt(i))+1

    .import c64 “myfile.prg” 

.pc = $1000 "one byte"
.byte 1
.pc = $1001 "one more"
.byte 1

.pc = $2000 "charset"
.import c64 "endcharset.c64" 
.pc = $2800 "byte after charset"
.byte 1

Memory Map
----------
$1000-$1000 one byte
$1001-$1001 one more
$2000-$27ff charset
$2800-$2800 byte after charset

C:\Download\Kick!Assembler\Examples\MusicIrq>java -jar ..\..\KickAss.jar MusicIr
q.asm
//------------------------------------------------------
//------------------------------------------------------
//   Kick Assembler v3.4 - (C)2006-2009 Mads Nielsen
//------------------------------------------------------
//------------------------------------------------------
parsing
flex pass 1
flex pass 2
Output pass
Writing file: MusicIrq.prg

.. unzip to KickAss!, then 
C:\KickAssTest!>set CLASSPATH=c:\KickAssTest!\KickAss!

C:\KickAssTest!>java cml.kickass.KickAssembler test.asm

parsing
flex pass 1
Output pass
Writing file: test.prg

C:\KickAssTest!>