1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-09-29 03:56:15 +00:00
kickc/src/test/ref/summin.asm

34 lines
380 B
NASM
Raw Normal View History

2017-11-04 18:53:55 +00:00
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
.label screen = $400
2017-11-04 18:53:55 +00:00
main: {
.label s1 = 2
.label s3 = 3
lda #2
2018-05-31 22:45:18 +00:00
ldy #1
2017-11-04 18:53:55 +00:00
jsr sum
sta s1
lda #4
2018-05-31 22:45:18 +00:00
ldy #3
2017-11-04 18:53:55 +00:00
jsr sum
2018-05-31 22:45:18 +00:00
tax
2017-11-04 18:53:55 +00:00
lda #$d
2018-05-31 22:45:18 +00:00
ldy #9
2017-11-04 18:53:55 +00:00
jsr sum
sta s3
2018-05-31 22:45:18 +00:00
txa
2017-11-04 18:53:55 +00:00
clc
adc s1
clc
adc s3
sta screen
2017-11-04 18:53:55 +00:00
rts
}
2017-08-12 16:30:21 +00:00
sum: {
2018-05-31 22:45:18 +00:00
sty $ff
2017-08-12 16:30:21 +00:00
clc
adc $ff
rts
}