assem

; 209 kab
; suskaiciuoti     /   ](a+2b)/a-x[     , kai a-x > 10
;              y =|   a^2-3b           , kai a-x = 10
;                  \   |c+x|          , kai a-x < 10
; skaiciai be zenklo
; Duomenys a - w, b - b, c - b, x - b, y - w


stekas  SEGMENT STACK
DB 256 DUP(0)
stekas  ENDS

duom    SEGMENT
a    DW 255  ;10000 ; perpildymo situacijai
b    DB 0
c    DB 120
x    DB 255
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, '$'
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, 8h
mov bx, 1h
push ax
push bx
pop cx
pop dx

JC negative

MOV ax, a
MOV bl, x[si]
XOR bh, bh
SUB ax, bx
JC negative;
CMP ax, 0
JE f2
JB f3
f1: ; ](a+2b)/a-x[ 2 -> al
MOV al, 2
MUL b
ADD ax, a
JC kl1
MOV bx, a
XOR dh, dh
MOV dl, x[si]
SUB bx, dx
XOR dx, dx
CMP bx, 0
JE kl2
DIV bx
JC kl1
JMP ger
f2: ; a^2-3b
MOV ax, a
MUL a
JC kl1  ; sandauga netilpo i ax
XCHG ax, dx
MOV al, b
XOR ah, ah
MOV bl, 3
MUL bl
JC kl1 ; netelpa
SUB dx, ax
JC kl1
XCHG dx, ax
JMP ger
f3: ; |c+x|

XOR ah, ah
MOV al, x[si]
XOR bh, bh
MOV bl, c
ADD ax, bx
JC kl1
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 al, x[si]  ; isvedamas skaicius x yra ax reg.
XOR ah, ah
PUSH ax
MOV bx, offset isvb+2
PUSH bx
CALL binasc
MOV ax, y[di]        ; 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 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
;============================
negative:
JMP f3
kl1:
LEA dx, perp
XOR al, al
MOV ah, 9
INT 21h
MOV ax, 0
JMP ger
kl2:
LEA dx, daln
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