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/common/lib/forth2012/double/2-fetch.frt | 7 ------- amforth-6.5/common/lib/forth2012/double/2-store.frt | 7 ------- amforth-6.5/common/lib/forth2012/double/2constant.frt | 6 ------ amforth-6.5/common/lib/forth2012/double/2nip.frt | 4 ---- amforth-6.5/common/lib/forth2012/double/2rot.frt | 3 --- amforth-6.5/common/lib/forth2012/double/2tuck.frt | 3 --- amforth-6.5/common/lib/forth2012/double/2variable.frt | 4 ---- amforth-6.5/common/lib/forth2012/double/d-equal.frt | 2 -- amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt | 8 -------- amforth-6.5/common/lib/forth2012/double/d-greater.frt | 3 --- amforth-6.5/common/lib/forth2012/double/d-less-zero.frt | 2 -- amforth-6.5/common/lib/forth2012/double/d-less.frt | 5 ----- amforth-6.5/common/lib/forth2012/double/d-max.frt | 3 --- amforth-6.5/common/lib/forth2012/double/d-min.frt | 2 -- amforth-6.5/common/lib/forth2012/double/d-plusstore.frt | 4 ---- amforth-6.5/common/lib/forth2012/double/d-zero-equal.frt | 3 --- amforth-6.5/common/lib/forth2012/double/m-plus.frt | 2 -- amforth-6.5/common/lib/forth2012/double/m-star-slash.frt | 7 ------- 18 files changed, 75 deletions(-) delete mode 100644 amforth-6.5/common/lib/forth2012/double/2-fetch.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/2-store.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/2constant.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/2nip.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/2rot.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/2tuck.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/2variable.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-equal.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-greater.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-less-zero.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-less.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-max.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-min.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-plusstore.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/d-zero-equal.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/m-plus.frt delete mode 100644 amforth-6.5/common/lib/forth2012/double/m-star-slash.frt (limited to 'amforth-6.5/common/lib/forth2012/double') diff --git a/amforth-6.5/common/lib/forth2012/double/2-fetch.frt b/amforth-6.5/common/lib/forth2012/double/2-fetch.frt deleted file mode 100644 index 9b3a76a..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2-fetch.frt +++ /dev/null @@ -1,7 +0,0 @@ -\ 2@ ( addr -- n1 n2 ) -: 2@ - dup ( -- addr addr ) - cell+ ( -- addr addr+2 ) - @ ( -- addr n2 ) - swap ( -- n2 addr ) - @ ; ( -- n2 n1 ) diff --git a/amforth-6.5/common/lib/forth2012/double/2-store.frt b/amforth-6.5/common/lib/forth2012/double/2-store.frt deleted file mode 100644 index 93d2402..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2-store.frt +++ /dev/null @@ -1,7 +0,0 @@ -\ 2! ( n1 n2 addr -- ) -: 2! - swap ( -- n1 addr n2 ) - over ( -- n1 addr n2 addr ) - ! ( -- n1 addr ) - cell+ ( -- n1 addr+2 ) - ! ; diff --git a/amforth-6.5/common/lib/forth2012/double/2constant.frt b/amforth-6.5/common/lib/forth2012/double/2constant.frt deleted file mode 100644 index 4f012d3..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2constant.frt +++ /dev/null @@ -1,6 +0,0 @@ - -: 2constant - create , , - does> - dup 1+ @i swap @i -; diff --git a/amforth-6.5/common/lib/forth2012/double/2nip.frt b/amforth-6.5/common/lib/forth2012/double/2nip.frt deleted file mode 100644 index 04c5599..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2nip.frt +++ /dev/null @@ -1,4 +0,0 @@ -\ 2nip ( w1 w2 w3 w4 -- w3 w4 ) gforth two_nip -: 2nip - 2swap 2drop ; - diff --git a/amforth-6.5/common/lib/forth2012/double/2rot.frt b/amforth-6.5/common/lib/forth2012/double/2rot.frt deleted file mode 100644 index 4befd64..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2rot.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ 2rot ( w1 w2 w3 w4 w5 w6 -- w3 w4 w5 w6 w1 w2 ) double-ext two_rote -: 2rot - >r >r 2swap r> r> 2swap ; diff --git a/amforth-6.5/common/lib/forth2012/double/2tuck.frt b/amforth-6.5/common/lib/forth2012/double/2tuck.frt deleted file mode 100644 index 9ad9781..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2tuck.frt +++ /dev/null @@ -1,3 +0,0 @@ -\ 2tuck ( w1 w2 w3 w4 -- w3 w4 w1 w2 w3 w4 ) gforth two_tuck -: 2tuck - 2swap 2over ; diff --git a/amforth-6.5/common/lib/forth2012/double/2variable.frt b/amforth-6.5/common/lib/forth2012/double/2variable.frt deleted file mode 100644 index f6b63fb..0000000 --- a/amforth-6.5/common/lib/forth2012/double/2variable.frt +++ /dev/null @@ -1,4 +0,0 @@ - -: 2variable - here 2 cells allot constant -; diff --git a/amforth-6.5/common/lib/forth2012/double/d-equal.frt b/amforth-6.5/common/lib/forth2012/double/d-equal.frt deleted file mode 100644 index db5a9c6..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-equal.frt +++ /dev/null @@ -1,2 +0,0 @@ - ( d1 d2 -- f ) -: d= d- or 0= ; diff --git a/amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt b/amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt deleted file mode 100644 index 3628320..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt +++ /dev/null @@ -1,8 +0,0 @@ - -\ #require d-less-zero.frt - -: d0> ( d -- f) - 2dup or >r \ not equal zero - d0< 0= r> and \ and not less zero - 0= 0= \ normalize to 0/-1 flag -; diff --git a/amforth-6.5/common/lib/forth2012/double/d-greater.frt b/amforth-6.5/common/lib/forth2012/double/d-greater.frt deleted file mode 100644 index 133cdcd..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-greater.frt +++ /dev/null @@ -1,3 +0,0 @@ - -( d1 d2 -- f ) -: d> d- d0> ; diff --git a/amforth-6.5/common/lib/forth2012/double/d-less-zero.frt b/amforth-6.5/common/lib/forth2012/double/d-less-zero.frt deleted file mode 100644 index 973b9da..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-less-zero.frt +++ /dev/null @@ -1,2 +0,0 @@ - -: d0< nip 0< ; diff --git a/amforth-6.5/common/lib/forth2012/double/d-less.frt b/amforth-6.5/common/lib/forth2012/double/d-less.frt deleted file mode 100644 index b85cbb8..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-less.frt +++ /dev/null @@ -1,5 +0,0 @@ - -\ #require d-less-zero.frt - -( d1 d2 -- f ) -: d< d- d0< ; diff --git a/amforth-6.5/common/lib/forth2012/double/d-max.frt b/amforth-6.5/common/lib/forth2012/double/d-max.frt deleted file mode 100644 index fcf979a..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-max.frt +++ /dev/null @@ -1,3 +0,0 @@ - -: dmax ( d1 d2 -- d ) \ double d-max - 2over 2over d< if 2swap then 2drop ; diff --git a/amforth-6.5/common/lib/forth2012/double/d-min.frt b/amforth-6.5/common/lib/forth2012/double/d-min.frt deleted file mode 100644 index beca796..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-min.frt +++ /dev/null @@ -1,2 +0,0 @@ -: dmin ( d1 d2 -- d ) \ double d-min - 2over 2over d> if 2swap then 2drop ; diff --git a/amforth-6.5/common/lib/forth2012/double/d-plusstore.frt b/amforth-6.5/common/lib/forth2012/double/d-plusstore.frt deleted file mode 100644 index c7405b5..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-plusstore.frt +++ /dev/null @@ -1,4 +0,0 @@ - -: d+! ( d addr -- ) \ same as +! but for double cell numbers - dup >r 2@ d+ r> 2! -; diff --git a/amforth-6.5/common/lib/forth2012/double/d-zero-equal.frt b/amforth-6.5/common/lib/forth2012/double/d-zero-equal.frt deleted file mode 100644 index a853671..0000000 --- a/amforth-6.5/common/lib/forth2012/double/d-zero-equal.frt +++ /dev/null @@ -1,3 +0,0 @@ - -( d -- f ) -: d0= or 0= ; diff --git a/amforth-6.5/common/lib/forth2012/double/m-plus.frt b/amforth-6.5/common/lib/forth2012/double/m-plus.frt deleted file mode 100644 index f716566..0000000 --- a/amforth-6.5/common/lib/forth2012/double/m-plus.frt +++ /dev/null @@ -1,2 +0,0 @@ - -: m+ s>d d+ ; diff --git a/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt b/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt deleted file mode 100644 index 94959d4..0000000 --- a/amforth-6.5/common/lib/forth2012/double/m-star-slash.frt +++ /dev/null @@ -1,7 +0,0 @@ - -: m*/ ( d1 n2 u3 -- dquot ) \ double m-star-slash - >r s>d >r abs rot rot - s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um* - swap >r 0 d+ r> rot rot r@ um/mod rot rot r> um/mod - nip swap r> if dnegate then -; -- cgit v1.2.3