oeu

1 files changed, 63 insertions, 0 deletions

diff --git a/testa.r1 b/testa.r1
new file mode 100644
index 0000000..79e6352
--- /dev/null
+++ b/testa.r1
@@ -0,0 +1,63 @@
+: sqrt
+i mark2 dup
+i loc0 sto
+i lit2 div
+i loc1 sto
+% loop
+i loc0 lod
+i loc1 lod
+c newton
+i dup loc1
+c replace!
+c thresh
+c close?
+b loop
+i loc1 lod
+i ret2
+
+: newton
+c tuck
+c square
+i add div
+i lit2 div
+i ret0
+
+: square
+i dup mul
+i ret0
+: tuck
+i dup nrt
+i ret0 
+
+: replace!
+i dup lod
+i nrt sto
+i ret0
+
+: close?
+i nrt
+c absdiff
+i swp sle
+i ret0
+
+: thresh
+i lit4 ret0
+
+: absdiff
+i sub 
+
+: abs
+i lit0 slt
+b f1
+i neg
+% f1
+i ret0
+
+
+: hypot
+c square
+i swp
+c square
+i add 
+c sqrt
+i ret0