Claude
e8e7ec8b9f
ENGINE step 4 Phase 2 (plan docs/v4.0.0/plans/2026-11-13-engine-step4-phase2-word-accounts.md). Rulings, Captain Bob 2026-11-13: "ID field in the header"; "Per heartbeat tick"; the ACL "All of it in Phase 4". - The word ID, at xt-4 before the flags (ENGINE.md 3b). The system's words are numbered as they are assembled, by a new directive, #id, (and #ids, the count), in the C assembler (text.c) and in the machine ROM's (capsules/v4/rom), which counts in the system's own (NEXT-ID). (HEADER) numbers later words; FORGET gives back the IDs it frees, always the newest; COLD resets to (BOOT-ID); (SEAL) records it. All 313 system headers carry the cell. - The kernel's records (v4/mesh.h): (TELL-DEFINED) and (TELL-FORGOTTEN), requests -19/-20 on port 0, which the kernel puts in (WORD-DEFINED)/(WORD-FORGOTTEN) when it seals a node, and reads the system's own words once. A bit per address marks a word's xt (calls into the ROM or headerless code are not words); at call, the bit test and a count. v4_mesh_charge hands the owner the calls since. - The Stadium: stadium_words_charge -- N calls as N of stadium_word_dispatch's dispatches, shared by calls when the reservoir is short; sk_v4.c charges every node's words at the tick beside its opcodes, and stadium_word_forget before an ID is used again. - Tests first: test_text.c, test_host_dict.c, test_host_quit.c (numbering, FORGET, COLD), test_mesh_boot.c (44 checks), kernel/tests/test_stadium_words.c; qemu_session.py: Hera's words admitted after POST. - amd64: Stadium words: promotions=141 after POST, CONSERVED; POST 539/539; word_count=377; dict_hash 0xa854ba15b437d288 (the new cell); the boot 142 s against Phase 1's 153 s. - v4 test, test-32: all pass; v4-checks: 80 programs under the sanitizers, 0 failures; the hosted builds alike. docs/reference/v4-dictionary.tsv: the two new words; FABRIC-3 XLVIII.24. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_017RzZgrf7V7Zk2iczBXDRbm
28 KiB
28 KiB
| 1 | # docs/reference/v4-dictionary.tsv -- the dictionary of v4 (#157): name, stack notation, | ||
|---|---|---|---|
| 2 | # description, tab-separated. The names are the live system's (v4/tools/mkdictionary.py | ||
| 3 | # check refuses a missing or a stale one). A row whose description starts TODO is a draft. | ||
| 4 | ! | ( x addr -- ) | Store x in the cell at addr. |
| 5 | # | ( ud1 -- ud2 ) | Pictured output: divide ud1 by BASE, put the remainder's digit in front of the string being built, leave the quotient. |
| 6 | #> | ( ud -- baddr u ) | End pictured output: drop ud and leave the string built since <#. |
| 7 | #S | ( ud -- 0 0 ) | Pictured output: convert digits with # until the number is zero (at least one digit). |
| 8 | ' | ( -- addr ) | ' xxx: the parameter field address of xxx; compiled as a literal when compiling. |
| 9 | ( | ( -- ) | ( text): a comment, ended by the first ); immediate. |
| 10 | (BITS) | ( -- n ) | The number of bits in a cell, counted at run time (forth79.4th; used by U/MOD). |
| 11 | (CONSOLE) | ( -- addr ) | Variable: the node that what this node prints is sent to, as messages (core.f18). |
| 12 | (LOST) | ( -- addr ) | Variable: a count of the messages this node has dropped -- nowhere to send them, or no room. |
| 13 | (ME) | ( -- addr ) | Variable: this node's number in the mesh. |
| 14 | (NB) | ( -- n ) | Constant: the bits in a cell, (BITS) counted once at load (forth79.4th). |
| 15 | (REFUSED) | ( -- addr ) | Variable: a count of the messages that came back to this node, refused. |
| 16 | (SEAL) | ( -- ) | What is in the dictionary now is the system: COLD returns to it and FORGET will not go below it. |
| 17 | (TELL-DEFINED) | ( xt -- ) | Tells the kernel that an entry has been made, with its code at xt (request -19 on port 0). The kernel puts it in (WORD-DEFINED) when it seals a node. |
| 18 | (TELL-FORGOTTEN) | ( w -- ) | Tells the kernel that every entry from word address w up has gone (request -20 on port 0). The kernel puts it in (WORD-FORGOTTEN) when it seals a node. |
| 19 | (UD) | ( -- addr ) | Variable: U/MOD's divisor while it divides (forth79.4th). |
| 20 | (WORD-DEFINED) | ( -- addr ) | Variable: the hook told when an entry is made, with the xt its code will be at. |
| 21 | (WORD-FORGOTTEN) | ( -- addr ) | Variable: the hook told when entries are forgotten, with the word address they went from. |
| 22 | * | ( n1 n2 -- n3 ) | Multiply: the low cell of the product. |
| 23 | */ | ( n1 n2 n3 -- n4 ) | n1 times n2 divided by n3, through a double-cell intermediate product. |
| 24 | */MOD | ( n1 n2 n3 -- n4 n5 ) | n1 times n2 divided by n3, through a double product: n4 the remainder, n5 the quotient. |
| 25 | + | ( n1 n2 -- n3 ) | Add. |
| 26 | +! | ( n addr -- ) | Add n to the cell at addr. |
| 27 | +LOOP | ( n -- ) | Compile-only: end a DO loop, adding n to the index; the loop ends when the index crosses the limit. |
| 28 | , | ( x -- ) | Compile x into the next cell of the dictionary. |
| 29 | - | ( n1 n2 -- n3 ) | Subtract: n1 minus n2. |
| 30 | -! | ( n addr -- ) | Subtract n from the cell at addr. |
| 31 | --> | ( -- ) | Go on loading with the next block; only in a block being loaded. |
| 32 | -ROT | ( x1 x2 x3 -- x3 x1 x2 ) | Rotate the top three values the other way from ROT. |
| 33 | -TRAILING | ( baddr u1 -- baddr u2 ) | The string without its trailing blanks. |
| 34 | . | ( n -- ) | Print n in the current BASE, then a blank. |
| 35 | .R | ( n width -- ) | Print n right-justified in a field of width characters. |
| 36 | .S | ( -- ) | Print the stack's depth and every value on it, the stack unchanged. |
| 37 | / | ( n1 n2 -- n3 ) | Divide: the quotient of n1 by n2. Division by zero is error 11. |
| 38 | /MOD | ( n1 n2 -- n3 n4 ) | Divide n1 by n2: n3 the remainder, n4 the quotient. |
| 39 | 0< | ( n -- flag ) | True if n is negative. |
| 40 | 0<> | ( x -- flag ) | True if x is not zero. |
| 41 | 0= | ( x -- flag ) | True if x is zero. |
| 42 | 0> | ( n -- flag ) | True if n is greater than zero. |
| 43 | 1+ | ( n -- n+1 ) | Add one. |
| 44 | 1- | ( n -- n-1 ) | Subtract one. |
| 45 | 2! | ( x1 x2 addr -- ) | Store the cell pair at addr: x2 at addr, x1 in the next cell. |
| 46 | 2* | ( n -- 2n ) | Shift left one bit. |
| 47 | 2+ | ( n -- n+2 ) | Add two. |
| 48 | 2, | ( x1 x2 -- ) | Compile the cell pair into the dictionary. |
| 49 | 2- | ( n -- n-2 ) | Subtract two. |
| 50 | 2/ | ( n -- n/2 ) | Shift right one bit, keeping the sign. |
| 51 | 2>R | ( x1 x2 -- ) ( R: -- x1 x2 ) | Compile-only: move the pair to the return stack. |
| 52 | 2@ | ( addr -- x1 x2 ) | Fetch the cell pair at addr. |
| 53 | 2DROP | ( x1 x2 -- ) | Drop the top pair. |
| 54 | 2DUP | ( x1 x2 -- x1 x2 x1 x2 ) | Copy the top pair. |
| 55 | 2OVER | ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 ) | Copy the second pair to the top. |
| 56 | 2R> | ( -- x1 x2 ) ( R: x1 x2 -- ) | Compile-only: move the pair from the return stack. |
| 57 | 2R@ | ( -- x1 x2 ) ( R: x1 x2 -- x1 x2 ) | Compile-only: copy the pair on the return stack. |
| 58 | 2ROT | ( x1 x2 x3 x4 x5 x6 -- x3 x4 x5 x6 x1 x2 ) | Rotate the top three pairs. |
| 59 | 2SWAP | ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) | Exchange the top two pairs. |
| 60 | 79-STANDARD | ( -- ) | Run to be sure a FORTH-79 system is there; it is. |
| 61 | : | ( -- ) | : xxx: start a definition of xxx; it cannot be found until ; ends it. |
| 62 | ; | ( -- ) | Compile-only: end the definition -- compile its return, let it be found, stop compiling. |
| 63 | < | ( n1 n2 -- flag ) | True if n1 is less than n2. |
| 64 | <# | ( -- ) | Begin pictured numeric output. |
| 65 | <= | ( n1 n2 -- flag ) | True if n1 is less than or equal to n2. |
| 66 | <> | ( x1 x2 -- flag ) | True if x1 and x2 differ. |
| 67 | = | ( x1 x2 -- flag ) | True if x1 equals x2. |
| 68 | > | ( n1 n2 -- flag ) | True if n1 is greater than n2. |
| 69 | >= | ( n1 n2 -- flag ) | True if n1 is greater than or equal to n2. |
| 70 | >BODY | ( xt -- addr ) | The parameter field of the word whose execution token is xt. |
| 71 | >IN | ( -- addr ) | Variable: the offset in the input buffer of the next character to read. |
| 72 | >LINK | ( xt -- lfa ) | The link field of the entry whose execution token is xt. |
| 73 | >NAME | ( xt -- nfa ) | The name field of the entry whose execution token is xt. |
| 74 | >R | ( x -- ) ( R: -- x ) | Compile-only: move x to the return stack. |
| 75 | ? | ( addr -- ) | Print the number in the cell at addr. |
| 76 | ?DO | ( limit index -- ) | Compile-only: begin a DO loop that is skipped when limit equals index. |
| 77 | ?DUP | ( x -- x x | 0 ) | Copy x if it is not zero. |
| 78 | ?TERMINAL | ( -- flag ) | True if a key has been pressed and is waiting. |
| 79 | @ | ( addr -- x ) | Fetch the cell at addr. |
| 80 | ABORT | ( -- ) | Empty the data and return stacks, set execution mode, return control to the terminal. |
| 81 | ABS | ( n -- u ) | The absolute value. |
| 82 | ACL-ALLOW! | ( flag xt -- ) | Set the word's allow flag (the word-level ACL); nothing on a pinned word. |
| 83 | ACL-ALLOW@ | ( xt -- flag ) | The word's allow flag. |
| 84 | ACL-HEAT@ | ( xt -- heat ) | How often the word has been used: its heat counter. |
| 85 | ACL-HOOK | ( -- addr ) | Variable: the execution token of the ACL recheck word, or 0 for none. |
| 86 | ACL-INHERIT | ( src dst -- ) | dst takes src's ACL mode; it is not pinned, its TTL is 0. |
| 87 | ACL-INIT-PRIMITIVES | ( -- ) | Set every word in every vocabulary to its starting ACL fields. |
| 88 | ACL-MODE! | ( mode xt -- ) | Set the word's ACL mode; nothing on a pinned word. |
| 89 | ACL-MODE@ | ( xt -- mode ) | The word's ACL mode. |
| 90 | ACL-PIN | ( xt -- ) | Pin the word: its ACL fields can no longer be changed. One-way. |
| 91 | ACL-PINNED? | ( xt -- flag ) | True if the word is pinned. |
| 92 | ACL-TTL! | ( n xt -- ) | Set the word's ACL time-to-live (0 to 65535); nothing on a pinned word. |
| 93 | ACL-TTL@ | ( xt -- n ) | The word's ACL time-to-live. |
| 94 | ACL-WORD-ID | ( xt -- n ) | A number for the word that never changes: its address. |
| 95 | AGAIN | ( -- ) | Compile-only: end a BEGIN loop that repeats for ever. |
| 96 | ALIGN | ( -- ) | Align the dictionary pointer to the next cell. |
| 97 | ALLOT | ( n -- ) | Reserve n cells of dictionary space. |
| 98 | AND | ( x1 x2 -- x3 ) | Bitwise and. |
| 99 | ANTICLOCK@ | ( -- n ) | The anti-clock: how many instructions the node has retired, one tick each (#189). |
| 100 | AWAIT | ( node -- how ) | Wait for the node's word on how its text ended: 0 QUIT, 1 completed, otherwise an error. |
| 101 | BASE | ( -- addr ) | Variable: the number base for conversion in and out. |
| 102 | BEGIN | ( -- ) | Compile-only: mark the start of a loop (UNTIL, WHILE ... REPEAT, AGAIN). |
| 103 | BL | ( -- c ) | Constant: the blank character, 32. |
| 104 | BLANK | ( baddr u -- ) | Fill u bytes from baddr with blanks. |
| 105 | BLK | ( -- addr ) | Variable: the block being interpreted, or 0 for the terminal. |
| 106 | BLOCK | ( n -- baddr ) | A buffer holding block n, read from storage if it is not already in one. |
| 107 | BUFFER | ( n -- baddr ) | A buffer assigned to block n, not read from storage. |
| 108 | BYE | ( -- ) | A cold restart of the machine (the kernel's word). |
| 109 | C! | ( c baddr -- ) | Store the byte c at baddr. |
| 110 | C, | ( c -- ) | Compile the byte c into the dictionary. |
| 111 | C@ | ( baddr -- c ) | Fetch the byte at baddr. |
| 112 | CASE | ( -- ) | Compile-only: begin a CASE ... OF ... ENDOF ... ENDCASE selection. |
| 113 | CELLS | ( n1 -- n2 ) | n1 cells, in address units. |
| 114 | CFA | ( pfa -- cfa ) | The code field address from the parameter field address. |
| 115 | CMOVE | ( baddr1 baddr2 u -- ) | Copy u bytes from baddr1 to baddr2, lowest first. |
| 116 | CMOVE> | ( baddr1 baddr2 u -- ) | Copy u bytes from baddr1 to baddr2, highest first (for overlapping moves up). |
| 117 | COLD | ( -- ) | Return the system to what it was when its capsules had just been loaded. |
| 118 | COMPARE | ( baddr1 u1 baddr2 u2 -- n ) | Compare two strings: 0 if equal, -1 if the first is lower, 1 if higher. |
| 119 | COMPILE | ( -- ) | COMPILE xxx: when the word containing this runs, compile xxx. |
| 120 | CONSTANT | ( n -- ) | CONSTANT xxx: define xxx, which leaves n. |
| 121 | CONTEXT | ( -- addr ) | Variable: the vocabulary searched first. |
| 122 | CONVERT | ( d1 baddr1 -- d2 baddr2 ) | Convert the digits from baddr1+1 into d1 in BASE; baddr2 is the first character that is not a digit. |
| 123 | COUNT | ( baddr1 -- baddr2 u ) | From a counted string: its first character's address and its length. |
| 124 | CR | ( -- ) | Print a new line. |
| 125 | CREATE | ( -- ) | CREATE xxx: an entry whose word leaves the address of its parameter field. |
| 126 | CURRENT | ( -- addr ) | Variable: the vocabulary new definitions go into. |
| 127 | D+ | ( d1 d2 -- d3 ) | Add two double-cell numbers. |
| 128 | D- | ( d1 d2 -- d3 ) | Subtract d2 from d1. |
| 129 | D. | ( d -- ) | Print the double-cell number d, then a blank. |
| 130 | D.R | ( d width -- ) | Print d right-justified in a field of width characters. |
| 131 | D0< | ( d -- flag ) | True if d is negative. |
| 132 | D0= | ( d -- flag ) | True if d is zero. |
| 133 | D2* | ( d1 -- d2 ) | Shift d1 left one bit. |
| 134 | D2/ | ( d1 -- d2 ) | Shift d1 right one bit, keeping the sign. |
| 135 | D< | ( d1 d2 -- flag ) | True if d1 is less than d2. |
| 136 | D= | ( d1 d2 -- flag ) | True if d1 equals d2. |
| 137 | DABS | ( d -- ud ) | The absolute value of d. |
| 138 | DECIMAL | ( -- ) | Set BASE to ten. |
| 139 | DEFAULT-ROUTE | ( port -- ) | The port, by its number, leads toward every node this node has not been told of. |
| 140 | DEFER | ( -- ) | DEFER xxx: define xxx, whose action is set later by IS; run unset, it is error 15. |
| 141 | DEFER@ | ( -- xt ) | DEFER@ xxx: the execution token xxx runs now; compiled when compiling. |
| 142 | DEFINITIONS | ( -- ) | New definitions go into the CONTEXT vocabulary from now on. |
| 143 | DEPTH | ( -- n ) | The number of values on the stack before DEPTH. |
| 144 | DMAX | ( d1 d2 -- d3 ) | The greater of two doubles. |
| 145 | DMIN | ( d1 d2 -- d3 ) | The lesser of two doubles. |
| 146 | DNEGATE | ( d -- -d ) | Negate a double-cell number. |
| 147 | DO | ( limit index -- ) | Compile-only: begin a counted loop, ended by LOOP or +LOOP. |
| 148 | DOES> | ( -- ) | Compile-only: in a defining word, what the words it defines do, with their parameter field's address on the stack. |
| 149 | DROP | ( x -- ) | Drop the top value. |
| 150 | DUMP | ( baddr u -- ) | Print u bytes from baddr in the current BASE, with their addresses. |
| 151 | DUP | ( x -- x x ) | Copy the top value. |
| 152 | ELSE | ( -- ) | Compile-only: the other branch of IF ... ELSE ... THEN. |
| 153 | EMIT | ( c -- ) | Print the character c. |
| 154 | EMPTY-BUFFERS | ( -- ) | Forget what is in the block buffers; nothing is written. |
| 155 | ENCLOSE | ( baddr c -- baddr n1 n2 n3 ) | Find a word delimited by c in the string at baddr: n1 its start, n2 its end, n3 the offset after the delimiter. |
| 156 | ENDCASE | ( x -- ) | Compile-only: end a CASE selection, dropping the value if no OF matched. |
| 157 | ENDOF | ( -- ) | Compile-only: end an OF branch; go on after ENDCASE. |
| 158 | ERASE | ( baddr u -- ) | Fill u bytes from baddr with zeros. |
| 159 | EXECUTE | ( xt -- ) | Run the word whose execution token is xt. |
| 160 | EXIT | ( -- ) | Compile-only: return from the definition at this point. |
| 161 | EXPECT | ( baddr n -- ) | Read up to n characters, or a line, from the terminal into baddr; SPAN holds how many. |
| 162 | FALSE | ( -- 0 ) | Constant: the false flag, zero. |
| 163 | FENCE | ( -- addr ) | Variable: FORGET will not remove anything below the address it holds. |
| 164 | FILL | ( baddr u c -- ) | Fill u bytes from baddr with the byte c. |
| 165 | FIND | ( -- xt | 0 ) | FIND xxx: the execution token of xxx, from the input stream, or 0 if it is not found. |
| 166 | FLUSH | ( -- ) | Write every changed block (SAVE-BUFFERS). |
| 167 | FORGET | ( -- ) | FORGET xxx: remove xxx and every word defined after it, never below FENCE. |
| 168 | FORTH | ( -- ) | Make FORTH, the primary vocabulary, the CONTEXT vocabulary. |
| 169 | GONE | ( n node -- ) | Tell the node that node n is gone; it acts on that only if this node is its centre. |
| 170 | HEAT-OP@ | ( op -- n ) | How many times opcode op (taken mod 32) has retired: its heat counter, HEAT-OP[op] (#189). |
| 171 | HERE | ( -- addr ) | The address of the next free dictionary cell. |
| 172 | HEX | ( -- ) | Set BASE to sixteen. |
| 173 | HIDDEN | ( -- ) | Hide the newest entry: it cannot be found until revealed. |
| 174 | HOLD | ( c -- ) | Pictured output: put the character c in front of the string being built. |
| 175 | I | ( -- n ) | Compile-only: the index of the innermost DO loop. |
| 176 | IF | ( flag -- ) | Compile-only: run what follows if flag is not zero, else skip to ELSE or THEN. |
| 177 | IMMEDIATE | ( -- ) | Make the newest definition run when compiling instead of being compiled. |
| 178 | INTERPRET | ( -- ) | Interpret words from the input stream until it is exhausted. |
| 179 | INVERT | ( x1 -- x2 ) | Invert every bit. |
| 180 | IS | ( xt -- ) | IS xxx: make the deferred word xxx run xt; compiled when compiling. |
| 181 | J | ( -- n ) | Compile-only: the index of the next outer DO loop. |
| 182 | KERNEL-WORD | ( n -- ) | KERNEL-WORD xxx: define xxx, a word that asks the kernel to do request n (as BYE, BLOCK). |
| 183 | KEY | ( -- c ) | Wait for a key and leave its character. |
| 184 | LATEST | ( -- xt ) | The newest entry of the CURRENT vocabulary. |
| 185 | LEAVE | ( -- ) | Compile-only: leave the innermost DO loop at its next LOOP or +LOOP. |
| 186 | LFA | ( xt -- addr ) | The link field of the entry (>LINK). |
| 187 | LINK> | ( addr -- xt ) | The entry that a link field points to. |
| 188 | LIST | ( n -- ) | Print block n as 16 lines of 64 characters; SCR holds n. |
| 189 | LITERAL | ( x -- ) | If compiling, compile x as a literal. |
| 190 | LOAD | ( n -- ) | Interpret block n, then go on with what follows. |
| 191 | LOG-DEBUG | ( -- 4 ) | Constant: the debug log level. |
| 192 | LOG-DEBUG-STR | ( baddr u -- ) | Log the string at the debug level. |
| 193 | LOG-ERROR | ( -- 0 ) | Constant: the error log level. |
| 194 | LOG-ERROR-STR | ( baddr u -- ) | Log the string at the error level. |
| 195 | LOG-INFO | ( -- 2 ) | Constant: the info log level. |
| 196 | LOG-INFO-STR | ( baddr u -- ) | Log the string at the info level. |
| 197 | LOG-LEVEL! | ( n -- ) | Set the log level, held to 0 .. 4: messages at or below it are printed. |
| 198 | LOG-LEVEL@ | ( -- n ) | The log level. |
| 199 | LOG-TEST | ( -- 3 ) | Constant: the test log level. |
| 200 | LOG-TEST-STR | ( baddr u -- ) | Log the string at the test level. |
| 201 | LOG-WARN | ( -- 1 ) | Constant: the warning log level. |
| 202 | LOG-WARN-STR | ( baddr u -- ) | Log the string at the warning level. |
| 203 | LOOP | ( -- ) | Compile-only: end a DO loop, adding one to the index. |
| 204 | LSHIFT | ( x1 u -- x2 ) | Shift x1 left u bits; a count that is negative or a cell wide or more is error 9. |
| 205 | M* | ( n1 n2 -- d ) | Multiply: the double-cell product, signed. |
| 206 | M+ | ( d1 n -- d2 ) | Add a single-cell number to a double. |
| 207 | M- | ( d1 n -- d2 ) | Subtract a single-cell number from a double. |
| 208 | M/MOD | ( d n1 -- n2 n3 ) | Divide d by n1: n2 the remainder, n3 the quotient. |
| 209 | MAX | ( n1 n2 -- n3 ) | The greater of two numbers. |
| 210 | MIN | ( n1 n2 -- n3 ) | The lesser of two numbers. |
| 211 | MINT-ZUSE | ( -- ) | Mint the real Zuse onto a second stick: asks for the stick, writes nothing until YES (the kernel's word; STICK.md 6a). |
| 212 | MOD | ( n1 n2 -- n3 ) | The remainder of n1 divided by n2. |
| 213 | MOVE | ( addr1 addr2 n -- ) | Copy n cells from addr1 to addr2, the first cell first. |
| 214 | NAME> | ( baddr -- xt ) | The entry whose name field is at baddr. |
| 215 | NEGATE | ( n -- -n ) | Negate. |
| 216 | NEIGHBOUR | ( node port -- ) | Record the node on the other end of the port, by its number; 0: none. |
| 217 | NFA | ( xt -- baddr ) | The name field of the entry (>NAME). |
| 218 | NO-ROUTE | ( node -- ) | Forget the way to that node, if one is known. |
| 219 | NO-ROUTES | ( -- ) | Forget every way to every node: for when the wiring has changed. |
| 220 | NODE-ERROR | ( -- addr ) | Variable: storing a non-zero code raises that error -- the word goes no further and the line ends with ERROR. |
| 221 | NOP | ( -- ) | Do nothing. |
| 222 | NOT | ( flag1 -- flag2 ) | True if flag1 is zero (as 0=). |
| 223 | NUMBER | ( baddr -- d ) | Convert the counted string at baddr to a double; what is not a number gives 0 and sets NODE-ERROR. |
| 224 | OCTAL | ( -- ) | Set BASE to eight. |
| 225 | OF | ( x1 x2 -- | x1 ) | Compile-only: in CASE, run the branch to ENDOF if x1 equals x2. |
| 226 | OR | ( x1 x2 -- x3 ) | Bitwise or. |
| 227 | ORDER | ( -- ) | Print where names are looked for, and where new ones go. |
| 228 | OVER | ( x1 x2 -- x1 x2 x1 ) | Copy the second value to the top. |
| 229 | PAD | ( -- baddr ) | A scratch area for text. |
| 230 | PAGE | ( -- ) | Clear the screen and put the cursor at the top. |
| 231 | PFA | ( xt -- addr ) | The parameter field of the entry. |
| 232 | PICK | ( n -- x ) | A copy of the n-th value, not counting n itself: 1 PICK is DUP. |
| 233 | PORT! | ( w port -- ) | Write a cell to the port, by its number; waits until the neighbour reads it. |
| 234 | Q.* | ( q1 q2 -- q3 ) | Multiply two Q48.16 fixed-point numbers. |
| 235 | Q.+ | ( q1 q2 -- q3 ) | Add two Q48.16 numbers (D+). |
| 236 | Q.- | ( q1 q2 -- q3 ) | Subtract q2 from q1 (D-). |
| 237 | Q./ | ( q1 q2 -- q3 ) | Divide q1 by q2; by zero is error 11. |
| 238 | Q.0 | ( -- q ) | The Q48.16 zero, 0 0. |
| 239 | Q.0= | ( q -- flag ) | True if q is zero. |
| 240 | Q.1 | ( -- q ) | The Q48.16 one, 65536 0. |
| 241 | Q.< | ( q1 q2 -- flag ) | True if q1 is less than q2. |
| 242 | Q.= | ( q1 q2 -- flag ) | True if q1 equals q2. |
| 243 | Q.> | ( q1 q2 -- flag ) | True if q1 is greater than q2. |
| 244 | Q.ABS | ( q1 -- q2 ) | The absolute value. |
| 245 | Q.COS | ( q1 -- q2 ) | The cosine of q1, in radians. |
| 246 | Q.EXP | ( q1 -- q2 ) | e to the power q1. |
| 247 | Q.FROM-INT | ( n -- q ) | The integer n as a Q48.16 number. |
| 248 | Q.LOG | ( q1 -- q2 ) | The natural logarithm of q1; not above zero is error 12. |
| 249 | Q.MAX | ( q1 q2 -- q3 ) | The greater of two Q48.16 numbers. |
| 250 | Q.MIN | ( q1 q2 -- q3 ) | The lesser of two Q48.16 numbers. |
| 251 | Q.NEG | ( q1 -- q2 ) | Negate. |
| 252 | Q.PRINT | ( q -- ) | Print q: the integer part, a point, five digits, a blank; always in decimal. |
| 253 | Q.SCALE | ( -- q ) | The scale of the fraction, 65536 0 (1.0). |
| 254 | Q.SIN | ( q1 -- q2 ) | The sine of q1, in radians. |
| 255 | Q.SQRT | ( q1 -- q2 ) | The square root of q1; below zero is error 12. |
| 256 | Q.TO-INT | ( q -- n ) | The integer part of q. |
| 257 | QUERY | ( -- ) | Read up to 80 characters, or a line, from the terminal into TIB; set >IN to 0. |
| 258 | QUIT | ( -- ) | Empty the return stack, set execution mode and go back to the terminal, without a message. |
| 259 | R> | ( -- x ) ( R: x -- ) | Compile-only: move the top of the return stack to the data stack. |
| 260 | R@ | ( -- x ) ( R: x -- x ) | Compile-only: copy the top of the return stack. |
| 261 | REPEAT | ( -- ) | Compile-only: end a BEGIN ... WHILE ... REPEAT loop, jumping back to BEGIN. |
| 262 | ROLL | ( n -- ) | Move the n-th value, not counting n itself, to the top: 2 ROLL is ROT. |
| 263 | ROT | ( x1 x2 x3 -- x2 x3 x1 ) | Rotate the third value to the top. |
| 264 | ROUTE | ( node port -- ) | The port, by its number, leads toward that node. |
| 265 | RSHIFT | ( x1 u -- x2 ) | Shift x1 right u bits, filling with zeros; a count that is negative or a cell wide or more is error 9. |
| 266 | S>D | ( n -- d ) | Extend n to a double-cell number, keeping its sign. |
| 267 | SAVE-BUFFERS | ( -- ) | Write every block that has been UPDATEd. |
| 268 | SCAN | ( baddr u c -- baddr' u' ) | Skip to the first byte c in the string: what is left of it from there. |
| 269 | SCR | ( -- addr ) | Variable: the block most recently LISTed. |
| 270 | SEARCH | ( baddr1 u1 baddr2 u2 -- baddr3 u3 flag ) | Look for the second string in the first: if found, true and the first from there on. |
| 271 | SEND | ( baddr u node -- ) | Send the node u characters of text to interpret, by the way this node knows to it. |
| 272 | SEND-ON | ( baddr u node port -- ) | Send the node text to interpret by the port named, whatever ways are known. |
| 273 | SIGN | ( n -- ) | Pictured output: put a minus sign in front if n is negative. |
| 274 | SKIP | ( baddr u c -- baddr' u' ) | Skip the leading bytes c of the string: what is left of it. |
| 275 | SMUDGE | ( -- ) | Toggle the newest entry's hidden flag. |
| 276 | SOURCE | ( -- baddr u ) | The input buffer and how much of it is in use. |
| 277 | SPACE | ( -- ) | Print a blank. |
| 278 | SPACES | ( n -- ) | Print n blanks. |
| 279 | SPAN | ( -- addr ) | Variable: how many characters the last EXPECT read. |
| 280 | STATE | ( -- addr ) | Variable: not zero while compiling. |
| 281 | SWAP | ( x1 x2 -- x2 x1 ) | Exchange the top two values. |
| 282 | THEN | ( -- ) | Compile-only: end an IF ... THEN or IF ... ELSE ... THEN. |
| 283 | THRU | ( first last -- ) | LOAD each block from first to last. |
| 284 | TIB | ( -- baddr ) | The terminal input buffer. |
| 285 | TRAVERSE | ( baddr n -- baddr' ) | Step across a name field: for n > 0 from its count byte to its last byte, for n < 0 back. |
| 286 | TRUE | ( -- -1 ) | Constant: the true flag, all bits set. |
| 287 | TYPE | ( baddr u -- ) | Print the u characters at baddr. |
| 288 | U* | ( u1 u2 -- ud ) | The unsigned double-cell product (forth79.4th). |
| 289 | U. | ( u -- ) | Print u, unsigned, then a blank. |
| 290 | U.R | ( u width -- ) | Print u, unsigned, right-justified in a field of width characters. |
| 291 | U/MOD | ( ud u1 -- u2 u3 ) | Unsigned divide: u2 the remainder, u3 the quotient; by zero is error 11 (forth79.4th). |
| 292 | U< | ( u1 u2 -- flag ) | True if u1 is less than u2, unsigned. |
| 293 | U> | ( u1 u2 -- flag ) | True if u1 is greater than u2, unsigned. |
| 294 | UM* | ( u1 u2 -- ud ) | Multiply, unsigned: the double-cell product. |
| 295 | UNLOOP | ( -- ) | Compile-only: discard the innermost DO loop's index and limit, before an EXIT from inside it. |
| 296 | UNTIL | ( flag -- ) | Compile-only: end a BEGIN loop, jumping back to BEGIN while flag is zero. |
| 297 | UPDATE | ( -- ) | Mark the block most recently asked for as changed, so it is written. |
| 298 | VARIABLE | ( -- ) | VARIABLE xxx: define xxx, which leaves the address of one cell. |
| 299 | VERSION | ( -- ) | Print which system this is, and its cell width. |
| 300 | VLIST | ( -- ) | List the names in the CONTEXT vocabulary (WORDS). |
| 301 | VOCABULARY | ( -- ) | VOCABULARY xxx: define a vocabulary xxx; running it makes it the CONTEXT vocabulary. |
| 302 | WARM | ( -- ) | Print the system's message and ABORT: both stacks emptied, the prompt. |
| 303 | WHILE | ( flag -- ) | Compile-only: in BEGIN ... WHILE ... REPEAT, leave the loop if flag is zero. |
| 304 | WITHIN | ( n low high -- flag ) | True if low <= n < high. |
| 305 | WORD | ( c -- baddr ) | Read the next word from the input stream, delimited by c, as a counted string. |
| 306 | WORDS | ( -- ) | List the names in the CONTEXT vocabulary, the newest first. |
| 307 | XOR | ( x1 x2 -- x3 ) | Bitwise exclusive or. |
| 308 | [ | ( -- ) | Stop compiling: interpret what follows; immediate. |
| 309 | ['] | ( -- xt ) | Compile-only: ['] xxx compiles xxx's execution token as a literal. |
| 310 | [COMPILE] | ( -- ) | Compile-only: [COMPILE] xxx compiles xxx even though it is immediate. |
| 311 | [LITERAL] | ( x -- ) | Another name for LITERAL, as v3 has it. |
| 312 | \ | ( -- ) | \ text: a comment to the end of the line; immediate. |
| 313 | ] | ( -- ) | Start compiling what follows. |
| 314 | (JOIN) | ( -- ) | Join two outer nodes of a unit: port 3 of X to port 4 of Y, each told the other is there (centre.4th). |
| 315 | (KID#) | ( -- addr ) | Variable: the number of the node being born (centre.4th). |
| 316 | (KID) | ( -- addr ) | Variable: the place of the node being born (centre.4th). |
| 317 | (KIDC) | ( -- addr ) | Variable: the newborn node's own port that leads back to its parent (centre.4th). |
| 318 | (KIDP) | ( -- addr ) | Variable: this node's port that leads to the node being born (centre.4th). |
| 319 | (LINES) | ( baddr u -- ) | Send the newborn node the named capsule of FORTH blocks, a line at a time, each to be completed (centre.4th). |
| 320 | (N) | ( k -- number ) | The number of the unit's k-th outer node: the unit's number plus k (centre.4th). |
| 321 | (NUCLEUS) | ( -- ) | Send the newborn node the system, the capsule of F18 code, cell by cell to its port (centre.4th). |
| 322 | (P1) | ( -- addr ) | Variable: the place of a unit's first outer node (centre.4th). |
| 323 | (P2) | ( -- addr ) | Variable: the place of a unit's second outer node (centre.4th). |
| 324 | (P3) | ( -- addr ) | Variable: the place of a unit's third outer node (centre.4th). |
| 325 | (P4) | ( -- addr ) | Variable: the place of a unit's fourth outer node (centre.4th). |
| 326 | (PERS#) | ( -- addr ) | Variable: the length of the newborn node's personality capsule's name; 0: none (centre.4th). |
| 327 | (PERS) | ( -- addr ) | Variable: the byte address of the newborn node's personality capsule's name (centre.4th). |
| 328 | (SAY) | ( them port me -- ) | Tell node me that the port, by its number, leads to node them, and that node them is its neighbour there (centre.4th). |
| 329 | (T#) | ( -- addr ) | Variable: how many characters of text for another node have been built in PAD (centre.4th). |
| 330 | (T) | ( -- baddr u ) | The text built in PAD for another node (centre.4th). |
| 331 | (T0) | ( -- ) | Begin building text for another node in PAD: empty (centre.4th). |
| 332 | (TC) | ( c -- ) | Add a character to the text being built in PAD (centre.4th). |
| 333 | (TELL) | ( baddr u -- ) | Send the newborn node the text to interpret, wait for how it ended, and fail the birth if it did not complete (centre.4th). |
| 334 | (THERE?) | ( n -- n flag ) | True if node n is live and is not Hera herself (hera.4th). |
| 335 | (TN) | ( n -- ) | Add a number and a space to the text being built in PAD (centre.4th). |
| 336 | (TOLD) | ( how -- ) | Fail the birth unless how is 1: the text completed (centre.4th). |
| 337 | (TS) | ( baddr u -- ) | Add a string to the text being built in PAD (centre.4th). |
| 338 | (U) | ( -- addr ) | Variable: the number of the unit being born; its outer nodes are this plus 1 to 4 (centre.4th). |
| 339 | (WHO) | ( -- ) | Tell the newborn node its number, where its printing goes, its default route and who is at its port back (centre.4th). |
| 340 | (X) | ( place number -- ) | Set X, the first of the two outer nodes (JOIN) joins (centre.4th). |
| 341 | (XN) | ( -- addr ) | Variable: X's number (centre.4th). |
| 342 | (XP) | ( -- addr ) | Variable: X's place (centre.4th). |
| 343 | (Y) | ( place number -- ) | Set Y, the second of the two outer nodes (JOIN) joins (centre.4th). |
| 344 | (YN) | ( -- addr ) | Variable: Y's number (centre.4th). |
| 345 | (YP) | ( -- addr ) | Variable: Y's place (centre.4th). |
| 346 | BIRTH | ( number port childport -- place ) | A node is born, numbered number, its port childport joined to this node's port: given the system and FORTH-79; its place. |
| 347 | BIRTH-AS | ( number port childport baddr u -- place ) | BIRTH, and given the capsule named by the string as its personality when u is not 0. |
| 348 | CAPSULE-CELL | ( -- w flag ) | The next cell of the capsule of F18 code this node has open, and true; 0 0 at its end. A kernel request. |
| 349 | CAPSULE-LINE | ( baddr -- u | -1 ) | The next line of the capsule of FORTH blocks this node has open, copied to baddr: its length, or -1 at its end. A kernel request. |
| 350 | CAPSULE-OPEN | ( baddr u -- flag ) | Find the named capsule, check its hash and signature, and open it to be read from its start by this node. A kernel request. |
| 351 | CENTRE | ( n -- ) | Hera only: a second centre, node n, from its port 6 to Hera's port 6, given centre.4th; it births its own unit, n+1 to n+4. |
| 352 | KILL | ( n -- ) | Hera only: node n is removed, whatever it was doing; every node is told it is gone, and Hera forgets the way to it. |
| 353 | NODE-BORN | ( number -- place | -1 ) | A node is born, empty, and entered in the registry with this node as its parent: its place, or -1 if there is no room. A kernel request. |
| 354 | NODE-CHILD | ( number i -- child | 0 ) | The number of node number's i-th live child, or 0. A kernel request. |
| 355 | NODE-KILL | ( number -- ) | Hera only: remove the node; its children become hers. A kernel request; KILL is the word to use. |
| 356 | NODE-ME | ( -- place ) | This node's place: where it is in the kernel's fabric. A kernel request. |
| 357 | NODE-PARITY | ( place number -- ) | Record the parity of a node this one birthed, under the number it was born as. A kernel request. |
| 358 | NODE-PLACE | ( number -- place | -1 ) | The node's place in the kernel's fabric, or -1: not live. A kernel request. |
| 359 | NODE-SLEEP | ( number -- ) | Hera only: put the node to sleep. A kernel request; PAUSE is the word to use. |
| 360 | NODE-UNWIRE | ( a pa -- ) | Cut the wire on port pa of node a, this node or one it birthed. A kernel request. |
| 361 | NODE-WAKE | ( number -- ) | Hera only: wake the node. A kernel request; RESUME is the word to use. |
| 362 | NODE-WIRE | ( a pa b pb -- flag ) | Join port pa of node a to port pb of node b, each this node or one it birthed: true if done. A kernel request. |
| 363 | PAUSE | ( n -- ) | Hera only: put node n to sleep; it executes nothing until RESUME. |
| 364 | RESUME | ( n -- ) | Hera only: wake node n. |
| 365 | UNIT | ( n -- ) | Birth a unit: four outer nodes, n+1 to n+4, on ports 2 to 5 of this one, joined in a square. |
| 366 | UNIT-KILL | ( n -- ) | Hera only: remove node n's children, one by one, then n. |