Advertisement
Guest User

Untitled

a guest
Dec 11th, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.50 KB | None | 0 0
  1. Comment &
  2. FUNKCIJA f(X, Y):
  3. (2XY^3 - Z+2)/(-X^2Z - 2+Y), ja (2XY^3 - Z+2) > 0
  4. (2XY^3 - Z+2)/(XZ^3 - Y), ja (2XY^3 - Z+2) < 0
  5. &
  6.  
  7.  
  8. .model tiny
  9. .code
  10. .startup
  11. .386
  12. Org 100h
  13. Jmp Short _Start
  14. X Db 2
  15. Y Db 2
  16. Z Db -1
  17. Two Db 2
  18. Zero Equ 0
  19. ZerDiv Dw 0
  20. _Start:
  21. Mov Al, Y
  22. Imul Y
  23. MovSx Bx, Y
  24. Imul Bx, Ax ;x^3
  25.  
  26. movsx ax, X
  27. Imul Ax, ax, 2 ;ax:=2X
  28.  
  29. Imul Bx, Ax ;bx:=2xy^3
  30. MovSx ax, z
  31. Sub Bx, Ax
  32. inc Bx
  33. inc Bx
  34. Jne Not_Zero
  35.  
  36. Mov Dx, Zero
  37. Jmp Short _Exit
  38.  
  39.  
  40.  
  41. Not_Zero:
  42. Mov Cx, Bx ;Cx:= A
  43. Jl Branch_C ;(-X^2Z - 2+Y)
  44. Mov al, X
  45. Imul X
  46. Neg Ax
  47. MovSx bx, z
  48. Imul ax,bx
  49. dec ax
  50. dec ax
  51. MovSx bx, y
  52. add ax, bx
  53.  
  54.  
  55.  
  56. Jmp Short Rezult
  57.  
  58.  
  59. Branch_C:
  60. ;(XZ^3 - Y)
  61. Mov al, z
  62. Imul z
  63. Movsx bx, z
  64. Imul ax, bx
  65. Movsx bx, x
  66. Imul ax, bx
  67. MovSx bx, y
  68. sub ax, bx
  69.  
  70.  
  71. Rezult:
  72. Cmp Ax, Zero
  73. Jne _Div
  74.  
  75. Mov ZerDiv, 1
  76. Jmp Short _Exit
  77.  
  78. _Div:
  79. Mov bx, cx
  80. Xchg Ax, Bx ; Ax = FFF7 (-9), Bx = FFFF (-1)
  81. MovSx EBx, Bx ;386 EBx = FFFF FFFF
  82. Cwde ;386 EAx = FFFF FFF7
  83. Cdq ;386 EDx = FFFF FFFF
  84. IDiv EBx ;386 EAx = 0000 0009, EDx = 0000 0000
  85. _Exit:
  86.  
  87. ;.exit 0
  88. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement