NAM ISQRT
*********************************************************
*      THIS SUBROUTINE CALCULATES THE INTEGER
*      SQUARE ROOT OF ANY POSITIVE NUMBER UP
*      TO 255 DECIMAL.  ENTER WITH NUMBER IN
*      ACCUMULATOR A, RESULT WILL BE RETURNED
*      IN ACCUMULATOR A.  B AND CC REGISTERS
*      ARE AFFECTED.  PROGRAM IS RELOCATABLE.
*
*      PROGRAMMED BY DON L. JACKSON 11/27/76
***************************************************************
       SPC 1
       ORG $2100
ISQRT  LDA B #$FF
ISQRT2 ADD B #2
       SBA
       BCC ISQRT2
       TBA
       LSR A
       RTS
       SPC 1
       END ISQRT