prog8/examples/test.p8

%import graphics
%zeropage basicsafe

main {
    sub start() {

        word xx
        word yy

        ; all comparisons with constant values are already optimized.
        ; but for variables (and memreads) we can optimize further (don't use temporary ZP location)

        word value = 100

        while xx==value {
            yy++
        }

        while xx!=value {
            yy++
        }

        do {
            yy++
        } until xx==value

        do {
            yy++
        } until xx!=value

        if xx==value
            yy++

        if xx!=value
            yy++

;        while xx>value {
;            yy++
;        }
;        do {
;            yy++
;        } until xx>value
;
;        if xx>value
;            yy++
    }

    sub start3() {

        byte xx
        byte yy

        ; all comparisons with constant values are already optimized.
        ; but for variables (and memreads) we can optimize further (don't use temporary ZP location)

        byte value = 100

        while xx==value {
            yy++
        }

        while xx==@($2000) {
            yy++
        }

        while xx!=value {
            yy++
        }

        while xx!=@($2000) {
            yy++
        }

        do {
            yy++
        } until xx==value

        do {
            yy++
        } until xx!=value

        if xx==value
            yy++

        if xx!=value
            yy++

;        while xx>value {
;            yy++
;        }
;        do {
;            yy++
;        } until xx>value
;
;        if xx>value
;            yy++
    }


    sub start2() {

        graphics.enable_bitmap_mode()

        uword xx
        ubyte yy

        graphics.line(150,50,150,50)

        for yy in 0 to 199-60 step 16 {

            for xx in 0 to 319-50 step 16 {
                graphics.line(30+xx, 10+yy, 50+xx, 30+yy)
                graphics.line(49+xx, 30+yy, 10+xx, 30+yy)
                graphics.line(11+xx, 29+yy, 29+xx, 11+yy)

                ; triangle 2, counter-clockwise
                graphics.line(30+xx, 40+yy, 10+xx, 60+yy)
                graphics.line(11+xx, 60+yy, 50+xx, 60+yy)
                graphics.line(49+xx, 59+yy, 31+xx,41+yy)
            }
        }

        repeat {
        }
    }
}