prog8/examples/arithmetic/builtins.p8

%import textio
%import floats
%import string
%import syslib
%import test_stack
%zeropage basicsafe

main {

    sub start() {
        rotations()
        integers()
        floatingpoint()

        test_stack.test()
    }

    sub rotations() {
        ubyte[] ubarr = [%11000111]
        uword[] uwarr = [%1100111110101010]

        repeat(10) {
            txt.nl()
        }

        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        txt.nl()

        uwarr[0] = %1100111110101010
        ror(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        txt.nl()

        sys.clear_carry()
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        rol2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        rol2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        rol2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        rol2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        txt.nl()

        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        ror2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        ror2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        ror2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        ror2(uwarr[0])
        txt.print_uwbin(uwarr[0], true)
        txt.nl()
        txt.nl()

        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        rol(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        txt.nl()

        sys.set_carry()
        ror(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        sys.set_carry()
        ror(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        txt.nl()


        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        rol2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        rol2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        rol2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        rol2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        txt.nl()

        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        ror2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        ror2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        ror2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        ror2(ubarr[0])
        txt.print_ubbin(ubarr[0], true)
        txt.nl()
        txt.nl()

        &ubyte  membyte = $c000
        uword addr = $c000

        @(addr) = %10110101
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        rol(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        rol(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        rol(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        rol(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        txt.nl()

        @(addr) = %10110101
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        ror(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        ror(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        ror(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        sys.set_carry()
        ror(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        txt.nl()

        @(addr) = %10110101
        txt.print_ubbin(@(addr), true)
        txt.nl()
        rol2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        rol2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        rol2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        rol2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        txt.nl()

        @(addr) = %10110101
        txt.print_ubbin(@(addr), true)
        txt.nl()
        ror2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        ror2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        ror2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        ror2(@(addr))
        txt.print_ubbin(@(addr), true)
        txt.nl()
        txt.nl()

        test_stack.test()

    }

    sub integers() {
        ubyte[]  ubarr = [1,2,3,4,5,0,4,3,2,1, 255, 255, 255]
        byte[]  barr = [1,2,3,4,5,-4,0,-3,2,1, -128, -128, -127]
        uword[]  uwarr = [100,200,300,400,0,500,400,300,200,100]
        word[] warr = [100,200,300,400,500,0,-400,-300,200,100,-99, -4096]

        ubyte zero=0
        ubyte ub
        ubyte ub2
        byte bb
        uword uw
        word ww

        repeat(20) {
            txt.nl()
        }

        ub = sys.read_flags()
        txt.print_ub(ub)
        txt.nl()
        ub = zero+sys.read_flags()*1+zero
        txt.print_ub(ub)
        txt.nl()


        ub = rnd()
        txt.print_ub(ub)
        txt.nl()
        ub = zero+rnd()*1+zero
        txt.print_ub(ub)
        txt.nl()

        uw = rndw()
        txt.print_uw(uw)
        txt.nl()
        uw = zero+rndw()*1+zero
        txt.print_uw(uw)
        txt.nl()


        uw = 50000
        ub = sqrt16(uw)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+sqrt16(uw)*1+zero
        txt.print_ub(ub)
        txt.nl()

        bb = -100
        bb = sgn(bb)
        txt.print_b(bb)
        txt.nl()
        bb = -100
        bb = zero+sgn(bb)*1+zero
        txt.print_b(bb)
        txt.nl()

        ub = 100
        bb = sgn(ub)
        txt.print_b(bb)
        txt.nl()
        ub = 100
        bb = zero+sgn(ub)*1+zero
        txt.print_b(bb)
        txt.nl()

        ww = -1000
        bb = sgn(ww)
        txt.print_b(bb)
        txt.nl()
        bb = zero+sgn(ww)*1+zero
        txt.print_b(bb)
        txt.nl()

        uw = 1000
        bb = sgn(uw)
        txt.print_b(bb)
        txt.nl()
        bb = zero+sgn(uw)*1+zero
        txt.print_b(bb)
        txt.nl()

        ub = 0
        uw = sin16u(ub)
        txt.print_uw(uw)
        txt.nl()
        uw = zero+sin16u(ub)*1+zero
        txt.print_uw(uw)
        txt.nl()

        ub = 0
        uw = cos16u(ub)
        txt.print_uw(uw)
        txt.nl()
        uw = zero+cos16u(ub)*1+zero
        txt.print_uw(uw)
        txt.nl()

        ub = 0
        ww = sin16(ub)
        txt.print_w(ww)
        txt.nl()
        ww = zero+sin16(ub)*1+zero
        txt.print_w(ww)
        txt.nl()

        ub = 0
        ww = cos16(ub)
        txt.print_w(ww)
        txt.nl()
        uw = 0
        ww = zero+cos16(ub)*1+zero
        txt.print_w(ww)
        txt.nl()

        ub2 = 0
        ub = sin8u(ub2)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+sin8u(ub2)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub2 = 0
        ub = cos8u(ub2)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+cos8u(ub2)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub2 = 0
        bb = sin8(ub2)
        txt.print_b(bb)
        txt.nl()
        bb = zero+sin8(ub2)*1+zero
        txt.print_b(bb)
        txt.nl()

        ub2 = 0
        bb = cos8(ub2)
        txt.print_b(bb)
        txt.nl()
        bb = zero+cos8(ub2)*1+zero
        txt.print_b(bb)
        txt.nl()

        bb = -100
        bb = abs(bb)
        txt.print_b(bb)
        txt.nl()
        bb = -100
        bb = zero+abs(bb)*1+zero
        txt.print_b(bb)
        txt.nl()

        ww = -1000
        ww = abs(ww)
        txt.print_w(ww)
        txt.nl()
        ww = -1000
        ww = zero+abs(ww)*1+zero
        txt.print_w(ww)
        txt.nl()

        ub = min(ubarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+min(ubarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        bb = min(barr)
        txt.print_b(bb)
        txt.nl()
        bb = zero+min(barr)*1+zero
        txt.print_b(bb)
        txt.nl()

        uw = min(uwarr)
        txt.print_uw(uw)
        txt.nl()
        uw = zero+min(uwarr)*1+zero
        txt.print_uw(uw)
        txt.nl()

        ww = min(warr)
        txt.print_w(ww)
        txt.nl()
        ww = zero+min(warr)*1+zero
        txt.print_w(ww)
        txt.nl()

        ub = max(ubarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+max(ubarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        bb = max(barr)
        txt.print_b(bb)
        txt.nl()
        bb = zero+max(barr)*1+zero
        txt.print_b(bb)
        txt.nl()

        uw = max(uwarr)
        txt.print_uw(uw)
        txt.nl()
        uw = zero+max(uwarr)*1+zero
        txt.print_uw(uw)
        txt.nl()

        ww = max(warr)
        txt.print_w(ww)
        txt.nl()
        ww = zero+max(warr)*1+zero
        txt.print_w(ww)
        txt.nl()

        ub = any(ubarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+any(ubarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = any(barr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+any(barr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = any(uwarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+any(uwarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = any(warr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+any(warr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = all(ubarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+all(ubarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = all(barr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+all(barr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = all(uwarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+all(uwarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        ub = all(warr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+all(warr)*1+zero
        txt.print_ub(ub)
        txt.nl()


        uw = sum(ubarr)
        txt.print_uw(uw)
        txt.nl()
        uw = zero+sum(ubarr)*1+zero
        txt.print_uw(uw)
        txt.nl()

        ww = sum(barr)
        txt.print_w(ww)
        txt.nl()
        ww = zero+sum(barr)*1+zero
        txt.print_w(ww)
        txt.nl()

        uw = sum(uwarr)
        txt.print_uw(uw)
        txt.nl()
        uw = zero+sum(uwarr)*1+zero
        txt.print_uw(uw)
        txt.nl()

        ww = sum(warr)
        txt.print_w(ww)
        txt.nl()
        ww = zero+sum(warr)*1+zero
        txt.print_w(ww)
        txt.nl()

        sort(ubarr)
        sort(barr)
        sort(uwarr)
        sort(warr)
        reverse(ubarr)
        reverse(barr)
        reverse(uwarr)
        reverse(warr)

        test_stack.test()
    }

    sub floatingpoint() {
        ubyte[]  barr = [1,2,3,4,5,0,4,3,2,1]
        float[] flarr = [1.1, 2.2, 3.3, 0.0, -9.9, 5.5, 4.4]

        ubyte zero=0
        ubyte ub
        byte bb
        uword uw
        float fl
        float fzero=0.0

        fl = -9.9
        fl = abs(fl)
        floats.print_f(fl)
        txt.nl()
        fl = -9.9
        fl = fzero+abs(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = 9.9
        fl = atan(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 9.9
        fl = fzero+atan(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = -9.9
        fl = ceil(fl)
        floats.print_f(fl)
        txt.nl()
        fl = -9.9
        fl = fzero+ceil(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = -9.9
        fl = cos(fl)
        floats.print_f(fl)
        txt.nl()
        fl = -9.9
        fl = fzero+cos(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = -9.9
        fl = sin(fl)
        floats.print_f(fl)
        txt.nl()
        fl = -9.9
        fl = fzero+sin(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = 9.9
        fl = tan(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 9.9
        fl = fzero+tan(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = 3.1415927
        fl = deg(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 3.1415927
        fl = fzero+deg(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = 90
        fl = rad(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 90
        fl = fzero+rad(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = -9.9
        fl = floor(fl)
        floats.print_f(fl)
        txt.nl()
        fl = -9.9
        fl = fzero+floor(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = 3.1415927
        fl = ln(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 3.1415927
        fl = fzero+ln(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = 3.1415927
        fl = log2(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 3.1415927
        fl = fzero+log2(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = -9.9
        fl = round(fl)
        floats.print_f(fl)
        txt.nl()
        fl = -9.9
        fl = fzero+round(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = -9.9
        bb = sgn(fl)
        txt.print_b(bb)
        txt.nl()
        fl = -9.9
        bb = zero+sgn(fl)*1+zero
        txt.print_b(bb)
        txt.nl()

        fl = 3.1415927
        fl = sqrt(fl)
        floats.print_f(fl)
        txt.nl()
        fl = 3.1415927
        fl = fzero+sqrt(fl)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        fl = rndf()
        floats.print_f(fl)
        txt.nl()
        fl = fzero+rndf()*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        swap(fl, fzero)
        swap(fzero, fl)

        ub = any(flarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+any(flarr)*1+zero
        txt.print_ub(ub)
        txt.nl()
        ub = all(flarr)
        txt.print_ub(ub)
        txt.nl()
        ub = zero+all(flarr)*1+zero
        txt.print_ub(ub)
        txt.nl()

        reverse(flarr)
        for ub in 0 to len(flarr)-1 {
            floats.print_f(flarr[ub])
            txt.chrout(',')
        }
        txt.nl()
        fl = max(flarr)
        floats.print_f(fl)
        txt.nl()
        fl = fzero+max(flarr)*1.0+fzero
        floats.print_f(fl)
        txt.nl()
        fl = min(flarr)
        floats.print_f(fl)
        txt.nl()
        fl = fzero+min(flarr)*1.0+fzero
        floats.print_f(fl)
        txt.nl()
        fl = sum(flarr)
        floats.print_f(fl)
        txt.nl()
        fl = fzero+sum(flarr)*1.0+fzero
        floats.print_f(fl)
        txt.nl()

        test_stack.test()
    }
}