Олимпийские кольца разных цветов

;Пример из книги:
;Рудаков П.И., Финогенов К.Г. программируем на языке ассемблера IBM PC - Изд. 2-е. - Обнинск:
;Издательство "Принтер", 1997.-584 с., илл.
 
;Пример 84.1. Вычисление координат точек, расположенных на окружности
;и вывод их на экран
 
.386
 
data    segment use16
 
x360            dd      180.0           ;константа перевода градусы-радианы
x36             dw      360             ;число точек на окружности
forcolor        db      10              ;салатовый цвет
;Координаты центра окружности
xc              dw      320
yc              dw      175
;Значение радиуса по осям
ratiox          equ     16              ;Соотношение строн монитора: 4:3 или 16:9
ratioy          equ     9
sizex           equ     640             ;Размер экрана при режиме 10h: 640x350
sizey           equ     350
_rx             equ     100
;_ry            equ     (_rx*ratiox*sizey)/(ratioy*sizex)       ;<-- Так будет переполнение и неверный результат
_ry             equ     (((_rx*sizey)/ratioy)*ratiox)/sizex
 
rx              dw      _rx             ;100
ry              dw      _ry             ;70
;Переменные
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, forcolor
        mov     BH, 0
;       fld     yc1                     ;Это универсальная процедура расчитана на
;       fistp   yc                      ;несколько примеров, поэтому в ней присутствуют
                                        ;"лишние" команды и ссылки на несуществующие переменные
        mov     DX, yc
;       fld     xc1
;       fistp   xc
        mov     CX, xc
        sub     CX, x
        sub     DX, y
        int     10h
        pop     CX
 
        ret
 
point           endp
 
;Главная процедура
main            proc
 
        mov     AX, data                ;Инициализация регистра DS
        mov     DS, AX
 
        mov     AH, 0h                  ;Установка графического режима
        mov     AL, 10h         ;Режим 10h (640x350)
        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
 
;Задержка до нажатия клавиши
        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