From b1299d632715669c90dde918f5522c776b853e66 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 18 Mar 2015 22:08:19 -0700
Subject: 955

---
 cpp/090debug | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 cpp/090debug

diff --git a/cpp/090debug b/cpp/090debug
new file mode 100644
index 00000000..ca88b86c
--- /dev/null
+++ b/cpp/090debug
@@ -0,0 +1,13 @@
+:(before "End Globals")
+// Operator to look at fields of records.
+const int _PRINT = 99;
+:(before "End Primitive Recipe Numbers")
+Recipe_number["$print"] = _PRINT;
+assert(Next_recipe_number < _PRINT);
+:(before "End Primitive Recipe Implementations")
+//: beware: overridden in later layers
+case _PRINT: {
+  vector<int> result(read_memory(instructions[pc].ingredients[0]));
+  cout << result[0] << '\n';
+  break;
+}
-- 
cgit 1.4.1-2-gfad0