aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/forth2012/double')
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2-fetch.frt7
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2-store.frt7
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2constant.frt6
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2nip.frt4
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2rot.frt3
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2tuck.frt3
-rw-r--r--amforth-6.5/common/lib/forth2012/double/2variable.frt4
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-equal.frt2
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt8
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-greater.frt3
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-less-zero.frt2
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-less.frt5
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-max.frt3
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-min.frt2
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-plusstore.frt4
-rw-r--r--amforth-6.5/common/lib/forth2012/double/d-zero-equal.frt3
-rw-r--r--amforth-6.5/common/lib/forth2012/double/m-plus.frt2
-rw-r--r--amforth-6.5/common/lib/forth2012/double/m-star-slash.frt7
18 files changed, 0 insertions, 75 deletions
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
-;