Использование регистров в Делфи

[Tronix]

Ой чего-то вы все такое городите, что аж страшно.

test dh,80h - проверить, установлен ли нулевой бит в dh
je bla-bla - если таки установлен, прыгнуть туда-то.

test аналогична операции or, с тем лишь отличием, что не меняет регистр.

[veniside]

test аналогична операции or

Не, ну ладно я вчера независимость отмечал, мне простительно, а в Москве какой праздник? )

TEST Test Bits

Performs a bit-wise logical AND on the value in a register or memory location (first operand) with an immediate value or the value in a register (second operand) and sets the flags in the rFLAGS register based on the result. While the AND instruction changes the contents of the destination and the flag bits, the TEST instruction changes only the flag bits.
Related Instructions
AND, CMP
TEST Test Bits

[Пепел Феникса]

проверить, установлен ли нулевой бит в dh

который бит?
может 7-ой(высший)?

[Tronix]

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

Не, ну ладно я вчера независимость отмечал, мне простительно, а в Москве какой праздник? )

А в Москве конец рабочего дня, уже мозги не работают. Конечно AND, а не OR, все, пора в отпуск ))

[Tronix]

Сообщение от Пепел Феникса

который бит?
может 7-ой(высший)?

Да, старший бит. Все, все, я больше ничего не буду писать, извините дядьку

[DimitarSergius]

это шо за паноптикум, какой ещё EDX на Паскале?

Если вы умудрились загнать в 32-битную переменную с именем EDX значение регистра EDX, и далее хотите проверить, а не содержат ли биты с 8 по 15 значение, похожее на $80, то делайте, как велит сердце:

Да вы что ?!!! Конечно же ничего не умудрился... Это для удобства поназывал переменные, когда рипал код

Извините, что не отвечал, вопрос давно решен.
Кстати EDX - это у меня просто переменная была (ЭТО НЕ РЕГИСТР !!!)
Помогли на экзелабе
tmp:= (EDX >> 8) & 0x0FF
tmp >= $80

ну а точнее на Паскале у меня так:
if ((EDX shr 8) and $0FF) >= $80 then.....

Ну а чтобы совсем никого не вводить в заблуждение, напишу вот так:
var a:integer;
.....
if ((a shr 8) and $0FF) >= $80 then
.......


так как думаю я сбил с толку многих записью EDX...., хотя как я писал выше это только название переменной (var EDX:integer)

Извините за не совсем точно заданный вопрос

[veniside]

> Помогли на экзелабе
> if ((EDX shr 8) and $0FF) >= $80 then.....

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

Сравните с тем, что я посоветовал:

if (0 = EDX and $8000) then { тут кусок из MYPROG_0053F44B }

Проще, быстрей и понятней, не так ли?