2008-06-20 20:43:26 +00:00
|
|
|
push 5
|
|
|
|
|
:thread_create
|
|
|
|
|
exec stack
|
|
|
|
|
dec
|
|
|
|
|
dup
|
|
|
|
|
branch_not_zero thread_create
|
|
|
|
|
push finished
|
|
|
|
|
output
|
|
|
|
|
halt
|
|
|
|
|
:stack
|
2008-06-19 05:05:32 +00:00
|
|
|
push 100
|
|
|
|
|
:inner
|
|
|
|
|
dup
|
|
|
|
|
output
|
|
|
|
|
dup
|
|
|
|
|
branch_not_zero descend
|
|
|
|
|
return
|
|
|
|
|
:descend
|
|
|
|
|
dec
|
|
|
|
|
call inner
|
|
|
|
|
return
|
