601legend

Untitled

May 23rd, 2019
125
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. .686
  2. .MODEL FLAT, C
  3. .STACK
  4. .data
  5. extern a:word, b:word, d:word, shisl:dword, znam:word, rez:word
  6. .code
  7. funk PROC
  8. ;----(22/d+3*b)/36-a*d/3)
  9.  
  10. ;-------------shisl----------------------
  11. mov bx,ax
  12. mov al,3
  13. imul b
  14.  
  15. mov ax,22
  16. idiv d
  17. cbw
  18.  
  19. add ax,bx
  20. cwd
  21.  
  22. mov word ptr shisl,ax
  23. ;------------------znam-----------------
  24. mov al,a
  25. imul b
  26.  
  27. mov bl,3
  28. idiv bl
  29. cbw
  30.  
  31. mov bx,ax
  32. mov ax,36
  33. sub ax,bx
  34. cwd
  35.  
  36. mov word ptr znam, ax
  37. mov word ptr znam+2, dx
  38. ;------------------rez------------------
  39.  
  40. mov ax, word ptr shisl
  41. mov dx, word ptr shisl+2
  42. idiv znam
  43.  
  44. cwd
  45. mov word ptr rez, ax
  46. mov word ptr rez+2, dx
  47.  
  48. ret
  49. funk ENDP
  50. END
Advertisement
Add Comment
Please, Sign In to add comment