home *** CD-ROM | disk | FTP | other *** search
- { **************************************************************
- Datei: _386.PAS
- --------------------------------------------------------------
- Autor: Sven Letzel
- Datum: 18.04.1993
- Funktion: Interfaceteil für Assemblerroutinen des Moduls
- _386.ASM
- Nutzung von 386er Befehlen
- Borland Pascal 7.0 - Zielplattform: Real, Protected, Windows
- **************************************************************}
-
- UNIT _386;
-
- INTERFACE
-
- FUNCTION Sin387 (x: EXTENDED): EXTENDED;
- FUNCTION Cos387 (x: EXTENDED): EXTENDED;
- PROCEDURE Mem386Copy (Quelle, Ziel: POINTER; QWords: WORD);
- FUNCTION Scan386 (VAR Liste: ARRAY OF LONGINT; VALUE: LONGINT): WORD;
- FUNCTION SetBit (x: LONGINT; BitPos: BYTE): LONGINT;
- FUNCTION ClearBit (x: LONGINT; BitPos: BYTE): LONGINT;
-
- IMPLEMENTATION
-
- {$L _386}
-
- FUNCTION Sin387; EXTERNAL;
- FUNCTION Cos387; EXTERNAL;
- PROCEDURE Mem386Copy; EXTERNAL;
- FUNCTION Scan386; EXTERNAL;
- FUNCTION SetBit; EXTERNAL;
- FUNCTION ClearBit; EXTERNAL;
-
- END.
-