Files
harbour-core/harbour/contrib/libnf/ftint86.ch
Przemyslaw Czerpak 906f64702f 2004-12-16 13:32 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/make_gnu.sh
  * harbour/make_tgz.sh
    * fixed HPUX detection

  * harbour/bin/hb-func.sh
    * late GTK lib checking for -xbgtk switch in hb* scripts

  * harbour/contrib/btree/hb_btree.api
  * harbour/contrib/btree/hb_btree.c
  * harbour/contrib/libnf/chdir.c
  * harbour/contrib/libnf/dispc.c
  * harbour/contrib/libnf/ftint86.ch
  * harbour/contrib/libnf/getver.c
  * harbour/contrib/libnf/mkdir.c
  * harbour/contrib/libnf/proper.c
  * harbour/contrib/libnf/rmdir.c
    * casting and small fixes for OpenWatcom compilation

  * harbour/include/hbdefs.h
    * force big endian if not detected automatically for HPUX

  * harbour/source/vm/itemapi.c
    * HPUX uses isfinite() not finite()

  * harbour/source/vm/memvars.c
    ! fixed endian dependent code
2004-12-16 12:36:18 +00:00

74 lines
2.2 KiB
Plaintext

/*
* File......: FTINT86.CH - Header file for users of FT_INT86() function
* Author....: Ted Means
* CIS ID....: 73067,3332
*
* This is an original work by Ted Means and is placed in the
* public domain.
*
* Modification history:
* ---------------------
*
* Rev 1.5 07 Jan 1993 08:01:04 GLENN
* We forgot to escape the less-than symbols in the highbyte() and
* lowbyte() #translates.
*
* Rev 1.4 31 Dec 1992 21:35:46 GLENN
* Some typos made it into the most recent version of ftint86,
* particularly within the highbyte() macro. This has been fixed.
*
* Rev 1.3 01 Jul 1992 01:00:52 GLENN
* Rodgers Moore submitted some fixes to the highbyte() and lowbyte()
* macros that take negative numbers into account. Ted Means and
* Glenn Scott added #defines for the Flag registers. General cleanup
* of formatting, etc.
*
*
* Rev 1.2 15 Aug 1991 23:08:48 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.1 27 May 1991 13:25:18 GLENN
* Revised for new version of ft_int86() package, which is written in C
* (CINT86.C), assembler (AINT86.ASM).
*
* Rev 1.0 01 Apr 1991 01:02:38 GLENN
* Nanforum Toolkit
*
*
*/
#ifndef __FTINT86_CH__
#define __FTINT86_CH__
#define INT86_MAX_REGS 10
#define AX 1
#define BX 2
#define CX 3
#define DX 4
#define SI 5
#define DI 6
#define BP 7
#define DS 8
#define ES 9
#define FLAGS 10
#define FLAG_CARRY 0 // Carry flag
#define FLAG_PARITY 2 // Parity flag
#define FLAG_AUX 4 // Auxillary flag
#define FLAG_ZERO 6 // Zero flag
#define FLAG_SIGN 7 // Sign flag
#define FLAG_TRAP 8 // Trap flag
#define FLAG_INT 9 // Interrupt flag
#define FLAG_DIR 10 // Direction flag
#define FLAG_OFLOW 11 // Overflow flag
#translate makehi( <X> ) => ((<X>) * 256)
#translate REG_DS => .T.
#translate REG_ES => .F.
#translate highbyte( <X> ) => ( int( if( (<X>) \< 0, 65536 + (<X>), (<X>) ) / 256 ) )
#translate lowbyte( <X> ) => ( if( (<X>) \< 0, 65536 + (<X>), (<X>) ) % 256 )
#translate carrySet( <XFLAGS> ) => (ft_isbiton((<XFLAGS>), FLAG_CARRY))
#endif // __FTINT86_CH__