prog8/examples/structs.p8

%import c64utils
%zeropage basicsafe

; TODO fix compiler errors when compiling ( /= )


main {

    struct Color {
        ubyte red
        ubyte green
        ubyte blue
    }

    sub start() {

        Color purple = {255, 0, 255}

        Color other

        other = purple

        other.red /= 3
        other.green = 10 + other.green / 2
        other.blue = 99

        c64scr.print_ub(other.red)
        c64.CHROUT(',')
        c64scr.print_ub(other.green)
        c64.CHROUT(',')
        c64scr.print_ub(other.blue)
        c64.CHROUT('\n')

        check_eval_stack()
    }


    sub check_eval_stack() {
        if X!=255 {
            c64scr.print("stack x=")
            c64scr.print_ub(X)
            c64scr.print(" error!\n")
        }
    }

}