Ticket #706: bad-int-t2.pasm
| File bad-int-t2.pasm, 437 bytes (added by mj41, 13 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 | |
| 11 | NEXT: |
| 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 | |
| 24 | end |
| 25 |
