Замена символов в строке - Assembler

Узнай цену своей работы

Формулировка задачи:

В общем задача - заменить все точки в двух строках на восклицательные знаки. Пробую это сделать для второй строки сначала - не выходит.
Листинг программы 
  1. assume cs: code
  2.  
  3. data1 segment
  4.     buffer db 254,0,254 dup ('$')
  5.     str1 db 'enter  string:', 0Dh, 0Ah, '$'
  6.     str3 db 0Dh, 0Ah, '$'
  7.     str2 db 'result:', 0Dh, 0Ah, '$'
  8. data1 ends
  9.  
  10. data2 segment
  11.     buffer2 db 254,0,254 dup ('$')
  12.     str4 db 'enter  string:', 0Dh, 0Ah, '$'
  13.     str6 db 0Dh, 0Ah, '$'
  14.     str5 db 'result:', 0Dh, 0Ah, '$'
  15. data2 ends
  16.  
  17. code segment
  18. start:
  19.    ;Ввод строки 1
  20.     mov ax, data1
  21.     mov ds, ax
  22.     
  23.     mov ah,09h
  24.     mov dx, offset str1 
  25.     int 21h
  26.  
  27.     mov ah,0ah
  28.     mov dx, offset buffer  
  29.     int 21h
  30.  
  31.     mov ah,09h
  32.     mov dx, offset str3
  33.     int 21h
  34.  
  35.    ;;;;; Ввод строки 2
  36.     
  37.     mov ax, data2
  38.     mov ds, ax
  39.  
  40.     mov ah,09h
  41.     mov dx, offset str4
  42.     int 21h
  43.  
  44.     mov ah,0ah
  45.     mov dx, offset buffer2  
  46.     int 21h
  47.  
  48.     mov ah,09h
  49.     mov dx, offset str6
  50.     int 21h
  51.  
  52. ;;;;;; Очистка экрана
  53.     mov ah,0
  54.     mov al,2
  55.     int 10h
  56.  
  57. ;;;; Вывод строки 1
  58.     mov ax,data1
  59.     mov ds,ax
  60.  
  61.     mov ah,09h
  62.     mov dx, offset str2
  63.     int 21h
  64.  
  65.     mov ah,09h
  66.     lea dx, buffer+2
  67.     int 21h
  68.  
  69.     mov ah,09h
  70.     mov dx, offset str3
  71.     int 21h
  72.  
  73. ;;;; Вывод строки 2
  74.     mov ax, data2
  75.     mov ds, ax    
  76.  
  77.     mov ah,09h
  78.     mov dx, offset str5
  79.     int 21h
  80.  
  81.     mov ah,09h
  82.     lea dx, buffer2+2
  83.     int 21h
  84.     ;;;
  85.  
  86. ;;;;;   Замена . на !
  87.      mov ax, data2
  88.      mov ds, ax  
  89.      MOV  AL,'.'  ;Искомый символ.
  90.      CLD                    ;Установка флага направления в 0.
  91.               MOV  CX,254        ;Макс. длина поля buffer2
  92.               LEA  DI,buffer2         ;Адрес поля buffer2
  93.               REPNE SCASB            ;Поиск.
  94.               JNZ  K20               ;Символ найден?
  95.           DEC  DI                ;Да - уменьшить адрес.
  96.               MOV  BYTE PTR[DI],21H
  97.      K20:      RET
  98. ;;;;; Вывод строки 2 после изменения
  99.     
  100.     mov ah,09h
  101.     mov dx, offset str6
  102.     int 21h
  103.     
  104.     mov ah,09h
  105.     mov dx, offset str5
  106.     int 21h
  107.  
  108.     mov ah,09h
  109.     lea dx, buffer2+2
  110.     int 21h
  111.  
  112. quit:
  113.     mov ax, 4c00h
  114.     int 21h
  115.     code ends
  116.     end start

Решение задачи: «Замена символов в строке»

textual
Листинг программы 
  1. dos_inp macro lbl, sz
  2. _ib_    struc
  3. max db sz
  4. len db ?
  5. bf  db sz dup('$')
  6. _ib_    ends
  7. lbl _ib_ <>
  8. endm
  9.  
  10. .model  small
  11. .386
  12. .stack
  13. .data
  14. entr    db 0Dh, 0Ah,'enter  string:$'
  15. crlf    db 0Dh, 0Ah, '$'
  16. rslt    db 0Dh, 0Ah,'result:$'
  17. dos_inp buffer, 80
  18. dos_inp buffer2,80
  19.  
  20. .code
  21. start:
  22. ;Ввод строки 1
  23.     mov ax, @data
  24.     mov ds, ax
  25.     mov es, ax
  26.  
  27.     mov ah,09h
  28.     lea dx, entr
  29.     int 21h
  30.  
  31.     mov ah,0ah
  32.     lea dx, buffer
  33.     int 21h
  34.  
  35.     mov ah,09h
  36.     lea dx, crlf
  37.     int 21h
  38.  
  39. ;;;;; Ввод строки 2
  40.     mov ah,09h
  41.     lea dx, entr
  42.     int 21h
  43.  
  44.     mov ah,0ah
  45.     lea dx, buffer2
  46.     int 21h
  47.  
  48. ;;;; Вывод строки 1
  49.  
  50.     mov ah,09h
  51.     lea dx, rslt
  52.     int 21h
  53.  
  54.     mov ah,09h
  55.     lea dx, buffer.bf
  56.     int 21h
  57.  
  58. ;;;; Вывод строки 2
  59.  
  60.     mov ah,09h
  61.     lea dx, rslt
  62.     int 21h
  63.  
  64.     mov ah,09h
  65.     lea dx, buffer2.bf
  66.     int 21h
  67.  
  68. ;;;;;   Замена . на !
  69.     MOVzx   CX, buffer2.len     ;Макс. длина поля buffer2
  70.     lea si, buffer2.bf      ;Адрес поля buffer2
  71. l1:;                ;Поиск.
  72.     lodsb
  73.     cmp al, 2Eh
  74.     JNZ K20         ;Символ найден?
  75.     MOV BYTE PTR[si-1], 21h
  76. K20:    loop    l1
  77.  
  78.     mov ah,09h
  79.     lea dx, rslt
  80.     int 21h
  81.  
  82.     mov ah,09h
  83.     lea dx, buffer2.bf
  84.     int 21h
  85.  
  86. quit:
  87.     mov ax, 4c00h
  88.     int 21h
  89.     end start

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут