Напишите процедуру, которая сканирует строку для поиска первого вхождения ограничивающего символа

@allens · Регистрация: 03.11.2010

Author24 — интернет-сервис помощи студентам

Напишите процедуру, которая сканирует строку для поиска первого вхождения ограничивающего символа (например ',') и заменяет ограничивающий символ нулевым байтом. После вызова, если ограничивающий символ найден, в регистре SI содержится смещение символа, следующего за ограничителем. В противном случае SI=0. Входные параметры: ES : DI указывает на строку, а в регистре AL содержится ограничивающий символ
Заранее спасибо за помощь!

@zzzyyyxxx · 14.11.2011, 15:45

allens, выделить и сделать процедуру в этой проге, не составит труда (так что, покажи свои способности).
без комментариев:
.потому, что ввод и вывод в https://www.cyberforum.ru/asse... 80071.html был описан (вроде как, тебе там было всё понятно)
.сканирование есть в справочнике, цитировать нет смысла.

Assembler

.model small
.data
    string db 100,?,101 dup ('$')
.code 
start:
    mov ax,@data
    mov ds,ax
    mov es,ax
    
    mov ah,0ah
    lea dx,string
    int 21h  
  
        mov al,','
    lea di,string+2
    xor cx,cx
    mov cl,byte ptr es:[di-1]
    repnz scasb
    jnz next
    mov si,di
    mov byte ptr es:[di-1],0
next:
 
    mov byte ptr string[1],0ah
    mov ah,9
    lea dx,string+1
    int 21h
    
        mov ax, 4c00h
        int 21h
end start

@allens · 16.11.2011, 22:36 **[ТС]**

внутренняя процедура:

Assembler

.model small
.data
        string db 100,?,101 dup ('$')
.code 
start:
        mov ax,@data
        mov ds,ax
        mov es,ax
        
        mov ah,0ah
        lea dx,string
        int 21h  
  
        mov al,','
        lea di,string+2
        xor cx,cx
        mov cl,byte ptr es:[di-1]
        call procedure
 
        mov si,di
        mov byte ptr es:[di-1],0
next:
 
        mov byte ptr string[1],0ah
        mov ah,9
        lea dx,string+1
        int 21h
        
        mov ax, 4c00h
        int 21h       
        
        
procedure proc
            repnz scasb
        jnz next
        ret
        procedure endp
        
end start

@zzzyyyxxx · 16.11.2011, 22:44

как минимум косяк в 35стр, (дальше не смотрел)
т.е. при переходе по метке, у тебя в стеке остаётся адрес 19 строки, и соответственно при выходе из проги будет переход на эту же(19) строку.

ПОДУМАЙ ЕЩЁ!
да и сама процедура не красивая.

@allens · 17.11.2011, 00:45 **[ТС]**

не красива по какой причине!?
в оформлении или в корректности выполнения?

@zzzyyyxxx · 17.11.2011, 00:54

ну как-то смысла нет в процедуре писать одну строчку (уж лучше тогда без процедуры обойтись, но у тебя задание такое).
на мой взгляд, было бы интересней сделать так:
передать параметры ч/з стек, это как функции в 32битных приложениях, ну конечно не оптимально, но по крайней мере научишься работать со стеком.

@allens 1 / 1 / 0 Регистрация: 03.11.2010 Сообщений: 40
		1
	Напишите процедуру, которая сканирует строку для поиска первого вхождения ограничивающего символа 13.11.2011, 00:15. Показов 1851. Ответов 5 Метки нет (Все метки) Напишите процедуру, которая сканирует строку для поиска первого вхождения ограничивающего символа (например ',') и заменяет ограничивающий символ нулевым байтом. После вызова, если ограничивающий символ найден, в регистре SI содержится смещение символа, следующего за ограничителем. В противном случае SI=0. Входные параметры: ES : DI указывает на строку, а в регистре AL содержится ограничивающий символ Заранее спасибо за помощь! 0

@zzzyyyxxx 766 / 310 / 11 Регистрация: 27.05.2011 Сообщений: 703
	16.11.2011, 22:44	4
	как минимум косяк в 35стр, (дальше не смотрел) т.е. при переходе по метке, у тебя в стеке остаётся адрес 19 строки, и соответственно при выходе из проги будет переход на эту же(19) строку. ПОДУМАЙ ЕЩЁ! да и сама процедура не красивая. 1

@allens 1 / 1 / 0 Регистрация: 03.11.2010 Сообщений: 40
	17.11.2011, 00:45 [ТС]	5
	не красива по какой причине!? в оформлении или в корректности выполнения? 0

@zzzyyyxxx 766 / 310 / 11 Регистрация: 27.05.2011 Сообщений: 703
	17.11.2011, 00:54	6
	ну как-то смысла нет в процедуре писать одну строчку (уж лучше тогда без процедуры обойтись, но у тебя задание такое). на мой взгляд, было бы интересней сделать так: передать параметры ч/з стек, это как функции в 32битных приложениях, ну конечно не оптимально, но по крайней мере научишься работать со стеком. 0