Разбить заданную строку на две части - Assembler

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

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

добрый день нужна программа, содержащая в себе подпрограмму, которая разбивает заданную строку на две части: первое слов (до первого пробела) и остальная часть строки (пробелы в начале строки убираются) после выполнения программы все слова выводятся в консоль по отдельности надыбал код не помню на каком сайте. проверил - работает. стал вникать в принципы ее реализации.. ии... всё )) ничего не понял может кто-то намекнуть на правильные ответы для возникших вопросов?)
Листинг программы 
  1. .186                                                ;чтобы можно было использовать push <число>
  2. assume cs:code, ds:data, es:data
  3. SSEG segment stack                 ;сегмент стека  
  4. db 400h dup (?)
  5. SSEG ends
  6. code segment para public 'code'
  7. start:
  8.  mov ax, data
  9.  mov ds, ax
  10.  mov es, ax                                         ;пусть es=ds=data     
  11.  
  12.  lea dx, sString
  13.  mov ah, 9
  14.  int 21h                                            ;ждем строку
  15.  
  16.  mov bMax, 80                                       ;задаем максимальное значение строки (в нулевом будет 80 - макс длина)
  17.  lea dx, bMax                                       ;в первом после ввода останется фактич длина, а со второй идут данные
  18.  mov ah, 0ah
  19.  int 21h                                            ;вводим строку
  20.  
  21.  lea dx, sResult
  22.  mov ah, 9
  23.  int 21h                                            ;выводим заголовок о выводе слов
  24.  
  25.  mov wAddr, offset bString                          ;адрес строки
  26. next:
  27.  push offset wAddr                                  ;адрес адреса строки
  28.  call FirstWord                                     ;разбиваем на подстроки
  29.  
  30.  test ax, ax                                        ;ax = адресу слова, =0 - одни пробелы
  31.  jz finish                                          ;в конце пробелы - на выход
  32.  mov dx, ax
  33.  mov ah, 9
  34.  int 21h                                            ;выведем слово
  35.  
  36.  mov ah, 2                                          ;на новую строку
  37.  mov dl, 0dh
  38.  int 21h
  39.  mov dl, 0ah
  40.  int 21h
  41.  cmp wAddr, 0                                       ;последнее слово?
  42.  jne next                                           ;продолжаем разбивать строку
  43. finish:
  44.  lea dx, sPress
  45.  mov ah, 9
  46.  int 21h                                            ;press any key
  47.  
  48.  mov ah, 8
  49.  int 21h                                            ;ждем any key
  50.  
  51.  mov ax, 4c00h
  52.  int 21h  ;bye
  53.  
  54.                                                    ;Разбор строки на первое слово и все остальное
  55.                                                    ;Исходная строка портится! В конце слова ставится $ для вывода по 9 функции
  56.                                                    ;Параметр - адрес слова с адресом строки
  57.                                                    ;Возвращается в ax адрес первого слова, в слове с адресом строки 
  58.                                                    ; возвращается адрес подстроки, начинающейся за первым словом или 0 для последнего слова
  59. ppStr equ [bp+4]                                   ;адрес адреса строки
  60. FirstWord proc
  61.  push bp
  62.  mov bp, sp
  63.  xor cx, cx                                        ;адрес первого слова
  64.  mov bx, ppStr                                     ;адрес адреса строки
  65.  mov si, [bx]                                      ;адрес строки
  66. SearchBegin:                                       ;цикл разбора строки
  67.  lodsb                                             ;очередной символ
  68.  cmp al, 0dh                                       ;конец строки
  69.  je FW_last                                        ;строка из одних пробелов
  70.  cmp al, ' '                                       ;пробел?
  71.  je SearchBegin                                    ;первые пробелы обходим
  72.  lea cx, [si-1]                                    ;адрес начала слова
  73. SearchEnd:                                         ;ищем конец слова
  74.  lodsb                                             ;очередной символ
  75.  cmp al, 0dh                                       ;конец строки
  76.  je FW_last                                        ;последнее слово
  77.  cmp al, ' '                                       ;конец слова?
  78.  jne SearchEnd                                     ;ищем пробел после слова
  79.  mov byte ptr [si-1], '$'                          ;поставим вместо пробела '$' для вывода
  80.  jmp FW_ret                                        ;на выход
  81. FW_last:                                           ;последнее слово или одни пробелы
  82.  mov byte ptr [si-1], '$'                          ;поставим вместо пробела '$' для вывода
  83.  xor si, si                                        ;больше слов нет
  84. FW_ret:
  85.  mov [bx], si                                      ;сохраним адрес второй подстроки или 0, если больше слов нет
  86.  mov ax, cx                                        ;возвращаем адрес первого слова для вывода
  87.  pop bp
  88.  ret 2                                             ;уберем из стека параметр
  89. FirstWord endp
  90. code ends
  91.  
  92. data segment para public 'data'
  93. sString db 0ah,'Enter string: $'
  94. sResult db 0ah,0ah,'Words:',0dh,0ah,'$'
  95. sPress db 0dh,0ah,'Press any key$'
  96.                                               ;буфер для ввода числовой строки (для функции 0ah)
  97. bMax db ?                                     ;максимальный размер буфера
  98. bCount db ?                                   ;реальный размер строки
  99. bString db 80 dup (?)                         ;сама строка
  100. wAddr dw ?                                    ;адрес анализируемой строки
  101. data ends
  102.  
  103.  end start
