From 5e1ba3dab13b26e15b430af0bb498da7a0ef1f08 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sun, 29 Dec 2019 12:49:07 -0800
Subject: [PATCH] optimize MAX/MIN a bit

---
 asm/forth-dictionary.s | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index c9b7bf1..26a03f9 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -2150,7 +2150,7 @@ eword
 dword     MAX,"MAX"
           jsr   _scmpcom
           bcs   drop
-          jsr   _swap
+swap:     jsr   _swap
 drop:     inx
           inx
           inx
@@ -2161,13 +2161,8 @@ eword
 ; H: ( n1 n2 -- n1|n2 ) return the smaller of n1 or n2
 dword     MIN,"MIN"
           jsr   _scmpcom
-          bcc   drop
-          jsr   _swap
-drop:     inx
-          inx
-          inx
-          inx
-          NEXT          
+          bcc   MAX::drop
+          bra   MAX::swap
 eword
 
 ; common routine for unsigned comparisons