BestGuest
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Натолкнулся на проблему ... Сам немного понимаю asm но программирую в основном на delphi а тут встретил интересную библиотеку а в ней все завязано на асме ... Программа компилируется в obj и включается в тело делфийских модулей Можед быть кто намекнет каким образом нужну изминить инструкции что бы все заработало в Delphi ... Привожу текст самой асмовской проги
;
; The following file contains glue code for calling
; routines defined outside of the "RootsEqu" unit.
;
DATA SEGMENT PUBLIC
DATA ENDS
CODE SEGMENT PUBLIC
ASSUME CS:CODE, DS:DATA
PUBLIC UserFunction, UserProcedure ;Make routines known
;function UserFunction(X : real; ProcAddr : Pointer) : real;
UserFunction PROC FAR
POP AX ;Get return address
POP BX
POP CX ;Proc offset
POP DX ;Proc segment
PUSH BX ;Push return address
PUSH AX
PUSH DX
PUSH CX
RET ;Jump to proc
UserFunction ENDP
;procedure UserProcedure(X : TNcomplex; var Y : TNcomplex; ProcAddr : Pointer);
UserProcedure PROC FAR
POP AX ;Get return address
POP BX
POP CX ;Proc offset
POP DX ;Proc segment
PUSH BX ;Push return address
PUSH AX
PUSH DX
PUSH CX
RET ;Jump to proc
UserProcedure ENDP
CODE ENDS
END
|
