Что нибудь уже написали?

Если не хотите с нами общаться, то не уверен, что дождетесь ответа...

Извините, не было возможности ответить..

Мы только начали изучать данный язык программирования, нужно слишком быстро выполнять задачи. В чем-то я примерно ориентируюсь, но пока не хватает знаний для написания работающей программы с нуля. Вы уже помогали с решением данной задачи https://rfpro.ru/question/110794 . Код по ссылке на ТАСМе правильно не работает, просто выдает строку различных символов. Понимаю, что достаточно внести какие-то изменения, но какие?

не было возможности

Пока Вы тут, ответьте на вопросы:
1)что у Вас есть;
2)текущая тема;
3)методичка-это что бы понять на каком уровне писать код.

вот ссылка на методичку https://vk.com/doc36747551_453535431?hash=cfab89ce9378197133&dl=4282949d88b10fbd9b . Сейчас лабораторная №2, 8 вариант. Больше ничего нет, сказали: разбирайтесь сами!

вот я ворона, написала текст задачи неправильно. исправляюсь: образовать строку из исходной, повторив i элемент 1 раз, 1+1 элемент - 1+1 раз, 1+2 - 1+2 раза

Мне кажется, все равно попутали i и 1
Надо понимать так?
Образовать строку из исходной, повторив i элемент 1 раз, i+1 элемент - 1+1=2 раза, i+2 - 1+2=3 раза ?

В этом коде из-за нескольких переносов движка портала - сбился формат.
Отформатировал заново:
[code lang=asm h=250]dos21 macro str
mov ah,09
mov dx,offset str
int 21h
endm
.model small
.stack 100h
.code
start: mov ax,@DATA
mov ds,ax
mov es,ax
;выводим приглашение к ввводу
dos21 enterStr;вводим строку
mov ah,0ah
mov dx,offset myStrMax
int 21h;ввод символа
;выводим приглашение к ввводу
dos21 enterSim
;вводим символ
mov ah,1
int 21h
mov ah,al;запомним эталонный символ
;готовимся обрабатывать строку
xor ch,ch
xor bx,bx;обнулим bx
cld
mov cl,myStrLen
mov si,offset myStr
mov di,offset getStr
;участок анализа
@@S0: push cx;в стек cx
lodsb ;в al один байт из строки mystr
or bx,bx;ВХ-флаг и счетчик
jnz @@S1;если ВХ обльше 0 -счет пошел
mov cx,1;влюбом случае 1
cmp ah,al;Проверяем текущий символ с введенным
jnz @@S2;если не равны выведем 1 символ
@@S1: inc bx;увеличим bx на единицу
mov cx,bx;занесем его в cx
@@S2: rep stosb; в стоку getstr записываем байт из al пока cx не равно нулю
pop cx;востанавливаем cx
loop @@S0;на метку цикла
;конец строки
mov byte ptr[di],'$'
dos21 endstr
dos21 getstr
mov ah,4ch
int 21h
.data
enterStr db 'Vvedite stroku: $'
enterSim db 'Vvedite simbol: $'
endStr db 0ah,0dh,'Polu4ennaya stroka: $'
;добавил переход на следующию строку
myStrMax db 6; максимальный размер буфера ввода
myStrLen db ?; размер буфера после считывания
myStr db 6 dup(?)
getStrMax db 22;=6+5+4+3+2+1+'$'
getStr db 22 dup(?)
end start [/code]

ну вообще, мне тоже кажется, что опечатка в тексте

Огромное спасибо!!! работает. у меня такой вопрос: можно вводить только буквы? после ввода других символов прекращается работа

В принципе такого быть не должно.