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-ext.frt | 12 ---------- .../msp430/lib/forth-2012/core-ext/marker.frt | 3 --- amforth-6.5/msp430/lib/forth-2012/core.frt | 21 ---------------- 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 ------- .../msp430/lib/forth-2012/double/d-invert.frt | 4 ---- 9 files changed, 110 deletions(-) delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core-ext.frt delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core-ext/marker.frt delete mode 100644 amforth-6.5/msp430/lib/forth-2012/core.frt 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 delete mode 100644 amforth-6.5/msp430/lib/forth-2012/double/d-invert.frt (limited to 'amforth-6.5/msp430/lib/forth-2012') diff --git a/amforth-6.5/msp430/lib/forth-2012/core-ext.frt b/amforth-6.5/msp430/lib/forth-2012/core-ext.frt deleted file mode 100644 index a7ea6d6..0000000 --- a/amforth-6.5/msp430/lib/forth-2012/core-ext.frt +++ /dev/null @@ -1,12 +0,0 @@ -\ 'core-ext.frt' generated automatically, do not edit -#include case.frt -\ #include case-test.frt -\ #include exceptions.frt -#include marker.frt -\ #include marker-test.frt - -\ update the environment -\ get-current environment set-current -\ : core-ext 0 ; -\ reset the definition word list -\ set-current diff --git a/amforth-6.5/msp430/lib/forth-2012/core-ext/marker.frt b/amforth-6.5/msp430/lib/forth-2012/core-ext/marker.frt deleted file mode 100644 index b4e47d3..0000000 --- a/amforth-6.5/msp430/lib/forth-2012/core-ext/marker.frt +++ /dev/null @@ -1,3 +0,0 @@ - -\ dummy marker -: marker create ; \ No newline at end of file diff --git a/amforth-6.5/msp430/lib/forth-2012/core.frt b/amforth-6.5/msp430/lib/forth-2012/core.frt deleted file mode 100644 index f838dfc..0000000 --- a/amforth-6.5/msp430/lib/forth-2012/core.frt +++ /dev/null @@ -1,21 +0,0 @@ -\ 'core.frt' generated automatically, do not edit -#include 2over.frt -#include 2swap.frt -#include blank.frt -#include c-comma.frt -#include char-plus.frt -#include chars.frt -#include dot-paren.frt -#include environment-q.frt -#include erase.frt -#include evaluate.frt -#include star-slash.frt -#include move.frt -#include source-id.frt -#include find.frt - -\ update the environment -get-current environment set-current -: core -1 ; -\ reset the definition word list -set-current 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 -; diff --git a/amforth-6.5/msp430/lib/forth-2012/double/d-invert.frt b/amforth-6.5/msp430/lib/forth-2012/double/d-invert.frt deleted file mode 100644 index c951d59..0000000 --- a/amforth-6.5/msp430/lib/forth-2012/double/d-invert.frt +++ /dev/null @@ -1,4 +0,0 @@ - -: dinvert - swap invert swap invert -; -- cgit v1.2.3