» Assembler

тока хотел встрять...
что оптимизировать демо-примеры...

как-то давным-давно мы вмногером поспорили кто и на каком языке напишет самую маленькую прогу beep, кот. заставит пукнуть писи-хрипер

посоревнуемся?

Цитата:

а не подумалось, что крлф потом еще пять раз отдельно пишется, для перевода строки?

Но ведь не написалось же
И потом, можно 13, 10 просто в конец каждой строчки добавить. В байтах это меньше чем код макроса.

Цитата:

посоревнуемся?

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

да хоть сто раз пишеться, ты место что ли экономишь на флоппи дискете

akaGM, "я угадаю эту мелодию с семи нот"... beep.com:
B8 07 0E CD 10 CD 20

Цитата:

ты место что ли экономишь на флоппи дискете

Да. Дети выросшие на 30 мегабайтном харде выростают жаднымит.

Цитата:

B8 07 0E CD 10 CD 20

Мда. Мой намного длиннее.

MERCURY127
у меня ровно в семь раз меньше, с тем же 7-ым кодом:
beep.bat
^7
один байт...

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

Вопрос по asm используемом в delphi 2009. Необходимо реализовать вставку кода на асме в дельфи. Для этого в delphi вызываю функцию написанную на асм, в которую надо передать два числа:


Код:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i: integer;
dat: string;
begin
y:=0;
dat:=Edit1.Text; //"12345"
for i := 1 to length(dat) do
begin
x:=ord(dat[i]);
y:=iter1(x,y); //та самая функция
end;
showmessage(inttostr(x+y));
end;

function iter1(x,y: integer): integer;
label
lb1,lb2,lb3;
asm
shl eax, 8
xor edx, eax
lb1:
test dh,$80
je lb2
add edx, edx
xor edx, $8021
jmp lb3
lb2: add edx,edx
lb3: dec eax
jnz lb1
and edx,$0FFFF
mov eax, edx
end;

priorovod
у функи заголовок херовый...

Код: function iter1(x,y: integer): integer; assembler;
asm
shl eax, 8
xor edx, eax
@@lb1:
test dh,$80
je @@lb2
add edx, edx
xor edx, $8021
jmp @@lb3
@@lb2: add edx,edx
@@lb3: dec eax
jnz @@lb1
and edx,$0FFFF
mov eax, edx
end;

MERCURY127

Цитата:

а не подумалось, что крлф потом еще пять раз отдельно пишется, для перевода строки? Оптимизация, ага ...

Ну не дописал человек пару символов, но идея-то верная?

Код: welcome db "Welcome to Assembler!"
CRLF db 13, 10, '$'

akaGM, в принципе, я что то похожее и ожидал если не считать "beep.bat [1] Invaliid command" и необходимости шелла кб от 10 до 300, как 4DOS, и принять сообщение об ошибке за нужный результат - то принято
Кстати, тетрацией я называл вот это http://ru.wikipedia.org/wiki/Тетрация - для нее в фортране есть особый оператор, как для степени?

Добавлено:

Цитата:

welcome db "Welcome to Assembler!"
CRLF db 13, 10, '$'

а каково это другому человеку распарсить? не, я не спорю - съэкономлен 1 (!!!) байт...

MERCURY127

Цитата:

принять сообщение об ошибке за нужный результат - то принято

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


а тетрации нет, да...
зато появились матричные операторы, хотя я в них уже не спец, тут лучше в нашем топе спрашивать...


вот и мои 5 копеек:

я за

welcome db "Welcome to Assembler!", '$'
CRLF db 13, 10, '$'

как паскалист говорю, есть write() / writeln(), я за автоном...

Цитата:

съэкономлен 1 (!!!) байт...

Нет, сэкономлено намного больше.
Функция выводит строку пока не наткнется на символ '$'.
Значит она выведет "Welcome to Assembler!" 13, 10, '$'
Следовательно вметсо

Код: dos_print welcome
dos_print CRLF

MERCURY127

Цитата:

а каково это другому человеку распарсить?