какой механизм использован в 16-17 строках? мы вносим в bMax максимальное значение строки, а после туда же пишем строку, которую нам необходимо в будущем анализировать? если так, то как мы получаем доступ к этой строке в процедуре, если название bMax после нигде не используется. я, конечно, читал о структуре буфера. первый байт - максимальная длина строки, второй - фактическая, а с третьего идет сами данные.. как-то это взаимосвязано?)

Решение задачи: «Разбить заданную строку на две части»

textual
Листинг программы 
  1. org 100h
  2. jmp start
  3.  
  4. mes0   db  13,10,'String: $'
  5. mes1   db  13,10,' Words: $'
  6. bMax   db  80               ; макс.размер буфера
  7. bLen   db  0                ; длина строки
  8. bStr   db  80 dup(0)        ; буфер источника
  9. buff   db  32 dup('$')      ; буфер приёмника
  10.  
  11. start:
  12.     mov   dx,mes0           ;
  13.     call  message           ;
  14.     mov   ah,0Ah            ; заполяем источник строкой юзера
  15.     mov   dx,bMax           ;
  16.     int   21h               ;
  17.  
  18.     mov   si,bStr           ; адрес начала строки для LODSB
  19. printWord:                  ;
  20.     call  findSpace         ; заполняем приёмный буфер
  21.     cmp   byte[buff],'$'    ; буфер пустой?
  22.     je    printWord         ;
  23.     mov   dx,mes1           ; в приёмнике что-то есть. мессага!
  24.     call  message           ;
  25.     mov   dx,buff           ; выводим данные из буфера
  26.     call  message           ;
  27.     jmp   printWord         ; ищем сл.слово в источнике
  28.  
  29. stop:                       ;
  30.     mov   al,7              ; бипер..
  31.     int   29h               ;
  32.     xor   ax,ax             ;
  33.     int   16h               ;
  34.     int   20h               ; выход!
  35.  
  36. ;нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн
  37. message: ;===================================================
  38.    mov   ah,9           ;
  39.    int   21h            ;
  40. ret                     ;
  41.  
  42. findSpace: ;=================================================
  43.     mov   cx,32         ; очистим приёмный буфер
  44.     mov   al,'$'        ;
  45.     mov   di,buff       ;
  46.     push  di            ;
  47.     rep   stosb         ;
  48. ;-----------------------;--
  49.     pop   di            ;
  50. @1: lodsb               ; читаем символ из SI
  51.     cmp   al,0Dh        ; всю строку юзера проверили?
  52.     je    endStr        ;
  53.     cmp   al,' '        ; пробел?
  54.     je    @2            ;
  55.     stosb               ; нет - сохраняем символ в приёмнике
  56.     jmp   @1            ; сл.символ..
  57. @2:                     ;
  58. ret                     ; выход из процедуры!
  59. endStr:                 ; выход из внешнего цикла!
  60.     pop   ax            ; снимаем CALL'овский адрес возврата
  61.     jmp   stop          ;

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

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

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

6   голосов , оценка 3.833 из 5

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

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

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