[AnGel_of_Death]

на конец -то разабрался с этим циклом. теперь работает и вот этот вариант:
look segment
org 100h
begin:
mov cx, 5
looop:
mov ah,9
mov dx,offset Ha
int 21h
loop looop
int 20h
Ha db 'hi all :P!!!!! $ '
look ends
end begin
в прошлых у меня была ошибка что я заканчиваю не только begin, а до этого еще looop. он почему-то не считал begin за метку. вот и вся проблема. всем спасибо за помощь в этом не легком труде(учебе)!!!

[Admiral]

Доброе время суток народ.

Есть следующий код.

Код:

;DS:DI - адрес массива

TITLE The bubble way of sorting the array 	

SSEG SEGMENT PARA STACK 'STACK'			;
        DB 256 DUP(0)
SSEG ENDS

DSEG SEGMENT PARA PUBLIC 'DATA'			
ArraySize DW 20 DUP(0)			;MAX-65535
DSEG ENDS                                       ;DB/DW - Define Bytes/Words

CSEG SEGMENT PARA PUBLIC 'CODE'            	
        ASSUME CS:CSEG,DS:DSEG,SS:SSEG

BUBBLE_SORT PROC NEAR				;Procedure Definition (32-FAR)
			push ds		
			sub ax,ax		
			push ax 		
			mov ax,DSEG		;инициализируем адреса сегментов
			mov ds,ax		
			
Start:			mov dx,ArraySize	; ArraySize в DX 
			cld			;установим в ноль флаг направления DF                       
			cmp dx,1		;сравниваем dx с 1
			jbe sort_exit	;выйти, если нечего сортировать
			dec dx  		;уменьшит значение dx на единицу
sb_loop1:		mov cx,dx		;установить длину цикла
			xor bx,bx		;BX будет флагом обмена
			mov si,di		;SI – указатель на текущий элемент
sb_loop2:		lodsw			;считать следующий элемент
			cmp ax,word ptr [si]
			jbe no_swap		
			xchg ax,word ptr [si]	
			mov word ptr [si-2],ax
			inc bx			
no_swap:		loop sb_loop2
			cmp bx,0		;если сортирование не закончилось
			jne sb_loop1	;перейти к следующему элементу
sort_exit:		pop ax			
			pop ds			
			ret			
BUBBLE_SORT ENDP                                
CSEG ENDS                                       
	END BUBBLE_SORT

Задача кода – инициализировать массив, заполнить его и сортировать методом пузырька.
На текущий момент код умеет задавать размерность массива в шапке.
Необходимо разместить адрес массива в DS:DI и заполнить элементы массива случайными величинами (например считать данные с памяти).

Пишу на TASMе.

Кто знает отпишитесь.

[DillerInc]

Admiral
Для начала одна неувязочка(то ли я туплю с утра,то ли...):

ArraySize DW 20 DUP(0)

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

Необходимо разместить адрес массива в DS:DI и заполнить элементы массива случайными величинами (например считать данные с памяти).

...указатели на массивы заносятся в регистры обычно с помощью команды LEA:

Код:

      cld
      lea    si, source       ; источник = какой-нибудь адрес в памяти
      lea    di, ArraySize  ; приёмник
      mov  cx, 20h           ; размер массива
rep movsw                   ; пересылаем из источника в приёмник двадцать слов

[Admiral]

Благодарю за ответ DillerInc

Для начала одна неувязочка(то ли я туплю с утра,то ли...): ArraySize DW 20 DUP(0) ...это ж массив,состоящий из двадцати нулевых слов(WORD),а ты его используешь как двухбайтовую величину,характеризующую общий размер массива...

В новом варианте кода понятие размерность и память под эту размерность организовано как ArraySize и Array. И нет необходимости в коде программы использовать mov cx, 20h ведь можно написать следующие mov cx, ArraySize.
Это по аналоги с С где (при работе с массивами) один раз пишем const int n=10 а далее везде по коду ссылаемся на n.
Захотели поменять размерность массива - так поменяли её сразу в шапке, а не по всему коду.

Я немного структурировал код

Код:

;DS:DI – адрес массива должен быть здесь

