.model small
.data ; 2
    oldMode db 0
    ;msg1 dw 'g', 'o', 'o', 'd', ' ', 's', 't', 'r', 'i', 'n', 'g'
    msg1 dw 'g', 'n', 'i', 'r', 't', 's', ' ', 'd', 'o', 'o', 'g'
    count db 0
    x db 40
    y db 0
.code
    mov AX, @data
    mov DS, AX

    mov CX, 11 ; длина массива
    sub SI, SI

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

    ; Устанавливаем текстовый режим
    mov AL, 00h ; 03h
    mov AH, 0
    int 10h

    ; Устанавливаем позицию курсора
    ;mov DH, 20 ; строка
    ;mov DL, 8 ; столбец
    ;mov BH, 0 ; номер страницы
    ;mov AH, 2
    ;int 10h
L1:
    mov BX, [msg1+SI]
    cmp BX, 0
    jge L2
    inc count
L2:
    mov AX, x
    dec AX
    mov x, AX
    mov AX, y
    inc AX
    mov y, AX
    ;dec x
    ;inc y
    mov DH, y ; строка
    mov DL, x ; столбец
    mov BH, 0 ; номер страницы
    mov AH, 2
    int 10h

    mov AH, 6
    mov DL, [msg1+SI]
    int 21h
    add SI, 2
    loop L1

;   msg1 db "HI."

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

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

;   int 20h
    mov AH, 4Ch
    int 21h
end