Не линкуется obj file

@Марина_Киев_КПИ · Регистрация: 24.11.2014

Программа тасмом компилируется, но не линкуется. Мне нужно ввести данные и вывести.
Вроде бы все верно сделано "по учебнику", но не пойму чего не работает. Помогите новичку
"Unable to open obj file"

Assembler

STSEG  SEGMENT  PARA  STACK  'STACK'
DB 64 DUP ( 'STACK' ) 
STSEG  ENDS 
DSEG  SEGMENT  PARA  PUBLIC  'DATA'
SOURCE  DB 10, 20, 30, 40 
DEST  DB 4 DUP (?) 
dump  dw (?) 
DSEG  ENDS 
CSEG  SEGMENT PARA PUBLIC  'CODE' 
MAIN  PROC  FAR 
ASSUME  CS: CSEG, DS: DSEG, SS: STSEG 
vvod proc far
lea dx, dump ;
mov ah, 10 ;
int 21h ; 
vvod endp
digit proc far
mov bx, dump
or bx, bx ;проверяют старший разряд числа, там знак
jns m1 ; если знак = 0 переход на м1, иначе
mov al, '-'
int 29h ;выводим '-'
neg bx ;умножаем число в ВХ на -1, то есть из отрицательного числа получаем положительное
m1: mov ax, bx
 xor cx, cx ;обнуляем счетчик десятичных разрядов
 mov bx, 10 ;в ВХ делитель, делить будем на 10
m2: xor dx, dx ;делится число старшая часть числа в dx младшая часть в ax на bx, поэтому dx обнуляем
 div bx ;делим число в dx:ax  на bx
 add dl, '0';к остатку от деления на 10 добавляем "0" чтобы получить соответствующий символ
 push dx ;отправляем остаток в стек
 inc cx ;увеличиваем счетчик десятеричных разрядов на 1
 test ax, ax; больше делить нечего? АХ=0?
 jnz m2 ;если не ноль переходим на м2
m3: pop ax ;извлекаем остатки от деления из стека
 int 29h ;выводим их на экран
 loop m3 ;если СХ не равно 0, перейти по метке м3
 ret
digit endp
MAIN ENDP 
CSEG ENDS 
END MAIN

Charles Kludge · 10.02.2016, 18:57

А так компилится и линкуется:

Assembler

; tasm /m3 proga && tlink proga /Tde
.model compact
.stack
.data
SOURCE  DB 10, 20, 30, 40 
DEST  DB 4 DUP (?) 
dump  dw (?) 
.code
MAIN  PROC  FAR 
vvod proc far
lea dx, dump ;
mov ah, 10 ;
int 21h ; 
vvod endp
digit proc far
mov bx, dump
or bx, bx ;проверяют старший разряд числа, там знак
jns m1 ; если знак = 0 переход на м1, иначе
mov al, '-'
int 29h ;выводим '-'
neg bx ;умножаем число в ВХ на -1, то есть из отрицательного числа получаем положительное
m1: mov ax, bx
 xor cx, cx ;обнуляем счетчик десятичных разрядов
 mov bx, 10 ;в ВХ делитель, делить будем на 10
m2: xor dx, dx ;делится число старшая часть числа в dx младшая часть в ax на bx, поэтому dx обнуляем
 div bx ;делим число в dx:ax  на bx
 add dl, '0';к остатку от деления на 10 добавляем "0" чтобы получить соответствующий символ
 push dx ;отправляем остаток в стек
 inc cx ;увеличиваем счетчик десятеричных разрядов на 1
 test ax, ax; больше делить нечего? АХ=0?
 jnz m2 ;если не ноль переходим на м2
m3: pop ax ;извлекаем остатки от деления из стека
 int 29h ;выводим их на экран
 loop m3 ;если СХ не равно 0, перейти по метке м3
 ret
digit endp
MAIN ENDP 
END MAIN

@Марина_Киев_КПИ · 10.02.2016, 19:23 **[ТС]**

