QH: MOV R0,#60H MOV R2,#10 MOV 6AH,#0 MOV 6BH,#0LOOP: MOV A,@R0 JNB ACC.7,LP1 CPL A INC ALP1: LCALL SQRT ADD A,6AH XCH A,6AH CLR A ADDC A,6BH XCH A,6BH INC R0 DJNZ R2,LOOP RETSQRT: MOV B,A MUL AB RET
