prog8/examples/cmp/comparisons.p8

%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 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")
        }
    }

    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 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")
        }
    }

    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 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")
        }

    }

    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 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")
        }
    }
}