Библиотека процедур

[Paradoxer]

Есть процедурка. Необходимо её запихнуть в библиотеку процедур (или с внешним вызовом (.LIB), или как макрокоманду, или как файл дерективы INCLUDE). Подскажите пожалуйста что проще и, если можно - примерчик. Буду очень благодарен.

[Д'якон]

На масме например есть "библиотекарь" (вроде Lib.exe) для создания библиотек .lib. Создает он их из объектных файлов.

[Paradoxer]

Прога написана для TASM. Вопрос в том, как эту процедуру изменить, чтоб можно было запихнуть в библиотеку и как её потом использовать.

[MalCer]

На самом деле проще чем через include не TASM'е нельзя! Можно создать,например, main.asm, а затем подключить его к основному проекту include main.asm

[Paradoxer]

.MODEL SMALL
.386
.387
.DATA
pp dd ?
ppp dd 1.0
Y  Dw 2
n  dw 3
x  dd 0.5
Number_dec dd ?
.CODE
.STARTUP

CALC PROC NEAR
mov cx, n;
fld x
fstp pp
fld ppp
fld pp
lp:
dec cx
FiLD Y
FADD ST, ST(0)
FLD1
fSUB
FLD X
FMUL
FLD PP
FMUL
FiLD Y
FLD1
FSUB
FLD ppp
FMUL
FSUB
FiLD Y
FDIV
FLD PP
FStp PPP
FStp PP
jcxz endpr
INC Y
FLD PP
leave
jmp lp
endpr: FLD PP
FStp Number_dec
call outfloat
RET
CALC ENDP

outfloat proc   near
;вывод...
.EXIT
ret
outfloat endp

мне нужно процедуру calc запихнуть в библиотеку. Тоесть просто вырезаю её вместе с определениями констант, пихаю в файл proc.asm, добавляю include proc.asm (сктати где это писать?после .387?) и оба файла компилю? у меня ещё эта процедура ссылается на процедуру outfloat в основном файле.

[MalCer]

Да. Просто копируйте! Подключают обычно в самом начале. Желательно создать jmp на метку, который обходит includ'ы. Пример:

...
Start:
   jmp Begin
        include proc.asm
Begin:
...

Компилируется только один файл-главный!!!

[Paradoxer]

Не видит процедуры, которая вызывается из файла библиотеки. Пишет, мол неизвесный идентификатор.

[MalCer]

Попробую объяснить на конкретном примере.
Цель: создать прогу, которая требут от пользователя нажатия клавиши и затем вывести любое сообщение
Сначала опишем главную программу:

.286 
CSEG segment
assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG
org 100h
Start:
        jmp Begin

include KEYBOARD.asm

Begin:
        mov ah,9
        mov dx,offset Mess_about
        int 21h			
        int 20h
Mess_about db 'You press key$'
CSEG ends
end Start

Теперь опишем KEYBOARD.asm:

Pause proc
      mov ah,10h
      int 16h
      ret
Pause endp

Все! Компилим и все готово!

[Paradoxer]

Основная программа

.386 
CSEG segment
assume cs:CSEG, ds:CSEG, es:CSEG, ss:CSEG
org 100h
Start:
        jmp Begin

include proc.asm

Begin:
outfloat proc   near
;процедура по выводу даных, полученых из процедуры calc ;файла proc.asm
.EXIT
        ret
outfloat endp

end Start

Файл proc.asm

.MODEL SMALL
.386
.387
.DATA
pp dd ?
ppp dd 1.0
Y  Dw 2
n  dw 3
x  dd 0.5
Number_dec dd ?
.CODE
.STARTUP
CALC PROC NEAR
mov cx, n;
fld x
fstp pp
fld ppp
fld pp
lp:
dec cx
FiLD Y
FADD ST, ST(0)
FLD1
fSUB
FLD X
FMUL
FLD PP
FMUL
FiLD Y
FLD1
FSUB
FLD ppp
FMUL
FSUB
FiLD Y
FDIV
FLD PP
FStp PPP
FStp PP
jcxz endpr
INC Y
FLD PP
leave
jmp lp
endpr: FLD PP
FStp Number_dec
RET
CALC ENDP
end

после этого должна выполнятся процедура из основного файла

Я чувствую, что я туплю....

[MalCer]

Я чувствую, что я туплю....

Ага
Не нужно оформлять proc.asm как программу. Достаточно будет оформить в виде процедуры и вызывать её из программы

CALC PROC 
...
RET
CALC ENDP

Это весь файл proc.asm! Больше в нем ничего не должно быть