Подобие гиперболы

Title polinom
.Model SMALL
.stack  256             ;сегмент стека 256 байт
.486                ;используем расширенную систему команд
.data               ;сегмент данных
mas_a DW 7, 10, -12, 6, 8       ;массив коэффициентов полинома ai
NAMBER DW 0         ; номер отсчета для значений Х
number dw 0
M DW 180
G DW -180               ; масштабный коэффициент для вывода графика
X DD -7.0
O DD -7.0               ; начальное значение аргумента Х
step DD 0.1             ; шаг изменения аргумента Х
N DW 4
L DW 2              ; порядок полинома
Y DD 0              ; переменная для хранения значения полинома
J DD 0
.code               ; сегмент кодов
;============== инициализация графического ре-жима============
InitGraph PROC 
    PUSHA               ;все регистры в стек
    MOV AH, 00                      ;установить режим экрана
    MOV AL, 13h             ;320x200x256
    INT 10h             ;средствами BIOS
    POPA                ;извлечение всех регистров общего назначения
    RET             ;возврат процедуры
InitGraph ENDP          ;конец процедуры
;============== закрытие графического режи-ма=================
CloseGraph Proc 
    MOV AX, 3           ;текстовый режим 25x80
    INT 10h             ;BIOS
    RET
CloseGraph ENDP 
;===============Очистка экрана============================ 
CLEAR PROC 
    PUSHA               ;все регистры общего назначения в стек
    MOV CX, 64000           ;число пикселов экрана
    MOV AX, 0A000h          ;адрес графической видеопамяти
    MOV ES, AX              ;в ES
    XOR DI, DI          ;очистка регистра DI
    CLD         ;df=0
    REP STOSB       ;сохранение строки байтов
    POPA
    RET
CLEAR ENDP
;===============ожидание нажатия клавиши==================     
 WaitKey PROC 
    PUSHA           ;поместить в стек все регистры
    MOV AH, 01h     ;ввод с клавиатуры 
    INT 21h         ;прерывание DOS
    POPA            ;снять все регистры из стека
    RET
WaitKey ENDP 
;===============РИСОВАНИЕ ОСЕЙ========================
Osi PROC
    PUSHA
    MOV CX, 10      ;начало горизонтальной
    MOV DX, 100     ;оси
    MOV AL, 00000110b   ;цвет оси желтый
o1: MOV AH, 12      ;вывод точки      
    INT 10h         ;вызов BIOS
    INC CX          ;построить 
    CMP CX, 300     ;300
    JNE o1          ;точек
;---------------------------------------------------------
    MOV CX, 160          ;начало вертикальной
    MOV DX, 0        ;оси
    MOV AL, 00000110b    ;цвет оси желтый
o2: MOV AH, 12       ;вывод точки
    INT 10h
    INC DX          
    CMP DX, 200     ;200 точек
    JNE o2
    POPA
    RET
Osi ENDP
;=================Вывод точки на экран (II четверть)===================
;ecx, edx - координаты точки, color - цвет
PutPixel PROC
    PUSHA; 
    MOV AL,02H  ;цвет пиксела
    mov EDX, 1300       ;номер строки 
    sub EDX, Y      ;вывода
    NOP         ;программная задержка
    MOV CX, -50     ;номер столбца 
    add CX, Namber      ;вывода
    NOP         ;программная задержка
    MOV AH,12       ;вывести пиксел
    INT 10h             ;на экран
    NOP
    POPA        ;извлечение всех регистров из стека
    RET
PutPixel ENDP
xor AL,al
xor ah,ah
;=================Вывод точки на экран (IV четверть)===================
;ecx, edx - координаты точки, color - цвет
PutPixel1 PROC
    PUSHA; 
    MOV AL,1EH  ;цвет пиксела
    mov EDX, 1570       ;номер строки 
    sub EDX, J      ;вывода
    NOP         ;программная задержка
    MOV CX, 50      ;номер столбца 
    add CX, Number      ;вывода
    NOP         ;программная задержка
    MOV AH,12       ;вывести пиксел
    INT 10h             ;на экран
    NOP
    POPA        ;извлечение всех регистров из стека
    RET
PutPixel1 ENDP
xor AL,al
xor ah,ah
;=====================Основная программа===============
Start:  mov AX, @DATA   ;начальная загрузка
    MOV DS, AX      ;регистра DS,инициализация сегмента данных
    call CLEAR      ;вызов процедуры очистки экрана
    call InitGraph      ;инициализация графического режима
    call Osi        ;построение осей
    call WaitKey        ;пауза
@2:mov CX, N        ;загрузить счетчик циклов
    xor SI,SI           ;для вычисления полинома
    finit           ;инициализировать сопроцессор
    fild mas_a[SI]      ;загрузить целое a1 в st(0)
    fld X           ;загрузить вещественное X в st(1)
@1:fmul         ;перемножть  st(0):=(st(0))*(st(1))
    inc SI          ;перейти к следующему
    inc SI          ;ai
    fiadd mas_a[SI]     ;добавить очередное ai к произведению
    fld X           ;загрузить X в st(1) 
    loop @1         ;перейти на метку, если CX не 0
    fxch st(1)          ;обменять st(0) и st(1)
    fidiv M         ;разделить на масштабный коэффициент M=180
    frndint         ;округлить до целого
    fistp Y         ;переслать (st(0)) в Y
    call PutPixel       ;вывести полученное значение на график
    fadd step           ;увеличить на шаг st(0):=(st(0))+0.1
    fstp X          ;сохранить st(0)+0.1 в память Z
    inc NAMBER      ;перейти к следующему отсчету по X
    cmp NAMBER,135      ;повторить еще 199 раз
    jnz @2      ;если CX<>0
 
xor cx, cx
@4:mov CX, N        ;загрузить счетчик циклов
    xor SI,SI           ;для вычисления полинома
    finit           ;инициализировать сопроцессор
    fild mas_a[SI]      ;загрузить целое a1 в st(0)
    fld o           ;загрузить вещественное X в st(1)
@3:fmul         ;перемножть  st(0):=(st(0))*(st(1))
    inc SI          ;перейти к следующему
    inc SI          ;ai
    fiadd mas_a[SI]     ;добавить очередное ai к произведению
    fld O           ;загрузить X в st(1) 
    loop @3         ;перейти на метку, если CX не 0
    fxch st(1)          ;обменять st(0) и st(1)
    fidiv G         ;разделить на масштабный коэффициент M=180
    frndint         ;округлить до целого
    fistp J         ;переслать (st(0)) в Y
    call PutPixel1      ;вывести полученное значение на график
    fadd step           ;увеличить на шаг st(0):=(st(0))+0.1
    fstp O          ;сохранить st(0)+0.1 в память Z
    inc NuMBER      ;перейти к следующему отсчету по X
    cmp NuMBER,130      ;повторить еще 199 раз
    jnz @4      ;если CX<>0
xor cx, cx
    call WaitKey        ;пауза
    call CloseGraph     ;закрыть графический режим
    MOV AX, 4C00h       ;и выйти
    INT 21h             ; в ДОС
    END Start