;
; suskaiciuoti     /   3b+x^2           , kai 3b > x
;              y = |   (|x|-4a)/(c^3-b) , kai 3b = x
;                  \
; skaiciai su zenklu
; Duomenys a - b, b - b, c - b, x - w, y - w

stekas  SEGMENT STACK
    DB 256 DUP(0)
stekas  ENDS

duom    SEGMENT
a   DB  0  ;   10000; perpildymo situacijai
b   DB  7
c   DB  1
x   DW  21,-2,-4,1,50,45,80
kiek    = ($-x)/2
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, '$'
daug    DB 'Neapibrezta salyga', 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
        JCXZ pab
cikl:
    MOV ax, 3
    IMUL b
    CMP ax, x[si]
    JG f1
    JE f2
    JL kl4

f1: MOV ax, x[si]
    IMUL x[si]
    JO kl1
    MOV bx, ax
    MOV ax, 3
    IMUL b
    JO kl1
    ADD ax, bx
    JO kl1
    JMP re

f2: MOV ax, x[si]
    CMP ax, 0
    JG f2pap
    NEG ax

f2pap: MOV bx, ax
    MOV ax, 4
    IMUL a
    JO kl1
    SUB bx, ax
    JO kl1
    MOV dx, bx
    ;kubas
    MOV al, c
    CBW
    IMUL c
    JO kl1
    IMUL c
    JO kl1
    XOR bx, bx
    MOV bl, b
    CBW
    SUB ax, bx
    JO kl1
    MOV bx, ax
    MOV ax, dx
    CMP bx, 0
    JE kl2
    XOR dx, dx
    IDIV bx
    JMP re


re:
    CMP al, 0
    JGE teigr
    CMP ah, 0FFh  ; jei neig. rezultatas
    JE  ger
    JMP kl3
teigr:  CMP ah, 0     ;jei teig. rezultatas
        JE ger
    JMP kl3
ger:
    MOV y[di], ax
    INC si
    INC si
    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:
    MOV ax, x[si]  ; isvedamas skaicius x yra ax reg.
    PUSH ax
    MOV bx, offset isvb+2
    PUSH bx
    CALL binasc
    MOV ax, y[di]
    PUSH ax
    MOV bx, offset isvb+11
    PUSH bx
    CALL binasc

    MOV dx, offset isvb
    MOV ah, 9h
    INT 21h
;============================
    INC si
    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
kl4:    LEA dx, daug
    MOV ah, 9
    INT 21h
    XOR ax, ax
    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
    CMP ax, 0
    JGE val
; verciamas skaicius yra neigiamas
    NEG ax
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
; gautas rezultatas. Uzrasome zenkla
;   pop ax
    MOV ax, [bp+6]
    CMP ax,0
    JNS teig
; buvo neigiamas skaicius, uzrasome -
    DEC bx
    MOV byte ptr[bx], '-'
    INC cx
    JMP vepab
; buvo teigiamas skaicius, uzrasau +
teig:   DEC bx
    MOV byte ptr[bx], '+'
    INC cx
vepab:
    POPA
    POP bp
    RET
binasc  ENDP
prog    ENDS
        END pr