Assembler Lab

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

stekas  SEGMENT STACK
DB 256 DUP(0)
stekas  ENDS

duom    SEGMENT
a    DW 25
b    DB 7
c    DW 4
x    DB 10,25,30,5,12,9,45,6
kiek    = $-x
y    DW kiek*2 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
JCXZ pab

cikl:
MOV ax, a
MOV bl, x[si]
XOR bh, bh
SUB ax, bx
JC kl1 ; perpildymas
CMP ax, 10
JE f2
JB f3

f1:  ;](a + 2b) / (a - x)[
MOV ax, 2
MUL b
JC kl1 ; perpildymas
ADD ax, a
MOV bx, a
SUB bl, x[si]
XOR bh, bh
CMP bl, 0
JE kl2 ; jei dalyba is 0
DIV bl ; ax = rez
XOR ah, ah
JMP ger

f2:  ;a * a - 3b
MOV ax, a
MUL a
JC kl1
XCHG ax, bx
MOV ax, 3
MUL b
JC kl1
XCHG ax, bx
SUB ax, bx
JMP ger

f3:   ;|c + x|
MOV ax, c
MOV bl, x[si]
XOR bh, bh
ADD ax, bx
JMP ger

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]
;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 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