2 сегмента данных

[YTP0]

Прошу помочь мне хотя бы начать я многое не понимаю.. Мне надо создать прогу с 2мя сегментами данных, и переслать строку данных из одного в другой, а затем её вывести через видеобуфер. Я знаю что надо создать прогу с моделью памяти типа MEDIUM. Настроить DS и ES на 2 сегмента данных(незнаю как это делать). Сама пересылка строки делается командой MOVSB. Я знаю алгоритм, но незнаю как это написать. прошу помогите хотя бы начать. Заранее спасибо.

[Karpinsky]

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

прошу помогите хотя бы начать.

Начинаем:

Data_01 segment
	
s_1	db 'this is the test', '$'
Len	equ $ - s_1

Data_01 ends

Data_02 segment
	
s_2	db 128 dup('$')

Data_02 ends

Code segment

start proc
	assume cs:code

	mov ax, data_01 ; настраиваем DS на первый сегмент данных
	mov ds, ax
	assume ds:data_01

	mov ax, data_02 ; , а ES - на второй ...
	mov es, ax
	assume es:data_02
	
	lea si, s_1
	lea di, s_2
	mov cx, Len
	cld
	rep movsb ; строка перенесена из Data_01 в Data_02

	; Здесь будет вывод скопированной строки ...
	
	mov ax, 4c00h
	int 21h
start endp

Code ends
	end start

[YTP0]

ого, большое спасибо, сейчас попробую доделать!

[Mikl___]

YTP0
только model не medium (несколько кодовых сегментов и один сегмент данных), а compact (несколько сегментов данных и один сегмент кода)
еще так можно

; masm dos exe #
.286
.model compact
.code
start:	mov ax,@data
	mov ds,ax
	mov ax,@fardata
	mov es,ax
	mov si,offset x
	mov di,offset y
;       cld не обязательно, так как при старте программы DF=0
	mov cx,128
	rep movsw
	mov ah,4Ch
	int 21h
.data
x db 256 dup(1)
.fardata
y db 256 dup(0)
end start

[YTP0]

Data_01 segment
	
s_1	db 'this is the test', '$'
Len	equ $ - s_1

Data_01 ends

Data_02 segment
	
s_2	db 128 dup('$')

Data_02 ends

Code segment

start proc
	assume cs:code

	mov ax, data_01 ; настраиваем DS на первый сегмент данных
	mov ds, ax
	assume ds:data_01

	mov ax, data_02 ; , а ES - на второй ...
	mov es, ax
	assume es:data_02
	
	lea si, s_1
	lea di, s_2
	mov cx, Len
	cld
	rep movsb ; строка перенесена из Data_01 в Data_02

	mov ax, 0B800h ; настройка на базовый адрес видеобуфера
	mov es, ax
	mov cx, len
	mov si, 0
	mov di, 0 ;начало строки с левого верхнего угла экрана

m1:
	mov al, s_1 [si] ;очередной символ в al
	mov es:[di], ax
	inc si
	inc di
	inc di
	loop m1
	
	mov ax, 4c00h
	int 21h
start endp

Code ends
	end start

так?

[Karpinsky]

так?

Вообще-то, задание предполагало вывести не s_1, а скопированную строку, то есть, s_2. Или нет?

P.S. TASM-ом приведенный код компилироваться не будет. Так что "не так" - в любом случае

[YTP0]

просто я поставил семерку вчера сейчас пытаюсь скомпилировать на masm 6.11 пишет линк не совместим

Data_01 segment
	
s_1	db 'this is the test', '$'
Len	equ $ - s_1

Data_01 ends

Data_02 segment
	
s_2	db 128 dup('$')

Data_02 ends

Code segment

start proc
	assume cs:code

	mov ax, data_01 ; настраиваем DS на первый сегмент данных
	mov ds, ax
	assume ds:data_01

	mov ax, data_02 ; , а ES - на второй ...
	mov es, ax
	assume es:data_02
	
	lea si, s_1
	lea di, s_2
	mov cx, Len
	cld
	rep movsb ; строка перенесена из Data_01 в Data_02

	mov ax, 0B800h ; настройка на базовый адрес видеобуфера
	mov es, ax
	mov cx, len
	mov si, 0
	mov di, 0 ;начало строки с левого верхнего угла экрана

m1:
	mov al, s_2 [si] ;очередной символ в al
	mov es:[di], ax
	inc si
	inc di
	inc di
	loop m1
	
	mov ax, 4c00h
	int 21h
start endp

Code ends
	end start

так?

[Fedor666]

Пиши под винду и никаких сегментов вообще не понадобится .