You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
653 B
39 lines
653 B
4 years ago
|
(
|
||
|
|
(lds @cout "main\n")
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "main\n")
|
||
|
|
(msleep 500)
|
||
|
|
|
||
|
|
(lds @cout "Spawnign bg\n")
|
||
|
|
|
||
|
|
(spawn r15 bg 10)
|
||
|
|
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "FG\n")
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "FG\n")
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "FG\n")
|
||
|
|
|
||
|
|
(msleep 1000)
|
||
|
|
|
||
|
|
(lds @cout "Wait for BG\n")
|
||
|
|
(join @r15)
|
||
|
|
(lds @cout "Joined\n")
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "main\n")
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "main\n")
|
||
|
|
(msleep 500)
|
||
|
|
|
||
|
|
(proc bg times
|
||
|
|
(ld r0 times)
|
||
|
|
(:x)
|
||
|
|
(msleep 500)
|
||
|
|
(lds @cout "***BG\n")
|
||
|
|
(dec r0 (nz? (j :x)))
|
||
|
|
(lds @cout "***BG done.\n")
|
||
|
|
(ret)
|
||
|
|
)
|
||
|
|
)
|