Паскаль + асм

[ZX Spectrum-128]

Эмулятор dos проще всегопоставить
Dosbox

[zla9_kolu4ka]

 Из комплекта турбо паскаля?

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

[zla9_kolu4ka]

Dosbox

Там файловая оболочка нормальная нужна будет, а far не работает в ДОС, а нортон вообще не нравится, он не поддерживает длинные имена, русский шрифт, самое главное когда заходишь в папку, far их все видит, написал одну букву, он автоматически остальное подставляет, а в Нортоне такого нету, там все приходится писать полностью, все пути, хотя может мне попался такой дурацкий нортон
И вообще какие норм файловые оболочки под дос?

[ZX Spectrum-128]

Dos navigator
http://www.izone.ru/disk/shells/dos-navigator.htm

[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.

А как тут асм вызывается?
У меня и без асмовского файла норм компилируется!!
В чем тогда прикол?

[Serge_Bliznykov]

А как тут асм вызывается?

никак. Тут нет вызова asm'а

я Вам больше скажу.
Ваш код вообще не будет компилироваться, ибо он ошибочен.
И более того, если Вы закроете описание процедуры mov_16 (там end'а не хватает),
напишите основное тело программы и вызов mov_16 - программа всё равно работать не будет - рекурсивых вызов процедуры быстро приведёт к зацикливанию -> переполнению стека.

[zla9_kolu4ka]

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

почему, работает!
компилятор Free Pascal
свободно распространяемый компилятор языка Паскаль. Он совместим с Borland Pascal 7 и Object Pascal. Работает в x64
IDE - LazaRus
Удобнее чем DosNavigator, кстате DN такой же отстой, как NC

[ZX Spectrum-128]

Вы не поняли. Вы вызываете процедуру саму из себя.

[zla9_kolu4ka]

Во заморочки, а я думала тут вызов асмовского кода:
mov_16(x,z);
а это:
Procedure mov_16(var x:integer;var z:Byte);
описание на паскале, а это:

.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

определение на асме
аха


Я неправильно поняла, что в книге хотели сказать

[ZX Spectrum-128]

Если я правильно помню, должно быть так описание:

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