prog8/examples/comparison_ifs_word.p8

153 lines
3.5 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() {
word v1
word v2
v1 = 100
v2 = 30333
if v1==v2
c64scr.print("error in 100==30333!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 100 not == 30333\n")
2018-12-10 08:25:38 +00:00
if v1!=v2
c64scr.print("ok: 100 != 30333\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 100!=30333!\n")
2018-12-10 08:25:38 +00:00
if v1<v2
c64scr.print("ok: 100 < 30333\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 100<30333!\n")
2018-12-10 08:25:38 +00:00
if v1<=v2
c64scr.print("ok: 100 <= 30333\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 100<=30333!\n")
2018-12-10 08:25:38 +00:00
if v1>v2
c64scr.print("error in 100>30333!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 100 is not >30333\n")
2018-12-10 08:25:38 +00:00
if v1>=v2
c64scr.print("error in 100>=30333!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 100 is not >=30333\n")
2018-12-10 08:25:38 +00:00
v1 = 125
v2 = -222
if v1==v2
c64scr.print("error in 125==-222!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 125 not == -222\n")
2018-12-10 08:25:38 +00:00
if v1!=v2
c64scr.print("ok: 125 != -222\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 125!=-222!\n")
2018-12-10 08:25:38 +00:00
if v1<v2
c64scr.print("error in 125<-222!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 125 is not < -222\n")
2018-12-10 08:25:38 +00:00
if v1<=v2
c64scr.print("error in 125<=-222!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: 125 is not <= -222\n")
2018-12-10 08:25:38 +00:00
if v1>v2
c64scr.print("ok: 125 > -222\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 125>-222!\n")
2018-12-10 08:25:38 +00:00
if v1>=v2
c64scr.print("ok: 125 >= -222\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in 125>=-222!\n")
2018-12-10 08:25:38 +00:00
v1 = -222
v2 = -222
if v1==v2
c64scr.print("ok: -222 == -222\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in -222==-222!\n")
2018-12-10 08:25:38 +00:00
if v1!=v2
c64scr.print("error in -222!=-222!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: -222 is not != -222\n")
2018-12-10 08:25:38 +00:00
if v1<v2
c64scr.print("error in -222<-222!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: -222 is not < -222\n")
2018-12-10 08:25:38 +00:00
if v1<=v2
c64scr.print("ok: -222 <= -222\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in -222<=-222!\n")
2018-12-10 08:25:38 +00:00
if v1>v2
c64scr.print("error in -222>-222!\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("ok: -222 is not > -222\n")
2018-12-10 08:25:38 +00:00
if v1>=v2
c64scr.print("ok: -222 >= -222\n")
2018-12-10 08:25:38 +00:00
else
c64scr.print("error in -222>=-222!\n")
2018-12-10 08:25:38 +00:00
2019-08-24 14:21:05 +00:00
v1 = 1000
v2 = 1000
if v1==v2
c64scr.print("ok: 1000 == 1000\n")
else
c64scr.print("error in 1000==1000!\n")
if v1!=v2
c64scr.print("error in 1000!=1000!\n")
else
c64scr.print("ok: 1000 is not != 1000\n")
if v1<v2
c64scr.print("error in 1000<1000!\n")
else
c64scr.print("ok: 1000 is not < 1000\n")
if v1<=v2
c64scr.print("ok: 1000 <= 1000\n")
else
c64scr.print("error in 1000<=1000!\n")
if v1>v2
c64scr.print("error in 1000>1000!\n")
else
c64scr.print("ok: 1000 is not > 1000\n")
if v1>=v2
c64scr.print("ok: 1000 >= 1000\n")
else
c64scr.print("error in 1000>=1000!\n")
check_eval_stack()
}
2019-08-24 14:21:05 +00:00
sub check_eval_stack() {
2020-03-22 22:50:15 +00:00
if X!=255 {
c64scr.print("x=")
c64scr.print_ub(X)
c64scr.print(" error!\n")
2020-03-22 22:50:15 +00:00
}
2018-12-10 08:25:38 +00:00
}
}