mirror of
https://github.com/irmen/prog8.git
synced 2024-09-17 07:55:28 +00:00
90 lines
1.4 KiB
Plaintext
90 lines
1.4 KiB
Plaintext
; call tests
|
|
|
|
;output
|
|
|
|
|
|
~ foo {
|
|
|
|
var .word var1 = 99
|
|
memory .word mem1 = $cff0
|
|
|
|
var .byte varb1 = 99
|
|
memory .byte memb1 = $cff0
|
|
const .word constw = $2355
|
|
const .byte constb = $23
|
|
const .float constf = 3.4556677
|
|
const .text constt = "derp"
|
|
|
|
subx sub1 () -> (X?) = $ffdd
|
|
|
|
|
|
bar
|
|
go sub1
|
|
go bar
|
|
go [AX]
|
|
go [var1]
|
|
go [mem1]
|
|
go [#mem1] ; @todo error: indirection of address-of makes no sense, should have outputted jmp mem1 instead of jmp(mem1)
|
|
go [$c2.word]
|
|
go [$c2dd.word]
|
|
go $c000
|
|
go $c2
|
|
|
|
asm {
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
fcall sub1
|
|
fcall bar
|
|
fcall [XY]
|
|
fcall [var1]
|
|
fcall [mem1]
|
|
fcall [#mem1] ; @todo error: indirection of address-of makes no sense
|
|
fcall [$c2.word]
|
|
fcall [$c2dd.word]
|
|
fcall $c000
|
|
fcall $c2
|
|
|
|
asm {
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
call sub1
|
|
call bar
|
|
call [AX]
|
|
call [var1]
|
|
call [mem1]
|
|
call [#mem1] ; @todo error: indirection of address-of makes no sense
|
|
call [$c2.word]
|
|
call [$c2dd.word]
|
|
call $c000
|
|
call $c2
|
|
|
|
|
|
asm {
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
call constw
|
|
call sub1
|
|
call main.start
|
|
|
|
}
|
|
|
|
|
|
~ main {
|
|
|
|
start
|
|
call foo.bar
|
|
return
|
|
}
|