prog8/examples/test.p8

%import textio
%zeropage dontuse

main {
    sub start () {
        ubyte a1 = 10
        ubyte a2 = 20
        ubyte x1 = 30
        ubyte x2 = 40
        ubyte zero = 0

        txt.print("1a:\n")
        if calc_a1()<calc_x1() and calc_a2()<=calc_x2()
            txt.print("* 1a and ok\n")

        txt.print("\n1b:\n")
        if calc_a1()<calc_x1() and calc_a2()>calc_x2()
            txt.print("* 1b and fail\n")

        txt.print("\n1c:\n")
        if calc_a1()>calc_x1() and calc_a2()<=calc_x2()
            txt.print("* 1c and fail\n")

        txt.print("\n2a:\n")
        if calc_a1()<calc_x1() or calc_a2()<=calc_x2()
            txt.print("* 2a or ok\n")

        txt.print("\n2b:\n")
        if calc_a1()<calc_x1() or calc_a2()>calc_x2()
            txt.print("* 2b or ok\n")

        txt.print("\n3a:\n")
        if calc_a1()>calc_x1() or calc_a2()<=calc_x2()
            txt.print("* 3a or ok\n")

        txt.print("\n3b:\n")
        if calc_a1()>calc_x1() or calc_a2()>calc_x2()
            txt.print("* 3b or fail\n")

        txt.print("\n4a:\n")
        bool result = calc_a1()<calc_x1() or calc_a2()>calc_x2()
        txt.print_ub(result)
        txt.nl()
        txt.print("\n4b:\n")
        result = calc_a1()>=calc_x1() and calc_a2()>calc_x2()
        txt.print_ub(result)
        txt.nl()
        @($4000) &= 22

        sub calc_a1() -> ubyte {
            txt.print("calc_a1\n")
            return a1+zero
        }
        sub calc_a2() -> ubyte {
            txt.print("calc_a2\n")
            return a2+zero
        }
        sub calc_x1() -> ubyte {
            txt.print("calc_x1\n")
            return x1+zero
        }
        sub calc_x2() -> ubyte {
            txt.print("calc_x2\n")
            return x2+zero
        }
    }
}