Почему такой странный вывод?

Question

[Firetheestle]

Дали задачку:
Ввести 2 строки символов и зарезервировать место под третью строку. Сравнить первые две и если в них есть разные буквы то записать эти буквы в третью строку.
Вот код:

include io.asm
Sseg segment stack 
	db 256 dup(?)
Sseg ends
Dseg segment
v1 db 0dh,0ah,'Vvedite stroku N1: $'
v2 db 0dh,0ah,'Vvedite stroku N2: $'
s1 db 5 dup(?)
s2 db 5 dup(?)
s3 dw 5 dup(?)
Dseg ends
Cseg segment 
		assume cs:Cseg,DS:Dseg,SS:Sseg,ES:Dseg
start:
		mov ax,Dseg
		mov ds,ax
		mov es,ax
		
		cld
		lea dx,v1
		outstr 
		mov cx,5
		mov si,0
vvod1:  
		inch s1[si]
		inc si
		loop vvod1
		
		newline
		
		lea dx,v2
		outstr
		mov cx,5
		mov si,0
vvod2:
		inch s2[si]
		inc si
		loop vvod2
		
		lea si,s2
		lea di,es:s1
	
		mov cx,5	
srav:
		repe cmps s1,s2
		mov bx,0
		dec di
		mov s3[bx],di
		inc di
		inc bx
		loop srav
		
		mov cx,5
		
	 	mov ah, 09	 
	 	lea dx, s3	 
	 	int 21h
		finish
Cseg ends 
end start

и почему-то он странно выводит ;C

Answer 1

[jcmvbkbc]

А вы можете объяснить, что у вас происходит здесь:

srav:
    repe cmps s1,s2
    mov bx,0
    dec di
    mov s3[bx],di
    inc di
    inc bx
    loop srav

Кроме того, для вывода строки функцией 9 int21 она должна заканчиваться символом '$'.

Comments

[Firetheestle]

Это перенос буквы в другой массив строк. Мне так препод подсказал. Даже если я использую outstr то серно вывод остается таким:C

[jcmvbkbc]

> Мне так препод подсказал.
Firetheestle: т.е. сами вы прочитать что здесь написано не хотите или не можете, так?

[Firetheestle]

jcmvbkbc: Сравниваем две строки, при первом несовпадении обнуляем регистр bx, уменьшаем на единицу регистр di(т.е возвращаем на ту букву которая отличается)после возвращаем регистру di его прежнее значение, чтобы он не записал одну и туже букву и увеличиваем регистр bx на единицу, чтобы он не перезаписал одну букву на другую и делаем из этого цикл. Вот так я понимаю то, что я написал ;з

[jcmvbkbc]

Firetheestle: Уже лучше. Ещё пара вопросов:
Первый:
> ...обнуляем регистр bx...увеличиваем регистр bx на единицу, чтобы он не перезаписал одну букву на другую
-- что при этом происходит с регистром bx?

Второй: что делает эта команда
> mov s3[bx],di

[Firetheestle]

jcmvbkbc: Младший байт bl увеличится на единицу, а когда число будет слишком большое то bl обнулится и в bh запишется единица и все по новой.
в Массив s3 в ячейку под номером, который лежит в bx, запишется символ, лежащий по адресу di?

[Firetheestle]

jcmvbkbc: Возможно понял намек ;з
Изменил блок srav теперь он выглядит так:

mov cx,5
		mov bx,0
		mov bh,0
srav:
		repe cmps s1,s2
		dec di
		mov s3[bl],di
		inc di
		inc bl
		loop srav
		
		mov cx,5
		
	 	lea dx,s3
		outstr

но теперь он не компилируется ;C (operand types do not match в mov s3[bl],di )

[jcmvbkbc]

> Возможно понял намек ;з
Firetheestle: хорошо, но реализация немного корявая. Можно так:

mov cx,5
mov bx,0
srav:
repe cmps s1,s2
dec di
mov s3[bx],di
inc di
inc bx
loop srav

mov cx,5

lea dx,s3
outstr

Но команда mov s3[bx],di по-прежнему делает что-то странное.

[jcmvbkbc]

> в Массив s3 в ячейку под номером, который лежит в bx, запишется символ, лежащий по адресу di?
Firetheestle: вовсе нет, с чего бы? Запишется сам регистр di. У intel нет команд пересылающих из памяти в память, за исключением movs. Вам надо загрузить временный регистр из [di] и записать его в s3[bx].

[Firetheestle]

jcmvbkbc: Ошибка осталась :C Именно эту команду мне подсказал препод ;з

[Firetheestle]

jcmvbkbc: Т.е
movs s3[bx],di
? или может

