hschumann2/TempleOS-Source-Code

1 2Bool app_done;3I64 app_done_ack;4 5U0 Job1(I64)6{//Compile Compiler7  Silent;8  while (!app_done) {9    Cd("::/Compiler");10    Cmp("Compiler");11  }12  lock {app_done_ack--;}13}14 15U0 Job2(I64)16{//Log a file17  while (!app_done) {18    AdamLog("%F","::/Demo/MultiCore/LoadTest.HC");19    Yield;20  }21  lock {app_done_ack--;}22}23 24U0 Job3(I64)25{//Log a file26  while (!app_done) {27    Cd("::/Compiler");28    AdamLog("%F","Compiler.PRJ.Z");29    Yield;30  }31  lock {app_done_ack--;}32}33 34U0 Main()35{36  app_done=FALSE;37  "Running MultiCore Test...\n";38  Spawn(&Job1,,,1); //core #139  Spawn(&Job2,,,1);40  Spawn(&Job3,,,1);41  PressAKey;42//We don't want to yank code from under MP cores.43  app_done_ack=3;44  app_done=TRUE;45  while (app_done_ack)46    Yield;47}48 49Main;50