diff options
Diffstat (limited to 'quine.asm')
| -rw-r--r-- | quine.asm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/quine.asm b/quine.asm index f11b435..28f97d1 100644 --- a/quine.asm +++ b/quine.asm @@ -6255,6 +6255,31 @@ cold_start: dq litstring, "exit", early_find, entry_to_execution_token, early_comma dq early_here, fetch, lit, 8, packalign, early_here_store + ; Takes a string pointer which must be equal to the current value of + ; "here", ; indicating it is in the temporary allocation space, and + ; allocates it permanently by advancing "here" to the next aligned address + ; after it. + ; + ; In: + ; string pointer + ; Out: + ; string pointer + dq litstring, "allocate-string", early_create, early_docol_codeword + dq litstring, "dup", early_find, entry_to_execution_token, early_comma + dq litstring, "dup", early_find, entry_to_execution_token, early_comma + dq litstring, "stringlen", early_find, entry_to_execution_token, early_comma + dq litstring, "lit", early_find, entry_to_execution_token, early_comma + dq lit, 1, early_comma + dq litstring, "+", early_find, entry_to_execution_token, early_comma + dq litstring, "+", 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, "packalign", early_find, entry_to_execution_token, early_comma + dq litstring, "here", early_find, entry_to_execution_token, early_comma + dq litstring, "!", early_find, entry_to_execution_token, early_comma + dq litstring, "exit", early_find, entry_to_execution_token, early_comma + dq early_here, fetch, lit, 8, packalign, early_here_store + ; In: ; pointer to buffer metadata ; Out: |