prog8/examples/cmp/comparisons.p8
2020-09-26 17:45:35 +02:00

1009 lines
21 KiB
Lua

%import textio
%import floats
%zeropage basicsafe
main {
byte bb= -22
ubyte ubb = 22
word ww= -2222
uword uww = 2222
float ff = -2.2
sub start() {
repeat(25)
txt.chrout('\n')
equal()
txt.chrout('\n')
notequal()
txt.chrout('\n')
less()
txt.chrout('\n')
greater()
txt.chrout('\n')
lessequal()
txt.chrout('\n')
greaterequal()
txt.chrout('\n')
}
sub equal() {
if bb == -22 {
txt.print("ok == 1\n")
} else {
txt.print("fail == 1\n")
}
if bb == -23 {
txt.print("fail == 2\n")
} else {
txt.print("ok == 2\n")
}
if bb==0 {
txt.print("fail == 2b\n")
} else {
txt.print("ok == 2b\n")
}
if ww == -2222 {
txt.print("ok == 3\n")
} else {
txt.print("fail == 3\n")
}
if ww == -2223 {
txt.print("fail == 4\n")
} else {
txt.print("ok == 4\n")
}
if ww == 0 {
txt.print("fail == 4a\n")
} else {
txt.print("ok == 4a\n")
}
if ff == -2.2 {
txt.print("ok == 4c\n")
} else {
txt.print("fail == 4c\n")
}
if ff == -2.3 {
txt.print("fail == 4d\n")
} else {
txt.print("ok == 4d\n")
}
if ff == 0.0 {
txt.print("fail == 4e\n")
} else {
txt.print("ok == 4e\n")
}
if ubb == 22 {
txt.print("ok == 4f\n")
} else {
txt.print("fail == 4f\n")
}
if ubb == 23 {
txt.print("fail == 4g\n")
} else {
txt.print("ok == 4g\n")
}
if ubb == 0 {
txt.print("fail == 4h\n")
} else {
txt.print("ok == 4h\n")
}
if uww == 2222 {
txt.print("ok == 4i\n")
} else {
txt.print("fail == 4i\n")
}
if uww == 2223 {
txt.print("fail == 4j\n")
} else {
txt.print("ok == 4j\n")
}
if uww == 0 {
txt.print("fail == 4k\n")
} else {
txt.print("ok == 4k\n")
}
}
sub notequal() {
if bb != -23 {
txt.print("ok != 1\n")
} else {
txt.print("fail != 1\n")
}
if bb != -22 {
txt.print("fail != 2\n")
} else {
txt.print("ok != 2\n")
}
if bb!=0 {
txt.print("ok != 2b\n")
} else {
txt.print("fail != 2b\n")
}
if ww != -2223 {
txt.print("ok != 3\n")
} else {
txt.print("fail != 3\n")
}
if ww != -2222 {
txt.print("fail != 4\n")
} else {
txt.print("ok != 4\n")
}
if ww != 0 {
txt.print("ok != 4a\n")
} else {
txt.print("fail != 4a\n")
}
if ff != -2.3 {
txt.print("ok != 4c\n")
} else {
txt.print("fail != 4c\n")
}
if ff != -2.2 {
txt.print("fail != 4d\n")
} else {
txt.print("ok != 4d\n")
}
if ff != 0.0 {
txt.print("ok != 4e\n")
} else {
txt.print("fail != 4e\n")
}
if ubb != 23 {
txt.print("ok != 4f\n")
} else {
txt.print("fail != 4f\n")
}
if ubb != 22 {
txt.print("fail != 4g\n")
} else {
txt.print("ok != 4g\n")
}
if ubb != 0 {
txt.print("ok != 4h\n")
} else {
txt.print("fail != 4h\n")
}
if uww != 2223 {
txt.print("ok != 4i\n")
} else {
txt.print("fail != 4i\n")
}
if uww != 2222 {
txt.print("fail != 4j\n")
} else {
txt.print("ok != 4j\n")
}
if uww != 0 {
txt.print("ok != 4k\n")
} else {
txt.print("fail != 4k\n")
}
}
sub less() {
if bb < -1 {
txt.print("ok < 1\n")
} else {
txt.print("fail < 1\n")
}
if bb < -99 {
txt.print("fail < 2\n")
} else {
txt.print("ok < 2\n")
}
if bb < -22 {
txt.print("fail < 2a\n")
} else {
txt.print("ok < 2a\n")
}
if bb<0 {
txt.print("ok < 2b\n")
} else {
txt.print("fail < 2b\n")
}
if ww < -1 {
txt.print("ok < 3\n")
} else {
txt.print("fail < 3\n")
}
if ww < -9999 {
txt.print("fail < 4\n")
} else {
txt.print("ok < 4\n")
}
if ww < -2222 {
txt.print("fail < 4a\n")
} else {
txt.print("ok < 4a\n")
}
if ww < 0 {
txt.print("ok < 4b\n")
} else {
txt.print("fail < 4b\n")
}
if ff < -1.0 {
txt.print("ok < 4c\n")
} else {
txt.print("fail < 4c\n")
}
if ff < -9999.9 {
txt.print("fail < 4d\n")
} else {
txt.print("ok < 4d\n")
}
if ff < 0.0 {
txt.print("ok < 4e\n")
} else {
txt.print("fail < 4e\n")
}
if ff < -2.2 {
txt.print("fail < 4e2\n")
} else {
txt.print("ok < 4e2\n")
}
if ubb < 100 {
txt.print("ok < 4f\n")
} else {
txt.print("fail < 4f\n")
}
if ubb < 2 {
txt.print("fail < 4g\n")
} else {
txt.print("ok < 4g\n")
}
if ubb<0 {
txt.print("fail < 4h\n")
} else {
txt.print("ok < 4h\n")
}
if ubb<22 {
txt.print("fail < 4h2\n")
} else {
txt.print("ok < 4h2\n")
}
if uww < 10000 {
txt.print("ok < 4i\n")
} else {
txt.print("fail < 4i\n")
}
if uww < 2 {
txt.print("fail < 4j\n")
} else {
txt.print("ok < 4j\n")
}
if uww < 0 {
txt.print("fail < 4k\n")
} else {
txt.print("ok < 4k\n")
}
if uww < 2222 {
txt.print("fail < 4l\n")
} else {
txt.print("ok < 4l\n")
}
; some more special cases for signed comparison
byte b2 = -100
word w2 = -30000
if b2 < -127 {
txt.print("fail < eb1\n")
} else {
txt.print("ok < eb1\n")
}
if b2 < -101 {
txt.print("fail < eb2\n")
} else {
txt.print("ok < eb2\n")
}
if b2 < -100 {
txt.print("fail < eb3\n")
} else {
txt.print("ok < eb3\n")
}
if b2 < -99 {
txt.print("ok < eb4\n")
} else {
txt.print("fail < eb4\n")
}
if b2 < 100 {
txt.print("ok < eb5\n")
} else {
txt.print("fail < eb5\n")
}
if b2 < 127 {
txt.print("ok < eb6\n")
} else {
txt.print("fail < eb6\n")
}
if b2 < 0 {
txt.print("ok < eb7\n")
} else {
txt.print("fail < eb7\n")
}
if w2 < -32768 {
txt.print("fail < ew1\n")
} else {
txt.print("ok < ew1\n")
}
if w2 < -30001 {
txt.print("fail < ew2\n")
} else {
txt.print("ok < ew2\n")
}
if w2 < -30000 {
txt.print("fail < ew3\n")
} else {
txt.print("ok < ew3\n")
}
if w2 < -29999 {
txt.print("ok < ew4\n")
} else {
txt.print("fail < ew4\n")
}
if w2 < 30000 {
txt.print("ok < ew5\n")
} else {
txt.print("fail < ew5\n")
}
if w2 < 32767 {
txt.print("ok < ew6\n")
} else {
txt.print("fail < ew6\n")
}
if w2 < 0 {
txt.print("ok < ew7\n")
} else {
txt.print("fail < ew7\n")
}
}
sub greater() {
if bb > -99 {
txt.print("ok > 5\n")
} else {
txt.print("fail > 5\n")
}
if bb > -1 {
txt.print("fail > 6\n")
} else {
txt.print("ok > 6\n")
}
if bb > 0 {
txt.print("fail > 6b\n")
} else {
txt.print("ok > 6b\n")
}
if bb > -22 {
txt.print("fail > 6c\n")
} else {
txt.print("ok > 6c\n")
}
if ww > -9999 {
txt.print("ok > 7\n")
} else {
txt.print("fail > 7\n")
}
if ww > -1 {
txt.print("fail > 8\n")
} else {
txt.print("ok > 8\n")
}
if ww>0 {
txt.print("fail > 8b\n")
} else {
txt.print("ok > 8b\n")
}
if ww>-2222 {
txt.print("fail > 8b2\n")
} else {
txt.print("ok > 8b2\n")
}
if ff > -1.0 {
txt.print("fail > 8c\n")
} else {
txt.print("ok > 8c\n")
}
if ff > -9999.9 {
txt.print("ok > 8d\n")
} else {
txt.print("fail > 8d\n")
}
if ff > 0.0 {
txt.print("fail > 8e\n")
} else {
txt.print("ok > 8e\n")
}
if ff > -2.2 {
txt.print("fail > 8e2\n")
} else {
txt.print("ok > 8e2\n")
}
if ubb > 5 {
txt.print("ok > 8f\n")
} else {
txt.print("fail > 8f\n")
}
if ubb > 250 {
txt.print("fail > 8g\n")
} else {
txt.print("ok > 8g\n")
}
if ubb > 0 {
txt.print("ok > 8h\n")
} else {
txt.print("fail > 8h\n")
}
if ubb > 22 {
txt.print("fail > 8h2\n")
} else {
txt.print("ok > 8h2\n")
}
if uww > 5 {
txt.print("ok > 8i\n")
} else {
txt.print("fail > 8i\n")
}
if uww > 9999 {
txt.print("fail > 8j\n")
} else {
txt.print("ok > 8j\n")
}
if uww>0 {
txt.print("ok > 8k\n")
} else {
txt.print("fail > 8k\n")
}
if uww>2222 {
txt.print("fail > 8l\n")
} else {
txt.print("ok > 8l\n")
}
; some more special cases for signed comparison
byte b2 = -100
word w2 = -30000
if b2 > -127 {
txt.print("ok > eb1\n")
} else {
txt.print("fail > eb1\n")
}
if b2 > -101 {
txt.print("ok > eb2\n")
} else {
txt.print("fail > eb2\n")
}
if b2 > -100 {
txt.print("fail > eb3\n")
} else {
txt.print("ok > eb3\n")
}
if b2 > -99 {
txt.print("fail > eb4\n")
} else {
txt.print("ok > eb4\n")
}
if b2 > 100 {
txt.print("fail > eb5\n")
} else {
txt.print("ok > eb5\n")
}
if b2 > 127 {
txt.print("fail > eb6\n")
} else {
txt.print("ok > eb6\n")
}
if b2 > 0 {
txt.print("fail > eb7\n")
} else {
txt.print("ok > eb7\n")
}
if w2 > -32768 {
txt.print("ok > ew1\n")
} else {
txt.print("fail > ew1\n")
}
if w2 > -30001 {
txt.print("ok > ew2\n")
} else {
txt.print("fail > ew2\n")
}
if w2 > -30000 {
txt.print("fail > ew3\n")
} else {
txt.print("ok > ew3\n")
}
if w2 > -29999 {
txt.print("fail > ew4\n")
} else {
txt.print("ok > ew4\n")
}
if w2 > 30000 {
txt.print("fail > ew5\n")
} else {
txt.print("ok > ew5\n")
}
if w2 > 32767 {
txt.print("fail > ew6\n")
} else {
txt.print("ok > ew6\n")
}
if w2 > 0 {
txt.print("fail > ew6\n")
} else {
txt.print("ok > ew6\n")
}
}
sub lessequal() {
if bb <= -1 {
txt.print("ok <= 1\n")
} else {
txt.print("fail <= 1\n")
}
if bb <= -99 {
txt.print("fail <= 2\n")
} else {
txt.print("ok <= 2\n")
}
if bb <= -22 {
txt.print("ok <= 2a\n")
} else {
txt.print("fail <= 2a\n")
}
if bb<=0 {
txt.print("ok <= 2b\n")
} else {
txt.print("fail <= 2b\n")
}
if ww <= -1 {
txt.print("ok <= 3\n")
} else {
txt.print("fail <= 3\n")
}
if ww <= -9999 {
txt.print("fail <= 4\n")
} else {
txt.print("ok <= 4\n")
}
if ww <= -2222 {
txt.print("ok <= 4a\n")
} else {
txt.print("fail <= 4a\n")
}
if ww <= 0 {
txt.print("ok <= 4b\n")
} else {
txt.print("fail <= 4b\n")
}
if ff <= -1.0 {
txt.print("ok <= 4c\n")
} else {
txt.print("fail <= 4c\n")
}
if ff <= -9999.9 {
txt.print("fail <= 4d\n")
} else {
txt.print("ok <= 4d\n")
}
if ff <= 0.0 {
txt.print("ok <= 4e\n")
} else {
txt.print("fail <= 4e\n")
}
if ff <= -2.2 {
txt.print("ok <= 4e2\n")
} else {
txt.print("fail <= 4e2\n")
}
if ubb <= 100 {
txt.print("ok <= 4f\n")
} else {
txt.print("fail <= 4f\n")
}
if ubb <= 2 {
txt.print("fail <= 4g\n")
} else {
txt.print("ok <= 4g\n")
}
if ubb<=0 {
txt.print("fail <= 4h\n")
} else {
txt.print("ok <= 4h\n")
}
if ubb<=22 {
txt.print("ok <= 4h2\n")
} else {
txt.print("fail <= 4h2\n")
}
if uww <= 10000 {
txt.print("ok <= 4i\n")
} else {
txt.print("fail <= 4i\n")
}
if uww <= 2 {
txt.print("fail <= 4j\n")
} else {
txt.print("ok <= 4j\n")
}
if uww <= 0 {
txt.print("fail <= 4k\n")
} else {
txt.print("ok <= 4k\n")
}
if uww <= 2222 {
txt.print("ok <= 4l\n")
} else {
txt.print("fail <= 4l\n")
}
; some more special cases for signed comparison
byte b2 = -100
word w2 = -30000
if b2 <= -127 {
txt.print("fail <= eb1\n")
} else {
txt.print("ok <= eb1\n")
}
if b2 <= -101 {
txt.print("fail <= eb2\n")
} else {
txt.print("ok <= eb2\n")
}
if b2 <= -100 {
txt.print("ok <= eb3\n")
} else {
txt.print("fail <= eb3\n")
}
if b2 <= -99 {
txt.print("ok <= eb4\n")
} else {
txt.print("fail <= eb4\n")
}
if b2 <= 100 {
txt.print("ok <= eb5\n")
} else {
txt.print("fail <= eb5\n")
}
if b2 <= 127 {
txt.print("ok <= eb6\n")
} else {
txt.print("fail <= eb6\n")
}
if b2 <= 0 {
txt.print("ok <= eb7\n")
} else {
txt.print("fail <= eb7\n")
}
if w2 <= -32768 {
txt.print("fail <= ew1\n")
} else {
txt.print("ok <= ew1\n")
}
if w2 <= -30001 {
txt.print("fail <= ew2\n")
} else {
txt.print("ok <= ew2\n")
}
if w2 <= -30000 {
txt.print("ok <= ew3\n")
} else {
txt.print("fail <= ew3\n")
}
if w2 <= -29999 {
txt.print("ok <= ew4\n")
} else {
txt.print("fail <= ew4\n")
}
if w2 <= 30000 {
txt.print("ok <= ew5\n")
} else {
txt.print("fail <= ew5\n")
}
if w2 <= 32767 {
txt.print("ok <= ew6\n")
} else {
txt.print("fail <= ew6\n")
}
if w2 <= 0 {
txt.print("ok <= ew7\n")
} else {
txt.print("fail <= ew7\n")
}
}
sub greaterequal() {
if bb >= -99 {
txt.print("ok >= 5\n")
} else {
txt.print("fail >= 5\n")
}
if bb >= -1 {
txt.print("fail >= 6\n")
} else {
txt.print("ok >= 6\n")
}
if bb >= 0 {
txt.print("fail >= 6b\n")
} else {
txt.print("ok >= 6b\n")
}
if bb >= -22 {
txt.print("ok >= 6c\n")
} else {
txt.print("fail >= 6c\n")
}
if ww >= -9999 {
txt.print("ok >= 7\n")
} else {
txt.print("fail >= 7\n")
}
if ww >= -1 {
txt.print("fail >= 8\n")
} else {
txt.print("ok >= 8\n")
}
if ww>=0 {
txt.print("fail >= 8b\n")
} else {
txt.print("ok >= 8b\n")
}
if ww>=-2222 {
txt.print("ok >= 8b2\n")
} else {
txt.print("fail >= 8b2\n")
}
if ff >= -1.0 {
txt.print("fail >= 8c\n")
} else {
txt.print("ok >= 8c\n")
}
if ff >= -9999.9 {
txt.print("ok >= 8d\n")
} else {
txt.print("fail >= 8d\n")
}
if ff >= 0.0 {
txt.print("fail >= 8e\n")
} else {
txt.print("ok >= 8e\n")
}
if ff >= -2.2 {
txt.print("ok >= 8e2\n")
} else {
txt.print("fail >= 8e2\n")
}
if ubb >= 5 {
txt.print("ok >= 8f\n")
} else {
txt.print("fail >= 8f\n")
}
if ubb >= 250 {
txt.print("fail >= 8g\n")
} else {
txt.print("ok >= 8g\n")
}
if ubb >= 0 {
txt.print("ok >= 8h\n")
} else {
txt.print("fail >= 8h\n")
}
if ubb >= 22 {
txt.print("ok >= 8h2\n")
} else {
txt.print("fail >= 8h2\n")
}
if uww >= 5 {
txt.print("ok >= 8i\n")
} else {
txt.print("fail >= 8i\n")
}
if uww >= 9999 {
txt.print("fail >= 8j\n")
} else {
txt.print("ok >= 8j\n")
}
if uww>=0 {
txt.print("ok >= 8k\n")
} else {
txt.print("fail >= 8k\n")
}
if uww>=2222 {
txt.print("ok >= 8l\n")
} else {
txt.print("fail >= 8l\n")
}
; some more special cases for signed comparison
byte b2 = -100
word w2 = -30000
if b2 >= -127 {
txt.print("ok >= eb1\n")
} else {
txt.print("fail >= eb1\n")
}
if b2 >= -101 {
txt.print("ok >= eb2\n")
} else {
txt.print("fail >= eb2\n")
}
if b2 >= -100 {
txt.print("ok >= eb3\n")
} else {
txt.print("fail >= eb3\n")
}
if b2 >= -99 {
txt.print("fail >= eb4\n")
} else {
txt.print("ok >= eb4\n")
}
if b2 >= 100 {
txt.print("fail >= eb5\n")
} else {
txt.print("ok >= eb5\n")
}
if b2 >= 127 {
txt.print("fail >= eb6\n")
} else {
txt.print("ok >= eb6\n")
}
if b2 >= 0 {
txt.print("fail >= eb7\n")
} else {
txt.print("ok >= eb7\n")
}
if w2 >= -32768 {
txt.print("ok >= ew1\n")
} else {
txt.print("fail >= ew1\n")
}
if w2 >= -30001 {
txt.print("ok >= ew2\n")
} else {
txt.print("fail >= ew2\n")
}
if w2 >= -30000 {
txt.print("ok >= ew3\n")
} else {
txt.print("fail >= ew3\n")
}
if w2 >= -29999 {
txt.print("fail >= ew4\n")
} else {
txt.print("ok >= ew4\n")
}
if w2 >= 30000 {
txt.print("fail >= ew5\n")
} else {
txt.print("ok >= ew5\n")
}
if w2 >= 32767 {
txt.print("fail >= ew6\n")
} else {
txt.print("ok >= ew6\n")
}
if w2 >= 0 {
txt.print("fail >= ew7\n")
} else {
txt.print("ok >= ew7\n")
}
}
}