-
Notifications
You must be signed in to change notification settings - Fork 0
/
core.txt
49 lines (38 loc) · 1.29 KB
/
core.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
\ *********************************************************************
\ *
\ Filename: core.txt *
\ Date: 31.12.2013 *
\ FF Version: 5.0 *
\ Copyright: Mikael Nordman *
\ Author: Mikael Nordman *
\ *********************************************************************
\ FlashForth is licensed acording to the GNU General Public License*
\ *********************************************************************
\ Some extra core words
-core
marker -core
hex ram
\ Interpret a string. The string must be in ram
: evaluate ( caddr n -- )
'source 2@ >r >r >in @ >r
interpret
r> >in ! r> r> 'source 2!
;
: forget ( --- name )
bl word latest @ (f) ?abort?
c>n 2- dup @ ?abort?
dup flash dp ! @ latest ! ram
;
( addr n c -- ) \ fill addr to addr+n with c
: fill rot !p>r swap for dup pc! p+ next r>p drop ;
\ addr n --
: erase 0 fill ;
\ addr n --
: blanks bl fill ;
\ x -- 0 | x x
: ?dup dup if inline dup then ;
\ nfa -- flag
: in? c@ $40 and ;
\ addr -- addr+1 n
: count c@+ ;
hex ram