about summary refs log tree commit diff stats
path: root/315stack-debug.subx
diff options
context:
space:
mode:
Diffstat (limited to '315stack-debug.subx')
-rw-r--r--315stack-debug.subx36
1 files changed, 36 insertions, 0 deletions
diff --git a/315stack-debug.subx b/315stack-debug.subx
index 86e65fd8..99156707 100644
--- a/315stack-debug.subx
+++ b/315stack-debug.subx
@@ -81,6 +81,42 @@ $debug-print:end:
     5d/pop-to-ebp
     c3/return
 
+debug-print?:  # -> _/eax: boolean
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    #
+    8b/-> *Really-debug-print 0/r32/eax
+$debug-print?:end:
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
+turn-on-debug-print:
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    #
+    c7 0/subop/copy *Really-debug-print 1/imm32/true
+$turn-on-debug-print:end:
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
+turn-off-debug-print:
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    #
+    c7 0/subop/copy *Really-debug-print 0/imm32/false
+$turn-off-debug-print:end:
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
 == data
 Really-debug-print:
   0/imm32/false