1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-10-21 17:24:39 +00:00
kickc/src/test/ref/loopnest3.asm

38 lines
461 B
NASM
Raw Normal View History

.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
.label SCREEN = $400
main: {
lda #0
__b1:
2020-02-23 08:44:36 +00:00
// b(i)
jsr b
2020-02-23 08:44:36 +00:00
// for(byte i:0..100)
clc
adc #1
cmp #$65
bne __b1
2020-02-23 08:44:36 +00:00
// }
rts
}
// b(byte register(A) i)
b: {
2020-02-23 08:44:36 +00:00
// c(i)
jsr c
2020-02-23 08:44:36 +00:00
// }
rts
}
// c(byte register(A) i)
c: {
ldx #0
__b1:
2020-02-23 08:44:36 +00:00
// SCREEN[j] = i
sta SCREEN,x
2020-02-23 08:44:36 +00:00
// for( byte j: 0..100)
inx
cpx #$65
bne __b1
2020-02-23 08:44:36 +00:00
// }
rts
}