diff options
Diffstat (limited to 'docs/history/07-zygote/code/repl.s')
| -rw-r--r-- | docs/history/07-zygote/code/repl.s | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/docs/history/07-zygote/code/repl.s b/docs/history/07-zygote/code/repl.s new file mode 100644 index 0000000..35ab7d4 --- /dev/null +++ b/docs/history/07-zygote/code/repl.s @@ -0,0 +1,11 @@ +:;teach_the_resident_assembler_that_p_means_out +112 48009 @ 12 + ! +:;each_backtick-separated_chunk_of_input_is_assembled_at_40000_and_called +:nx ? rd0 z q +:rd0 30000 ptr ! +:rd ? ch z go j +:ch , 0 $ 96 - eos z ptr @ ! ptr @ 1 + ptr ! rd j +:eos _ +:go 0 ptr @ ! 30000 48004 @ ! 40000 48005 @ ! 40000 48006 @ ! 41000 48007 @ ! 48002 c + 40000 c nx j +:ptr #0 |