mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-09-08 17:54:40 +00:00
34 lines
498 B
NASM
34 lines
498 B
NASM
// Tests that constants are identified early
|
|
.pc = $801 "Basic"
|
|
:BasicUpstart(bbegin)
|
|
.pc = $80d "Program"
|
|
.label SCREEN = $400
|
|
.label A = 2
|
|
bbegin:
|
|
// Not an early constant (address-of is used)
|
|
lda #'a'
|
|
sta.z A
|
|
jsr main
|
|
rts
|
|
main: {
|
|
.const B = 'b'
|
|
.label addrA = A
|
|
lda.z A
|
|
sta SCREEN
|
|
lda #B
|
|
sta SCREEN+1
|
|
lda.z addrA
|
|
sta SCREEN+2
|
|
jsr sub
|
|
rts
|
|
}
|
|
sub: {
|
|
.const C = 'c'
|
|
lda #C
|
|
sta SCREEN+3
|
|
ldx.z A
|
|
inx
|
|
stx SCREEN+4
|
|
rts
|
|
}
|