mirror of
https://github.com/irmen/prog8.git
synced 2024-08-11 21:29:03 +00:00
68 lines
1.7 KiB
Lua
68 lines
1.7 KiB
Lua
%import textio
|
|
%zeropage dontuse
|
|
|
|
main {
|
|
sub start () {
|
|
ubyte a1 = 10
|
|
ubyte a2 = 20
|
|
ubyte x1 = 30
|
|
ubyte x2 = 40
|
|
ubyte zero = 0
|
|
|
|
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
|
|
|
|
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
|
|
}
|
|
}
|
|
}
|