1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-11-20 02:32:36 +00:00
kickc/src/test/ref/struct-pos-fill.asm

47 lines
804 B
NASM
Raw Normal View History

2019-08-01 10:58:40 +00:00
// Example of structs that can be optimized by going planar
// https://cc65.github.io/mailarchive/2010-09/8593.html?fbclid=IwAR1IF_cTdyWcFeKU93VfL2Un1EuLjkGh7O7dQ4EVj4kpJzJAj01dbmEFQt8
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
.const OFFSET_STRUCT_POS_Y = 1
.const XSPACE = $14
.const YSPACE = $14
.label x = 5
2019-08-01 10:58:40 +00:00
.label idx = 4
.label y = 3
.label line = 2
2019-08-01 10:58:40 +00:00
main: {
lda #0
sta.z y
sta.z idx
sta.z x
sta.z line
b2:
inc.z x
2019-08-01 10:58:40 +00:00
ldy #0
b4:
lda.z idx
2019-08-01 10:58:40 +00:00
asl
tax
lda.z y
2019-08-01 10:58:40 +00:00
sta p+OFFSET_STRUCT_POS_Y,x
lda.z x
2019-08-01 10:58:40 +00:00
sta p,x
inc.z idx
lax.z x
2019-08-01 10:58:40 +00:00
axs #-[XSPACE]
stx.z x
2019-08-01 10:58:40 +00:00
iny
cpy #8
bcc b4
lax.z y
axs #-[YSPACE]
stx.z y
inc.z line
lda.z line
cmp #8
bcc b2
rts
2019-08-01 10:58:40 +00:00
}
p: .fill 2*$40, 0