mirror of
https://github.com/irmen/prog8.git
synced 2024-09-11 15:55:55 +00:00
166 lines
3.5 KiB
Plaintext
166 lines
3.5 KiB
Plaintext
; call tests
|
|
|
|
~ 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"
|
|
|
|
sub sub1 () -> (X?) = $ffdd
|
|
sub sub2 (A) -> (Y?) = $eecc
|
|
sub sub3 (XY) -> (Y?) = $ddaa
|
|
sub sub4 (string: XY, other : A) -> (Y?) = $dd22
|
|
|
|
bar2:
|
|
|
|
bar: goto $c000
|
|
goto var1 ; jumps to the address in var1
|
|
goto mem1 ; jumps to the address in mem1
|
|
goto &var1 ; strange, but jumps to the location in memory where var1 sits
|
|
goto &mem1 ; strange, but jumps to the location in mempory where mem1 sits (points to)
|
|
goto [var1]
|
|
goto [$c000.word]
|
|
goto [var1]
|
|
goto [mem1]
|
|
|
|
; ----
|
|
|
|
goto sub1
|
|
;goto sub2 (1 ) ; @todo error, must be return sub2(1) -> optimized in 'tail call'
|
|
return sub2 ( )
|
|
return sub2 ()
|
|
return sub2 (1 )
|
|
return sub3 (3)
|
|
return sub3 (XY="hello")
|
|
return sub3 ("hello, there")
|
|
return sub4 (string="hello, there", other = 42)
|
|
return sub4 ("hello", 42)
|
|
return sub4 ("hello", other= 42)
|
|
return sub4 (string="hello", other = 42)
|
|
return bar ()
|
|
goto [AX]
|
|
; goto [AX()] % ; @todo error, must be return()
|
|
goto [var1]
|
|
goto [mem1] ; comment
|
|
goto $c000
|
|
goto 64738
|
|
64738(1,2) ; @todo jsr $64738 ??
|
|
return 9999() ; @todo jsr 9999 ??
|
|
return [AX]()
|
|
return [var1] () ; comment
|
|
return [mem1] ()
|
|
goto $c000
|
|
return $c000 ( )
|
|
goto $c2
|
|
return $c2()
|
|
goto [$c2.word]
|
|
return 33
|
|
return [$c2.word] ; @todo this as rvalue
|
|
; [ $c2.word (4) ] ;@ todo parse precedence
|
|
return [$c2.word] (4)
|
|
return [$c2.word] (4)
|
|
return [$c2.word] (4)
|
|
return [$c2.word] (4)
|
|
; return [$c2dd.word] ( ) ;@ todo parse precedence
|
|
goto [$c2dd.word]
|
|
|
|
%asm {
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
sub1!()
|
|
sub2!(11)
|
|
sub3 !(3)
|
|
sub3! (XY="hello")
|
|
sub3! ("hello, there")
|
|
sub4! ("hello", 42)
|
|
sub4! ("hello", other=42)
|
|
sub4! (string="hello", other = 42)
|
|
sub4! (string="hello, there", other = 42)
|
|
|
|
sub3 (81)
|
|
sub3 !(81)
|
|
sub3 !A (81)
|
|
sub3 !X (81)
|
|
sub3 !Y (81)
|
|
sub3 !XY (81)
|
|
sub3 !AXY (81)
|
|
|
|
bar!()
|
|
bar !()
|
|
[XY]! ()
|
|
[XY] ! ()
|
|
[var1]!()
|
|
[mem1]!()
|
|
[$c2.word]!()
|
|
[$c2dd.word]!()
|
|
$c000!()
|
|
$c2!()
|
|
|
|
%asm {
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
sub1()
|
|
sub2(11)
|
|
sub3 (3)
|
|
sub3 (XY="hello")
|
|
sub3 ("hello, there")
|
|
sub4 ("hello", 42)
|
|
sub4 ("hello", other= 42)
|
|
sub4 (string="hello", other = 42)
|
|
sub4 (string="hello, there", other = 42)
|
|
bar ()
|
|
[AX]()
|
|
[var1] ( )
|
|
[mem1] ()
|
|
A= [$c2.word(4)]
|
|
;A= [$c2.word() ] ; @todo Precedence?
|
|
;A= [$c2dd.word() ] ; @todo Precedence?
|
|
$c000()
|
|
$c2()
|
|
|
|
|
|
%asm {
|
|
nop
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
constw()
|
|
sub1()
|
|
main.start()
|
|
}
|
|
|
|
|
|
~ main {
|
|
|
|
start:
|
|
foo.bar()
|
|
return
|
|
|
|
sub unused_sub ()->() {
|
|
A=X
|
|
X=Y
|
|
Y=A
|
|
return
|
|
}
|
|
|
|
|
|
}
|