aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/lib/forth-2012/core
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/msp430/lib/forth-2012/core')
-rw-r--r--amforth-6.5/msp430/lib/forth-2012/core/c-comma.frt5
-rw-r--r--amforth-6.5/msp430/lib/forth-2012/core/environment-q.frt28
-rw-r--r--amforth-6.5/msp430/lib/forth-2012/core/evaluate.frt22
-rw-r--r--amforth-6.5/msp430/lib/forth-2012/core/star-slash-mod.frt6
-rw-r--r--amforth-6.5/msp430/lib/forth-2012/core/value.frt9
5 files changed, 0 insertions, 70 deletions
diff --git a/amforth-6.5/msp430/lib/forth-2012/core/c-comma.frt b/amforth-6.5/msp430/lib/forth-2012/core/c-comma.frt
deleted file mode 100644
index 8741509..0000000
--- a/amforth-6.5/msp430/lib/forth-2012/core/c-comma.frt
+++ /dev/null
@@ -1,5 +0,0 @@
-
-\ only a dummy file for certain use cases like
-\ the hayes tester. The actual definition is
-\ already in the words/ directory
-
diff --git a/amforth-6.5/msp430/lib/forth-2012/core/environment-q.frt b/amforth-6.5/msp430/lib/forth-2012/core/environment-q.frt
deleted file mode 100644
index 3ba440f..0000000
--- a/amforth-6.5/msp430/lib/forth-2012/core/environment-q.frt
+++ /dev/null
@@ -1,28 +0,0 @@
-\ environment queries are placed in a
-\ separate wordlist.
-
-: environment? \ addr len -- 0|x*i -1
- environment search-wordlist dup
- if >r execute r> then
-;
-
-\ some environment queries
-
-\ save the definitions word list for this file
-\ and switch to the environment queries wordlist
-get-current environment set-current
-
-: /counted-strings &60 ;
-: floored 0 ;
-: address-unit-bits $10 ;
-: max-char $ff ;
-: max-d $7fffffff. ;
-: max-ud $ffffffff. ;
-: max-n $7fff ;
-: max-u $ffff ;
-
-: return-stack-cells &10 ;
-: stack-cells &10 ;
-
-\ reset the definition word list
-set-current
diff --git a/amforth-6.5/msp430/lib/forth-2012/core/evaluate.frt b/amforth-6.5/msp430/lib/forth-2012/core/evaluate.frt
deleted file mode 100644
index 9f4cf3b..0000000
--- a/amforth-6.5/msp430/lib/forth-2012/core/evaluate.frt
+++ /dev/null
@@ -1,22 +0,0 @@
-\ evaluate
-\ temporarily redirect the input source
-\ to string buffer. Return the the previous
-\ input source afterwards and continue
-
-\ some helper words
-variable strlen
-variable str
-: source-string str @ strlen @ ;
-
-: evaluate \ i*x addr len -- j*y
- ['] source defer@ >r
- >in @ >r
- 0 >in !
- strlen !
- str !
- ['] source-string to source
- ['] interpret catch
- r> >in !
- r> to source
- throw
-;
diff --git a/amforth-6.5/msp430/lib/forth-2012/core/star-slash-mod.frt b/amforth-6.5/msp430/lib/forth-2012/core/star-slash-mod.frt
deleted file mode 100644
index 741b4cd..0000000
--- a/amforth-6.5/msp430/lib/forth-2012/core/star-slash-mod.frt
+++ /dev/null
@@ -1,6 +0,0 @@
-
-\ MSP has another division type
-
-: */mod ( )
- >r m* r> fm/mod
-;
diff --git a/amforth-6.5/msp430/lib/forth-2012/core/value.frt b/amforth-6.5/msp430/lib/forth-2012/core/value.frt
deleted file mode 100644
index 41a7e70..0000000
--- a/amforth-6.5/msp430/lib/forth-2012/core/value.frt
+++ /dev/null
@@ -1,9 +0,0 @@
-\ the value (in RAM)
-
-: value ( n -- )
- (value)
- here , \ compile the RAM address
- ['] @ ,
- ['] ! ,
- here ! 2 allot
-;