STSEG SEGMENT PARA STACK "STACK"
DB 128 DUP ("STACK")
STSEG ENDS

DATA SEGMENT
    YY dw 1 dup('&'),'$'
    TT dw 1 dup('&'),'$'
    BUFFER DB 7, '?', 6 DUP('?'), '$'
    ERROR DB 'ERROR$'
    ERROR1 DB 'ERROR CMP 0$'
    HELLO1 DB 'ENTER NUMBER Y (-32768...32767): $'
    HELLO2 DB 'ENTER NUMBER T (-32768...32767): $'
    HELLO3 DB 'ENTER NUMBER X (-32768...32767): $'
    ERROR11 DB 'ERROR 0 SYMBOLS$'
    ERROR2 DB 'ERROR CMP 9$'
    ERROR3 DB 'ERROR MULL$'
    ERROR4 DB 'ERROR ADD$'
    ERROR5 DB 'ERROR 8000H$'
    ERROR6 DB 'ERROR CMP 32767$'
    ERROR12345 DB 'ERROR FINAL$'

    MESSAGE2 DB 'PRESS TO SHOW NUMBER..', 0DH, 0AH, '$'
DATA ENDS
CODE SEGMENT
    ASSUME CS:CODE, DS:DATA, SS: STSEG
    ORG 100H
    START:
    PUSH DS;
    XOR AX,AX;
    PUSH AX;
    MOV AX,DATA
    MOV DS,AX

    LEA DX,HELLO1
    MOV AH, 9
    INT 21H


    CALL GET_INTEGER
    CMP DI,2
    JZ ER
    mov YY, ax

    LEA DX,HELLO2
    MOV AH, 9
    INT 21H

    CALL GET_INTEGER
    CMP DI,2
    JZ ER
    mov TT, ax

    LEA DX,HELLO3
    MOV AH, 9
    INT 21H

    CALL GET_INTEGER
    CMP DI,2
    JZ ER

    PUSH AX
    lea DX, MESSAGE2
    MOV AH, 9
    INT 21H
    MOV AH, 10H
    INT 16H
    POP AX

    CALL FUN_CALC


    MOV AH, 10H
    INT 16H
    MOV AH, 4CH
    INT 21H

    ER:
    MOV AH, 10H
    INT 16H
    MOV AH, 4CH
    INT 21H
        ERG12341:
    MOV DX, OFFSET ERROR12345
    MOV AH,09
    INT 21H
    RET

FUN_CALC PROC

    mov cx, YY  ;перемещаем в СХ значение у
    mov bx, TT  ;перемещаем в BX значение Т

    cmp ax, cx  ;сравниваем x, y
    cmp bx, cx  ;сравниваем y, t
    jne case_1  ;если не равны - то это первый случай
    cmp ax, cx  ;сравниваем x, y
    jle case_2  ;если меньше или равно - второй случай
    jmp case_3  ;иначе это третий случай

    case_1: ;(5x-y^2)/(7(t-y)) - первый случай

    ;этот блок считает выражение в числителе
    xor dx, dx
    push ax
    mov ax, YY
    mul ax
    mov cx, ax
    pop ax
    mov bx, 5
    mul bx
    sub ax, cx
    push ax

    ;этот блок считает выражение в знаменателе
    mov cx, TT
    mov dx, YY
    sub cx, dx
    mov ax, cx
    mov bx, 7
    mul bx
    mov bx, ax
    pop ax

    xor dx, dx

    ;к этому моменту у нас в bx находится делитель, в ax - делимое
    ;прыгаем к метке, которая найдет часное.
    jmp rzero


    case_2: ;(13x+7y+5t) - второй случай

    ;этот блок считает выражение
    mov bx, 13
    mul bx
    push ax
    mov ax, YY
    mov bx, 7
    mul bx
    push ax
    mov ax, TT
    mov bx, 5
    mul bx
    pop bx
    add ax, bx
    pop bx
    add ax, bx

    ;в этом случае нам делить ничего не нужно, поэтому просто выводим
    ;число и выходим из процедуры
    call Print_integer
    ret

    case_3: ;2xy - третий случай

    ;этот блок считает выражение
    cwd
    mov bx, YY
    imul bx
    add ax, ax

    ;в этом случае нам делить ничего не нужно, поэтому просто выводим
    ;число и выходим из процедуры
    call Print_integer
    ret

    rzero:
    cwd ;расширяем число в ax до четырех байт. Теперь оно находится в двух
        ;регистрах dx:ax
    idiv bx ;деление с учетом знака. Остаток записывается в dx
    cmp dx, 0   ;смотрим на остаток. Если он не ноль - то будем выводить
                ;числа после запятой
    jne print_and_continue

    ;если остаток 0, то выводим результат деления и выходим из процедуры
    call Print_integer
    ret

    print_and_continue:

    PUSH DX
    PUSH BX
    call Print_integer  ;печатаем целую часть
    MOV AH, 02H
    MOV DL, 46
    INT 21H ;печатаем точку
    POP BX
    POP DX

    MOV CX, 3   ;счетчик цикла. Будем выводить до 3 знаков после запятой
    divI:
    mov ax,dx   ;перемещаем в ах остаток от деления
    mov di, 10  ;записываем 10
    mul di      ;умножаем остаток на 10
    div bx      ;делим его на старое делимое, что бы найти первое число
                ;после запятой
    cmp dx, 0   ;смотрим на новый остаток. Если его нет - то печатаем часное
                ;и выходим из процедуры
    jne lp_print_and_continue
    CALL PRINT_INTEGER
    ret
    lp_print_and_continue:;иначе продолжим цикл
    PUSH DX
    PUSH CX
    PUSH BX

    CALL PRINT_INTEGER  ;выводим часное

    POP BX
    POP CX
    POP DX
    LOOP DIVI   ;повторяем процедуру еще 2 раза.
    RET


