;
; suskaiciuoti     /  3b+x^2                  , 3b > x
;              y =
;                  \  ](|x|-4*a)/(c^3-b)[       3b = x
; skaiciai be zenklo
; Duomenys a - b, b - w, c - w, x - b, y - w

stekas  SEGMENT STACK
DB 256 DUP(0)
stekas  ENDS

duom    SEGMENT
a    DB 16  ;10000 ; perpildymo situacijai
b    DW 5
c    DW 1
x    DB 12,11,15
kiek    = ($-x)
y    DW kiek dup(0AAh)
isvb    DB 'x=',6 dup (?), ' y=',6 dup (?), 0Dh, 0Ah, '$'
perp    DB 'Perpildymas', 0Dh, 0Ah, '$'
daln    DB 'Dalyba is nulio', 0Dh, 0Ah, '$'
netb    DB 'Netelpa i baita', 0Dh, 0Ah, '$'
spausk  DB 'Skaiciavimas baigtas, spausk bet kuri klavisa,', 0Dh, 0Ah, '$'
duom    ENDS

prog    SEGMENT
assume ss:stekas, ds:duom, cs:prog
pr:    MOV ax, duom
MOV ds, ax
XOR si, si      ; (suma mod 2) si = 0
XOR di, di      ; di = 0
c_pr:   MOV cx, kiek ;kiek kartu suksis ciklas
JCXZ pab
cikl:

MOV ax, b
MOV bl, 3
MUL bl
XOR bx,bx
MOV bl,x[si]
CMP ax, bx
JE f1
JG f2

f1: XOR ax, ax
MOV al, a
MOV dx, 4 ;vietoj cx pakeista
MUL dx
JC kl1
XOR bx,bx
XCHG ax, bx ;apkeicia
MOV al, x[si]  ;ikelia
SUB ax, bx    ;atimtis
MOV bx, c
XCHG ax,bx
MUL c  ;daugina ax registra su c
JC kl1
MUL c
JC kl1
SUB ax, b
XCHG ax, bx
CWD   ;convertuoja worda
IDIV bx  ;idiv ir neig ir teig dalinti
JMP re
f2:  MOV ax,b
MOV bx, 3
MUL bx  ;daugyba
JC kl1
XOR bx,bx
MOV bl, x[si]
XCHG ax, bx
MUL ax
JC kl1
ADD bx, ax
JC kl1
XCHG ax,bx
JMP re
re:
    ;CMP ax, 0
ger:    MOV y[di], ax
    INC si ;adresu skaiciavimui
    INC di
    INC di
LOOP cikl
pab:
;rezultatu isvedimas i ekrana
;============================
XOR si, si
XOR di, di
MOV cx, kiek
JCXZ is_pab
is_cikl:
XOR ax,ax
MOV al, x[si]  ; isvedamas skaicius x yra ax reg.
PUSH ax
MOV bx, offset isvb+2
PUSH bx
CALL binasc
MOV ax, y[di]
;XOR ah, ah        ; isvedamas skaicius y yra ax reg.
PUSH ax
MOV bx, offset isvb+11
PUSH bx
CALL binasc

MOV dx, offset isvb
MOV ah, 9h
INT 21h
;============================
INC si

    INC di
    INC di
LOOP is_cikl
is_pab:
;===== PAUZE ===================
;===== paspausti bet kuri klavisa ===
LEA dx, spausk
MOV ah, 9
INT 21h
MOV ah, 0
INT 16h
;============================
MOV ah, 4Ch   ; programos pabaiga, grizti i OS
INT 21h
;============================

kl1:    LEA dx, perp
MOV ah, 9
INT 21h
XOR al, al
JMP ger
kl2:    LEA dx, daln
MOV ah, 9
INT 21h
XOR al, al
JMP ger
kl3:    LEA dx, netb
MOV ah, 9
INT 21h
XOR al, al
JMP ger

; skaiciu vercia i desimtaine sist. ir issaugo
; ASCII kode. Parametrai perduodami per steka
; Pirmasis parametras ([bp+6])- verciamas skaicius
; Antrasis parametras ([bp+4])- vieta rezultatui

binasc    PROC NEAR
PUSH bp
MOV bp, sp
; naudojamu registru issaugojimas
PUSHA
; rezultato eilute uzpildome tarpais
MOV cx, 6
MOV bx, [bp+4]
tarp:    MOV byte ptr[bx], ' '
INC bx
LOOP tarp
; skaicius paruosiamas dalybai is 10
MOV ax, [bp+6]
MOV si, 10
val:    XOR dx, dx
DIV si
;  gauta liekana verciame i ASCII koda
ADD dx, '0'   ; galima--> ADD dx, 30h
;  irasome skaitmeni i eilutes pabaiga
DEC bx
MOV [bx], dl
; skaiciuojame pervestu simboliu kieki
INC cx
; ar dar reikia kartoti dalyba?
CMP ax, 0
JNZ val

POPA
POP bp
RET
binasc    ENDP
prog    ENDS
END pr