Node 414
This node, together with node 413, converts tokens into character strings.
Source code
414 +tokens
- 550000 o, 0 o, + 570000 o, 0 o,
and 122715 o, 0 o, or 303300 o, 0 o,
drop 153330 o, 310000 o, dup 153631 o, 0 o,
pop 313031 o, 0 o, over 303716 o, 330000 o,
a 120000 o, 0 o, . 500000 o, 0 o,
push 313634 o, 210000 o, b! 134700 o, 0 o,
a! 124700 o, 0 o, then 352116 o, 270000 o,
else 162534 o, 160000 o, ahead 122116 o, 121500 o,
leap 251612 o, 310000 o, when 402116 o, 270000 o,
zif 432217 o, 0 o, till 352225 o, 250000 o,
-till 553522 o, 252500 o, for 173033 o, 0 o,
-when 554021 o, 162700 o, left 251617 o, 350000 o,
right 332220 o, 213500 o, io 223000 o, 0 o,
down 153040 o, 270000 o, data 151235 o, 120000 o,
up 363100 o, 0 o,
tok 3A @b a! @+ !b @ !b tok ; 3D
init left b! .. tok ; 40
2 d 5 r 0 ether
- 550000 o, 0 o, + 570000 o, 0 o,
and 122715 o, 0 o, or 303300 o, 0 o,
drop 153330 o, 310000 o, dup 153631 o, 0 o,
pop 313031 o, 0 o, over 303716 o, 330000 o,
a 120000 o, 0 o, . 500000 o, 0 o,
push 313634 o, 210000 o, b! 134700 o, 0 o,
a! 124700 o, 0 o, then 352116 o, 270000 o,
else 162534 o, 160000 o, ahead 122116 o, 121500 o,
leap 251612 o, 310000 o, when 402116 o, 270000 o,
zif 432217 o, 0 o, till 352225 o, 250000 o,
-till 553522 o, 252500 o, for 173033 o, 0 o,
-when 554021 o, 162700 o, left 251617 o, 350000 o,
right 332220 o, 213500 o, io 223000 o, 0 o,
down 153040 o, 270000 o, data 151235 o, 120000 o,
up 363100 o, 0 o,
tok 3A @b a! @+ !b @ !b tok ; 3D
init left b! .. tok ; 40
2 d 5 r 0 ether
Definitions
- tok
- Fetch address from LEFT, and return back two words from that address. Jump back to tok. Addresses start at 40 but due to repeated address space it actually points to cell zero.
- init
- Set B, and jump to tok.
Description
This node just waits for an address from node 413, and returns back two words from this and immediately following address.