forked from MightyPork/crsn
38 lines
653 B
38 lines
653 B
(
|
|
(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)
|
|
)
|
|
)
|
|
|