.include "system/system.h65"
.include "system/lcd.h65"

.segment "TEST"
.macro MaskedWrite2 addr,value,mask
    lda #value
    eor addr
    and #mask
    eor addr
    sta addr
.endmacro
.import __SPI_SIZE__
label:
    ; JsrIndirect $2022
    ; .byte 0,1,2,3,4
    ; JsrIndirect {($2022,x)}, label
    ; .byte 5,6,7,8,9
    ; MaskedWrite2 lcd::LCD_IO+IO::DDRA, (lcd::RS | lcd::RW | lcd::E), lcd::RA_MASK
    ; lda #(lcd::RS | lcd::RW | lcd::E)   ; RA 5-7 output
    ; sta lcd::LCD_IO+IO::DDRA
    .word __SPI_SIZE__
    .byte >__SPI_SIZE__
    .byte <__SPI_SIZE__