<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:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
.MsoChpDefault
{mso-style-type:export-only;}
@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="#954F72"><div class=WordSection1><p class=MsoNormal>You’re right. But as «voff» is not used nobody discovered it so far <span style='font-family:"Segoe UI Emoji",sans-serif'>😊</span></p><p class=MsoNormal>Jörg</p><p class=MsoNormal><o:p> </o:p></p><div style='mso-element:para-border-div;border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal style='border:none;padding:0cm'><b>Von: </b><a href="mailto:chris@cfbsoftware.com">Chris Burrows</a><br><b>Gesendet: </b>Samstag, 9. Dezember 2017 10:16<br><b>An: </b><a href="mailto:oberon@lists.inf.ethz.ch">ETH Oberon and related systems</a><br><b>Betreff: </b>[Oberon] Left / Right vs Positive / Negative shifts</p></div><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>> </p><p class=MsoNormal>> From: Oberon [mailto:oberon-bounces@lists.inf.ethz.ch] On Behalf Of</p><p class=MsoNormal>> Jorg Straube</p><p class=MsoNormal>> Sent: Saturday, 9 December 2017 1:57 PM</p><p class=MsoNormal>> To: ETH Oberon and related systems</p><p class=MsoNormal>> Subject: Re: [Oberon] Project Oberon color</p><p class=MsoNormal>> </p><p class=MsoNormal>> From Texts.Load:</p><p class=MsoNormal>> q.voff := ASR(LSL(bt, -24), 24);</p><p class=MsoNormal>> </p><p class=MsoNormal>> Thats the "standard" way to upscale a signed 8bit vale to a signed</p><p class=MsoNormal>> 32bit value??</p><p class=MsoNormal>> It's equivalent to</p><p class=MsoNormal>> IF bt<127 THEN q.voff := bt ELSE q.voff := bt-256 END;</p><p class=MsoNormal>> </p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>That may well have been the intention but that is not the result. The problem is that </p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal> LSL(bt, -24) </p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>should be </p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal> LSL(bt, 24)</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>or, possibly,</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal> ROR(bt, -24) </p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>if that was what the author was thinking of.</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Regards,</p><p class=MsoNormal>Chris Burrows</p><p class=MsoNormal>CFB Software</p><p class=MsoNormal>http://www.astrobe.com/RISC5</p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>--</p><p class=MsoNormal>Oberon@lists.inf.ethz.ch mailing list for ETH Oberon and related systems</p><p class=MsoNormal>https://lists.inf.ethz.ch/mailman/listinfo/oberon</p><p class=MsoNormal><o:p> </o:p></p></div></body></html>