diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-05-20 21:35:05 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-05-20 21:35:05 -0700 |
| commit | 272c9cf16bbca81ff0e15840c4dc8fd0bbce3ad8 (patch) | |
| tree | c10fbbeccf4b6360211ee70b7566cdd213d10f71 /output.e | |
| parent | 2fcfc1bcb59e0c1716a6a7dffcad4e0b90790a20 (diff) | |
the entirety of core.e now log-loads
wow!!!!!! wow making this work required implementing comma and keyword in the log-load transform Force-Push: yes Change-Id: If888d89c23389720840b49b72478e4826a15a269
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 ; |