diff --git a/math32.tal b/math32.tal
index 09a6367..0e05df6 100644
--- a/math32.tal
+++ b/math32.tal
@@ -49,15 +49,15 @@
 ( equality )
 
 @eq32 ( xhi* xlo* yhi* ylo* -> bool^ )
-    ROT2 EQU2 #00 TOR2
-    EQU2 SWP POP AND RTN
+    ROT2 EQU2 STH
+    EQU2 STHr AND RTN
 
 @is-zero32 ( x** -> bool^ )
     ORA2 #0000 EQU2 RTN
 
 @ne32 ( xhi* xlo* yhi* ylo* -> bool^ )
-    ROT2 NEQ2 #00 TOR2
-    NEQ2 SWP POP ORA RTN
+    ROT2 NEQ2 STH
+    NEQ2 STHr ORA RTN
 
 @non-zero32 ( x** -> bool^ )
     ORA2 #0000 NEQ2 RTN
@@ -99,13 +99,13 @@
 ( bitwise operations )
 
 @and32 ( xhi* xlo* yhi* ylo* -> xhi|yhi* xlo|ylo* )
-    ROT2 AND2 TOR2 AND2 SWP2 RTN
+    ROT2 AND2 STH2 AND2 STH2r RTN
 
 @or32 ( xhi* xlo* yhi* ylo* -> xhi|yhi* xlo|ylo* )
-    ROT2 ORA2 TOR2 ORA2 SWP2 RTN
+    ROT2 ORA2 STH2 ORA2 STH2r RTN
 
 @xor32 ( xhi* xlo* yhi* ylo* -> xhi|yhi* xlo|ylo* )
-    ROT2 EOR2 TOR2 EOR2 SWP2 RTN
+    ROT2 EOR2 STH2 EOR2 STH2r RTN
 
 @complement32 ( x** -> ~x** )
     COMPLEMENT32 RTN