601legend

Untitled

May 23rd, 2019
109
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. div d
  14. cbw
  15.  
  16. mov bx,ax
  17. mov ax,3
  18. mul b
  19. add ax,bx
  20. cwd
  21.  
  22. mov word ptr shisl,ax
  23. ;------------------znam-----------------
  24. mov al,a
  25. mul b
  26.  
  27. mov bl,3
  28. div 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. div 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