prog8/examples/test.p8

%import gfx2
%import textio
;%import math
%import verafx
%zeropage basicsafe
%option no_sysinit

main {
    sub start() {
        word w1 = -123
        word w2 = 222
        ubyte b2 = 222
        byte sb2 = 111
        txt.print_w(w1*w2)
        txt.nl()
        txt.print_w(w1*222)
        txt.nl()
        w1 = -123
        w1 *= 222
        txt.print_w(w1)
        txt.nl()
        w1 = -123
        w1 *= w2
        txt.print_w(w1)
        txt.nl()
        w1 = -123
        w1 *= (w2-1)
        txt.print_w(w1)
        txt.nl()
        w1 = -123
        w1 *= b2
        txt.print_w(w1)
        txt.nl()
        w1 = -123
        w1 *= sb2
        txt.print_w(w1)
        txt.nl()

        gfx2.screen_mode(1)

        cbm.SETTIM(0,0,0)
        repeat 255 {
            gfx2.clear_screen()
        }
        uword time1 = cbm.RDTIM16()

        cbm.SETTIM(0,0,0)
        repeat 255 {
            verafx.clear(0, 0, %10101010, 2400)
        }
        uword time2 = cbm.RDTIM16()

        gfx2.screen_mode(0)
        txt.print_uw(time1)
        txt.spc()
        txt.print_uw(time2)
        txt.nl()


;        txt.print_uw(math.mul16_last_upper())
;        txt.nl()
;        uword value1=5678
;        uword value2=9999
;        uword result = value1*value2
;        uword upper16 = math.mul16_last_upper()
;        txt.print_uw(result)
;        txt.spc()
;        txt.print_uw(upper16)
;        txt.nl()


;        const word MULTIPLIER = 431
;
;        ; verify results:
;        for value in -50 to 50 {
;            if value*MULTIPLIER != verafx.muls(value, MULTIPLIER) {
;                txt.print("verafx muls error\n")
;                sys.exit(1)
;            }
;        }
;
;
;        word value
;        txt.print("verafx muls...")
;        cbm.SETTIM(0,0,0)
;        for value in -50 to 50 {
;            repeat 250 void verafx.muls(value, MULTIPLIER)
;        }
;        txt.print_uw(cbm.RDTIM16())
;        txt.nl()
;
;        txt.print("6502 muls...")
;        cbm.SETTIM(0,0,0)
;        for value in -50 to 50 {
;            repeat 250 cx16.r0s = value*MULTIPLIER
;        }
;        txt.print_uw(cbm.RDTIM16())
;        txt.nl()

    }
}