| text |
-a Address holding address for next read. |
| here |
-a Address holding next compilation address. |
| base |
-a Address holding radix for literals. |
| sign |
-a Address of characters of last token read. |
| fuss |
-a Address holding address jumped upon unknown sign. |
| open |
-a Address holding address of dlopen. |
| shut |
-a Address holding address of dlclose. |
| link |
-a Address holding address of dlsym. |
| ; |
- If last compiled instruction was a call, change to a jump, else compile ret instruction. |
| read |
- Read one token from text into sign (up to 24 characters). |
| , |
n- Move n here and then advance here by 4. |
| c, |
n- Move the low byte of n here and then advance here by 1. |
| lit |
n- Compile code that leaves n on the data stack. |
| ?lit |
-? Test whether last compilation was for a literal. If true, then you may use here @ -4 + @ to get the literal's value and decimal -12 here +! to uncompile it. |
| fnix |
- Reset words to these 15 words, reset here to the start of the 1 Mb BSS segment, reset bp to the end of the 1 Mb BSS segment, reset base to hexadecimal, reset fuss to a simple sign display exit, reset text to just after the embedded 'START:' tag in the (up to) 100 Kb TEXT segment, and then begin evaluating words. |