// Tests that single-line comments are compiled correctly // Has a bunch of comments that will be moved into the generated ASM .pc = $801 "Basic" :BasicUpstart(main) .pc = $80d "Program" // One of the bytes used for addition .const a = 'a' // The C64 screen .label SCREEN = $400 // The program entry point main: { ldx #0 ldy #0 // Do some sums __b1: // sum(a, b) tya jsr sum // SCREEN[i++] = sum(a, b) // Output the result on the screen sta SCREEN,x // SCREEN[i++] = sum(a, b); inx // for(byte b: 0..10 ) iny cpy #$b bne __b1 // } rts } // Adds up two bytes and returns the result // a - the first byte // b - the second byte // Returns the sum pf the two bytes // sum(byte register(A) b) sum: { // a+b clc adc #a // } rts }