ХАНДЫФАР

Программа, которая удаляет определённый символ из заданной строки. Возвращает обновлённую строку. В данном примере мы будем удалять символ 'o'.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db _"Microsoft Macro Assembler"
  8. ____strlen equ ($-string)
  9. ____newstr db _strlen dup(24h)
  10. data ends
  12. code segment public
  13. ____assume ds:data, cs:code
  15. ____main proc
  16. ________mov ____ax, seg data
  17. ________mov ____ds, ax
  18. ________mov ____es, ax
  20. ________mov ____cx, strlen
  21. ________lea ____di, es:[newstr]
  22. ________lea ____si, ds:[string]
  24. ____MainLoop:
  25. ________lodsb
  27. ________cmp ____al, 6Fh
  28. ________je _____Skip
  30. ________stosb
  32. ____Skip:
  33. ________loop ___MainLoop
  35. ________mov ____ah, 09h
  36. ________lea ____dx, ds:[newstr]
  37. ________int ____21h
  39. ________mov ____ax, 4C00h
  40. ________int ____21h
  41. ____main endp
  43. code ends
  44. end main
Программа, которая удаляет определённый символ из заданной строки. Возвращает обновлённую строку.
В данном примере мы будем удалять символ 'o'.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db _"Microsoft Macro Assembler"
  8. ____strlen equ ($-string) ; Вычисляем длину массива string
  9. ____newstr db _strlen dup(24h)
  10. data ends
  12. code segment public _____________; Начало сегмента кода
  13. ____assume ds:data, cs:code
  15. ____main proc ___________________; Начало процедуры main
  16. ________mov ____ax, seg data_____; Получаем адрес сегмента памяти данных и сохраняем его в ax
  17. ________mov ____ds, ax___________; Передаём адрес сегмента памяти данных из регистра ax в ds
  18. ________mov ____es, ax___________; Передаём адрес сегмента памяти данных из регистра ax в es
  20. ________mov ____cx, strlen_______; Копируем значение переменной strlen в регистр cx
  21. ________lea ____di, es:[newstr]__; Загружаем адрес переменной newstr в регистр-приёмник es:di
  22. ________lea ____si, ds:[string]__; Загружаем адрес переменной string в регистр-источник ds:si
  24. ____MainLoop:
  25. ________lodsb____________________; Загружаем байт из регистра-источника si в регистр al
  27. ________cmp ____al, 6Fh__________; Выполняем сравнение значения в регистре al c символом 'o'
  28. ________je _____Skip_____________; Если ZF=1, то прыгаем на метку Skip
  30. ________stosb____________________; Сохраняем байт из регистра al в регистре-приёмнике di
  32. ____Skip:
  33. ________loop ___MainLoop_________; Выполняем цикл пока CX≠0
  35. ________mov ____ah, 09h__________; Копируем значение функции вывода строки в регистр ah
  36. ________lea ____dx, ds:[newstr]__; Загружаем адрес переменной newstr в регистр ds:dx
  37. ________int ____21h______________; Вызываем прерывание DOS
  39. ________mov ____ax, 4C00h________; Копируем значение функции завершения в ah а значение в al
  40. ________int ____21h______________; Вызываем прерывание DOS
  41. ____main endp ___________________; Конец процедуры main
  43. code ends _______________________; Конец сегмента кода
  44. end main ________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda