sasm ide для ассемблера

Ответ от ...[гуру]
1ая. SASM IDE (NASM + макросы для вывода), на базе Linux, но с миним. переделками заработает в винде
--
%include "io.inc"
section .data
arr dd 1,2,7,3,2,1,8 ; массив чисел
arrEnd:
section .text
global CMAIN
CMAIN:
mov ecx, (arrEnd - arr) / 4 ; cx = кол-ву элементов массива (4 - размер dd)
cmp ecx, 3 ; их меньше 3?
jb @@exit ; сразу на выход
cld ; Флаг для lodsd, двигаемся "вперед"
mov esi, arr ; esi указывает на начало массива
jmp @@firstRun ; прыгаем на метку "первый заход"
@@nextNumber: ; цикл по числам
mov ebx, eax ; запоминаем в ebx предыдущее число
lodsd ; загружаем в eax очередное число
cmp eax, ebx ; сравниваем с предыдущим
jb @@skipZero ; меньше - пропускаем обнуление счетчика
@@firstRun:
xor edx, edx ; обнуляем счетчик чисел
@@skipZero:
inc edx ; увеличиваем счетчик чисел
cmp edx, 3 ; дошел до 3?
je @@foundSeq ; если да - выходим из цикла и запускаем вывод
loop @@nextNumber ; крутим цикл
jmp @@exit ; если не нашли такую последов. - на выход
@@foundSeq:
mov ecx, 3 ; иначе ecx = 3 = колву чисел
sub esi, 3*4 ; сдвигаемся на 3 числа левее (4 = размер dd)
mov ebx, esi ; ebx = смещению
sub ebx, arr ; вычитаем из ebx смещение начала массива
shr ebx, 2 ; получаем из результата индекс в массиве (деля на 4)
@@nextSeqNumber: ; цикл для вывода этих трех чисел
lodsd ; загружаем в eax число
call printDigit ; вызываем процедуру вывода числа
mov eax, ebx ; eax = индексу
call printDigit ; вызываем процедуру вывода числа
inc ebx ; увеличиваем индекс
loop @@nextSeqNumber ; крутим цикл
@@exit:
xor eax, eax ; обнуляем
ret ; выходим из программы
printDigit: ; вспомогательная процедура вывода числа на экран
PRINT_DEC 4, eax ; выводим само число
NEWLINE ; выводим перевод строки
ret ; конец процедуры
---
Вывод - число на след. строке индекс (начинается с 0)