function BitCount(Source: Integer): Integer; assembler;
asm
MOV DX, AX
XOR AX, AX
@@1:
TEST DX, $0001
JZ @@2
INC AX
@@2:
SHR DX, 1
JNZ @@1
end;
Встроенный asm в TP
12345
Цитата:
Сам уже не помню как это делается, т.к. в послед раз писал 3 года назад.
Такие вещи не забываются.
Цитата:
Originally posted by Sagittarius
Такие вещи не забываются.
Такие вещи не забываются.
мда точно ты флудер раз о такой лаже говоришь
Цитата:
Originally posted by pritiera
Есть исходник 2х прог на паскале, необходимо некоторые участки кода написать на встроенном в TP 7.1 ассемблере (asm ... end;). Сам уже не помню как это делается, т.к. в послед раз писал 3 года назад.
Есть исходник 2х прог на паскале, необходимо некоторые участки кода написать на встроенном в TP 7.1 ассемблере (asm ... end;). Сам уже не помню как это делается, т.к. в послед раз писал 3 года назад.
Крут, крут, я вижу. Но такие вещи действительно не забываются.
Это лаба такая, или для себя захотелось? Если второе, то фигли?
Цитата:
Originally posted by Freeman
Крут, крут, я вижу. Но такие вещи действительно не забываются.
Это лаба такая, или для себя захотелось? Если второе, то фигли?
Крут, крут, я вижу. Но такие вещи действительно не забываются.
Это лаба такая, или для себя захотелось? Если второе, то фигли?
Вообще-то меня попросили сделать эту лабу. Но единственное что я помню так это токо паскаль. Вот на паскале есть, а как именно писать уже не помню, да и лекции уже давно сожжены. А в инете не так уж много и примеров, хотя если есть ссылка Freeman, буть добр помоги.
Цитата:
Originally posted by pritiera
А в инете не так уж много и примеров, хотя если есть ссылка Freeman, буть добр помоги.
А в инете не так уж много и примеров, хотя если есть ссылка Freeman, буть добр помоги.
Мдя-я-я. Ты ассемблер хоть помнишь, программист от сохи? Пример привести нетрудно:
Код:
Freeman, а комменты? или оригинал на паскале?
Цитата:
Originally posted by pritiera
Freeman, а комменты? или оригинал на паскале?
Freeman, а комменты? или оригинал на паскале?
Оригинала на Паскале нет, потому-то на асме и писалось.
Если есть под рукой Дельфи - посмотри исходник System.pas - там тебе до фига будет примеров.