24 lines
563 B
Plaintext
24 lines
563 B
Plaintext
.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__
|