diff options
Diffstat (limited to 'output.e')
| -rw-r--r-- | output.e | 49 |
1 files changed, 25 insertions, 24 deletions
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 ; |