601legend

Untitled

May 23rd, 2019
95
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:byte, b:byte, d:byte, shisl:dword, znam:word, rez:word
  6. .code
  7. funk PROC
  8. ;----(22/d+3*b)/36-a*d/3)
  9.  
  10. ;-------------shisl----------------------
  11.  
  12. mov ax,22
  13. idiv d
  14. cbw
  15.  
  16. mov bx,ax
  17. mov al,3
  18. imul b
  19.  
  20. add ax,bx
  21. cwd
  22.  
  23. mov word ptr shisl,ax
  24. ;------------------znam-----------------
  25. mov al,a
  26. imul b
  27.  
  28. mov bl,3
  29. idiv bl
  30. cbw
  31.  
  32. mov bx,ax
  33. mov ax,36
  34. sub ax,bx
  35. cwd
  36.  
  37. mov word ptr znam, ax
  38. mov word ptr znam+2, dx
  39. ;------------------rez------------------
  40.  
  41. mov ax, word ptr shisl
  42. mov dx, word ptr shisl+2
  43. idiv znam
  44.  
  45. cwd
  46. mov word ptr rez, ax
  47. mov word ptr rez+2, dx
  48.  
  49. ret
  50. funk ENDP
  51. END
Advertisement
Add Comment
Please, Sign In to add comment