Строку вывести на экран посимвольно: каждый символ в отдельной строке

cseg segment
org 100h
start:  mov si,0
    mov cx,lnt
    mov ah,02h
ckl:    mov dl,str[si]
    int 21h
    inc si
    mov dl,13
    int 21h
    mov dl,10
    int 21h
    loop ckl
 
    int 20h
 
str db 'Привет!'
lnt=$-str
 
cseg ends
 
end start

cseg segment
org 100h
start:  mov si,0    ;индекс(смещение) отн.str 1-го символа('П')
        mov cx,lnt  ;число символов
        mov ah,02h  ;ф-ция вывода символа на экран
ckl:    mov dl,str[si]  ;параметр этой ф-ции(текущий символ)
        int 21h     ;выводим символ
        inc si      ;в si теперь индекс след.символа
        mov dl,13   ;возврат каретки
        int 21h
        mov dl,10   ;перевод строки
        int 21h
        loop ckl    ;выполнить цикл cx раз
 
        int 20h     ;выход из программы
 
str db 'Привет!'  ;выводимая строка
lnt=$-str       ;ее длина в байтах
 
cseg ends
 
end start

.model tiny
.code
.286
org 100h
start:  mov ax,3
    int 10h; стираем с экрана и устанавливаем режим 80х25
    push 0B800h
    pop es; в ES адрес текстового видеобуфера
    xor di,di; левый верхний угол экрана
    mov ah,0Fh; атрибут надписи - черный фон, белые буквы
    mov si,offset msg; начало надписи
    mov cx,lng; количество букв
@@: lodsb; читаем символ
    stosw; выводим символ на экран
    add di,158; переходим на следующую строку 80*2-2=158
    loop @b
    mov ah,0; ждем пока не нажмут на клавиатуру
    int 16h
    ret; выходим из программы
msg db "Привет!"
lng = $-msg
end start

.model tiny
.code
.286
org 100h
start:mov  ax,3
      int  10h                 ;стираем с экрана и устанавливаем режим 80х25
      push 0B800h
      pop  es                  ;в ES адрес текстового видеобуфера
      mov  di,160*(lng-1)      ;di - начало строки под номером lng
      mov  si,offset msg+lng-1 ;последний символ надписи
      std                      ;устанавливаем df - будем выводить в обратном направлении
      @@:movsb                 ;выводим символ на экран
         sub di,159            ;переходим на предыдующую строку
      jnl @b
      int 16h
ret                            ;выходим из программы
msg db "Привет!"
lng = $-msg
end start

cseg segment
assume cs:cseg,ds:dseg
start:  mov ax,dseg
    mov ds,ax
    mov si,0        ;индекс(смещение) отн.str 1-го символа('П')
        mov cx,lnt      ;число символов
        mov ah,02h      ;ф-ция вывода символа на экран
ckl:    mov dl,str[si]  ;параметр этой ф-ции(текущий символ)
        int 21h         ;выводим символ
        inc si          ;в si теперь индекс след.символа
        mov dl,13       ;возврат каретки
        int 21h
        mov dl,10       ;перевод строки
        int 21h
        loop ckl        ;выполнить цикл cx раз
 
        mov ax,4c00h
    int 21h
 
cseg ends
 
dseg segment
 
str db 'Привет!'        ;выводимая строка
lnt=$-str               ;ее длина в байтах
 
dseg ends
 
sseg segment stack
 
db 256 dup(0)
 
sseg ends
 
end start