From 524fec6ed112f70aecee58e3ba3c80483b2d0739 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Tue, 28 Dec 2021 15:04:51 -0500
Subject: [PATCH] start using stash (STH)

---
 math32.tal | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/math32.tal b/math32.tal
index 977e94e..8a61db3 100644
--- a/math32.tal
+++ b/math32.tal
@@ -130,12 +130,10 @@
 
 ( shift right by 0-7 bits )
 @right-shift0 ( x** n^ -> x<<n )
-    #0000 ;sh/z0 STA2 #0000 ;sh/z2 STA2
-    ;sh/r STA ( n -> r )
-    ;sh/r LDA SFT ;sh/z3 STA ( write z3 )
-    #00 ;sh/r LDA SFT2 ;sh/z2 LDA2 ORA2 ;sh/z2 STA2 ( write z2,z3 )
-    #00 ;sh/r LDA SFT2 ;sh/z1 LDA2 ORA2 ;sh/z1 STA2 ( write z1,z2 )
-    #00 ;sh/r LDA SFT2 ;sh/z0 LDA2 ORA2 ;sh/z0 STA2 ( write z0,z1 )
+        STHk  SFT      ;sh/z3                 STA  ( write z3 )
+    #00 STHkr SFT2 #00 ;sh/z3 LDA ORA2 ;sh/z2 STA2 ( write z2,z3 )
+    #00 STHkr SFT2 #00 ;sh/z2 LDA ORA2 ;sh/z1 STA2 ( write z1,z2 )
+    #00 STHr  SFT2 #00 ;sh/z1 LDA ORA2 ;sh/z0 STA2 ( write z0,z1 )
     ;sh/z0 LDA2 ;sh/z2 LDA2
     RTN