Assembler.Lab.8

        org 100h
jmp     EntryPoint
;=================================================================
; Раздел переменных
;=================================================================
Coordinates         dw      100*100 + 50
Iteraions1          dw      100
Iteraions2          dw      80
Iteraions3          dw      60
Iteraions4          dw      40
Iteraions5          dw      20
TriangleConst       dw      319
AdditionConst       dw      2
;=================================================================
EntryPoint:
    mov ax,13h
    int 10h
    push 0A000h
    pop es

    mov al,0Fh
    mov di,[Coordinates]
    mov si,1
    mov cx,[Iteraions1]
    call PaintingLoop

    mov al,0Eh
    mov di,[Coordinates]
    mov si,1
    mov cx,[Iteraions2]
    call PaintingLoop

    mov al,0Dh
    mov di,[Coordinates]
    mov si,1
    mov cx,[Iteraions3]
    call PaintingLoop

    mov al,0Ch
    mov di,[Coordinates]
    mov si,1
    mov cx,[Iteraions4]
    call PaintingLoop

    mov al,0Bh
    mov di,[Coordinates]
    mov si,1
    mov cx,[Iteraions5]
    call PaintingLoop

    mov ah,0
    int 16h
    mov ax,3
    int 10h
    ret

;=================================================================
; Дурка имени Проце
;=================================================================
 PaintingLoop:
    push cx
    mov cx,si
    rep stosb
    add di,[TriangleConst]
    sub di,si
    add si,[AdditionConst]
    pop cx
    loop PaintingLoop
ret