From 5a98d4630c961306d49ee88596c92968e85969e0 Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Mon, 27 Apr 2026 03:27:12 -0700 Subject: minor formatting change; some comments Force-Push: yes Change-Id: I28ccd83524de7baeaaf9e942006a892d7411c2aa --- quine.asm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'quine.asm') 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 " -- cgit 1.4.1