Функция замены символов в строке.

[Fataller]

Необходимо функцию strset(s,c), которая заменяет символы в строке S на символ С написать на ассемблере )) среда - фрипаскаль )) я написал функцию, но проблема в том, что она меняет на какой то левый символ, из левой области памяти. Почему - для меня загадка. Требуется помощь

function StrSet(Str: PChar; Chr: Char): PChar; assembler;
asm
        CLD
	MOV     EDI,Str
        MOV     EDX,EDI
        MOV	CX,0FFFFH
        XOR     AX, AX
@@1:    SCASB
        JE  @@2
        SUB     EDI,1
        MOV     AL,Chr
        STOSB
        XOR     AX,AX
        LOOP @@1
@@2:    MOV     EAX,EDX
end;
var
s,s1:pchar;
c:char;
begin
        s:='abcc';
        s1:='';
        c:='j';
        s1:=StrSet(s,с);
        writeln(s1);
        readln;
end.

[Goodwin98]

Может упростить немного.

mov edi,[str]
xor ebx,ebx
mov al,[chr]

@@1:
cmp [edi],bl
je @@2

stosb
jmp @@1

@@2:
mov eax,[str]

[Д'якон]

Исходя из кода - прога должна висеть.
SUB EDI,1 - зачем уменьшение на единицу?

Goodwin98, забыл cld вначале

[Goodwin98]

SUB EDI,1 - зачем уменьшение на единицу?

Отвечу за автора.
После SCASB, edi увеличивается, а SUB EDI,1 возвращает его обратно для STOSB, который тоже увеличивает edi.

Goodwin98, забыл cld вначале

Как-то привылось у меня, что направление идет всегда прямо...

[airyashov]

в delphi вышибает на stosb почему не очень ясно

[Goodwin98]

в delphi вышибает на stosb почему не очень ясно

А что под отладчиком видно ?
Там строка, что находится в s:='abcc';, разве не считается константной ?

[Fataller]

У меня не получается адресоваться к Char как к [Char] - ошибка выводится
16 bit references not supported ((( нужно именно во фрипаскале это все сделать. И вот еще проблема. Пишу еще одну функцию, которая в strpbrk(s1,s2), которая в строке s1 ищет вхождение любого символа из s2 и возвращает указатель на этот символ в s1, т.е. strpbrk('abcd','pc') возвратит 'сd'. Так вот, функцию я вроде написал с горем пополам, но такая фишка - когда я текст функции просто копирую в основную программу, то она работает исправно, а если я ее вызываю как функцию, то ничего не выдает! Почему? Подскажите пожалуйста, очень нужно. Текст ниже

function StrPbRk(Str,Str2: PChar): PChar; assembler;
asm
        CLD
        MOV CX, 000Ah
        MOV EDI, Str2
        MOV ESI, Str
        XOR AX,AX
@@1:    LODSB
        MOV EDI, Str2
        MOV DX, CX
@@4:    SCASB
        JE @@2
        LOOP @@4
        MOV CX,DX
        LOOP @@1
@@2:    DEC ESI
        MOV EAX, ESI
end;
label l1,l2,l3,l4;
var
s,s1,s2:pchar;
begin
        s:='dace';
        s2:='ba';
        s1:='';
        s1:=StrPbRk(s,s2);
 {     asm
        CLD
        MOV CX, 000Ah
        MOV EDI, s2
        MOV ESI, s
        XOR AX,AX
l1:    LODSB
        MOV EDI, s2
        MOV DX, CX
l4:    SCASB
        JE l2
        LOOP l4
        MOV CX,DX
        LOOP l1
l2:    DEC ESI
        MOV EAX, ESI
        MOV s1,EAX
end;}
        writeln(s1);
        readln;
end.

[airyashov]

Сообщение от Goodwin98

А что под отладчиком видно ?
Там строка, что находится в s:='abcc';, разве не считается константной ?

да похоже так и есть