FINDING SQUARE ROOT OF A PERFECT SQUARE


.model small
.stack 64
.data
.code
start:MOV AX,@DATA
      MOV DS,AX
      MOV CL,36
      MOV BL,1
      MOV AL,0
UP:   CMP CL,0
      JZ ANS
      SUB CL,BL
      INC AL
      ADD BL,02
      JMP UP
ANS:  END start
      .end