summary refs log tree commit diff
path: root/quine.asm
diff options
context:
space:
mode:
Diffstat (limited to 'quine.asm')
-rw-r--r--quine.asm5
1 files changed, 3 insertions, 2 deletions
diff --git a/quine.asm b/quine.asm
index 6027e5e..ab742a0 100644
--- a/quine.asm
+++ b/quine.asm
@@ -5798,9 +5798,7 @@ cold_start:
   dq early_here, fetch, lit, 8, packalign, early_here_store
 
   ; This was "store_entry_flags".
-  ; TODO these parameters are in a counterintuitive order, swap them
   dq litstring, "entry-flags!", early_create, early_docol_codeword
-  dq litstring, "swap", early_find, entry_to_execution_token, early_comma
   dq litstring, "lit", early_find, entry_to_execution_token, early_comma
   dq lit, 8, early_comma
   dq litstring, "+", early_find, entry_to_execution_token, early_comma
@@ -7723,6 +7721,7 @@ cold_start:
   dq litstring, "lit", early_find, entry_to_execution_token, early_comma
   dq lit, 0x80, early_comma
   dq litstring, "|", early_find, entry_to_execution_token, early_comma
+  dq litstring, "swap", early_find, entry_to_execution_token, early_comma
   dq litstring, "entry-flags!", early_find, entry_to_execution_token
   dq early_comma
   dq litstring, "exit", early_find, entry_to_execution_token, early_comma
@@ -7737,6 +7736,7 @@ cold_start:
   dq lit, 0x80, early_comma
   dq litstring, "invert", early_find, entry_to_execution_token, early_comma
   dq litstring, "&", early_find, entry_to_execution_token, early_comma
+  dq litstring, "swap", early_find, entry_to_execution_token, early_comma
   dq litstring, "entry-flags!", early_find, entry_to_execution_token
   dq early_comma
   dq litstring, "exit", early_find, entry_to_execution_token, early_comma
@@ -7750,6 +7750,7 @@ cold_start:
   dq litstring, "lit", early_find, entry_to_execution_token, early_comma
   dq lit, 0x01, early_comma
   dq litstring, "|", early_find, entry_to_execution_token, early_comma
+  dq litstring, "swap", early_find, entry_to_execution_token, early_comma
   dq litstring, "entry-flags!", early_find, entry_to_execution_token
   dq early_comma
   dq litstring, "exit", early_find, entry_to_execution_token, early_comma