prog8/examples/test.p8

%import test_stack

main {

    sub start() {
        test_stack.test()

        sys.push(-22 as ubyte)
        sys.push(44)
        sys.pushw(-11234 as uword)
        sys.pushw(12345)
        sys.push(1)
        sys.push(2)
        ubyte @shared ub = sys.pop()
        byte @shared bb = sys.pop() as byte
        uword @shared uw = sys.popw()
        word @shared ww = sys.popw() as word
        void sys.pop()
        void sys.pop()

        ; routine2(uw+1, true)

        test_stack.test()

        repeat {
        }

    }

    asmsub routine2(uword num @AY, ubyte switch @X) {
        %asm {{
            adc #20
            rts
        }}
    }

}