mirror of
https://github.com/irmen/prog8.git
synced 2024-11-30 08:52:30 +00:00
de06353194
some programs are now 100% source compatible between C64 and Cx16 targets! import libraries have been rena;med
111 lines
2.4 KiB
Lua
111 lines
2.4 KiB
Lua
%import textio
|
|
%zeropage basicsafe
|
|
|
|
; Note: this program is compatible with C64 and CX16.
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
uword v1
|
|
uword v2
|
|
|
|
v1 = 100
|
|
v2 = 64444
|
|
if v1==v2
|
|
txt.print("error in 100==64444!\n")
|
|
else
|
|
txt.print("ok: 100 not == 64444\n")
|
|
|
|
if v1!=v2
|
|
txt.print("ok: 100 != 64444\n")
|
|
else
|
|
txt.print("error in 100!=64444!\n")
|
|
|
|
if v1<v2
|
|
txt.print("ok: 100 < 64444\n")
|
|
else
|
|
txt.print("error in 100<64444!\n")
|
|
|
|
if v1<=v2
|
|
txt.print("ok: 100 <= 64444\n")
|
|
else
|
|
txt.print("error in 100<=64444!\n")
|
|
|
|
if v1>v2
|
|
txt.print("error in 100>64444!\n")
|
|
else
|
|
txt.print("ok: 100 is not >64444\n")
|
|
|
|
if v1>=v2
|
|
txt.print("error in 100>=64444!\n")
|
|
else
|
|
txt.print("ok: 100 is not >=64444\n")
|
|
|
|
|
|
v1 = 5555
|
|
v2 = 322
|
|
if v1==v2
|
|
txt.print("error in 5555==322!\n")
|
|
else
|
|
txt.print("ok: 5555 not == 322\n")
|
|
|
|
if v1!=v2
|
|
txt.print("ok: 5555 != 322\n")
|
|
else
|
|
txt.print("error in 5555!=322!\n")
|
|
|
|
if v1<v2
|
|
txt.print("error in 5555<322!\n")
|
|
else
|
|
txt.print("ok: 5555 is not < 322\n")
|
|
|
|
if v1<=v2
|
|
txt.print("error in 5555<=322!\n")
|
|
else
|
|
txt.print("ok: 5555 is not <= 322\n")
|
|
|
|
if v1>v2
|
|
txt.print("ok: 5555 > 322\n")
|
|
else
|
|
txt.print("error in 5555>322!\n")
|
|
|
|
if v1>=v2
|
|
txt.print("ok: 5555 >= 322\n")
|
|
else
|
|
txt.print("error in 5555>=322!\n")
|
|
|
|
v1 = 322
|
|
v2 = 322
|
|
if v1==v2
|
|
txt.print("ok: 322 == 322\n")
|
|
else
|
|
txt.print("error in 322==322!\n")
|
|
|
|
if v1!=v2
|
|
txt.print("error in 322!=322!\n")
|
|
else
|
|
txt.print("ok: 322 is not != 322\n")
|
|
|
|
if v1<v2
|
|
txt.print("error in 322<322!\n")
|
|
else
|
|
txt.print("ok: 322 is not < 322\n")
|
|
|
|
if v1<=v2
|
|
txt.print("ok: 322 <= 322\n")
|
|
else
|
|
txt.print("error in 322<=322!\n")
|
|
|
|
if v1>v2
|
|
txt.print("error in 322>322!\n")
|
|
else
|
|
txt.print("ok: 322 is not > 322\n")
|
|
|
|
if v1>=v2
|
|
txt.print("ok: 322 >= 322\n")
|
|
else
|
|
txt.print("error in 322>=322!\n")
|
|
}
|
|
}
|