Вывод строки символов в обратном порядке

;гр.А-8-10
;Л*бор*тор**я р*бот* №4 "Обр*ботк* строк "
;В*ри**т: № 16 Н*пис*ть прогр*мму, котор*я бы и*вертиров*л* (зерк*ль*о 
; отобр*ж*л*) исход*ую строку , Pascal-string  
;
.model small
.stack 100h
.data
    string  db  20,'myiaruN avokebzamlA'     ;м*ссив слов
    istring db $-string dup (?)
    str_len db  ?       ; переме***я для хр**е*ия дли*ы строки
.code
    mov ax,@data
    mov ds,ax           ;и*ици*лиз*ция ES
        mov si,offset string    ;уст**овк*  si ** **ч*ло string
    mov di,offset str_len
    dec di
    
    mov bx,[si]             ;сохр**е*ие дли*ы строки в п*мяти
    mov str_len,bl          ;и
    mov cl,str_len          ;з*грузк* ее в cx
                        ;переход к первому элеме*ту строки
    inc si                
    cld         ;"просмотр строки вперед"
peresilka:
    lodsb           ; з*грузк* э-т* строки DS:SI -> AL
    mov [di],al     ; з*пис*ть этот элеме*т в [di]
    dec di
    loop peresilka      ; повторить СХ р*з
exit:   
    
        mov di,offset istring   ;з*пись з**че*ия дли*ы строки
        mov bl,str_len          ;
    mov istring[di],bl       ;
    mov cl,bl
vivod:
    mov ah,02h
    mov dl,[di]
    inc di
    int 21h
    loop vivod
    
 
    mov ah,4ch              ;выход в DOS
    int 21h                 ;
end

;гр.А-8-10
;Л*бор*тор**я р*бот* №4 "Обр*ботк* строк "
;В*ри**т: № 16 Н*пис*ть прогр*мму, котор*я бы и*вертиров*л* (зерк*ль*о
; отобр*ж*л*) исход*ую строку , Pascal-string
;
.model  small
.stack  100h
.data
string  db len,'В чащах юга жил-был цитрус. Да, но фальшивый экземпляр!0123456789',0Dh,0Ah;м*ссив слов
len = $ - string
.code
start:  mov ax,@data
    mov ds,ax           ;и*ици*лиз*ция ES
    mov si,offset string    ;уст**овк* si ** **ч*ло string
    lodsb
    cbw
    mov cx, ax
    dec cx
    push    cx
@@: lodsb
    int 29h
    loop    @B
    dec si
    pop cx
    std
@@: lodsb
    int 29h
    loop    @B
    cld
    xor ax,ax
    int 16h
 
 
    mov ah,4ch          ;выход в DOS
    int 21h         ;
    end start

use16
org 100h
 
    mov si,string    ; адрес начала строки
    mov di,gnirts   ; адрес переменной начала перевёрнутой строки
    xor ch,ch        ; обнулить старшую полвину
    mov cl,[str_len] ;загрузить длинну строки (число знаков)
    add di,cx        ; получить адрес последнего знака перевёрнутой строки +1
    dec di           ; получить адрес последнего знака перевёрнутой строки
    
    
    cld         ;"просмотр строки вперед"
peresilka:
    lodsb           ; з*грузк* э-т* строки DS:SI -> AL
    mov [di],al     ; з*пис*ть этот элеме*т в [di]
    dec di          ; предыдущий адрес строки приёмника
    loop peresilka      ; повторить СХ раз
 
; вывод строки
    mov ah,9h ; Функция DOS 09H: Выдать строку до знака окончания строки "$"
    mov dx,gnirts   ; адрес начала перевёрнутой строки
    int 21h
 
    mov ah,4ch              ;выход в DOS
    int 21h                 ;
 
 
    string  db '$','myiaruN avokebzamlA'     ;массив слов начинающийся со знака окончания строки
    str_len db $-string  ; всегда думал что длиина строки при помощи " $-строка " определяется 
    ; таким выражением в следующей сразу за строкой переменной (в книжке какойто видел)
    gnirts db 0 dup (?)  ; string наоборот будет тут

; masm dos exe #
.model small
.stack 100h
.data
    string  db  'myiaruN avokebzamlA$'    
    lenstring = $-string-1
.code
start:  mov ax,@data
    mov ds,ax
    mov si,offset string          
    mov dx,si
    mov bx,lenstring
    mov cx,bx
    shr cx,1
a1: lodsb
    lea bx,[bx+0FFFEh]
    xchg al,[si+bx]
    mov [si-1],al
    loop a1
    mov ah,9
    int 21h
    mov ah,0
    int 16h
    mov ah,4Ch              
    int 21h                 
end start

;А-8-10
;обработка строк 
;программа , которая бы инвертировала (зеркально отображала) исходную строку, Pascal- String
.model small
.stack 100h
.data
    string  db  20,'myiaruN avokebzamlA'     ;массив слов
    istring db $-string dup (?)
    str_len db  ?       ; переменная для хранения длины строки
.code
    mov ax,@data
    mov ds,ax           ; инициализация  ES
        mov si,offset string    ;установка*si **на начало  string
    mov di,offset str_len
    dec di
    
    mov bx,[si]             ;сохранение длины строки в памяти 
    mov str_len,bl          ;и
    mov cl,str_len          ;загрузка ее в cx
                        ;переход к первому элементу строки 
    inc si                
    cld         ;"просмотр строки вперед"
peresilka:
    lodsb           ; загрузка элемента строки  DS:SI -> AL
    mov [di],al     ;записать этот элемент в  [di]
    dec di
    loop peresilka      ;повторить СХ раз
exit:   
    
        mov di,offset istring   ;запись значения длины строки
        mov bl,str_len          ;
    mov istring[di],bl       ;
    mov cl,bl
vivod:
    mov ah,02h
    mov dl,[di]
    inc di
    int 21h
    loop vivod
    
 
    mov ah,4ch              ;выход в  DOS
    int 21h                 ;
end

; masm dos exe #
.model small
.stack 100h
.data
    len dw 7
    string  db  'myiaruN avokebzamlA$'    
    lenstring = $-string-1
.code
start:  mov ax,@data
    mov ds,ax
    mov si,offset string          
    mov dx,si
    mov bx,len
    mov string[bx],'$'
    mov cx,bx
    shr cx,1
a1: lodsb
    lea bx,[bx+0FFFEh]
    xchg al,[si+bx]
    mov [si-1],al
    loop a1
    mov ah,9
    int 21h
    mov ah,0
    int 16h
    mov ah,4Ch              
    int 21h 
end start