Notice: Trying to access array offset on value of type bool in /mnt/cpcwiki-httpdocs/includes/libs/IPSet.php on line 243

Notice: Trying to access array offset on value of type bool in /mnt/cpcwiki-httpdocs/includes/libs/IPSet.php on line 246

Notice: Trying to access array offset on value of type bool in /mnt/cpcwiki-httpdocs/includes/libs/IPSet.php on line 243

Notice: Trying to access array offset on value of type bool in /mnt/cpcwiki-httpdocs/includes/libs/IPSet.php on line 246
https://oldwiki.cpcwiki.eu/index.php?action=history&feed=atom&title=Programming%3AFast_16_bit_Square_Root 2026-08-28T22:20:00Z Revision history for this page on the wiki MediaWiki 1.25.1 https://oldwiki.cpcwiki.eu/index.php?title=Programming:Fast_16_bit_Square_Root&diff=90908&oldid=prev 2014-09-01T08:43:51Z

<p></p> <table class='diff diff-contentalign-left'> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr style='vertical-align: top;'> <td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td> <td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 08:43, 1 September 2014</td> </tr><tr><td colspan="2" class="diff-lineno" id="L118" >Line 118:</td> <td colspan="2" class="diff-lineno">Line 118:</td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ret</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ret</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>&lt;/pre&gt;</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div>&lt;/pre&gt;</div></td></tr> <tr><td colspan="2">&#160;</td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2">&#160;</td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:Programming]]</ins></div></td></tr> </table>

Ygdrazil https://oldwiki.cpcwiki.eu/index.php?title=Programming:Fast_16_bit_Square_Root&diff=18788&oldid=prev 2007-09-19T05:22:31Z

<p>Fixed last unroll</p> <table class='diff diff-contentalign-left'> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr style='vertical-align: top;'> <td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td> <td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 05:22, 19 September 2007</td> </tr><tr><td colspan="2" class="diff-lineno" id="L109" >Line 109:</td> <td colspan="2" class="diff-lineno">Line 109:</td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ld a,d</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ld a,d</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> cp (hl)</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> cp (hl)</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> jr nz,$ + <del class="diffchange diffchange-inline">6</del></div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> jr nz,$ + <ins class="diffchange diffchange-inline">5</ins></div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> dec h</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> dec h</div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ld a,e</div></td><td class='diff-marker'>&#160;</td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"><div> ld a,e</div></td></tr> <!-- diff cache key wikidb:diff:version:1.11a:oldid:18787:newid:18788 --> </table>

Executioner https://oldwiki.cpcwiki.eu/index.php?title=Programming:Fast_16_bit_Square_Root&diff=18787&oldid=prev 2007-09-19T05:20:41Z

<p>New page</p> <p><b>New page</b></p><div>This routine was written by [[User:Executioner|The Executioner]] based on the fast pre-calculated square routine and an algorithm by Milos &quot;baze&quot; Bazelides, with 16 bit arithmetic removed for faster performance.<br /> <br /> The initialisation routine, used to build the squares table (same as for the Pre-calculated Square table (my version)).<br /> <br /> &lt;pre&gt;<br /> ld de,1<br /> ld hl,0<br /> ld ix,sqtab<br /> sqloop: ld (ix + 0),l<br /> inc hx<br /> ld (ix + 0),h<br /> dec hx<br /> add hl,de<br /> inc de<br /> inc de<br /> inc lx<br /> jr nz,sqloop<br /> &lt;/pre&gt;<br /> <br /> The actual 16 bit square root routine.<br /> <br /> '''Input:''' DE = ''The number you want to find the square root of''<br /> <br /> '''Output:''' A = ''Square root of the number supplied in DE''<br /> <br /> '''Destroys:''' HL<br /> <br /> '''Call:''' CALL SqrtDE<br /> <br /> &lt;pre&gt;<br /> SqrtDE: ld hl,sqtab + #180<br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> set 6,l<br /> jr nc,$ + 4<br /> res 7,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> set 5,l<br /> jr nc,$ + 4<br /> res 6,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> set 4,l<br /> jr nc,$ + 4<br /> res 5,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> set 3,l<br /> jr nc,$ + 4<br /> res 4,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> set 2,l<br /> jr nc,$ + 4<br /> res 3,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> set 1,l<br /> jr nc,$ + 4<br /> res 2,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> inc h<br /> inc l<br /> jr nc,$ + 4<br /> res 1,l<br /> <br /> ld a,d<br /> cp (hl)<br /> jr nz,$ + 6<br /> dec h<br /> ld a,e<br /> cp (hl)<br /> ld a,l<br /> ret nc<br /> dec a<br /> ret<br /> &lt;/pre&gt;</div>

Executioner