Вычеркните из введенной строки буквы, стоящие на нечётных местах. Выведите результат.

lodsw
stosb

    format MZ
    heap    0
    stack   100h
    entry   main:start
segment main    use16
start:  mov ax,data_segment
    mov ds,ax
    mov es,ax
; Вывод на экран 
    mov     AH, 09h
    mov     DX, req
    int     21h
; ввод строки
    mov ah, 0Ah
    mov dx, inpbuf
    int 21h
;;
; добавляем '$' в хвост строки
    movzx   bx, byte [len] 
    add bx, buf
    mov byte [bx],'$'
; новая строка
    mov     AH, 09h
    mov     DX, crlf
    int     21h
 
; Вывод на экран 
    mov     AH, 09h
    mov     DX, buf
    int     21h
; выход
    mov ah, 4Ch
    int 21h
segment data_segment use16 
crlf:   db  0Dh,0Ah,'$'
req:    db  'Enter string:$'
inpbuf: db  255         ; наибольшая длина строки
len:    db  ?                       ; сюда вернется настоящая длина
buf:    db  255 dup(?)              ; тут будет то, что ввели

.386c
.model small
.stack  256
_text_  segment para public use16
    assume  cs:_text_, ds:_data_, es:_data_
    
start:  
    mov ax, seg _data_
    mov ds, ax
    mov es, ax
; Вывод на экран 
    mov     ah, 09h
    lea     dx, req
    int     21h
; ввод строки
    mov ah, 0Ah
    lea dx, inpbuf
    int 21h
;;
; добавляем '$' в хвост строки
    movzx   bx, byte ptr len
    add bx, offset buf
    mov byte ptr [bx],'$'
; новая строка
    mov     ah, 09h
    lea     dx, crlf
    int     21h
 
; Вывод на экран 
    mov     ah, 09h
    lea     dx, buf
    int     21h
; выход
    mov ah, 4Ch
    int 21h
_text_  ends
_data_  segment para use16 
;.data
crlf    db  0Dh,0Ah,'$'
req db  'Enter string:$'
inpbuf  db  255         ; наибольшая длина строки
len db  ?                       ; сюда вернется настоящая длина
buf db  255 dup(?)              ; тут будет то, что ввели
_data_  ends
    end start