optimize MAX/MIN a bit

2019-12-29 12:49:07 -08:00 · 2019-12-29 12:49:07 -08:00 · 5e1ba3dab1
parent 2bb88f11a3
commit 5e1ba3dab1
1 changed files with 3 additions and 8 deletions
--- 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