From 5704628f443096abdf30ddc0649a95acdc0f2764 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Sun, 11 Dec 2022 14:35:24 -0500
Subject: [PATCH] optimizations devine found

---
 fix16.tal  | 6 +++---
 math32.tal | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/fix16.tal b/fix16.tal
index bdc228a..75e0ae3 100644
--- a/fix16.tal
+++ b/fix16.tal
@@ -140,9 +140,9 @@
         LIT ". #18 DEO
     ( emit fractional part )
     #00 SWP ( lo* )
-    #000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
-    #000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
-    #000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
+    #000a MUL2 #0100 DIV2k DUP x16-emit-dec-digit MUL2 SUB2
+    #000a MUL2 #0100 DIV2k DUP x16-emit-dec-digit MUL2 SUB2
+    #000a MUL2 #0100 DIV2k DUP x16-emit-dec-digit MUL2 SUB2
     #000a MUL2 #0100 DIV2k STH2k MUL2 SUB2 #0080 LTH2 ,&no-round JCN INC2r
     &no-round STH2r NIP x16-emit-dec-digit JMP2r
 
diff --git a/math32.tal b/math32.tal
index e01b014..8dbc54a 100644
--- a/math32.tal
+++ b/math32.tal
@@ -285,7 +285,7 @@
 @negate32 ( x** -> -x** )
     ;complement32 JSR2 ( ~x** )
     INC2 ( ~xhi -xlo )
-    DUP2 ORA ( ~xhi -xlo non-zero? )
+    ORAk ( ~xhi -xlo non-zero? )
     ,&done JCN ( xlo non-zero => don't inc hi )
     SWP2 INC2 SWP2 ( -xhi -xlo )
     &done