; A = SQRT(AX)¢¢sqrt=*¢?wrd=$32¢?sqr=$34¢?aux=$36¢¢sta?wrd¢stx?wrd+1¢lda#$00¢sta?sqr¢sta?sqr+1¢sta?aux¢lda#$40¢sta?aux+1¢¢?lpsec¢lda?wrd¢sbc?aux¢tax¢lda?wrd+1¢sbc?aux+1¢bcc?skp¢¢tay¢txa¢sbc?sqr¢tax¢tya¢sbc?sqr+1¢bcc?skp¢¢stx?wrd¢sta?wrd+1¢¢lda?sqr+1¢lsr¢ora?aux+1¢sta?sqr+1¢lda?sqr¢ror¢ora?aux¢sta?sqr¢jmp?nxt¢¢?skplsr?sqr+1¢ror?sqr¢¢?nxtlda?aux+1¢lsr¢ror?aux¢lsr¢ror?aux¢sta?aux+1¢ora?aux¢bne?lp¢¢?extlda?sqr¢rts¢
