.model small
.data
    oldMode db 0
    x dw 230
    n dw 230
    y dw 0
    S dw 40
    count dw 1
    i dw 0
    increment dw 2
.code
    mov AX, @data
    mov DS, AX

    ; Получение текущего видео режима
    mov AH, 0Fh
    int 10H ; номер режима в AL
    mov oldMode, AL

    ; Переключение в графический режим
    mov AH, 0 ; Установка видео режима
    mov AL, 11h ; Номер режима
    int 10h

one1:
    mov CX, count ; Счетчик цикла
    add x, 2
    mov AX, n
    mov y, AX
one2: ; Отрисовка строк
    push CX
    mov AH, 0Ch ; Отрисовка точки
    mov AL, 1 ; Цвет точки
    mov BH, 0 ; Плоскость
    mov CX, x
    mov DX, y
    int 10h
    inc y
    pop CX
    loop one2
    mov AX, increment
    mov BX, 2
    mul BX
    add count, AX
    mov AX, increment
    sub n, AX
    inc i
    mov AX, S
    cmp i, AX
    JLE one1
    mov i, 0
    neg increment
    cmp increment, 0
    JL one1

    ; Ожидание нажатия клавиши
    mov AH, 10h
    int 16h

    ; Установка старого видео-режима
    mov AH, 0
    mov AL, oldMode
    int 10h

    ; Выход
    mov AH, 4Ch
    int 21h
end