From a7a670e41bdaf9c57bfe7bbd802158de91d7d94d Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 21 May 2026 16:52:41 -0700 Subject: started cleaning up all the log-loaded functionality it's in dynamic.e for now Force-Push: yes Change-Id: I4d0c5917eccd58cb881850faee0728d786010c27 --- output.e | 49 +++++++++++++++++++++++++------------------------ 1 file changed, 25 insertions(+), 24 deletions(-) (limited to 'output.e') diff --git a/output.e b/output.e index fe777b8..80f1577 100644 --- a/output.e +++ b/output.e @@ -191,28 +191,29 @@ ~ Debugging tools ~ ~~~~~~~~~~~~~~~ -~ ~ TODO this is a horrible, horrible hack -: s0-kludge 0x1000010008 ; - -~ TODO replace these with the implementations that use proper flow-control -: stack - s0-kludge @ 8 - - - dup value@ 8 + != - 0branch [ 19 8 * , ] - dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ . 8 - - branch [ -25 8 * , ] - - drop newline ; - - -: stackhex - s0-kludge @ 8 - - - dup value@ 8 + != - 0branch [ 19 8 * , ] - dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ .hex64 8 - - branch [ -25 8 * , ] - - drop newline ; +~ TODO remove these altogether, they're in dynamic.e now +~ ~ ~ TODO this is a horrible, horrible hack +~ : s0-kludge 0x1000010008 ; +~ +~ ~ TODO replace these with the implementations that use proper flow-control +~ : stack +~ s0-kludge @ 8 - +~ +~ dup value@ 8 + != +~ 0branch [ 19 8 * , ] +~ dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ . 8 - +~ branch [ -25 8 * , ] +~ +~ drop newline ; +~ +~ +~ : stackhex +~ s0-kludge @ 8 - +~ +~ dup value@ 8 + != +~ 0branch [ 19 8 * , ] +~ dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ .hex64 8 - +~ branch [ -25 8 * , ] +~ +~ drop newline ; -- cgit 1.4.1