Charles Kludge, проверила - то же самое. Может быть это из-за переменной dump, я не уверена, что она верна тут...

@Constantin Cat · 10.02.2016, 19:23

Сообщение от Марина_Киев_КПИ

но не линкуется

Странно, все проглотил TASM 2.00

@Марина_Киев_КПИ · 10.02.2016, 19:27 **[ТС]**

Constantin Cat, я в фаре линкую, а результат ? вводится/выводится корректно? можете еще глянуть переменную dump. ПС TASM 5.0

@Constantin Cat · 10.02.2016, 20:03

Не понятно, что Вы хотите сделать:

Assembler

1 2	mov ah, 10 int 21h

Добавлено через 28 минут
Да уж, стиль оставляет желать . . ., это так в КПИ учат?
Есть регистры, которые при вызове подпрограмм не должны менятся ВХ - один из них.
Вот, до делал:

Assembler

STSEG  SEGMENT  PARA  STACK  'STACK'
DB 64 DUP ( 'STACK' ) 
STSEG  ENDS 
DSEG  SEGMENT  PARA  PUBLIC  'DATA'
SOURCE  DB 10, 20, 30, 40 
DEST  DB 4 DUP (?) 
dump  dw -100
DSEG  ENDS 
CSEG  SEGMENT PARA PUBLIC  'CODE' 
MAIN  PROC  FAR 
ASSUME  CS: CSEG, DS: DSEG, SS: STSEG 
digit proc far
mov ax,DSEG
mov ds,ax
mov bx, dump
or  bx, bx ;проверяют старший разряд числа, там знак
jns m1 ; если знак = 0 переход на м1, иначе
mov al, '-'
int 29h ;выводим '-'
neg bx ;умножаем число в ВХ на -1, то есть из отрицательного числа получаем положительное
m1: mov ax, bx
 xor cx, cx ;обнуляем счетчик десятичных разрядов
 mov bx, 10 ;в ВХ делитель, делить будем на 10
m2: xor dx, dx ;делится число старшая часть числа в dx младшая часть в ax на bx, поэтому dx обнуляем
 div bx ;делим число в dx:ax  на bx
 add dl, '0';к остатку от деления на 10 добавляем "0" чтобы получить соответствующий символ
 push dx ;отправляем остаток в стек
 inc cx ;увеличиваем счетчик десятеричных разрядов на 1
 test ax, ax; больше делить нечего? АХ=0?
 jnz m2 ;если не ноль переходим на м2
m3: pop ax ;извлекаем остатки от деления из стека
 int 29h ;выводим их на экран
 loop m3 ;если СХ не равно 0, перейти по метке м3
mov ax,4c00h
int 21h
digit endp
MAIN ENDP 
CSEG ENDS 
END MAIN

@Марина_Киев_КПИ · 10.02.2016, 20:13 **[ТС]**

