6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2025-02-06 12:30:49 +00:00
Code Issues Projects Releases Wiki Activity

Support easily adding extra dictionaries, e.g. as part of platform

Browse Source
This commit is contained in:
mgcaret 2019-12-10 16:02:31 -08:00
parent 5839acb568
commit daff3166ec
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
asm/forth-dictionary.s
View File

@ -6407,7 +6407,7 @@ eword
dword VOCABULARY,"VOCABULARY"
ENTER
.dword CREATE
.dword _COMP_LIT
dovocab: .dword _COMP_LIT
.dword H_FORTH ; root of all dictionaries
.dword LAST
.dword drXT ; XT of the just-created word
@ -6421,6 +6421,15 @@ dword VOCABULARY,"VOCABULARY"
EXIT
eword
; H: ( c-addr u -- ) create a new named wordlist definition as per VOCABULARY
; H: meant for adding more builtin dictionaries (e.g. platform specific dictionaries)
; H: which are expected to adjust the root to the new wordlist
hword dVOCAB,"$VOCAB"
ENTER
.dword dCREATE
JUMP VOCABULARY::dovocab
eword
.endif
.if 0 ; half-baked