TITLE The bubble way of sorting the array	

SSEG SEGMENT PARA STACK 'STACK'			
	DB 16 DUP(0)
SSEG ENDS

DSEG SEGMENT PARA PUBLIC 'DATA'			
Msg1	DB 0dh,' Массив не упорядоченных данных - ','$'
Msg2	DB 0ah,0dh,' Массив упорядоченных данных - ','$'
ArraySize DW 10  				;задаём размерность массива
Array DB 2,9,3,8,4,7,6,5,0,1		;заполняем массив
i DB 0
DSEG ENDS					

CSEG SEGMENT PARA PUBLIC 'CODE'
	ASSUME CS:CSEG,DS:DSEG,SS:SSEG

PROC MAIN NEAR			;главная процедура программы (по аналоги с С)
		mov ax,DSEG	
		mov ds,ax	
		mov	ax,0

		mov	cx,ArraySize	
		mov	si,0
		mov	ah,09h
		lea	dx,Msg1
		int	21h
		call SHOW		

		call BUBBLE_SORT		;вызываем процедуру сортирования

		mov	cx,ArraySize	
		mov	si,0
		mov	ah,09h
		lea	dx,Msg2
		int	21h
		call SHOW

exit:
		mov	ax,4c00h	;стандартное завершение программы
		int	21h
MAIN ENDP

BUBBLE_SORT PROC NEAR		
			
		cld			
		lea si,Array	;source
		lea di,Array	;destany
		mov cx,ArraySize	
		rep movsw
				
		mov dx,ArraySize
		cmp dx,1		
		jbe sort_exit	
		dec dx			
sb_loop1:
		mov cx,dx	
		xor bx,bx		
		mov si,di		
sb_loop2:
		lodsw		
		cmp ax,word ptr [si]
		jbe no_swap		
		xchg ax,word ptr [si]	
		mov word ptr [si-2],ax
		inc bx			
no_swap:
		loop sb_loop2
		cmp bx,0		
		jne sb_loop1	
sort_exit:			
		ret			
BUBBLE_SORT ENDP	

PROC SHOW NEAR				;процедура вывода на экран массива до и после сортировки
		mov	ah,02h	
		mov	dl,Array[si]
		add	dl,30h	
		int	21h
		inc	si
		loop show
		ret
SHOW ENDP			

CSEG ENDS					
	END MAIN

Сразу хочу отметить, что работает вывод на экран, однако нет сортировки ... И всё зависит как раз от подсказанного участка кода

Код: cld lea si, source ; источник = какой-нибудь адрес в памяти lea di, ArraySize ; приёмник mov cx, 20h ; размер массива rep movsw ; пересылаем из источника в приёмник двадцать слов

А всё таки смысл в этих строчка кода? По сути, копируем из одного источника в другой? Или здесь более сложный подход - они разрешают корректную работу lodsw. Так я нашёл код (Только заполнения и вывода на экран элементов массива) где обходятся без данного оператора и все последующие элементы читают посредством INC SI + Array[si]

Код:

TITLE Initialization massive

SSEG SEGMENT PARA STACK 'STACK'			;Сегмент стека. SSEG - это имя
	DB 32 DUP(0)
SSEG ENDS

DSEG SEGMENT PARA PUBLIC 'DATA'			;Сегмент данных
Msg1	DB 0dh,' Массив не упорядоченных данных - ','$'
Msg2	DB 0ah,0dh,' Массив упорядоченных данных - ','$'
ArraySize DW 10  				;Размер под массив
Array DB 9,2,3,8,4,7,6,5,0,1			;Память под массив элементов
i DB 0
DSEG ENDS					;DB/DW - Define Bytes/Words
CSEG SEGMENT PARA PUBLIC 'CODE'
	ASSUME CS:CSEG,DS:DSEG,SS:SSEG

MASSIVE PROC NEAR				;Procedure Definition

main:
	mov	ax,DSEG
	mov	ds,ax
	
