home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / demodisc / cyberdan / etc / sqrt.asm < prev   
Encoding:
Assembly Source File  |  1995-03-23  |  828 b   |  26 lines
  1. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  2.  
  3. ; DEMOKBAN GYAKRAN LEHET SZÜKSÉG GYÖKVONÅSRA... EZ A KIS RUTIN (KIVÅNCSIAN
  4. ; VÅROM A RÖVIDEBB MEGOLDÅSOKAT!) AZ AX-BEN MEGADOTT SZÅMNAK A NÉGYZETGYÖ-
  5. ; KÉT VESZI. TESZTKÉPPEN A 10000 GYÖKÉT KERESTEM... 100-AT ADOTT VISSZA...
  6. ;
  7. ; AZ EREDMÉNYT EZ A MINI VERZiò NEM IS îRJA KI A KÉPERNYºRE, DE DEBUGGERBºL
  8. ; MINDENKI MEGGYºZºDHET RòLA HOGY MÿKÖDIK. :)
  9.  
  10. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  11.  
  12. SQRT:   OR      AX,AX
  13.         JZ      SQRTEND
  14.         PUSH    CX BX DX
  15.         MOV     CX,AX
  16. SQRTLOP:MOV     BX,AX
  17.         MOV     AX,CX
  18.         CWD
  19.         DIV     BX
  20.         ADD     AX,BX
  21.         SHR     AX,1
  22.         CMP     AX,BX
  23.         JB      SQRTLOP
  24.         POP     DX BX CX
  25. SQRTEND:RET
  26.