prog8/examples/comparison_ifs_uword.p8

122 lines
2.7 KiB
Plaintext
Raw Normal View History

2018-12-10 08:25:38 +00:00
%import c64utils
%zeropage basicsafe
2018-12-10 08:25:38 +00:00
2019-07-29 21:11:13 +00:00
main {
2018-12-10 08:25:38 +00:00
sub start() {
uword v1
uword v2
v1 = 100
v2 = 64444
if v1==v2
c64scr.print("error in 100==64444!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 100 not == 64444\n")
2018-12-10 08:25:38 +00:00
if v1!=v2
c64scr.print("ok: 100 != 64444\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 100!=64444!\n")
2018-12-10 08:25:38 +00:00
if v1<v2
c64scr.print("ok: 100 < 64444\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 100<64444!\n")
2018-12-10 08:25:38 +00:00
if v1<=v2
c64scr.print("ok: 100 <= 64444\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 100<=64444!\n")
2018-12-10 08:25:38 +00:00
if v1>v2
c64scr.print("error in 100>64444!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 100 is not >64444\n")
2018-12-10 08:25:38 +00:00
if v1>=v2
c64scr.print("error in 100>=64444!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 100 is not >=64444\n")
2018-12-10 08:25:38 +00:00
v1 = 5555
v2 = 322
if v1==v2
c64scr.print("error in 5555==322!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 5555 not == 322\n")
2018-12-10 08:25:38 +00:00
if v1!=v2
c64scr.print("ok: 5555 != 322\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 5555!=322!\n")
2018-12-10 08:25:38 +00:00
if v1<v2
c64scr.print("error in 5555<322!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 5555 is not < 322\n")
2018-12-10 08:25:38 +00:00
if v1<=v2
c64scr.print("error in 5555<=322!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 5555 is not <= 322\n")
2018-12-10 08:25:38 +00:00
if v1>v2
c64scr.print("ok: 5555 > 322\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 5555>322!\n")
2018-12-10 08:25:38 +00:00
if v1>=v2
c64scr.print("ok: 5555 >= 322\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 5555>=322!\n")
2018-12-10 08:25:38 +00:00
v1 = 322
v2 = 322
if v1==v2
c64scr.print("ok: 322 == 322\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 322==322!\n")
2018-12-10 08:25:38 +00:00
if v1!=v2
c64scr.print("error in 322!=322!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 322 is not != 322\n")
2018-12-10 08:25:38 +00:00
if v1<v2
c64scr.print("error in 322<322!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 322 is not < 322\n")
2018-12-10 08:25:38 +00:00
if v1<=v2
c64scr.print("ok: 322 <= 322\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 322<=322!\n")
2018-12-10 08:25:38 +00:00
if v1>v2
c64scr.print("error in 322>322!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 322 is not > 322\n")
2018-12-10 08:25:38 +00:00
if v1>=v2
c64scr.print("ok: 322 >= 322\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 322>=322!\n")
check_eval_stack()
}
2018-12-10 08:25:38 +00:00
sub check_eval_stack() {
c64scr.print("stack x=")
c64scr.print_ub(X)
if X==255
c64scr.print(" ok\n")
else
c64scr.print(" error!\n")
2018-12-10 08:25:38 +00:00
}
}