From ef487a6513cdfd4d82ec84d0844d753b3f59990f Mon Sep 17 00:00:00 2001
From: kudzu_cp <6d05c8c8ef5431987001abfdb2eadc9593ac9498>
Date: Sun, 8 Jul 2012 15:27:48 +0000
Subject: [PATCH]

---
 .../Cosmos.Compiler.DebugStub/Commands.cs     | 22 +++++++++++++++++++
 .../Cosmos.Compiler.DebugStub/Commands.xs     | 10 +++++++++
 2 files changed, 32 insertions(+)

diff --git a/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.cs b/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.cs
index fe46a7d16..f4f291122 100644
--- a/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.cs
+++ b/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.cs
@@ -26,6 +26,28 @@ namespace Cosmos.Debug.DebugStub {
 			new Label("DebugStub_Ping_Exit");
 			new Return();
 
+			new Comment("X#: procedure TraceOn {");
+			new Label("DebugStub_TraceOn");
+
+			new Comment("Tracing.On");
+
+			new Comment(".TraceMode = 1");
+
+			new Comment("X#: }");
+			new Label("DebugStub_TraceOn_Exit");
+			new Return();
+
+			new Comment("X#: procedure TraceOff {");
+			new Label("DebugStub_TraceOff");
+
+			new Comment("Tracing.Off");
+
+			new Comment(".TraceMode = 0");
+
+			new Comment("X#: }");
+			new Label("DebugStub_TraceOff_Exit");
+			new Return();
+
 		}
 	}
 }
diff --git a/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.xs b/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.xs
index a3633bc9e..ae8a0d811 100644
--- a/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.xs
+++ b/source2/Compiler/Cosmos.Compiler.DebugStub/Commands.xs
@@ -5,3 +5,13 @@ procedure Ping {
     AL = 13
     Call .ComWriteAL
 }
+
+procedure TraceOn {
+    # Tracing.On
+    #.TraceMode = 1
+}
+
+procedure TraceOff {
+    # Tracing.Off
+    #.TraceMode = 0
+}