Node 103
This node ...
Source code
103 jumps
gw 00 562F gw !b !b 3 call !b ;
'begin 04 n-h drop full 05 12003 full !b
h@ 07 -h 1203A h@ !b @b 3 over over and or if drop ;
then drop drop full ;
ins 0F i 4 over or if /ins 12 drop 561D tok !b !b ;
then ai /ins drop ;
'end 'next 17 hn push h 2/ 2/ 562F gw !b !b pop !b ;
'if '-if 1B n-h push h@ pop ins 12003 full !b ;
jump 1F n-n' dup pop . + push ;
begin * drop ins ;
low 22 dup -8 . + -until * drop jump ins ; ins ;
'end ; 'begin ; ins ; 'next ; 'if ; '-if ;
tok 2E n -if swap drop a! push a pop ;
then dup -32 . + -if drop low ;
then nx drop down a! 562E high ! ! ;
rw 39 1202C rw left a! !b @b ! ; 3D
init right b! -dl- ; 40
5 l 4 d 0 ether
gw 00 562F gw !b !b 3 call !b ;
'begin 04 n-h drop full 05 12003 full !b
h@ 07 -h 1203A h@ !b @b 3 over over and or if drop ;
then drop drop full ;
ins 0F i 4 over or if /ins 12 drop 561D tok !b !b ;
then ai /ins drop ;
'end 'next 17 hn push h 2/ 2/ 562F gw !b !b pop !b ;
'if '-if 1B n-h push h@ pop ins 12003 full !b ;
jump 1F n-n' dup pop . + push ;
begin * drop ins ;
low 22 dup -8 . + -until * drop jump ins ; ins ;
'end ; 'begin ; ins ; 'next ; 'if ; '-if ;
tok 2E n -if swap drop a! push a pop ;
then dup -32 . + -if drop low ;
then nx drop down a! 562E high ! ! ;
rw 39 1202C rw left a! !b @b ! ; 3D
init right b! -dl- ; 40
5 l 4 d 0 ether
Definitions
- gw
- .
- 'begin
- .
- full
- .
- h@
- .
- ins
- .
- /ins
- .
- 'end, 'next
- .
- 'if, '-if
- .
- jump
- .
- low
- .
- tok
- .
- rw
- .
- init
- Set register B, , and jump to DOWN and LEFT.