Перевод проги из паскаля в ассемблер

[veniside]

ну так это дизассемблер, а не ассемблер ) конечно у вас это будет имя некой переменной, типа:

  mov eax, s1

точно так же как:

jnl $00407185

заменится на переход по метке, а не на конкретную ячейку памяти )

[DiemonStar]

решается просто: в текстовом редакторе проводится замена адресов на имена и всё... а вообще, для этого есть строковые функции ассемблера:

str1 db 100 dup ("$")
len1 dw 100
str2 db 20  dup ("$")
len2 dw 20
...
push ds
pop es
' длина исходной строки
mov si, offset str1
mov cx,100
mov al, '$'
repne scasb
sub len1, cx
' длина строки для поиска
mov si, offset str2
mov cx,20
mov al, '$'
repne scasb
sub len2, cx
' поиск вхождения
mov si, offset str1
mov al, byte ptr [str2]
mov cx, len1
lp:
repne scasb
jz exit_no

push cx
push si
mov cx, len2
mov di, offset str2
repne cmpsb
jz exit_yes

pop si
pop cx
jmp lp
exit_no:
.... ' выводим "нет"
exit_yes:
pop ax
pop ax
.... 'выводим "да"

з.ы. код не проверял... возможно, потребуется кое-где уменьшить счётчики и сместить индексы)

[.:DEZ:.]

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

ну так это дизассемблер, а не ассемблер ) конечно у вас это будет имя некой переменной, типа:

  mov eax, s1

точно так же как:

jnl $00407185

заменится на переход по метке, а не на конкретную ячейку памяти )

Точно, всё понял. Спасибо.

[.:DEZ:.]

DiemonStar, спасибо сейчас проверю.

DiemonStar, что обозначают точки: "...."? он на них ругается.

???

вот прога которая автоматически создаёт 2 строки и проверяет на совпадение, помогите переделать её чтоб с клавиатуры вводить строки пожалуйста.

jmp entry
lens1 db 60
dlina1 db 0
s1 db 60 dup (0)
lens2 db 60
dlina2 db 0
s2 db 60 dup (0)
p1 db 0
p2 db 0
entry:mov ah,9
mov dx,offset lens1
int 21h
mov ah,9
mov dx,offset lens2
int 21h
mov al,dlina1
mov p1,al
inc p1
mov p2,1
whileconstr:
mov al,p2
cmp al,dlina2
ja vilet
 
dec p1
mov al,1
rerwrerwerw:cmp p1,al
jne vilet1
mov si,offset s1
add si,offset p1
mov di,offset s2
add di,offset p2
mov al,[si]
cmp al,[di]
je vilet1
dec p1
jmp rerwrerwerw
vilet1:
mov al,1
cmp p1,al
jbe vilet
inc p2
jmp whileconstr
vilet:
mov al,1
cmp al,p1
jna els
mov ah,9
mov dx,offset nof
int 21h
jmp endifw
els:
mov ah,9
mov dx,offset fon
int 21h
endifw:
mov ah,10h
int 16h
int 20h
nof db 'Not found$'
fon db 'Found$'

[Serge_Bliznykov]

совершенно недавно здесь на форуме я помогал доработать программку сранения двух строк, вводимых с клавиатуры:

Accembler, сравнение

посмотрите, может Вы там что-то полезное для себя найдёте...

[.:DEZ:.]

Спасибо, сейчас посмотрю, а тут можете помочь? задание не много другое.

[DiemonStar]

DiemonStar, что обозначают точки: "...."? он на них ругается.

Есстественно) там должны быть функции ввода строки и вывод результата. Вы же не надеялись, что я буду весь код писать - всё что написано относится исключительно к реализации вашего алгоритма.

и, кстати, ту меня сравнение строк идёт в прямом направлении, а не в обратном учитывайте такую особенность (перевернуть слово не проблема, да и поиск в обратном направлении реализовать не долго...)

[.:DEZ:.]

А) понял, спасибо вам большое, сейчас буду делать, потом выложу что получилось)

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

(перевернуть слово не проблема, да и поиск в обратном направлении реализовать не долго...)

можно же ведь просто вместо "repe scasb" написать "std repe scasb" и будет сканировать в обратном направлении? (то есть начинать с конца)

[DiemonStar]

можно же ведь просто вместо "repe scasb" написать "std repe scasb" и будет сканировать в обратном направлении? (то есть начинать с конца)

можете попробовать, если очень хочется) можно и так сделать, но вряд-ли будет проще)

[.:DEZ:.]

Блин( подскажите как организовать сканирование байт с конца( как код будет выглядеть?