diff options
Diffstat (limited to 'output.e')
| -rw-r--r-- | output.e | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/output.e b/output.e index 29789b6..fe777b8 100644 --- a/output.e +++ b/output.e @@ -191,27 +191,27 @@ ~ Debugging tools ~ ~~~~~~~~~~~~~~~ -~ TODO this is a horrible, horrible hack -: s0 0x1000010008 ; +~ ~ TODO this is a horrible, horrible hack +: s0-kludge 0x1000010008 ; ~ TODO replace these with the implementations that use proper flow-control : stack - s0 @ 8 - + s0-kludge @ 8 - dup value@ 8 + != 0branch [ 19 8 * , ] - dup s0 @ 8 - != 0branch [ 2 8 * , ] space dup @ . 8 - + dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ . 8 - branch [ -25 8 * , ] drop newline ; : stackhex - s0 @ 8 - + s0-kludge @ 8 - dup value@ 8 + != 0branch [ 19 8 * , ] - dup s0 @ 8 - != 0branch [ 2 8 * , ] space dup @ .hex64 8 - + dup s0-kludge @ 8 - != 0branch [ 2 8 * , ] space dup @ .hex64 8 - branch [ -25 8 * , ] drop newline ; |