home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / realasm1 / ftmod.asm < prev    next >
Encoding:
Assembly Source File  |  1993-07-18  |  975 b   |  32 lines
  1. .286
  2. ;================================================
  3. ; Subtracts src from dst,  while dst > src
  4. ;
  5. ; Returns AX =  number of subtractions
  6. ;------------------------------------------------
  7. cseg          segment word public 'code'
  8.               assume  cs:cseg,ss:cseg
  9.               assume  ds:cseg,es:cseg
  10.  
  11.               include math.inc
  12.  
  13. ftmod         proc    near uses bx si di, dst:NPR10, src:NPR10
  14.  
  15.               mov     si, src                   ;
  16.               mov     di, dst                   ;
  17.               xor     bx, bx                    ;
  18.  
  19.               .WHILE (1)
  20.                  invoke  ftcomp, di, si         ;
  21.                  .BREAK .IF (ax == -1)          ; exit if dst < src
  22.                  invoke  ftsub, di, si          ;
  23.                  inc     bx                     ;
  24.               .ENDW
  25.               mov     ax, bx                    ;
  26.  
  27.               ret
  28. ftmod         endp
  29.  
  30. cseg          ends
  31.               end
  32.