mirror of
https://github.com/irmen/prog8.git
synced 2024-11-23 22:33:12 +00:00
122 lines
2.8 KiB
Lua
122 lines
2.8 KiB
Lua
%import c64utils
|
|
%import c64flt
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
float v1
|
|
float v2
|
|
|
|
v1 = 1.11
|
|
v2 = 699.99
|
|
if v1==v2
|
|
c64scr.print("error in 1.11==699.99!\n")
|
|
else
|
|
c64scr.print("ok: 1.11 not == 699.99\n")
|
|
|
|
if v1!=v2
|
|
c64scr.print("ok: 1.11 != 699.99\n")
|
|
else
|
|
c64scr.print("error in 1.11!=699.99!\n")
|
|
|
|
if v1<v2
|
|
c64scr.print("ok: 1.11 < 699.99\n")
|
|
else
|
|
c64scr.print("error in 1.11<699.99!\n")
|
|
|
|
if v1<=v2
|
|
c64scr.print("ok: 1.11 <= 699.99\n")
|
|
else
|
|
c64scr.print("error in 1.11<=699.99!\n")
|
|
|
|
if v1>v2
|
|
c64scr.print("error in 1.11>699.99!\n")
|
|
else
|
|
c64scr.print("ok: 1.11 is not >699.99\n")
|
|
|
|
if v1>=v2
|
|
c64scr.print("error in 1.11>=699.99!\n")
|
|
else
|
|
c64scr.print("ok: 1.11 is not >=699.99\n")
|
|
|
|
|
|
v1 = 555.5
|
|
v2 = -22.2
|
|
if v1==v2
|
|
c64scr.print("error in 555.5==-22.2!\n")
|
|
else
|
|
c64scr.print("ok: 555.5 not == -22.2\n")
|
|
|
|
if v1!=v2
|
|
c64scr.print("ok: 555.5 != -22.2\n")
|
|
else
|
|
c64scr.print("error in 555.5!=-22.2!\n")
|
|
|
|
if v1<v2
|
|
c64scr.print("error in 555.5<-22.2!\n")
|
|
else
|
|
c64scr.print("ok: 555.5 is not < -22.2\n")
|
|
|
|
if v1<=v2
|
|
c64scr.print("error in 555.5<=-22.2!\n")
|
|
else
|
|
c64scr.print("ok: 555.5 is not <= -22.2\n")
|
|
|
|
if v1>v2
|
|
c64scr.print("ok: 555.5 > -22.2\n")
|
|
else
|
|
c64scr.print("error in 555.5>-22.2!\n")
|
|
|
|
if v1>=v2
|
|
c64scr.print("ok: 555.5 >= -22.2\n")
|
|
else
|
|
c64scr.print("error in 555.5>=-22.2!\n")
|
|
|
|
v1 = -22.2
|
|
v2 = -22.2
|
|
if v1==v2
|
|
c64scr.print("ok: -22.2 == -22.2\n")
|
|
else
|
|
c64scr.print("error in -22.2==-22.2!\n")
|
|
|
|
if v1!=v2
|
|
c64scr.print("error in -22.2!=-22.2!\n")
|
|
else
|
|
c64scr.print("ok: -22.2 is not != -22.2\n")
|
|
|
|
if v1<v2
|
|
c64scr.print("error in -22.2<-22.2!\n")
|
|
else
|
|
c64scr.print("ok: -22.2 is not < -22.2\n")
|
|
|
|
if v1<=v2
|
|
c64scr.print("ok: -22.2 <= -22.2\n")
|
|
else
|
|
c64scr.print("error in -22.2<=-22.2!\n")
|
|
|
|
if v1>v2
|
|
c64scr.print("error in -22.2>-22.2!\n")
|
|
else
|
|
c64scr.print("ok: -22.2 is not > -22.2\n")
|
|
|
|
if v1>=v2
|
|
c64scr.print("ok: -22.2 >= -22.2\n")
|
|
else
|
|
c64scr.print("error in -22.2>=-22.2!\n")
|
|
|
|
check_eval_stack()
|
|
}
|
|
|
|
sub check_eval_stack() {
|
|
c64scr.print("stack x=")
|
|
c64scr.print_ub(X)
|
|
if X==255
|
|
c64scr.print(" ok\n")
|
|
else
|
|
c64scr.print(" error!\n")
|
|
}
|
|
|
|
}
|