Размер окружности

;кольца разных цветов
.386
 
data    segment use16
 
x360            dd      180.0           ;константа перевода градусы-радианы
x36             dw      360             ;число точек на окружности
 
;Значение радиуса по осям
ratiox          equ     16              ;Соотношение строн монитора: 4:3 или 16:9
ratioy          equ     9
sizex           equ     640             ;Размер экрана при режиме 12h(640x480): 640x350
sizey           equ     350
 
;=============Первая окружность==================================================
;Координаты центра окружности
xc              dw      110
yc              dw      180
;Значение радиуса по осям
_rx             equ     100
_ry             equ     (((_rx*sizey)/ratioy)*ratiox)/sizex
rx              dw      _rx             ;100
ry              dw      _ry             ;70
forcolor1        db      9              ; цвет кольца
;=============Вторая окружность==================================================
xc2              dw      320
yc2              dw      180
_rx2             equ     120
_ry2             equ     (((_rx*sizey)/ratioy)*ratiox)/sizex
rx2              dw      _rx             ;100
ry2              dw      _ry             ;70
forcolor2        db      5              ; цвет кольца
 
;===============конец окружностей=================================================
 
;Переменные
x               dw      ?               ;Текущие координаты точки окружности
y               dw      ?
angl            dw      1               ;Текущее значение угла
 
data    ends
 
text    segment use16
        assume CS:text, DS:data, SS:stk
 
;==============Первая окружность============================
;Подпрограмма изменения цвета пиксела
point           proc
        push    CX
        mov     CX, xc
        mov     AH, 0Ch
        mov     AL, forcolor1
        mov     BH, 0
        mov     DX, yc
        mov     CX, xc
        sub     CX, x
        sub     DX, y
        int     10h
        pop     CX
        ret
point           endp
;==============Вторая окружность============================
point2           proc
        push    CX
        mov     CX, xc2
        mov     AH, 0Ch
        mov     AL, forcolor2
        mov     BH, 0
        mov     DX, yc2
        mov     CX, xc2
        sub     CX, x
        sub     DX, y
        int     10h
        pop     CX
        ret
point2           endp
 
;==============конец 2 окружностей============================
 
;Главная процедура
main            proc
 
        mov     AX, data                ;Инициализация регистра DS
        mov     DS, AX
        mov     AH, 0h                  ;Установка графического режима
        mov     AL, 12h                 ;Режим 12h (640x480)
        int     10h
        mov     CX, x36                 ;Число шагов построения окружности
        finit                           ;Инициализация сопроцессора
        fldpi                           ;Загрузка в стек числа pi
        fld     x360                    ;Загрузка в стек числа 180
        fdiv                            ;pi/180, результат в ST
        fstp    x360                    ;Сохранение в памяти коэффициента
                                        ;перевода градусов в радианы
 
;==============Первая окружность============================
;Вычисление координат точек и вывод рисунка
do:
        fld     x360                    ;Коэффициент градус-радианы в стек
        fild    angl                    ;Очередное значение угла в стек
        fmul                            ;перевод в радианы
        fsincos                         ;sin(x) -> ST(1), cos(x) -> ST(0)
        fild    ry                      ;Загрузка радиуса по координате y
        fmul                            ;Вычисление координаты y
        fistp   y                       ;Запись её в память в формате целого
                                        ;числа с звлечением из стека
        fild    rx                      ;Загрузка радиуса по координате x
        fmul                            ;Вычисление координаты x
        fistp   x                       ;Запись её в память в формате целого
                                        ;числа с извлечением из стека
        fwait                           ;Ожидание завершения работы сопроцессора
        call    point                   ;Вывод точки на экран
        inc     angl                    ;Приращение угла
        loop    do
;==============Вторая окружность============================
do2:
        fld     x360                    ;Коэффициент градус-радианы в стек
        fild    angl                    ;Очередное значение угла в стек
        fmul                            ;перевод в радианы
        fsincos                         ;sin(x) -> ST(1), cos(x) -> ST(0)
        fild    ry2                     ;Загрузка радиуса по координате y
        fmul                            ;Вычисление координаты y
        fistp   y                       ;Запись её в память в формате целого
                                        ;числа с звлечением из стека
        fild    rx2                     ;Загрузка радиуса по координате x
        fmul                            ;Вычисление координаты x
        fistp   x                       ;Запись её в память в формате целого
                                        ;числа с звлечением из стека
        fwait                           ;Ожидание завершения работы сопроцессора
        call    point2                  ;Вывод точки на экран
        inc     angl                    ;Приращение угла
        loop    do2
 
;==============конец 3 окружностей=============================
;Задержка до нажатия клавиши
        mov     AH, 8
        int     21h
 
        mov     AX, 4C00h               ;Выод в DOS с кодом ошибки 0
        int     21h
 
main            endp
 
text    ends
 
stk     segment stack   'stack'
        db      1024 dup(?)
stk     ends
 
end     main