2017-11-04 18:53:55 +00:00
|
|
|
.pc = $801 "Basic"
|
|
|
|
:BasicUpstart(main)
|
|
|
|
.pc = $80d "Program"
|
2018-01-31 20:27:22 +00:00
|
|
|
.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
|
2017-11-30 22:19:02 +00:00
|
|
|
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
|
|
|
|
}
|