uxn

commit f66b975a9c8c6246c82006efc38d8aa43e39789d
parent 268ec45780af883ada402772c14118ac6c241a54
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Sat,  4 Mar 2023 19:39:07 -0800

(mandelbrot) Fixed issues

Diffstat:
M
projects/examples/demos/mandelbrot.tal
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/projects/examples/demos/mandelbrot.tal b/projects/examples/demos/mandelbrot.tal
@@ -92,11 +92,13 @@ JMP2r
 	( r21' max is 7f7f, alo-bhi max is 7e81, max sum is fe00 )
 	ADD2 ( asign ahi-bhi* r21"* )
 	( The result we want is bits 27-12 due to the fixed point representation we use. )
-	#04 SFT2 SWP2 #40 SFT2 ADD2
+	#04 SFT2 SWP2 #07ff min #40 SFT2 ADD2
 	( saturate to +/-7.fff )
-	#7fff GTH2k [ JMP SWP2 NIP2 ]
+	#7fff min
 	STHr #01 NEQ ?&result-positive
 	DUP2k EOR2 SWP2 SUB2
 	&result-positive
 JMP2r
 
+@min ( x* y* -- min* )
+	GTH2k [ JMP SWP2 NIP2 ] JMP2r