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/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 -- 10 files changed, 168 deletions(-) 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/core') 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