<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Aptos;
panose-1:2 11 0 4 2 2 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:12.0pt;
font-family:"Aptos",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;
mso-ligatures:none;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style></head><body lang=DE-CH link=blue vlink=purple style='word-wrap:break-word'><div class=WordSection1><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Hans<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Below you find three different REAL multiplications.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>As the original Verilog files for the FPGA board had an error, PdW’s emulator had the same error as well.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Without patch, the second multiplications will give a wrong result.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>After Michael’s patch, all three multiplications should work.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>MODULE Multiplication;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>IMPORT Out;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>PROCEDURE Test*;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> VAR r: REAL;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> BEGIN<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> r := 1.45052123;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> Out.RealFix( r*1.3788146, 12, 7); Out.Ln;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> Out.RealFix( r*1.3788147, 12, 7); Out.Ln;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> Out.RealFix( r*1.3788148, 12, 7); Out.Ln<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'> END Test;<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>END Multiplication.Test<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'>Jörg<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;mso-fareast-language:EN-US'><o:p> </o:p></span></p><p class=MsoNormal style='margin-bottom:12.0pt'>Am 13.07.24, 08:36 schrieb "Oberon" <oberon-bounces@lists.inf.ethz.ch>:<o:p></o:p></p><div><p class=MsoNormal><span lang=EN-US>Hi Michael,<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>You wrote:<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> Thanks for the heads-up that I did not patch my fork of Peter's emulator<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> yet.<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> My fix is here:<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <</span><a href="https://github.com/schierlm/oberon-risc-emu-enhanced/commit/2b18c1137eb1481de79be195135609cfd76fea3a%3e"><span lang=EN-US>https://github.com/schierlm/oberon-risc-emu-enhanced/commit/2b18c1137eb1481de79be195135609cfd76fea3a></span></a><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> Latest Windows binaries (will update automatically when I push changes<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> to github):<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <</span><a href="https://nightly.link/schierlm/oberon-risc-emu-enhanced/workflows/main/master/WindowsBinaries.zip%3e"><span lang=EN-US>https://nightly.link/schierlm/oberon-risc-emu-enhanced/workflows/main/master/WindowsBinaries.zip></span></a><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> Latest macOS binaries (will update automatically when I push changes to<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> github):<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>> <</span><a href="https://nightly.link/schierlm/oberon-risc-emu-enhanced/workflows/main/master/MacOSDiskImage.zip%3e"><span lang=EN-US>https://nightly.link/schierlm/oberon-risc-emu-enhanced/workflows/main/master/MacOSDiskImage.zip></span></a><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>Thank you very much for this fix, it solved the issue!<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>Dragons of odd and even orders now are rendered as they should. Also the interesting phenomenon that even ordered dragons >= 14 were are half-sized has vanished.<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>Regards,<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>Hans<o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US>--<o:p></o:p></span></p></div><div><p class=MsoNormal><a href="mailto:Oberon@lists.inf.ethz.ch"><span lang=EN-US>Oberon@lists.inf.ethz.ch</span></a><span lang=EN-US> mailing list for ETH Oberon and related systems<o:p></o:p></span></p></div><div><p class=MsoNormal><a href="https://lists.inf.ethz.ch/mailman/listinfo/oberon"><span lang=EN-US>https://lists.inf.ethz.ch/mailman/listinfo/oberon</span></a><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p></div></div></body></html>