etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2025-01-07 08:01:17 +00:00
Code Issues Projects Releases Wiki Activity

Saturate multiplication in mandelbrot.

Browse source
This commit is contained in:
Andrew Alderwick 2022-02-08 01:32:41 +00:00
parent 20d6ab3cb4
commit b5669a52be
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
projects/examples/demos/mandelbrot.tal
View file

@ -101,7 +101,9 @@ JMP2r
ADD2 ( asign ahi-bhi* r21"* ) ADD2 ( asign ahi-bhi* r21"* )
( The result we want is bits 27-12 due to the fixed point representation we use. ) ( 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 #40 SFT2 ADD2
STHr #01 EQU JMP JMP2r ( saturate to +/-7.fff )
DUP2k EOR2 SWP2 SUB2 #7fff GTH2k JMP SWP2 NIP2
STHr #01 NEQ ,&result-positive JCN
DUP2k EOR2 SWP2 SUB2
&result-positive
JMP2r JMP2r