Node 203
...
Source code
203 nest
word 00 sc-s' over 2* 2* 2* 2* 2* 2* or ;
match 03 s 12028 match ! ! 0 r--- ;
r! 07 n 5620 r! ! ! ;
r@ 09 -n 12024 r@ ! @ ;
flush 0B 12023 flush !b ;
nest 0D 12000 blk !b 12003 ptr !b @p !b .
! ! . . @b p -1 . + r! @b r! ;
code 16 5609 code flush @p !b !b @p @p !b !b . @b drop . .
!b -1 5603 ptr !b !b 3D604 + ptr! !b
12000 blk !b 10029 cont !b ;
load 24 flush nest 12026 parse !b ;
xit 28 flush
fin 29 r@ r@ -if 1202C ok @p !b . @p !b . .
!b 10175 --l- !b ; then bp 5604 ptr!
!b !b 49B2 @p !b !b 10028 cont !b ; 37
init right a! down b! 0 -d-- ; 3D
5 l 3 d 0 ether
word 00 sc-s' over 2* 2* 2* 2* 2* 2* or ;
match 03 s 12028 match ! ! 0 r--- ;
r! 07 n 5620 r! ! ! ;
r@ 09 -n 12024 r@ ! @ ;
flush 0B 12023 flush !b ;
nest 0D 12000 blk !b 12003 ptr !b @p !b .
! ! . . @b p -1 . + r! @b r! ;
code 16 5609 code flush @p !b !b @p @p !b !b . @b drop . .
!b -1 5603 ptr !b !b 3D604 + ptr! !b
12000 blk !b 10029 cont !b ;
load 24 flush nest 12026 parse !b ;
xit 28 flush
fin 29 r@ r@ -if 1202C ok @p !b . @p !b . .
!b 10175 --l- !b ; then bp 5604 ptr!
!b !b 49B2 @p !b !b 10028 cont !b ; 37
init right a! down b! 0 -d-- ; 3D
5 l 3 d 0 ether
Definitions
- word
- .
- match
- .
- r!
- .
- r@
- .
- flush
- .
- nest
- .
- code
- .
- load
- .
- xit
- .
- fin
- .
- init
- Set registers A and B, place zero on stack, and jump to DOWN.