Node 510

This node contains a list of supported interpreter commands. Code adapted from Chuck's etherforth compiler. Each item has two words; first is three-character string (last three chars of a word), second is address of executable code in 410 (positive number) or sent to 408 (inverted instruction word @p call).

Source code

Definitions

match

Expect the first free address in the list (1C) on stack. Set A to this address, advances it and fetch string from 410. Then fall through to loop.

loop

Decrement A content by 3 (thus we point to the last dictionary item) and if negative we send this back to 410 as unknown word flag, drop the string and jump back to match. Else we update A, fetch string from dictionary and compare with the one on stack. If not equal, we drop flag and repeat loop. Else we drop flag and string, fetch address from the dictionary, send it back to 410 and jump back to match.

init

Set register B, set T to the first free address past the dictionary, and jump to match.

Description