Паскаль + асм

[zla9_kolu4ka]

Procedure mov_16(var x:integer;var z:Byte); еxtermal;

ДА!
это что то меняет?

[ZX Spectrum-128]

Конечно. Тогда будет вызов процедуры ассемблерной. А не как было у вас рекурсивный вызов паскалевской процедуры.

[zla9_kolu4ka]

Конечно. Тогда будет вызов процедуры ассемблерной

А где он ее(процедуру) берет и как определяет, где ее(процедуру и файл) взять

[ZX Spectrum-128]

{$L имяфайла.obj}

[zla9_kolu4ka]

{$L имяфайла.obj}

так я вообще mov_16.obj вырезала на рабочий стол!
Его (mov_16.obj) нет в папке с паскалем НЕТ
И никакие пути , типа {$L имяфайла.obj} я не прописывала
И ошибок не было!!!

[ZX Spectrum-128]

External же не было добавлен в обьявлении процедуры и паскаль считал, что это его родная паскалевская процедура. А сейчас он должен ругаться

[zla9_kolu4ka]

External же не было добавлен в обьявлении процедуры и паскаль считал, что это его родная паскалевская процедура. А сейчас он должен ругаться

Я создала папку новую, создала новый файл, скопировала туда код, откомпилировала с External , никаких ошибок!
Вот код, который дописывает LazaRus сам:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type
  TForm1 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

end.

[ZX Spectrum-128]

Почему лазарус-то? Вы так и не верите, что!
Надо цеплять к турбо паскалю.

[zla9_kolu4ka]

Почему лазарус-то? Вы так и не верите, что!
Надо цеплять к турбо паскалю.

Тут проблема со самой LazaRUS была!(неправильно делала)
И вправду не компилируется теперь,
ZX Spectrum-128 напишите пожалуста код рабочий как будет выглядеть в турбо паскале

[ZX Spectrum-128]

Паскалевскую я подправил

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.

А ассемблерная часть точно правильная? Виснет она.
Что-то там не так.
Почитайте тут:
http://citforum.ru/programming/tasm3/tasm3_19.shtml