What comes next?

[Thomas Klemm]

A few links related to calculating the square root in HP calculators:

• Square Root: Digit by Digit Algorithm
• Computing Square Roots
• Taking square roots with an Odhner
  

I find it interesting that with the correct setup the main loop is just these instructions:

Code:

 501   L01250:  .1111...1.                      sqt15:  c + 1 -> c[p]
 502   L01251:  11.1..111.                      sqt16:  a - c -> a[w]
 503   L01252:  1.1.1...11  -> L01250                   if no carry go to sqt15