; Square Root Program
; By: Mike Gallant

        CPU "6502.TBL"


        ORG     0010H
HERE:   LDA     04H
        CMP     #00H
        BEQ     ENDIT
        LSR     A
        BCC     DOWN
        LDA     00H
        ADC     02H
        STA     00H
        LDA     01H
        ADC     03H
        STA     01H
DOWN:   ASL     02H
        ROL     03H
        CLV
        BVC     HERE
ENDIT:  BRK
        END