prog8/testsource/conditionals.ill
Irmen de Jong e30ba696db options
2017-12-29 00:36:35 +01:00

137 lines
3.4 KiB
Plaintext

output prg,basic
import "c64lib"
~ main {
var .word value
memory .word memvalue = $8000
start
A = 100
; conditional if, without conditional expression. needs explicit if status.
if_not goto label
if_true goto label
if_zero goto label
if_cc goto label
if_lt goto label
if_le goto label
if_ge goto label
if_gt goto label
if_cc goto value
if_cc goto memvalue
if_cc goto #value
if_cc goto #memvalue
if_cc goto [value]
if_cc goto [memvalue]
if_cc goto $c000
if_cc goto [$c000.word]
label
; conditional if with a single 'truth' value (register)
if_true A goto label2
if_not A goto label2
if_zero A goto label2
if A goto label2
if_true X goto label2
if_not X goto label2
if_zero X goto label2
if X goto label2
if_true Y goto label2
if_not Y goto label2
if_zero Y goto label2
if Y goto label2
if_true XY goto label2
if_not XY goto label2
if_zero XY goto label2
if XY goto label2
label2
; conditional if with a single 'truth' value (variable)
if_true value goto label3
if_not value goto label3
if_zero value goto label3
if value goto label3
if_true memvalue goto label3
if_not memvalue goto label3
if_zero memvalue goto label3
if memvalue goto label3
; conditional if with a single 'truth' value (indirect address)
if_true [$c000] goto label
if_not [$c000] goto label
if_zero [$c000] goto label
if [$c000] goto label
; if_true [XY] goto label ; @todo support indirect reg
label3
return
}
; @todo temporarily disabled until comparison operators are properly implemented:
~ {
var .text name = "?"*80
var bytevar = 22
var bytevar2 = 23
var .word wordvar = 22345
start
c64util.init_system()
A = 0
printloop
c64util.print_byte_decimal(A)
c64.CHROUT('\n')
A++
if A <20 goto printloop
return
label1
if_true A==123 goto label1
if_true A == 123 goto label1
if_true A!=0 goto label1
if_not X!=0 goto label1
if_true A <= 1 goto label1
if_true A==1 goto label1
if_true A!=1 goto label1
if_not X < 1 goto label1
if_not Y>1 goto label1
if_not X!=1 goto label1
if_true 22<=Y goto label1
if_true A<=22 goto label1
if_true A<X goto label1
if_true X>Y goto label1
if_true X>A goto label1
if A<=22 goto label1
if A <= 22 goto label1
if_zero A goto label1
if_zero X goto label1
if Y goto label1
if_true XY goto label1
if_not XY goto label1
if A goto label1
if_not goto label1
if_true bytevar<=A goto label2
if_true bytevar<=22 goto label2
if bytevar<=22 goto label2
if bytevar<=22 goto label2
if bytevar goto label2
if bytevar>bytevar2 goto label2
if_zero bytevar goto label2
if_not wordvar goto label2
if_zero wordvar goto label2
if_true wordvar goto label2
label2
return
}