UNIT cpu286;
{ Поддержка типов и функций для работы с процессором i86 }

INTERFACE

type
  tCPUFlag=(bCarry,
	    b1,
	    bParity,
	    b3,
	    bAuxilliary,
	    b5,
	    bZero,
	    bSign,
	    b8,
	    bInterrupt,
	    bDirection,
	    bOverflow,
	    b15);

  tCPUeFlag=(beCarry,
	    be1,
	    beParity,
	    be3,
	    beAuxilliary,
	    be5,
	    beZero,
	    beSign,
	    beTrace,
	    beInterrupt,
	    beDirection,
	    beOverflow,
	    be15,
	    beRF,
	    beVirtual);


  tInterruptTable=array[Byte] of Pointer;

  tCPUFlags=Set of tCPUFlag;

IMPLEMENTATION
END.