Can you help me with my problem? I really need this module in Free Pascal.
FPC does not support TP's
Inline intrinsic. You need to convert it to full blown inline assembly.
Essentially you should be able to simply take the comments at the right and copy that into
asm … end blocks in the
implementation section for each function and add the directives
assembler; nostackframe; to the declarations in the
interface section.
Please note however that these routines are
only useful if you use FPC's i8086-msdos or i8086-win16 targets. For other targets you need to replace them (and even for the mentioned targets it's more portable if you do so), for example with Pascal code (e.g. for
FlagIsSet) or by calls to existing functions (e.g.
SetJump and
LongJump are provided by FPC as are replacements for
HiWord,
LoWord or
SwapWord).