blob: 35ab7d4992a523e3fff0b59f3a5e536349b8b240 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
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
|