Constantin Cat, В КПИ увы ничерта сейчас не учат( Все сами берите да разбирайтесь. Они эту дисциплину порезали сильно, зато английский поставили

@Constantin Cat · 10.02.2016, 20:17

Сообщение от Марина_Киев_КПИ

сами берите да разбирайтесь

Вы разобрались с кодом?

@Марина_Киев_КПИ · 10.02.2016, 20:27 **[ТС]**

Constantin Cat, С кодом я разобралась без проблем. Теперь в вашей версии компилируется, OBJ создается, но когда запускаю exe - черное окно и вылетает из окна доса. Можно поинтересоваться , у вас работает?

@Constantin Cat · 10.02.2016, 20:33

Марина_Киев_КПИ, Ой в другой теме дал ответ.

@Марина_Киев_КПИ · 10.02.2016, 20:56 **[ТС]**

Constantin Cat, видела. Тоесть работает корректно?

@Constantin Cat · 11.02.2016, 10:15

Сообщение от Марина_Киев_КПИ

Тоесть работает корректно

Вы не можете посмотреть результаты?
Как Вы компилируете, как запускаете?

@Mikl___ · 11.02.2016, 10:18

Марина_Киев_КПИ,
читай внимательно Как создать объектный файл

Charles Kludge · 11.02.2016, 12:15

Сообщение от Марина_Киев_КПИ

проверила - то же самое.

tasm 4.01/tlink 4.1 всё кушают.

Сообщение от Марина_Киев_КПИ

я в фаре линкую, а результат ?

Дык, и я в FAR'e транслирую и линкую. Правда, линкер обычно от Waterloo, но для чистоты эксперимента взял tlink.

@Марина_Киев_КПИ -21 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 97
	10.02.2016, 19:23 [ТС]	3
	Charles Kludge, проверила - то же самое. Может быть это из-за переменной dump, я не уверена, что она верна тут... 0

@Constantin Cat 1951 / 1039 / 365 Регистрация: 28.02.2015 Сообщений: 2,322 Завершенные тесты: 1
	10.02.2016, 19:23	4
	Сообщение от Марина_Киев_КПИ но не линкуется Странно, все проглотил TASM 2.00 0

@Марина_Киев_КПИ -21 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 97
	10.02.2016, 19:27 [ТС]	5
	Constantin Cat, я в фаре линкую, а результат ? вводится/выводится корректно? можете еще глянуть переменную dump. ПС TASM 5.0 0

@Марина_Киев_КПИ -21 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 97
	10.02.2016, 20:13 [ТС]	7
	Constantin Cat, В КПИ увы ничерта сейчас не учат( Все сами берите да разбирайтесь. Они эту дисциплину порезали сильно, зато английский поставили 0

@Constantin Cat 1951 / 1039 / 365 Регистрация: 28.02.2015 Сообщений: 2,322 Завершенные тесты: 1
	10.02.2016, 20:17	8
	Сообщение от Марина_Киев_КПИ сами берите да разбирайтесь Вы разобрались с кодом? 0

@Марина_Киев_КПИ -21 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 97
	10.02.2016, 20:27 [ТС]	9
	Constantin Cat, С кодом я разобралась без проблем. Теперь в вашей версии компилируется, OBJ создается, но когда запускаю exe - черное окно и вылетает из окна доса. Можно поинтересоваться , у вас работает? 0

@Constantin Cat 1951 / 1039 / 365 Регистрация: 28.02.2015 Сообщений: 2,322 Завершенные тесты: 1
	10.02.2016, 20:33	10
	Марина_Киев_КПИ, Ой в другой теме дал ответ. 1

@Марина_Киев_КПИ -21 / 0 / 0 Регистрация: 24.11.2014 Сообщений: 97
	10.02.2016, 20:56 [ТС]	11
	Constantin Cat, видела. Тоесть работает корректно? 0

@Constantin Cat 1951 / 1039 / 365 Регистрация: 28.02.2015 Сообщений: 2,322 Завершенные тесты: 1
	11.02.2016, 10:15	12
	Сообщение от Марина_Киев_КПИ Тоесть работает корректно Вы не можете посмотреть результаты? Как Вы компилируете, как запускаете? 0

@Mikl___ 11783 / 6087 / 555 Регистрация: 11.11.2010 Сообщений: 11,073
	11.02.2016, 10:18	13
	Марина_Киев_КПИ, читай внимательно Как создать объектный файл 0

	11.02.2016, 12:15

Опции темы

Charles Kludge Клюг 7642 / 3157 / 382 Регистрация: 03.05.2011 Сообщений: 8,382
	11.02.2016, 12:15	14
	Сообщение от Марина_Киев_КПИ проверила - то же самое. tasm 4.01/tlink 4.1 всё кушают. Сообщение от Марина_Киев_КПИ я в фаре линкую, а результат ? Дык, и я в FAR'e транслирую и линкую. Правда, линкер обычно от Waterloo, но для чистоты эксперимента взял tlink. 0

Не линкуется obj file

Решение