about summary refs log tree commit diff stats
path: root/shell
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-04-22 07:56:49 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-04-22 07:56:49 -0700
commit6842dddd681e85afd8373e66227f110ea963671d (patch)
treeb3a1d8ed605b8c8bbfc56c141951686be083c0d3 /shell
parent4afe53d8344f091dff02583913af57080f745f68 (diff)
downloadmu-6842dddd681e85afd8373e66227f110ea963671d.tar.gz
.
Diffstat (limited to 'shell')
-rw-r--r--shell/print.mu11
1 files changed, 9 insertions, 2 deletions
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