oops, I renamed the wrong file...
This is the correct example.

jens

.pcc_sub _main:
    newsub P0, .Sub, _foo
    newsub P1, .RetContinuation, _ret
    invoke
_ret:
    print "returned!\n"
    set P0, P2
    invokecc
    print "after 2nd invoke\n"
    end

.pcc_sub _foo:
    print "foo start\n"
    newsub P2, .Continuation, _cont
    set P3, P1
_cont:
    print "foo cont\n"
    set P1, P3
    invoke P1

Reply via email to