diff options
Diffstat (limited to 'source/state.hpp')
| -rw-r--r-- | source/state.hpp | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/source/state.hpp b/source/state.hpp new file mode 100644 index 0000000..91ce12f --- /dev/null +++ b/source/state.hpp @@ -0,0 +1,57 @@ +// sprit-forth: A portable subroutine-threaded Forth. +// Copyright (C) 2023 Clyne Sullivan <clyne@bitgloo.com> +// +// This library is free software; you can redistribute it and/or modify it +// under the terms of the GNU Library General Public License as published by +// the Free Software Foundation; either version 2 of the License, or (at your +// option) any later version. +// +// This library is distributed in the hope that it will be useful, but WITHOUT +// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +// FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for +// more details. +// +// You should have received a copy of the GNU Library General Public License +// along with this library; if not, write to the Free Software Foundation, Inc., +// 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. + +#ifndef STATE_HPP +#define STATE_HPP + +#include "types.hpp" + +constexpr Addr DS = 16; +constexpr Addr RS = 16; + +constexpr Addr DIdxBase = 0; +constexpr Addr DIdxHere = 1; +constexpr Addr DIdxLatest = 2; +constexpr Addr DIdxState = 3; +constexpr Addr DIdxSource = 4; +constexpr Addr DIdxSrcLen = 5; +constexpr Addr DIdxInBuf = 6; +constexpr Addr DIdxBegin = DIdxInBuf + 80 * sizeof(char); + +extern std::array<Cell, 2048> DICT; + +extern Cell& HERE; +extern Cell& LATEST; +extern Cell& STATE; + +extern Cell *SP; +extern Cell *RP; +extern FuncList IP; + +inline void initialize(const auto& wordset) +{ + LATEST = (Cell)wordset.latest; + HERE = (Cell)&DICT[DIdxBegin]; + STATE = 0; +} + +void executor(FuncList *list); +void execute1(Word *word); +Word *find(const char *s, int len); + +#endif // STATE_HPP + |