1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-11-05 10:04:48 +00:00
kickc/src/test/ref/dword.asm

30 lines
388 B
NASM
Raw Normal View History

.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
main: {
.label SCREEN = $400
2019-11-03 19:11:06 +00:00
.const a = $ee6b2800
.label b = 2
ldx #0
__b1:
txa
clc
adc #<a
sta.z b
lda #>a
adc #0
sta.z b+1
lda #<a>>$10
adc #0
sta.z b+2
lda #>a>>$10
adc #0
sta.z b+3
lda.z b
sta SCREEN,x
inx
cpx #$65
bne __b1
rts
}