Самому какое-то время спустя тоже может быть непросто.

Цитата:

не, я не спорю - съэкономлен 1 (!!!) байт...

Один байт в сегменте данных. И одно включение dos_print в сегменте кода, а это чуток поболе байтов будет.

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

Цитата:

Самому какое-то время спустя тоже может быть непросто

во во я сам то теперь не понимаю собст код пяти-семилетней давности... сижу и думаю - ба, неужто это я писал? старею, видимо - 30 лет стукнуло...

Вы посмотрите на код Восемнадцатилетней давности. Про себя - ярый противник ассемблера - на ассемблере не должны писать люди. Бывают инопланетяне - им можно, но даже им вредно. Однако при нынешнем брожении в мозгах ИТ специалистов, когда нельзя оптимизировать 2 условия логических примерно для 80 миллионов пользователей, тогда прогноз - ассемблер жить пока будет.

akaGM
Спасибо! повлияло то что label убрал и оставил @@lb1 и т.д.

priorovod
пожалуйста...
только это называется не ассемблерная вставка, а спец.функция на BASM'e

MERCURY127

Цитата:

старею, видимо - 30 лет стукнуло...

а чё серпом размахиваешь? :)

Привет всем.
У меня такой вопрос почему отладчик пропускает прерывание int 21h? Приведу пример

Код:
.model small
.stack 1024
.data
mystr db 100 dup(?)

.code
start:
mov ax,@data
mov ds,ax
mov ah,0ah
lea dx,mystr
int 21h

mov ah,9
lea dx,mystr
int 21h
mov ah,4ch
mov al,0
int 21h
end start

blaro
я плохо это помню, но вроде первым в буфере должен стоять байт длины
а после ввода ещё один байт добавляется, т.е.
перед выводом на экран надо как-то так делать
lea dx, mystr+2
глянь, может в этом дело...

да и по 21/09 про завершающий $ не забывай...

akaGM

Цитата:

я плохо это помню, но вроде первым в буфере должен стоять байт длины
глянь, может в этом дело...

Хм... добавил следующие строки

Код:
LEA DX,STRING ;DS:DX указывают на адрес строки
MOV BX,DX ;пусть BX тоже указывает на строку
MOV AL,51 ;установка длины строки (+1 для CR)
MOV [BX],AL ;посылаем в 1-й байт дескриптора
MOV AH,0AH ;номер функции
INT 21H ;получаем строку

blaro
значит так...

21/0аh
вход
ds:dx=адрес буфера, первый байт=размер буфера
выход
ds:dx=адрес буфера, первый байт=размер буфера, второй=количество реально введённых байт

Значит строку надо объявлять так?
mystring db 100,100 dup(?)

я бы вообще вот так:
mystring db 100,100, 98 dup('$')

Нет. Так: buf db 82, ?, 80 dup (?), а можно и еще красивее, но с телефона лень писать

если ноль оставить или ? что одно и тоже, то программа еще UPX-ом будет сжиматься

при dup('$') при однократном прогоне не нужно будет высчитывать и вписывать $ для 21/09
типа оптимизация...

Подскажите пожалуйста как лучше реализовать приведенный мной ниже алгоритм шифрования:
bres = (bsrc ROL (i mod M)), где bsrc – i-ый байт кодируемого файла, bres – i-ый байт в результирующем файле, полученный в результате кодирования, M – параметр алгоритма, целое число,
задаётся пользователем и лежит в пределах 0...9, i – номер позиции кодируемого
байта в кодируемом файле, отсчитанный от начала файла, ROL – операция
циклического сдвига влево, mod – операция взятия остатка от деления.

а в чём проблема?
как написано, так последовательно и реализуй...
все операции примитивные и существуют в ассемблере...

Цитата:

типа оптимизация...

а понил. обычно при записи в строку указатель сразу на конец показывает, разве задом наперед если ее заполнять

akaGM
проблема в том что до этого я делал шифрование/дешифрование методом перестановки бай и вышло как то не очень.

http://dl.dropbox.com/u/56949969/tail.asm вот исходник