Паскаль + асм

[zla9_kolu4ka]

Нужно запустить норм программу

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

Procedure mov_16(var x:integer;var z:Byte);
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.

title	lab-2
.model	large
.data
extrn	x:Dword
a	dd 12345678h
.code
public	movL
movL	proc far
mov	ax,word ptr a
mov	bx,word ptr a+2
mov	word ptr x,ax
mov	word ptr x+2,bx
ret
movL	endp
end

В папке с паскалевским файлом лежит файл mov_16.obj
Пользуюсь Pascal ABC
Выдает
1.pas(22) : Ожидалось ';' на строке end

[ZX Spectrum-128]

Все правильно. И должна быть ; процедура еще не закончилась, а вы . Ставите.
И судя по асмовскому исходнику, код для msdos
Вам нужно с турбо паскалем работать

[zla9_kolu4ka]

код асма не тот, вот

.model  large
.data
extrn   a:word,x:word
extrn   b:byte,z:byte
.code
public  mov_16
mov_16  proc far
mov ax,a
mov bl,b
mov x,ax
mov z,bl
ret
mov_16  endp
end

Переделайте под Pascal ABC, а дальше я буду сама делать, мне надо просто первую прогу запустить!!
У меня просто x64, не пойдет turbo pascal, да и противный он, неудобный

[ZX Spectrum-128]

Зачем вам вообще эта ассемблерная процедура нужна? Она же ничего не делает.

upd: Вы задание свое озвучьте.

[zla9_kolu4ka]

Зачем вам вообще эта ассемблерная процедура нужна? Она же ничего не делает.

Книга автор Голубь НГ
Искусство программирования на Ассемблере.
Там изучается ассемблер в связке с паскалем и C++
Поэтому нужно запустить и изучать дальше примеры

[ZX Spectrum-128]

Глава 6-я? Это под dos. Нужно компилировать tasm'ом ассемблерную часть и подключать ее к турбо паскалю.
PascalABC не будет работать в этом случае.

[zla9_kolu4ka]

Глава 6-я

5-я,

Нужно компилировать tasm'ом ассемблерную часть и подключать ее к турбо паскалю.

я и так компилирую тасмом, а что никак нельзя к Pascal ABC подключить?

[ZX Spectrum-128]

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

Глава 6-я

5-я,

я и так компилирую тасмом, а что никак нельзя к Pascal ABC подключить?

не-а, тасм генерирует 16-битный код и под msdos

[zla9_kolu4ka]

не-а, тасм генерирует 16-битный код и под msdos

TASM на Windows XP же идет 32х битную, так что это не аргумент
Что можно установить, чтобы не устанавливать ДОС и чтобы можно было запустить асм и паскаль?
У меня 7ка x64 и виртуальная машина есть XP x86

[ZX Spectrum-128]

Который тасм? Из комплекта турбо паскаля? Tasmx вроде
Он может генерировать 32-й код, но для protected mode dos, не windows
А впрочем, не могу быть 100% уверен.
Это было так давно, когда я программировал на асм


Ого, 20 лет прошло