Ticket #706: bad-int-t2.pasm

File bad-int-t2.pasm, 437 bytes (added by mj41, 6 years ago)
Line 
1    set S28, ""
2    concat S28, ".pcc_sub :anon _indi:\n"
3    concat S28, "  get_params \"(0,0,0)\", I0, I1, I2\n"
4    concat S28, "  set I3, 23\n"
5    concat S28, "  set_returns \"(0)\", I3\n"
6    concat S28, "  returncc\n"
7
8    compreg P1, "PASM"
9    set I20, 0
10
11NEXT:
12    set_args "(0)",S28
13    get_results "(0)", P0
14    invokecc P1
15
16    needs_destroy P0
17    sweep 0
18   
19    inc I20
20    lt I20, 100000, NEXT
21   
22#    sleep 10
23
24end
25