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

[DimitarSergius]

Извините за такой нубский вопрос:

Есть конструкция на асме:

TEST DH,080h //сравниваем DH с 080h
JE @MYPROG_0053F44B // прыгаем, если равно

Я сделал так
tmp:=copy(IntToHex(EDX,2),Length(In tToHex(EDX,2))-3,2);
if StrToInt('$'+tmp) >= $80

но специалист сказал, что это изврат и посоветовал вот так
if PByteArray(@EDX)^[2] >= $80
или
if (Byte(EDX shr 8) >= $80)
или
if Word(EDX and $FFFF0000) >= $8000

но так не работает... (может только у меня )

Я ведь правильно понимаю:

[veniside]

> tmp:=copy(IntToHex(EDX,2),Length(In tToHex(EDX,2))-3,2);

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

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

if ($8000 = EDX and $0000FF00) then ...

а не как горе-специалисты.

Update: код ошибочный, см. ниже.

[D@rkD@iver]

а почему просто не открыть

asm
   TEST DH,080h //сравниваем DH с 080h
    JE @MYPROG_0053F44B // прыгаем, если равно
end;

и вся проблема

[mss]

Я ведь правильно понимаю

Ну ты сам подумай, без "специалистов", каким образом в одном (!) двоичном разряде умудрится разместиться число 8, занимающее 4 (!) двоичных разряда ?)

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

это не считая того что dh имеет размер 8-бит.

[veniside]

Че вы путаете человека, у него там полубайты нарисованы (по 4 бита каждый), как я понял, так что всё ОК. И значение $80 легко влазит в 8 бит.

Но, кстати, я сам протупил, и сбили меня дубовые комменты к коду:

TEST DH,080h //сравниваем DH с 080h
JE @MYPROG_0053F44B // прыгаем, если равно

Ничего там с 0x80 не сравнивается, и не переходит по равно.
Аналогичный код на Паскале (не придираясь к тому, что такое EDX и откуда оно взялось. Считаем, что там значение регистра EDX):

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

Т.е. переход, если 15-ый бит в EDX сброшен.

[mss]

у него там полубайты нарисованы

Нарисованы черно-желтым по белому 8 бит регистра DH, в 3-м бите которого торчит восьмерка.

[veniside]

я лично вижу так )

[mss]

Ну да, похоже и я протупил, согласен)

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

если это полубайты, то тогда верно.

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