mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-10-21 02:24:34 +00:00
27 lines
381 B
NASM
27 lines
381 B
NASM
// Tests calling into a function pointer which modifies global volatile
|
|
.pc = $801 "Basic"
|
|
:BasicUpstart(bbegin)
|
|
.pc = $80d "Program"
|
|
.label SCREEN = $400
|
|
.label idx = 2
|
|
bbegin:
|
|
lda #0
|
|
sta.z idx
|
|
jsr main
|
|
rts
|
|
main: {
|
|
jsr fn1
|
|
lda #'a'
|
|
ldy.z idx
|
|
sta SCREEN,y
|
|
jsr fn1
|
|
lda #'a'
|
|
ldy.z idx
|
|
sta SCREEN,y
|
|
rts
|
|
}
|
|
fn1: {
|
|
inc.z idx
|
|
rts
|
|
}
|