From 20ddcf5e3733677b695d50d86d65c8de5b386e60 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Thu, 2 May 2024 21:06:41 +0100
Subject: oeu

---
 testa.r1 | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 testa.r1

(limited to 'testa.r1')

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
-- 
cgit v1.2.3