From 6842dddd681e85afd8373e66227f110ea963671d Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 22 Apr 2021 07:56:49 -0700
Subject: .

---
 shell/print.mu | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'shell')

diff --git a/shell/print.mu b/shell/print.mu
index 7d6b8eb3..1eb19ba3 100644
--- a/shell/print.mu
+++ b/shell/print.mu
@@ -82,8 +82,8 @@ fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr tra
 }
 
 # debug helper
-fn dump-cell in-ah: (addr handle cell) {
-  var stream-storage: (stream byte 0x40)
+fn dump-cell-at-top-right in-ah: (addr handle cell) {
+  var stream-storage: (stream byte 0x200)
   var stream/edx: (addr stream byte) <- address stream-storage
   print-cell in-ah, stream, 0/no-trace
   var d1/eax: int <- copy 0
@@ -91,6 +91,13 @@ fn dump-cell in-ah: (addr handle cell) {
   d1, d2 <- draw-stream-wrapping-right-then-down 0/screen, stream, 0/xmin, 0/ymin, 0x80/xmax, 0x30/ymax, 0/x, 0/y, 7/fg, 0/bg
 }
 
+fn dump-cell-from-cursor-over-full-screen in-ah: (addr handle cell) {
+  var stream-storage: (stream byte 0x200)
+  var stream/edx: (addr stream byte) <- address stream-storage
+  print-cell in-ah, stream, 0/no-trace
+  draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, stream, 7/fg, 0/bg
+}
+
 fn print-symbol _in: (addr cell), out: (addr stream byte), trace: (addr trace) {
   trace-text trace, "print", "symbol"
   var in/esi: (addr cell) <- copy _in
-- 
cgit 1.4.1-2-gfad0