TSQRT:
CLR A
MOV R0,A
MOV R6,A
MOV R7,A
MOV R1,#06H
MOV R2,80H
MOV R3,00H
LOOP:
CLR C
MOV R4,#01H
MOV R5,#00H
LOOP1:
MOV A,R4
ADD A,R4
DA A
MOV R6,A
MOV A,R5
ADDC A,R5
DA A
MOV R7,A
CLR C
MOV A,#9AH
SUBB A,#01H
ADD A,R6
DA A
CPL C
MOV R6,A
MOV A,#9AH
SUBB A,#00H
ADD A,R7
DA A
CPL C
MOV R7,A
JNC C,LOOP2
INC R0
CLR A
ADD A,R6
DA A
MOV R0,A
LOOP2:
CLR C
MOV A,#9AH
SUBB A,R6
ADD A,R3
DA A
CPL C
MOV R3,A
MOV A,#9AH
SUBB A,R7
ADD A,R2
DA A
CPL C
MOV R2,A
MOV A,#9AH
SUBB A,R0
ADD ,R1
DA A
CPL C
MOV R1,A
JC C,LOOP3
CLR C
MOV A,R4
ADD A,#01H
DA A
MOV R4,A
MOV A,R5
ADDC A,#00H
DA A
MOV R5,A
SJMP LOOP1
LOOP3:
CLR C
MOV A,#9AH
MOV A,#01H
ADD A,R4
DA A
CPL C
MOV R4,A
MOV A,#9AH
SUBB A,#00H
ADD A,R5
DA A
CPL C
MOV R6,A
RET