;вывод на экран получившегося массива
         
	mov	cx,ArraySize	;значение счетчика цикла в cx
	mov	si,0
	mov	ah,09h
	lea	dx,Msg1
	int	21h
	call	show
           
	
	mov	cx,ArraySize	;значение счетчика цикла в cx
	mov	si,0
	mov	ah,09h
	lea	dx,Msg2
	int	21h
	call	show

exit:
	mov	ax,4c00h	;стандартный выход
	int	21h

MASSIVE ENDP				;Конец программы

PROC show	NEAR
	mov	ah,02h	;функция вывода значения из al на экран
	mov	dl,Array[si]
	add	dl,30h	;преобразование числа в символ
	int	21h
	inc	si
	loop	show
	ret
show ENDP

CSEG ENDS				;Конец сегмента
	END MASSIVE ;Конец файла

Однако предполагаю, что в случаи с сортированием связка INC SI + Array[si] утруднить процесс кодирования, что не совсем хорошо.

Всё же, что за

source ; источник = какой-нибудь адрес в памяти

нужно указывать?

P.S
В приведённом примере в указанном участке кода используется

Код:

           lea si,Array	;source  
           lea di,Array	;destany

Естественно, что в процессе выполнения, выведенные на экран массивы, будут одинаковыми
Но если написать следующие

Код:

           lea si,Array	;source  
           lea di,buff	         ;destany

,
а в шапке данных указать

Код:

DSEG SEGMENT PARA PUBLIC 'DATA'			
.....
.....
buff DW 10 DUP(?)
.....
.....
DSEG ENDS

то результат работы программы будет следующим

Массив не упорядоченных данных- 2938476501 Массив не упорядоченных данных - ш001654738

ш - это не опечатка, это программа взяла из памяти

[DillerInc]

Admiral

ArraySize DW 10 ;задаём размерность массива Array DB 2,9,3,8,4,7,6,5,0,1 ;заполняем массив

...ей,богу,глаз режит.У тебя получается массив Array,состоящий из десяти байт,а размер ты выставляешь в словах -- десять слов,что соответствует двадцати байтам!И чем интересно будут заполнены лишние десять байт??Шелл-кодом??

Это по аналоги с С

...не надо пока смешивать низкоуровневый асм с языком высокого уровня
Тогда уж лучше используй такой вариант:

Код:

Array       DB    2,9,3,8,4,7,6,5,0,1
ArrayLen =      $-Array

А всё таки смысл в этих строчка кода? По сути, копируем из одного источника в другой?

...смысл обычно в том,что мы получаем копию данных,с которой потом оперируем,не трогая при этом оригинальные данные.
И если ты задал массив байт,то тогда тебе необходимо использовать команду:

Код:

rep   movsb ; для пересылки байт

Однако предполагаю, что в случаи с сортированием связка INC SI + Array[si] утруднить процесс кодирования, что не совсем хорошо.

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

Всё же, что за нужно указывать?

...зависит от обстоятельств.
Например,ты открыл какой-то файл с помощью функции CreateFileA,узнал его размер(GetFileSize).Далее в соответствии с размером выделил нужную память(VirtualAlloc),чтобы считать туда этот файл(ReadFile).И после ты хочешь допустим считать заголовок файла -- вот и начинаешь обрабатывать ту память,которая была выделена функцией VirtualAlloc и куда был считан файл функицей ReadFile.Тогда указатель,возвращённый функцией VirtualAlloc,и будет твоим source.
Это всё так -- например.

[Admiral]

Благодарю DillerInc что так оперативно смог ответить на моё сообщение
По сложившейся традиции для начала приведу обновлённый код, который сразу отмечу, работает, как требовалось постановкой задачи!

Код:

TITLE The bubble way of sorting the array	

SSEG SEGMENT PARA STACK 'STACK'			
	DB 16 DUP(0)
SSEG ENDS

DSEG SEGMENT PARA PUBLIC 'DATA'			
Msg1	DB 0dh,' Массив не упорядоченных данных - ','$'
Msg2	DB 0ah,0dh,' Массив упорядоченных данных - ','$'
ArraySize DW 10 
buff DW 10 DUP(?)
Array DW 2,9,3,8,4,7,6,5,0,1
DSEG ENDS					

CSEG SEGMENT PARA PUBLIC 'CODE'
	ASSUME CS:CSEG,DS:DSEG,SS:SSEG

