LTCD_070816.ISO

LT/Demo/MultiCore.CPZ

@@ -0,0 +1,94 @@
+/*
+  This demo uses some memory which is
+  uncached and can be accessed by
+  both CPU's.
+
+  See $LK,"Memory","HI:Memory"$
+*/
+
+class XferCtrl
+{
+  BoolU4 done;
+  I1 buf[512];
+  I8 cnt;
+  TssStruct *song_tsk;
+};
+
+XferCtrl *xc;
+
+void SongEndTsk()
+{
+  Sound(0);
+  Exit;
+}
+
+void SongTsk()
+{
+  Fs->end_task_cb=&SongEndTsk;
+  ResetMusicSettings;
+  while (TRUE) {
+    Play("3qG2G3DBsDCDCqRCG");
+    Play("G2G3DBsDCDCqRCG");
+    Play("EeGFqBBDA2eGGqR");
+    Play("3EeGFqBBDA2eGGqR");
+  }
+}
+
+void CPU1Tsk1()
+{
+  Preempt(ON);
+  xc->song_tsk=Spawn(&SongTsk,"MultiCore Song");
+  while (!xc->done) {
+    SPrintF(xc->buf,"Hi  %d",xc->cnt);
+    SPrintF(xc->buf,"Low %d",xc->cnt);
+    xc->cnt++;
+  }
+  xc->done=FALSE;
+}
+
+void CPU1Tsk2()
+{
+  Preempt(ON);
+  Kill(xc->song_tsk);
+  while (!xc->done) {
+    SPrintF(xc->buf,"Up  %d",xc->cnt);
+    SPrintF(xc->buf,"Down%d",xc->cnt);
+    xc->cnt--;
+  }
+  xc->done=FALSE;
+}
+
+
+void CPU0Tsk()
+{
+  //$FG,2$Allocate off of the write-through heap$FG$
+  xc=MAllocHC(sizeof(XferCtrl),mp_heap);
+  WbInvd;  //$FG,2$Flush xc out of Cache.$FG$
+
+  xc->cnt=0;
+  xc->done=FALSE;
+  *xc->buf=0;
+
+  MPQueueJob(&CPU1Tsk1);
+  while (!ScanKey) {
+    coutln xc->cnt,":",xc->buf;
+    SwapInNext;
+  }
+
+  xc->done=TRUE;
+  while (xc->done)
+    SwapInNext;
+
+  MPQueueJob(&CPU1Tsk2);
+  while (!ScanKey) {
+    coutln xc->cnt,":",xc->buf;
+    SwapInNext;
+  }
+
+  xc->done=TRUE;
+  while (xc->done)
+    SwapInNext;
+  FreeHC(xc,mp_heap);
+}
+
+CPU0Tsk;