mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-11-20 02:32:36 +00:00
47 lines
774 B
NASM
47 lines
774 B
NASM
|
// 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
|
||
|
|
.label idx = 4
|
||
|
|
.label y = 2
|
||
|
|
.label line = 3
|
||
|
|
main: {
|
||
|
|
lda #0
|
||
|
|
sta line
|
||
|
|
sta y
|
||
|
|
sta idx
|
||
|
|
sta x
|
||
|
|
b1:
|
||
|
|
inc x
|
||
|
|
ldy #0
|
||
|
|
b2:
|
||
|
|
lda idx
|
||
|
|
asl
|
||
|
|
tax
|
||
|
|
lda y
|
||
|
|
sta p+OFFSET_STRUCT_POS_Y,x
|
||
|
|
lda x
|
||
|
|
sta p,x
|
||
|
|
inc idx
|
||
|
|
lax x
|
||
|
|
axs #-[XSPACE]
|
||
|
|
stx x
|
||
|
|
iny
|
||
|
|
cpy #8
|
||
|
|
bcc b2
|
||
|
|
lax y
|
||
|
|
axs #-[YSPACE]
|
||
|
|
stx y
|
||
|
|
inc line
|
||
|
|
lda line
|
||
|
|
cmp #8
|
||
|
|
bcc b1
|
||
|
|
rts
|
||
|
|
}
|
||
|
|
p: .fill 2*$40, 0
|