From 3b561a76c6ac43511ae2c3bdd2ccd107bf9e72c2 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Mon, 10 Apr 2023 13:00:32 -0400
Subject: [PATCH] add min/max

---
 fix16.tal | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/fix16.tal b/fix16.tal
index d9d2af8..7c5157f 100644
--- a/fix16.tal
+++ b/fix16.tal
@@ -174,6 +174,12 @@
 @x16-gt   ( x* y* ->  x<y^ ) x16-cmp #01 EQU JMP2r
 @x16-gteq ( x* y* ->  x<y^ ) x16-cmp [ #ff NEQ ] JMP2r
 
+@x16-min ( x* y* -> min[x, y]* )
+    OVR2 OVR2 x16-lt JMP SWP2 POP2 JMP2r
+
+@x16-max ( x* y* -> max[x, y]* )
+    OVR2 OVR2 x16-gt JMP SWP2 POP2 JMP2r
+
 @x16-is-whole ( x* -> bool^ )
     NIP #00 EQU JMP2r