PROC MAIN NEAR
		mov ax,DSEG	
		mov ds,ax	
		mov	ax,0
	
		mov	cx,ArraySize
		mov	si,0
		mov	ah,09h
		lea	dx,Msg1
		int	21h
		call SHOW		

		call BUBBLE_SORT

		mov	cx,ArraySize
		mov	si,0
		mov	ah,09h
		lea	dx,Msg2
		int	21h
		call SHOW

exit:
		mov	ax,4c00h	
		int	21h
MAIN ENDP

BUBBLE_SORT PROC NEAR		
		push ax	
		cld			
		lea si,Array	;source
		lea di,buff	;destany
		mov	cx,ArraySize
		rep movsw
				
		mov dx,ArraySize
		cmp dx,1		
		jbe sort_exit	
		dec dx			
sb_loop1:
		mov cx,dx	
		xor bx,bx		
		mov si,di		
sb_loop2:
		lodsw		
		cmp ax,word ptr [si]
		jbe no_swap		
		xchg ax,word ptr [si]	
		mov word ptr [si-2],ax
		inc bx			
no_swap:
		loop sb_loop2
		cmp bx,0		
		jne sb_loop1
sort_exit:	
		pop ax		
		ret			
BUBBLE_SORT ENDP	

PROC SHOW NEAR
		mov	ah,02h	
		mov	dx,Array[si]
		add	dl,30h	
		int	21h
		inc	si
		inc	si
		loop show
		ret
SHOW ENDP			

CSEG ENDS					
	END MAIN

Из изменений исправлено типы данных в шапке, а также самое главное как для переменных слов в подпрограмме выводе на экран добавлен ещё один inc si (поскольку работаем со словами, а между ними разность не si+1, а si+2).
По сути код был рабочий и в прошлой реализации за исключением не верной инициализации размерности и самого массива по типу данных.

Что натолкнуло меня на правильный ход мысли? Как раз

..ей,богу,глаз режит.У тебя получается массив Array,состоящий из десяти байт,а размер ты выставляешь в словах -- десять слов,что соответствует двадцати байтам!И чем интересно будут заполнены лишние десять байт??Шелл-кодом??

Я откорректировал код в сторону слов, а не байт, так как большая часть кода ориентировано на слова, хотя надо будет попробовать поработать и с байтами. Теоретически файл должен стать меньше, а код быстрее. Не только movsb, но и lodsb будет для байт масива будет присутствовать в коде вместо movsw и lodsw соответственно.
Так что

Array DB 2,9,3,8,4,7,6,5,0,1 ArrayLen = $-Array

ещё по используем. А какой аналог для слов?

А разница между тем какой массив (байтовый или словный) будет проявляться в реализации программы и в допустимых числовых значениях элементов:

db — резервирование памяти для данных размером 1 байт. для чисел со знаком –128...+127; для чисел без знака 0...255; а для слов dw — резервирование памяти для данных размером 2 байта. для чисел со знаком –32 768...32 767; для чисел без знака 0...65 535

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

А вообше бывают ли масивы

dd — резервирование памяти для данных размером 4 байта. df — резервирование памяти для данных размером 6 байт; dp — резервирование памяти для данных размером 6 байт. dq — резервирование памяти для данных размером 8 байт. dt — резервирование памяти для данных размером 10 байт.

После корректировки на вывод выдавалось только половина массива через нули, которые и есть так называемый Шелл-код. То есть неправильно выдавался массив на экран, значит и недочёт в подпрограмме вывода. Добавил ещё inc si и всё пошло как по маслу!

Итог

Массив не упорядоченных данных - 2938476501 Массив упорядоченных данных - 0123456789

P.S
А как насчёт следующих алгоритмов: быстрого сортирования и методом линейного отбора.

Код:

;***************************************************
;
;Сортирование массива методом быстрого сортирования
;
;***************************************************
;DS:DI – адреса массива
;DX – размер массива

quick_sort		proc	near
		cmp	dx,1
		jle	qsort_done
		xor	di,di
		mov	si,dx
		dec	si
		shl	si,1
		mov	ax,word ptr [bx]
