Node 213
Words defined here move cursor pointer between tags. They also provide access to some words from node 212 to navigator.
Source code
213 tags
+s 00 -s 12028 +s !b @b ;
-s 02 -s 12030 -s !b @b ;
cu 04 12037 cu !b ;
+t 06 30 begin dup +s -if ; then over and or
while drop end then cu ;
-t 0F 30 begin dup -s over and or
while drop end then cu ;
+x 16 +s cu ;
-x 18 -s cu ;
sym 1A -s 12000 ptr !b 12016 sym !b @p !b . !p .. @b ;
ptr 20 -p 12000 ptr !b @p . !p .. !b @b ;
ptr! 24 p 5601 ptr! !b !b 12037 cu !b ;
+s! 28 +s ! ;
-s! 2A -s ! ; 2C
init up a! right b! ---u ; 31
4 d 4 r 0 ether
+s 00 -s 12028 +s !b @b ;
-s 02 -s 12030 -s !b @b ;
cu 04 12037 cu !b ;
+t 06 30 begin dup +s -if ; then over and or
while drop end then cu ;
-t 0F 30 begin dup -s over and or
while drop end then cu ;
+x 16 +s cu ;
-x 18 -s cu ;
sym 1A -s 12000 ptr !b 12016 sym !b @p !b . !p .. @b ;
ptr 20 -p 12000 ptr !b @p . !p .. !b @b ;
ptr! 24 p 5601 ptr! !b !b 12037 cu !b ;
+s! 28 +s ! ;
-s! 2A -s ! ; 2C
init up a! right b! ---u ; 31
4 d 4 r 0 ether
Definitions
- +s, -s
- Call +s and -s in 212 and get a symbol back.
- cu
- Call cu in 212.
- +t, -t
- Call +s and -s until cursor points to a tag (symbols 30 - 3F).
- +x, -x
- Perform the same actions as +s and -s, then update cursor pointer by calling cu.
- sym
- Retrieve a symbol s at current cursor pointer by calling words in node 212.
- ptr, ptr!
- These are equivalent to ptr and ptr! in 212.
- +s!, -s!
- Perform actions of +s and -s and send the result to 113.
- init
- Set registers A and B, and jump to UP.