From a00f83c9446159eaf9ac817dfae5291cb226ab7a Mon Sep 17 00:00:00 2001 From: Irene Knapp Date: Thu, 28 May 2026 21:34:03 -0700 Subject: swap the parameters to "entry-flags!" Force-Push: yes Change-Id: I11f3eb1079d27a7306d6ed1e8e4b9fd6fb7d3a4a --- quine.asm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'quine.asm') 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 -- cgit 1.4.1