mirror of
https://github.com/irmen/prog8.git
synced 2024-08-12 13:28:57 +00:00
1e1f444cab
also checked that value(12) < x < value(100) is indeed properly shortcircuited if x is 12 or less
119 lines
2.9 KiB
Lua
119 lines
2.9 KiB
Lua
%import textio
|
|
%zeropage dontuse
|
|
|
|
main {
|
|
sub start() {
|
|
ubyte @shared x = 10
|
|
if value(12) < x < value(100)
|
|
txt.print("gottem")
|
|
|
|
sub value(ubyte v) -> ubyte {
|
|
cx16.r0++
|
|
txt.print("value(): ")
|
|
txt.print_ub(v)
|
|
txt.nl()
|
|
return v
|
|
}
|
|
|
|
bigtest()
|
|
}
|
|
|
|
ubyte @shared a1 = 10
|
|
ubyte @shared a2 = 20
|
|
ubyte @shared x1 = 30
|
|
ubyte @shared x2 = 40
|
|
ubyte @shared zero = 0
|
|
|
|
sub bigtest () {
|
|
txt.print("1a:\n")
|
|
if calc_a1()<calc_x1() and calc_a2()<=calc_x2()
|
|
txt.print("* 1a and ok\n")
|
|
|
|
txt.print("\n1b:\n")
|
|
if calc_a1()<calc_x1() and calc_a2()>calc_x2()
|
|
txt.print("* 1b and fail\n")
|
|
|
|
txt.print("\n1c:\n")
|
|
if calc_a1()>calc_x1() and calc_a2()<=calc_x2()
|
|
txt.print("* 1c and fail\n")
|
|
|
|
txt.print("\n2a:\n")
|
|
if calc_a1()<calc_x1() or calc_a2()<=calc_x2()
|
|
txt.print("* 2a or ok\n")
|
|
|
|
txt.print("\n2b:\n")
|
|
if calc_a1()<calc_x1() or calc_a2()>calc_x2()
|
|
txt.print("* 2b or ok\n")
|
|
|
|
txt.print("\n3a:\n")
|
|
if calc_a1()>calc_x1() or calc_a2()<=calc_x2()
|
|
txt.print("* 3a or ok\n")
|
|
|
|
txt.print("\n3b:\n")
|
|
if calc_a1()>calc_x1() or calc_a2()>calc_x2()
|
|
txt.print("* 3b or fail\n")
|
|
|
|
txt.print("\n4a:\n")
|
|
bool result = calc_a1()<calc_x1() or calc_a2()>calc_x2()
|
|
txt.print_ub(result)
|
|
txt.nl()
|
|
txt.print("\n4b:\n")
|
|
result = calc_a1()>=calc_x1() and calc_a2()>calc_x2()
|
|
txt.print_ub(result)
|
|
txt.nl()
|
|
@($4000) &= 22
|
|
|
|
txt.print("\n5a:\n")
|
|
result = bool_true() or bool_false()
|
|
txt.print("\n5b:\n")
|
|
result = bool_true() and bool_false()
|
|
txt.print("\n5c:\n")
|
|
result = bool_false() and bool_true()
|
|
txt.print("\n5d:\n")
|
|
result = bool_false() xor bool_true()
|
|
|
|
txt.print("augmented and shortcut:\n")
|
|
bool @shared b1 = false
|
|
cx16.r0++
|
|
b1 = b1 and bool_true()
|
|
txt.print("augmented and no shortcut:\n")
|
|
b1 = true
|
|
cx16.r0++
|
|
b1 = b1 and bool_true()
|
|
|
|
txt.print("augmented or shortcut:\n")
|
|
b1 = true
|
|
cx16.r0++
|
|
b1 = b1 or bool_true()
|
|
txt.print("augmented or no shortcut:\n")
|
|
b1 = false
|
|
cx16.r0++
|
|
b1 = b1 or bool_true()
|
|
}
|
|
|
|
sub bool_true() -> bool {
|
|
txt.print("bool_true\n")
|
|
return true
|
|
}
|
|
sub bool_false() -> bool {
|
|
txt.print("bool_false\n")
|
|
return false
|
|
}
|
|
sub calc_a1() -> ubyte {
|
|
txt.print("calc_a1\n")
|
|
return a1+zero
|
|
}
|
|
sub calc_a2() -> ubyte {
|
|
txt.print("calc_a2\n")
|
|
return a2+zero
|
|
}
|
|
sub calc_x1() -> ubyte {
|
|
txt.print("calc_x1\n")
|
|
return x1+zero
|
|
}
|
|
sub calc_x2() -> ubyte {
|
|
txt.print("calc_x2\n")
|
|
return x2+zero
|
|
}
|
|
}
|