/* Tests that block 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
}
