set S28, ""
    concat S28, ".pcc_sub :anon _indi:\n"
    concat S28, "  get_params \"(0,0,0)\", I0, I1, I2\n"
    concat S28, "  set I3, 23\n"
    concat S28, "  set_returns \"(0)\", I3\n"
    concat S28, "  returncc\n"

    compreg P1, "PASM"
    set I20, 0

NEXT:
    set_args "(0)",S28
    get_results "(0)", P0
    invokecc P1

    needs_destroy P0
    sweep 0
    
    inc I20
    lt I20, 100000, NEXT
    
#    sleep 10

end