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/avr8/lib/forth2012/core-ext.frt | 13 ------ .../avr8/lib/forth2012/core-ext/avr-defers.frt | 20 -------- .../avr8/lib/forth2012/core-ext/marker-test.frt | 18 -------- amforth-6.5/avr8/lib/forth2012/core-ext/marker.frt | 23 ---------- amforth-6.5/avr8/lib/forth2012/core.frt | 26 ----------- amforth-6.5/avr8/lib/forth2012/core/align.frt | 3 -- amforth-6.5/avr8/lib/forth2012/core/aligned.frt | 3 -- amforth-6.5/avr8/lib/forth2012/core/avr-values.frt | 11 ----- amforth-6.5/avr8/lib/forth2012/core/c-comma.frt | 3 -- .../avr8/lib/forth2012/core/eeprom-buffer.frt | 15 ------ .../avr8/lib/forth2012/core/environment-q.frt | 53 ---------------------- amforth-6.5/avr8/lib/forth2012/core/evaluate.frt | 46 ------------------- .../avr8/lib/forth2012/core/fm-slash-mod.frt | 22 --------- .../avr8/lib/forth2012/core/sm-slash-rem.frt | 8 ---- .../avr8/lib/forth2012/core/star-slash-mod.frt | 4 -- 15 files changed, 268 deletions(-) delete mode 100644 amforth-6.5/avr8/lib/forth2012/core-ext.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core-ext/avr-defers.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core-ext/marker-test.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core-ext/marker.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/align.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/aligned.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/avr-values.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/c-comma.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/eeprom-buffer.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/environment-q.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/evaluate.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/fm-slash-mod.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/sm-slash-rem.frt delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/star-slash-mod.frt (limited to 'amforth-6.5/avr8/lib/forth2012') diff --git a/amforth-6.5/avr8/lib/forth2012/core-ext.frt b/amforth-6.5/avr8/lib/forth2012/core-ext.frt deleted file mode 100644 index 7e16121..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core-ext.frt +++ /dev/null @@ -1,13 +0,0 @@ -\ 'core-ext.frt' generated automatically, do not edit -#require case.frt -\ #require case-test.frt -#require compile-comma.frt -\ #require exceptions.frt -#require marker.frt -\ #require 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/avr8/lib/forth2012/core-ext/avr-defers.frt b/amforth-6.5/avr8/lib/forth2012/core-ext/avr-defers.frt deleted file mode 100644 index 0421ab3..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core-ext/avr-defers.frt +++ /dev/null @@ -1,20 +0,0 @@ -\ the following code works in the AVR only - -\ use the eeprom to keep the XT. Unlike the RAM/USER -\ based locations, the EEPROM vector is available without -\ initialization. -: Edefer ( "name" -- ) - (defer) - ehere dup , - ['] Edefer@ , - ['] Edefer! , - cell+ to ehere -; - -\ the flash is writable, not that often, but it is -: Idefer ( "name" -- ) - (defer) - ['] noop , \ a dummy action as place holder - [: @i execute ;] , \ XT is directly in the dictionary. - [: !i ;] , -; diff --git a/amforth-6.5/avr8/lib/forth2012/core-ext/marker-test.frt b/amforth-6.5/avr8/lib/forth2012/core-ext/marker-test.frt deleted file mode 100644 index 3a7c9b0..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core-ext/marker-test.frt +++ /dev/null @@ -1,18 +0,0 @@ -#include dumper.frt -#include order.frt -#include marker.frt - -wordlist constant test-wl -get-order test-wl swap 1+ set-order -order -marker empty - -' empty 4 - 10 idump - -: hallo ." Hallo " ; - -order -words -empty -words -order diff --git a/amforth-6.5/avr8/lib/forth2012/core-ext/marker.frt b/amforth-6.5/avr8/lib/forth2012/core-ext/marker.frt deleted file mode 100644 index 8d5756b..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core-ext/marker.frt +++ /dev/null @@ -1,23 +0,0 @@ -\ Defines a word which resets the dictionary and removes itself -\ when called. -\ Better then forget but still has limitations. - -\ all information is in the first few EEPROM cells. -\ (marker) is a value that holds the max eeprom address - -: marker - \ get information to remove the marker itself - get-current @e dp - \ create the wordlist entry - create - \ save all data - (marker) 0 do i @e , 2 +loop - \ save the marker-remove data - , , - does> - \ restore data from saved state - (marker) 0 do dup @i i !e 1+ 2 +loop - \ purge the marker itself - dup @i to dp - 1+ @i get-current !e -; diff --git a/amforth-6.5/avr8/lib/forth2012/core.frt b/amforth-6.5/avr8/lib/forth2012/core.frt deleted file mode 100644 index 5db1994..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core.frt +++ /dev/null @@ -1,26 +0,0 @@ -\ 'core.frt' generated automatically, do not edit -#require 2over.frt -#require 2swap.frt -#require aligned.frt -#require align.frt -#require blank.frt -#require c-comma.frt -#require char-plus.frt -#require chars.frt -#require dot-paren.frt -#require environment-q.frt -#require erase.frt -#require evaluate.frt -#require fm-slash-mod.frt -#require star-slash.frt -#require move.frt - -#require sm-slash-rem.frt -#require source-id.frt -#require 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/avr8/lib/forth2012/core/align.frt b/amforth-6.5/avr8/lib/forth2012/core/align.frt deleted file mode 100644 index e68f679..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/align.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ atmega's are always aligned -: align ; - diff --git a/amforth-6.5/avr8/lib/forth2012/core/aligned.frt b/amforth-6.5/avr8/lib/forth2012/core/aligned.frt deleted file mode 100644 index f2b942a..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/aligned.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ atmega's are always aligned -: aligned ; - diff --git a/amforth-6.5/avr8/lib/forth2012/core/avr-values.frt b/amforth-6.5/avr8/lib/forth2012/core/avr-values.frt deleted file mode 100644 index a23d0be..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/avr-values.frt +++ /dev/null @@ -1,11 +0,0 @@ - - -\ EEPROM based values - -: Evalue ( n -- ) - (value) - ehere , - ['] Edefer@ , - ['] Edefer! , - ehere dup cell+ to ehere !e -; diff --git a/amforth-6.5/avr8/lib/forth2012/core/c-comma.frt b/amforth-6.5/avr8/lib/forth2012/core/c-comma.frt deleted file mode 100644 index 2c4e678..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/c-comma.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ a character occupies a full flash cell -: c, , ; - diff --git a/amforth-6.5/avr8/lib/forth2012/core/eeprom-buffer.frt b/amforth-6.5/avr8/lib/forth2012/core/eeprom-buffer.frt deleted file mode 100644 index 5cb2ceb..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/eeprom-buffer.frt +++ /dev/null @@ -1,15 +0,0 @@ -\ internal EEPROM routines. They do not operate on external -\ storage - -\ Ebuffer: is the EEPROM pendant to buffer: from forth200x -\ it takes the number of bytes to allocate in RAM and parses -\ SOURCE for the name to give to the buffer - -\ Eallot is the EEPROM pendant for allot from the core word set -\ it allocates n bytes of EEPROM storage and return the starting -\ address. - -: Eallot ehere + to ehere ; -: Ebuffer: ehere constant Eallot ; - -\ for usage see http://amforth.sourceforge.net/TG/recipes/EEPROM.html diff --git a/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt b/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt deleted file mode 100644 index e16428d..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt +++ /dev/null @@ -1,53 +0,0 @@ -\ environment queries are placed in a -\ separate wordlist. - -\ #require imove.frt - -\ we have to distinguish between interpreted (RAM) -\ and compiled (Flash) strings. First the RAM -\ strings - -: (environment?) \ addr len -- 0|x*i -1 - environment search-wordlist dup - if >r execute r> then -; - - -\ the compiled (Flash) strings are transferred -\ to RAM and this copy processed afterwards. -: [environment?] - ( iaddr len -- ) - dup >r - here imove - here r> (environment?) -; - -\ a state smart word to decide what to do. -: environment? - state @ if - postpone [environment?] - else - (environment?) - then -; immediate - -\ 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/avr8/lib/forth2012/core/evaluate.frt b/amforth-6.5/avr8/lib/forth2012/core/evaluate.frt deleted file mode 100644 index 80659bc..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/evaluate.frt +++ /dev/null @@ -1,46 +0,0 @@ -\ evaluate -\ temporarily redirect the input source -\ to string buffer. Return the the previous -\ input source afterwards and continue - -\ #require imove.frt - -\ some helper words -variable strlen -variable str -: source-string str @ strlen @ ; - -\ we have to distinguish between interpreted (RAM) -\ and compiled (Flash) strings. First the RAM -\ strings - -: (evaluate) \ i*x addr len -- j*y - ['] source defer@ >r - >in @ >r - 0 >in ! - strlen ! - str ! - ['] source-string is source - ['] interpret catch - r> >in ! - r> is source - throw -; - -\ the compiled (Flash) strings are transferred -\ to RAM and processed there. -: [evaluate] - ( iaddr len -- ) - dup >r - here imove - here r> (evaluate) -; - -\ a state smart word to decide what to do. -: evaluate - state @ if - postpone [evaluate] - else - (evaluate) - then -; immediate diff --git a/amforth-6.5/avr8/lib/forth2012/core/fm-slash-mod.frt b/amforth-6.5/avr8/lib/forth2012/core/fm-slash-mod.frt deleted file mode 100644 index dfb10e9..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/fm-slash-mod.frt +++ /dev/null @@ -1,22 +0,0 @@ - - -: fm/mod ( d1 n1 -- n2 n3 ) - dup >r - 2dup xor >r - >r - dabs r@ abs um/mod - swap r> ?negate swap - r> 0< if - negate - over if - r@ rot - swap 1- - then - then - r> drop -; - -\ alternative solution -\ -\ : FM/MOD \ ( d m -- r q ) signed floored division -\ DUP >R SM/REM 2DUP 0< AND IF 1- SWAP R> + SWAP ELSE R> DROP THEN ; -\ \ No newline at end of file diff --git a/amforth-6.5/avr8/lib/forth2012/core/sm-slash-rem.frt b/amforth-6.5/avr8/lib/forth2012/core/sm-slash-rem.frt deleted file mode 100644 index baf07cf..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/sm-slash-rem.frt +++ /dev/null @@ -1,8 +0,0 @@ - -: sm/rem ( d1 n1 -- n2 n3 ) - 2dup xor >r - over >r - abs >r dabs r> um/mod - swap r> ?negate - swap r> ?negate -; diff --git a/amforth-6.5/avr8/lib/forth2012/core/star-slash-mod.frt b/amforth-6.5/avr8/lib/forth2012/core/star-slash-mod.frt deleted file mode 100644 index 9d47a61..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/star-slash-mod.frt +++ /dev/null @@ -1,4 +0,0 @@ - -\ #require sm-slash-rem.frt - -: */mod >r m* r> sm/rem ; -- cgit v1.2.3