FUN_CALC ENDP

GET_INTEGER PROC

    MOV AH,0AH ;???? ??????
    XOR DI,DI
    MOV DX,OFFSET BUFFER
    INT 21H
    MOV DL,0AH ;???????????? ?????? ??????
    MOV AH,02 ;????? ?? ?????
    INT 21H

    MOV SI, OFFSET BUFFER+1
    CMP BYTE PTR [SI], 0
    JZ ERG11

    MOV SI, OFFSET BUFFER+1
    CMP BYTE PTR [SI], 1
    JNZ CON

    MOV SI,OFFSET BUFFER+2
    MOV CL,[SI]
    CMP CL,'0'
    JZ CON
    JL ERG1


    CON:
    MOV SI,OFFSET BUFFER+2
    CMP BYTE PTR [SI],"+"
    JZ P1
    CMP BYTE PTR [SI],"-"
    JNZ P2
    MOV DI,1
    P1:
    INC SI
    P2:
    XOR AX,AX
    MOV BX,10
    P3:
    MOV CL,[SI]
    CMP CL,0DH
    JZ ENDIN


    CMP CL,'0'
    JL ERG1
    CMP CL,'9'
    JA ERG2

    SUB CL,'0'
    MUL BX
    JC ERG3
    ADD AX,CX
    JC ERG4
    CMP AX, -32768
    JA ERG5
    CMP DI, 1
    JE CONT
    CMP AX, 32767
    JA ERG

    CONT:
    INC SI
    JMP P3

    ERG:
    MOV DX, OFFSET ERROR6
    MOV AH,09
    INT 21H
    MOV DI,2
    RET


    ERG1:
    MOV DX, OFFSET ERROR1
    MOV AH,09
    INT 21H
    MOV DI,2
    RET

    ERG11:
    MOV DX, OFFSET ERROR11
    MOV AH,09
    INT 21H
    MOV DI,2
    RET

    ERG2:
    MOV DX, OFFSET ERROR2
    MOV AH,09
    INT 21H
    MOV DI,2
    RET

    ERG3:
    MOV DX, OFFSET ERROR3
    MOV AH,09
    INT 21H
    MOV DI,2
    RET


    ERG4:
    MOV DX, OFFSET ERROR4
    MOV AH,09
    INT 21H
    MOV DI,2
    RET

    ERG5:
    MOV DX, OFFSET ERROR5
    MOV AH,09
    INT 21H
    MOV DI,2
    RET

    ENDIN:
    CMP DI,1
    JZ P4
    ret

    P4:
    NEG AX
    RET

GET_INTEGER ENDP

PRINT_INTEGER PROC

    MOV BX, AX
    OR BX, BX
    JNS ML
    MOV AL, '-'
    INT 29H
    NEG BX
    ML:
    MOV AX,BX
    XOR CX,CX
    MOV BX,10
    M2:
    XOR DX,DX
    DIV BX
    ADD DL,'0'
    PUSH DX
    INC CX
    TEST AX,AX
    JNZ M2
    M3:
    POP AX
    INT 29H
    LOOP M3

    RET

PRINT_INTEGER ENDP

CODE ENDS
END START