// Tests a simple word array
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
  .const SIZEOF_WORD = 2
main: {
    .label SCREEN = $400+6*$28
    .label words = $400
    .label w1 = 2
    .label w2 = 4
    // w1 = words[1]
    lda words+1*SIZEOF_WORD
    sta.z w1
    lda words+1*SIZEOF_WORD+1
    sta.z w1+1
    // <w1
    lda.z w1
    // SCREEN[0] = <w1
    sta SCREEN
    // >w1
    lda.z w1+1
    // SCREEN[1] = >w1
    sta SCREEN+1
    // w2 = words[2]
    lda words+2*SIZEOF_WORD
    sta.z w2
    lda words+2*SIZEOF_WORD+1
    sta.z w2+1
    // <w2
    lda.z w2
    // SCREEN[2] = <w2
    sta SCREEN+2
    // >w2
    lda.z w2+1
    // SCREEN[3] = >w2
    sta SCREEN+3
    // }
    rts
}