mov ax,0
mov ax,di
mov s3[bx],ax

?

[Firetheestle]

jcmvbkbc: Если s3 заменить на двухбайтовую ячейку то ошибка меняется на illegal immediate

[jcmvbkbc]

Firetheestle: у movs нет операндов, она гонит байт/слово/двойное слово из [si] в [di]. Но вы уже используете si и di в cmps. Логично было бы написать

mov al, [di]
mov s3[bx], al

[Firetheestle]

jcmvbkbc: компилируется, но теперь у меня зависает tasm после ввода строки N2 ;С

[Firetheestle]

jcmvbkbc: исправил зависание ;з Вывод остался:

[jcmvbkbc]

Firetheestle: кто зависает? (:

В получившемся коде ещё остаётся два странных места:
первое: repe cmps s1,s2 заканчивается не только когда встречаются разные символы,
второе: получившаяся строка s3 не обязательно будет длиной в 5 символов.

[jcmvbkbc]

Firetheestle: и, да, что такое outstr из io.asm знаете только вы. Проверьте, что вы правильно передаёте ему параметры.

[Firetheestle]

jcmvbkbc: ахах да чет я загнался ;з зависает прога. Нам не лекции сказали что cmps сравнивает две строки, а приставка repe делает сравнение до первого отличия. Я же ввожу 5 символов то как строка может иметь больше символов чем есть?

[Firetheestle]

jcmvbkbc: Если работает эта часть кода

lea dx,v1
outstr

то получается, что параметры передаются правильно

[jcmvbkbc]

Firetheestle: все символы могут быть одинаковыми, repe cmps закончится, когда cx станет равным 0

[jcmvbkbc]

> Если работает эта часть кода lea dx,v1
Firetheestle: если внимательно посмотреть в v1, то можно увидеть $ в конце.

[Firetheestle]

jcmvbkbc:
inc bx
mov s3[bx],'$'
lea dx,s3
outstr
finish

[Firetheestle]

jcmvbkbc: я попробовал вот так ;з

[jcmvbkbc]

Firetheestle: а зачем там inc bx? И s3 теперь должно стать dw 6 dup(?).

[Firetheestle]

jcmvbkbc: чтобы он последнюю букву не затер ;з я увеличил в сегменте данных размерность s3, но у меня стояло db 6 dup(?) и если поменять на dw то появляется ошибка
operand types do not match

[jcmvbkbc]

> чтобы он последнюю букву не затер
Firetheestle: так у вас же inc bx стоит внутри цикла, сразу после mov s3[bx], al

> у меня стояло db 6 dup(?) и если поменять на dw то появляется ошибка
Да, db правильно, я не глядя скопировал.

[Firetheestle]

jcmvbkbc: вывод не изменился

[Firetheestle]

Нашел в io.asm

;===============================================================================
; Вывод строки символов 		
;      обращение:outstr
;      на входе:ds:dx-начальный адрес строки
;      (в конце строки д.б. символ $,код 36 (24h))
;-------------------------------------------------------------------------------
Outstr  macro
	push ax
	mov ah,9
	int 21h
	pop ax
	endm

[Firetheestle]

jcmvbkbc: Спасибо больше за помощь!
Проблему решил;з
вот рабочий код:

include io.asm
Sseg segment stack 
	db 256 dup(?)
Sseg ends
Dseg segment
s1 db 5 dup(?)
s2 db 5 dup(?)
s3 db 5 dup(?), '$'
sch db 0
v1 db 0dh,0ah,'Vvedite stroku N1: $'
v2 db 0dh,0ah,'Vvedite stroku N2: $'
Dseg ends
Cseg segment 
		assume cs:Cseg,DS:Dseg,SS:Sseg,ES:Dseg
start:
		mov ax,Dseg
		mov ds,ax
		mov es,ax
		
		cld
		lea dx,v1
		outstr 
		mov cx,5
		mov si,0
vvod1:  
		inch s1[si]
		inc si
		loop vvod1
		
		newline
		
		lea dx,v2
		outstr
		mov cx,5
		mov di,0
vvod2:
		inch s2[di]
		inc di
		loop vvod2
		
		lea si,s1
		lea di,es:s2
	
		mov cx,6
		mov bx,0
srav:
		repe cmps s2,s1
		jcxz p2
		jne p1
p1:
		dec si
		lods s1
		mov s3[bx], al
		inc bl
		inc sch
		loop srav
p2:		
		xor ax,ax
		mov ax,5
		sub al,sch
		mov cx,ax
p3:
		mov s3[bx], '5'
		inc bl
		loop p3

		lea dx,s3
		outstr
exit:
		finish
Cseg ends 
end start