lab4 - masm

; Вычислить значение функции F(x) = x^2 + 5x +7
; при х = 2 получаем 21
; при х = 1 получаем 13 т.е. D

masm
model small
stack 256
.data
x db 1
y db 5
op1 dw ?
op2 dw ?
.code

    FUNCTION1 proc near
    push bp
    mov bp, sp
    mov al, [bp+5]
    mul byte ptr [bp+5]
    pop bp
    ret
    FUNCTION1 endp

    FUNCTION2 proc near
    push bp
    mov al, [bp+5]
    mul byte ptr y
    add ax, 7
    pop bp
    ret
    FUNCTION2 endp

    main:
    mov ax,@data
    mov ds,ax
    xor ax,ax

    push word ptr x
    call FUNCTION1
    add SP, 4h ;    возвращаем указатель стека на место
    mov op1, ax
    xor ax, ax

    push word ptr x
    call FUNCTION2
    add SP, 4h ;    возвращаем указатель стека на место
    mov op2, ax
    xor ax, ax

    mov ax, op1
    add ax, op2

    mov ax,4c00h
    int 21h
end main