FLTSQR: MOV A,R5; RLC A MOV 7EH,C MOV A,R4 JZ SQRT ANL 0DH,#7FH MOV A,R4 MOV R0,A CLR C RRC A ADDC A,#40H MOV 1CH,A MOV A,R0 ANL A,#1 SETB ACC.7 MOV R4,A LCALL LD1 LCALL SRA0 CJNE R4,#80H,FSQR1 ORL 0DH,#40H FSQR1: MOV B,#3 FSQLP: LCALL LD2 LCALL GET1 LCALL FPDI LCALL GET2 LCALL FPAD DEC R4 DJNZ B,FSQLP MOV R4,1CH SQRT: RET