Паскаль + асм

[zla9_kolu4ka]

Вообще паскалевский код 64 битный(у меня Windows7 x64), а асемблерный 16 битный, нужно чтобы разряднсть и у асма и у паскаля была одинаковой(мне так подсказали) чтобы норм работало, поэтому нужно либо код асма переписывать под x64, либо паскалевский писать под 16 бит

[ZX Spectrum-128]

Как раз паскалевский код написан так, что ему n-битность до лампочки. Он компилируется и в 16-битный под dos, и в 32-битный под windows. А вот ассемблерная часть. Там да, непонятки. Тасм его компилирует, но при вызове из паскалевской программы виснет. Наглухо. Я и модель менял на pascal и вызовы в стиле паскаля пытался делать. Не-а.

[zla9_kolu4ka]

Тасм его компилирует, но при вызове из паскалевской программы виснет

А у вас разрядность совпадает?
Вы паскалевский код где компилируете?


Кстате код

Program mov16;
var
x,a:    integer;
b,z:    byte;

{$L mov_16.obj}
Procedure mov_16(var x:integer;var z:byte); external;

begin
writeln('Вычислить: x=a a,x: integer;');
write('Введите значение a ');
readln(a);
x:=a;
writeln('Вычислить z=b; b,z:byte;');
write('Введите значение b ');
readln(b);
z:=b;
writeln('ПАСКАЛЬ: x=',x,' z= ',z );
z:=0;
x:=0;
mov_16(x,z);
writeln('АССЕМБЛЕР: x=',x,' ;z= ',z);
readln;
end.

не компилируется на LazaRUS, этот код же написан под turbo pascal(судя по книге и вроде как вы ZX Spectrum-128 запустили на turbo pascal и у вас норм), а в LazaRUS компилятор FreePascal, а FreePascal совместим с Borland Pascal, а Borland Pascal, насколько я знаю, продвинутая версия Turbo Pascal, так почему тогда код не компилируется?

[ZX Spectrum-128]

Компилировал в bp7 (real mode) и в free pascal.
Ассемблерный текст компилировал tasm'мом

[zla9_kolu4ka]

Компилировал в bp7 (real mode) и в free pascal.

Я не разбираюсь в режимах работы процессора(читала уже забыла)
вы скажите, разрядность одинакова или нет?(тем более что однин и тот же компилятор иожно запустить и под 16 бит и под 32 и под 64)
Например, про Free Pascal почитайте
http://www.cyberforum.ru/pascal/thread89342.html
можно запустить и в DOS и в Win32

[Son Of Pain]

На самом деле все проще ) в ассемблерном коде процедура объявлена как far, а в паскале нет.
Напиши

Procedure mov_16(var x:integer;var z:byte); far; external;

[zla9_kolu4ka]

Напиши
Procedure mov_16(var x:integer;var z:byte); far; external;

тоже самое, не компилируется, если есть
{$L mov_16.obj}
или
mov_16(x,z);

[ZX Spectrum-128]

Son Of Pain, да, спасибо. Теперь нормально отрабатывает.

PS: я вообще-то не копенгаген в ассемблере

тоже самое, не компилируется, если есть

zla9_kolu4ka, турбо паскалем норм все