Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Comment &
- FUNKCIJA f(X, Y):
- (2XY^3 - Z+2)/(-X^2Z - 2+Y), ja (2XY^3 - Z+2) > 0
- (2XY^3 - Z+2)/(XZ^3 - Y), ja (2XY^3 - Z+2) < 0
- &
- .model tiny
- .code
- .startup
- .386
- Org 100h
- Jmp Short _Start
- X Db 2
- Y Db 2
- Z Db -1
- Two Db 2
- Zero Equ 0
- ZerDiv Dw 0
- _Start:
- Mov Al, Y
- Imul Y
- MovSx Bx, Y
- Imul Bx, Ax ;x^3
- movsx ax, X
- Imul Ax, ax, 2 ;ax:=2X
- Imul Bx, Ax ;bx:=2xy^3
- MovSx ax, z
- Sub Bx, Ax
- inc Bx
- inc Bx
- Jne Not_Zero
- Mov Dx, Zero
- Jmp Short _Exit
- Not_Zero:
- Mov Cx, Bx ;Cx:= A
- Jl Branch_C ;(-X^2Z - 2+Y)
- Mov al, X
- Imul X
- Neg Ax
- MovSx bx, z
- Imul ax,bx
- dec ax
- dec ax
- MovSx bx, y
- add ax, bx
- Jmp Short Rezult
- Branch_C:
- ;(XZ^3 - Y)
- Mov al, z
- Imul z
- Movsx bx, z
- Imul ax, bx
- Movsx bx, x
- Imul ax, bx
- MovSx bx, y
- sub ax, bx
- Rezult:
- Cmp Ax, Zero
- Jne _Div
- Mov ZerDiv, 1
- Jmp Short _Exit
- _Div:
- Mov bx, cx
- Xchg Ax, Bx ; Ax = FFF7 (-9), Bx = FFFF (-1)
- MovSx EBx, Bx ;386 EBx = FFFF FFFF
- Cwde ;386 EAx = FFFF FFF7
- Cdq ;386 EDx = FFFF FFFF
- IDiv EBx ;386 EAx = 0000 0009, EDx = 0000 0000
- _Exit:
- ;.exit 0
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement