Advertisement
Guest User

Untitled

a guest
Nov 26th, 2014
147
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. mov X_0, 300    ; координаты центра круга
  2.         mov Y_0, 100
  3.         mov R, 35       ; радиус круга
  4.         call    ROUND       ; рисуем круг
  5.  
  6.  
  7. ROUND   proc
  8. ;                 ============
  9.         mov     X, 0                    ; начальное значение Х
  10.         mov     ax, R
  11.         mov     Y, ax                   ; начальное значение У
  12.         shl     ax, 1
  13.         mov     dx, 3
  14.         sub     dx, ax                  ; вычислено начальное значение управляющей переменной d0 = 3-2*R
  15.  
  16. L:      cmp     dx, 0       ; сравниваем d с нулем
  17.         jl  S       ; если меньше нуля, то это точка S
  18.         mov     ax, X               ; Точка T. Вычисляем новое d
  19.         sub     ax, Y               ; как X-Y
  20.         shl     ax, 2       ; умноженное на 4
  21.         add     ax, 10          ; плюс 10
  22.         add     dx,ax               ; плюс старое значение d
  23.         dec Y       ; Уменьшаем Y
  24.         jmp DISP
  25. S:      mov     ax, X               ; Точка S. Вычисляем новое D как Х
  26.         shl     ax, 2       ; умноженное на 4
  27.         add     ax, 6       ; плюс 6
  28.         add     dx, AX              ; плюс старое значение d
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement