diff options
| author | Irene Knapp <ireneista@irenes.space> | 2026-04-27 03:27:12 -0700 |
|---|---|---|
| committer | Irene Knapp <ireneista@irenes.space> | 2026-04-27 03:27:12 -0700 |
| commit | 5a98d4630c961306d49ee88596c92968e85969e0 (patch) | |
| tree | 8b8e4c5504648fc11e2c024e926ebdc3a6eebbb3 | |
| parent | 4d56602758482f786a822110da9fc7f94a9f6023 (diff) | |
minor formatting change; some comments
Force-Push: yes Change-Id: I28ccd83524de7baeaaf9e942006a892d7411c2aa
| -rw-r--r-- | quine.asm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/quine.asm b/quine.asm index be301f5..fb1a8f2 100644 --- a/quine.asm +++ b/quine.asm @@ -11299,6 +11299,10 @@ defword boot_source, 0x40 dq ": is-docol-itself " dq " entry-to-name s"" docol"" stringcmp 0 = ; " + ; The word named "docol" has the job of returning the value that gets used + ; as the actual codeword. We make the assumption that, if so, the codeword + ; will point somewhere near the entry header; we allow for the possibility + ; that it might be before or after. dq ": is-docol-codeword " dq " dup is-in-heap { drop 0 exit } unless " dq " containing-entry dup " @@ -11307,13 +11311,14 @@ defword boot_source, 0x40 dq " { next-newer-entry dup { is-docol-itself } if } if-else " dq " } if ; " + ; TODO this only works on heap words dq ": is-docol-word " dq " dup is-assembly-word { drop 0 exit } if " dq " entry-to-execution-token @ is-docol-codeword ; " dq ": word-heading " dq " dup entry-to-name dup emitstring space " - dq " stringlen 1+ 70 swap - 0 max indent dup .hex64 " + dq " stringlen 1+ 54 swap - 0 max indent dup .hex64 " dq " dup entry-flags@ dup " dq " { space " dq " dup 128 & { s"" H"" emitstring } if " |