Программа не может найти файл obj

@elka_vt · Регистрация: 16.12.2012

Студворк — интернет-сервис помощи студентам

есть 2 проги на ассемблере и паскале,но когда запускаю прогу на паскале пишет что не может найти файл obj подскажите что делать((((оч горит вот проги
паскаль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
type arr=array[1..10] of integer;
var
a: arr;
x: integer;
n1, n2: integer;
i: integer;
flag: boolean;
{$L proc_asm.obj}
{$F+}
procedure input;
begin
     writeln('Please input 10 numbers of array:');
     i:=1;
     for i:=1 to 10 do
     readln(a[i]);
end;
procedure print;
begin
i:=1;
for i:=1 to 10 do
    begin
    write(' ',a[i]);
    end;
end;
procedure readnumbers;
begin
     writeln;
     flag:=false;
     while (flag=false) do
     begin
     writeln('Input correct number of the first element:');
     readln(n1);
     if ((n1>=1) and (n1<=10)) then flag:=true;
     end;
     flag:=false;
     while (flag=false) do
     begin
     writeln('Input correct number of the second element:');
     readln(n2);
     if ((n2>=1) and (n2<=10)) then flag:=true;
     end;
end;
procedure changeplaces(var a:arr, n1,n2:integer); external;
{$F-}
begin
clrscr;
input;
print;
readnumbers;
changeplaces(a, n1, n2);
print;
readkey
end.

ассемблер

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
TITLE changeplaces
MODEL Large, Pascal
.CODE
PUBLIC changeplaces
changeplaces PROC FAR a:DWORD, n1:WORD, n2:WORD
  push es           ; сохраняем используемые сегментные
  push di           ; и индексные регистры
  les di,a          ; загружаем в пару es:di указатель на массив
  mov dx,di         ; сохраним начало массива
  add di,n1         ; вычислим смещение первого эл-та (ofs = ofs + (n1 - 1)*sizeof(integer))
  add di,n1         ; добавляем два раза, т.к. размер эл-тов = 2байт(integer)
  sub di,2          ; на один эл-т назад, т.к. индексация с 1
  mov cx,di         ; сохраняем смещение 1-го эл-та
  mov ax, es:[di]   ; ax = 1-й эл-т
  mov di,dx         ; восст-ем смещение начала массива
  add di,n2         ; вычисляем смещение 2-го эл-та
  add di,n2
  sub di,2
  xchg ax, es:[di]  ; обмен значений ax <-> 2-й эл-т
  mov di,cx         ; восст-ем смещение 1-го эл-та
  mov es:[di],ax    ; записываем новое значение 1-го эл-та
  pop di            ; восстанавливаем сег. и инд. регистры
  pop es
  ret               ; возврат
changeplaces ENDP
  END

@Fakeoke · 07.05.2013, 16:56

proc_asm.obj

должна лежать в папке с turbo.exe паскаля... т.е в BIN

ее нужно сделать из asm кода с помощью tasm

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	07.05.2013, 16:56
	proc_asm.obj должна лежать в папке с turbo.exe паскаля... т.е в BIN ее нужно сделать из asm кода с помощью tasm 0