diff --git a/math32.tal b/math32.tal
index feed397..13feea8 100644
--- a/math32.tal
+++ b/math32.tal
@@ -172,18 +172,18 @@
 ( shift left by 0-7 bits )
 @left-shift0 ( x** n^ -> x<<n )
     #0000 ;sh/z0 STA2 #0000 ;sh/z2 STA2
-    #40 SFT ;sh/r STA ( n<<4 -> r )
+    #40 SFT STH ( n<<4 -> r )
     SWP SWP2 SWP ( x3 x2 x1 x0 )
 
-    ;sh/r LDA SFT ;sh/z0 STA ( x3 x2 x1 )
+    STHkr SFT ;sh/z0 STA ( x3 x2 x1 )
 
-    #00 SWP ;sh/r LDA SFT2 ( x3 x2 00x1<<r )
+    #00 SWP STHkr SFT2 ( x3 x2 00x1<<r )
     ;sh/z0 LDA2 ORA2 ;sh/z0 STA2 ( x3 x2 )
 
-    #00 SWP ;sh/r LDA SFT2 ( x3 00x2<<r )
+    #00 SWP STHkr SFT2 ( x3 00x2<<r )
     ;sh/z1 LDA2 ORA2 ;sh/z1 STA2 ( x3 )
 
-    #00 SWP ;sh/r LDA SFT2 ( 00x3<<r )
+    #00 SWP STHr SFT2 ( 00x3<<r )
     ;sh/z2 LDA2 ORA2 ;sh/z2 STA2 ( )
 
     ;sh/z0 LDA2 ;sh/z2 LDA2