step_2:			cmp	word ptr [bx+si],ax
		jle	step_3
		sub	si,2
		jmp	short step_2
step_3:			cmp	si,di
		je	step_5
		add	di,2
		cmp	word ptr [bx+di],ax
		jl	step_3
step_4:			mov	cx,word ptr [bx+di]
		xchg	cx,word ptr [bx+si]
		mov	word ptr [bx+di],cx
		jmp	short step_2
step_5:			xchg	ax,word ptr [bx+di]
		mov	word ptr [bx],ax
		push	dx
		push	di
		push	bx
		mov	dx,di
		shr	dx,1		;загрузка длины массива
		call	quick_sort	;сортирование
		pop	bx
		pop	di
		pop	dx
		add	bx,di
		add	bx,2		;загрузка начала массива
		shr	di,1
		inc	di
		sub	dx,di		;загрузка длины массива
		call	quick_sort	;сортирование
qsort_done:	ret
quick_sort	endp

а также

Код:

;***************************************************
;
;Сортирование массива методом линейного отбора
;
;***************************************************
;DS:DI (ES:SI) – адреса массивов
;DX – количество элементов массива
do_swap:		lea	bx,word ptr [di-2]
		mov	ax,word ptr [bx]	;новое наименьше число
		dec	cx			;если поиск минимального завершён
		jcxz	tail			;перейти в конец
loop1:			scasw				;сравнить минимальное в AX 
;со следующим элементом
		ja	do_swap
		loop	loop1			;продолжить сравнение
tail:			xchg	ax,word ptr [si-2]
		mov	word ptr [bx],ax

linear_sel_sort:	proc	near			;точка входу в процедуру
		mov	bx,si
		lodsw
		mov	di,si
		dec	dx
		mov	cx,dx
		jg	loop1
		ret
linear_sel_sort:	endp

Заменив подпрограмму, на один из указанных алгоритмов получил ошибку исполняемого файла. Для данных алгоритмов необходимо писать свою шапку инициализации массива?
И что за новенькое DS:DI (ES:SI)?

Какие будут комментарии по поводу данных алгоритмов и их реализации на ассемблере?

И в общем реакция на написанное.

[DillerInc]

Так что Array DB 2,9,3,8,4,7,6,5,0,1 ArrayLen = $-Array ещё по используем. А какой аналог для слов?

...сейчас проверял -- размер в таком варианте высчитывается как для байтов.Т.е. при словах:

Код:

Array DW 2,9,3,8,4,7,6,5,0,1
ArrayLen = $-Array

...ArrayLen будет равен 14h(двадцать) байт,а не 0Ah(десять).Можно конечно в коде поизвращаться,например:

Код:

cld
lea   esi, Array
mov ecx, ArrayLen
shr   ecx, 1       ;    делим содержимое ECX на два

Насчёт быстродействия и размера кода я как-то сильно сомневаюсь,что ты заметишь что-либо,или даже что эта разница вообще присутствует.По-любому,работая в win32,тебе придётся использовать массивы,состоящие из двойных слов(DWORD),например массив адресов чего-либо.

есть так называемый Шелл-код

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

Для данных алгоритмов необходимо писать свою шапку инициализации массива?

...ну,да.Тут дан только код с комментариями,что в регистрах SI и DI находятся указатели на массивы.Тебе нужно организовать какую-то память под эти массивы.Будь то твоя секция данных или ещё что-то в этом роде.А то иначе приложение запросто упадёт с ошибкой доступа.

И что за новенькое DS:DI (ES:SI)

...у Юрова написано следующее:

Цепочка-источник,адресуемая операндом source,может находится в текущем сегменте данных,определяемом регистром DS. Цепочка-приёмник,адресуемая операндом destination,должна быть в дополнительном сегменте данных,алресуемым сегментным регистром ES.

В общем,не забивай голову.Надо лишь точно знать какие регистры(ESI, EDI, EAX)используются в конкретных цепочечных командах,а для этого надо просто почитать какой-нибудь справочник по ассемблеру.

[bes1de]

имееца блок схема ..помогите написать код на batronix для 8051.mc