6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2024-05-28 14:41:27 +00:00
Code Issues Projects Releases Wiki Activity

optimize MAX/MIN a bit

Browse Source
This commit is contained in:
mgcaret 2019-12-29 12:49:07 -08:00
parent 2bb88f11a3
commit 5e1ba3dab1
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
asm/forth-dictionary.s
View File

@ -2150,7 +2150,7 @@ eword
dword MAX,"MAX" dword MAX,"MAX"
jsr _scmpcom jsr _scmpcom
bcs drop bcs drop
jsr _swap swap: jsr _swap
drop: inx drop: inx
inx inx
inx inx
@ -2161,13 +2161,8 @@ eword
; H: ( n1 n2 -- n1|n2 ) return the smaller of n1 or n2 ; H: ( n1 n2 -- n1|n2 ) return the smaller of n1 or n2
dword MIN,"MIN" dword MIN,"MIN"
jsr _scmpcom jsr _scmpcom
bcc drop bcc MAX::drop
jsr _swap bra MAX::swap
drop: inx
inx
inx
inx
NEXT
eword eword
; common routine for unsigned comparisons ; common routine for unsigned comparisons