Andy David says:
I've added a 16-bit square root routine (again for the 17c43) that uses successive approximation to find the square root, the binary restoring method I'm fairly sure would be quicker. This is the only 16-bit sqrt routine I have specifically for the 17cxx PICs, I've only included it as the original poster requested a 16-bit routine. If you really want speed speed speed, I'd rewrite the 32-bit routine to be 16-bit.
Standard disclaimer applies
;========================================================================== ; SQRT16 ; ; Calculates the square root of a sixteen bit number by successive ; approximation. ; ; ; Input in ACCaHI:ACCaLO ; ; Output in ACCbHI ; ; Also uses ACCbLO and ACCcHI. ; ;-------------------------------------------------------------------------- SQRT16: movlw 0x80 ; movpf WREG,ACCbLO ; set up walking tester bit. clrf ACCbHI,w ; movlw 0x08 ; movpf WREG,ACCcHI ; tstest: movfp ACCbLO,WREG ; set bit for testing. iorwf ACCbHI,WREG ; movpf WREG,ACCbHI ; mulwf ACCbHI ; square the current estimate. movfp ACCaLO,WREG ; compare PRODH:PRODL with ACCaHI:ACCaLO subwf PRODL,WREG ; movfp ACCaHI,WREG ; subwfb PRODH,WREG ; btfss ALUSTA,C ; If the result is <= input, goto nxtbit ; ... keep this bit set. movfp ACCbLO,WREG ; Result was > input, so reset xorwf ACCbHI,f ; ... bit to zero. nxtbit: rrncf ACCbLO,f ; rotate tester bit right. decfsz ACCcHI,f ; goto tstest ; return
|file: /Techref/microchip/math/sqrt/sqrt16sa.htm, 1KB, , updated: 2000/2/14 13:10, local time: 2018/2/20 16:12,
|©2018 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?|
<A HREF="http://www.piclist.com/techref/microchip/math/sqrt/sqrt16sa.htm"> PIC Microcontoller Math Method </A>
|Did you find what you needed?|
PICList 2018 contributors:
o List host: MIT, Site host massmind.org, Top posters @20180220 RussellMc, Sean Breheny, Van Horn, David, David C Brown, Darron Black, Harold Hallikainen, alan.b.pearce, Isaac M. Bavaresco, Mario, Bob Blick,
* Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
Welcome to www.piclist.com!