From ff6c2544d9305b97045d8f200cdecc5ff349fdff Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Thu, 30 Dec 2021 22:57:36 -0500
Subject: [PATCH] document gcd

---
 math32.tal | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/math32.tal b/math32.tal
index 9789b25..e459c6b 100644
--- a/math32.tal
+++ b/math32.tal
@@ -27,6 +27,7 @@
 (   div32           x** y** -> q**      x / y            )
 (   mod32           x** y** -> r**      x % y            )
 (   divmod32        x** y** -> q** r**  x / y, x % y     )
+(   gcd32           x** y** -> z**      gcd(x, y)        )
 (   negate32        x**     -> z**      -x               )
 (   lshift32        x** n^  -> z**      x<<n             )
 (   rshift32        x** n^  -> z**      x>>n             )
@@ -53,7 +54,6 @@
 (   - mul32 memory, 12 bytes )
 (   - _divmod32 memory, 16 bytes )
 
-%DEBUG { #ff #0e DEO }
 %RTN  { JMP2r }
 %TOR { ROT ROT } ( a b c -> c a b )
 %COMPLEMENT32 { SWP2 #ffff EOR2 SWP2 #ffff EOR2 }