From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/msp430/lib/forth-2012/core/c-comma.frt | 5 ---- .../msp430/lib/forth-2012/core/environment-q.frt | 28 ---------------------- .../msp430/lib/forth-2012/core/evaluate.frt | 22 ----------------- .../msp430/lib/forth-2012/core/star-slash-mod.frt | 6 ----- amforth-6.5/msp430/lib/forth-2012/core/value.frt | 9 ------- 5 files changed, 70 deletions(-) delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core/c-comma.frt delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core/environment-q.frt delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core/evaluate.frt delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core/star-slash-mod.frt delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core/value.frt (limited to 'amforth-6.5/msp430/lib/forth-2012/core') 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 -; -- cgit v1.2.3