kickc/src/test/ref/condition-integer-4.asm

// Tests using integer conditions in && and || operator
// This should produce '01010101', '00110011', '00010001', '01110111' at the top of the screen
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
  .label SCREEN = $400
main: {
    .label __4 = 2
    .label __5 = 3
    .label __8 = 4
    .label __9 = 5
    ldx #0
    ldy #0
  __b1:
    // i&1
    tya
    and #1
    // if(i&1)
    cmp #0
    beq __b2
    // (SCREEN+40*0)[idx] = '+'
    lda #'+'
    sta SCREEN,x
  __b2:
    // i&2
    tya
    and #2
    // if(i&2)
    cmp #0
    beq __b3
    // (SCREEN+40*1)[idx] = '+'
    lda #'+'
    sta SCREEN+$28*1,x
  __b3:
    // i&1
    tya
    and #1
    sta.z __4
    // i&2
    tya
    and #2
    sta.z __5
    // if(i&1 && i&2)
    lda #0
    cmp.z __4
    beq __b4
    cmp.z __5
    beq __b4
    // (SCREEN+40*2)[idx] = '+'
    lda #'+'
    sta SCREEN+$28*2,x
  __b4:
    // i&1
    tya
    and #1
    sta.z __8
    // i&2
    tya
    and #2
    sta.z __9
    // if(i&1 || i&2)
    lda #0
    cmp.z __8
    bne __b9
    cmp.z __9
    beq __b5
  __b9:
    // (SCREEN+40*3)[idx] = '+'
    lda #'+'
    sta SCREEN+$28*3,x
  __b5:
    // idx++;
    inx
    // for( byte i:0..7)
    iny
    cpy #8
    bne __b1
    // }
    rts
}