Source file: /~heha/hs/kcemu/kcemu_052.exe/SRC/KCHDR.PAS

unit KCHdr;
interface
{$C MOVEABLE PRELOAD PERMANENT}	{gleiche Attribute wie Unit SYSTEM}
uses WinTypes;
var
 hKBWnd: HWnd;		{Tastaturfokus für nichtmodale Dialoge}
 hDebug: HWnd;		{Windows oder BP setzen auf Null!(?)}
 hModul: HWnd;
 hKeymap: HWnd;
type
 TRegs=record
  case Integer of
   0: (BC,DE,HL,AF,BC_,DE_,HL_,AF_,PC,SP_,IX,IY:Word);
   1: (C,B,E,D,L,H,F,A:Byte;
       rsv: array[0..7] of Word;
       IFF,R,IM,I: Byte);
 end;
 TNearProc=Word;

 PIntInfo=^TIntInfo;
 TIntInfo=record	{Für jede interruptfähige Sub-Einheit}
  iv: Byte;		{Interruptvektor}
  ii: Byte;		{Flags}
  pr: Word;		{Interrupt-Priorität}
 end;
const
 II_Request	=$01;	{Anforderung}
 II_InService	=$02;	{Angenommen, wartet auf RETI}
 II_NoInService	=$04;	{keine Standardeinheit: braucht kein RETI}
type
 TCTC0=record
  ii: TIntInfo;
  ks,zk,rz,ei: Byte;
  getp,putp: TNearProc;
  from: LongInt;
 end;
 TCTC=array[0..3] of TCTC0;
var
 MemKCSel: Word;
 Regs: TRegs;
 MainWnd: HWnd;
implementation
end.