(************************************************************

          KolibriOS system functions and definitions

 ************************************************************)
Unit KolibriOS;
(* -------------------------------------------------------- *)
Interface
(* -------------------------------------------------------- *)
Type
  KolibriChar = AnsiChar;
  PKolibriChar = PAnsiChar;
  PPKolibriChar = PPAnsiChar;

{$IF CompilerVersion < 15}
  QuadWord = Int64;
{$ELSE}
  QuadWord = UInt64;
{$IFEND}

  TSize = Packed Record
    Height: Word;
    Width:  Word;
  End;

  TPoint = Packed Record
    Y: SmallInt;
    X: SmallInt;
  End;

  TRect = Packed Record
    Left:   LongInt;
    Top:    LongInt;
    Right:  LongInt;
    Bottom: LongInt;
  End;

  TBox = Packed Record
    Left:   LongInt;
    Top:    LongInt;
    Width:  LongWord;
    Height: LongWord;
  End;

  TSystemDate = Packed Record
    Year:  Byte;
    Month: Byte;
    Day:   Byte;
    Zero:  Byte;
  End;

  TSystemTime = Packed Record
    Hours:   Byte;
    Minutes: Byte;
    Seconds: Byte;
    Zero:    Byte;
  End;

  TThreadInfo = Packed Record
    CpuUsage:     LongWord;
    WinStackPos:  Word;
    reserved0:    Word;
    reserved1:    Word;
    Name:         Packed Array[0..10] Of KolibriChar;
    reserved2:    Byte;
    MemAddress:   LongWord;
    MemUsage:     LongWord;
    Identifier:   LongWord;
    Window:       TRect;
    ThreadState:  Word;
    reserved3:    Word;
    Client:       TRect;
    WindowState:  Byte;
    EventMask:    LongWord;
    KeyboardMode: Byte;
    reserved4:    Packed Array[0..947] Of Byte;
  End;

  TKeyboardInputMode = (kmASCII, kmSCAN);
  
  TKeyboardInputFlag = (kfCode, kfEmpty, kfHotKey);

  TKeyboardInput = Packed Record
    Flag: TKeyboardInputFlag;
    Code: KolibriChar;
    Case TKeyboardInputMode Of
      kmASCII: (Scan: KolibriChar);
      kmSCAN:  (
                Case TKeyboardInputFlag Of 
                  kfCode:   ();
                  kfHotKey: (Control: Word);           
               );
  End;  
  
  TButtonInput = Packed Record
    MouseButton: Byte;
    ID:          Word;
    HiID:        Byte;
  End;
  
  TKernelVersion = Packed Record
    A, B, C, D: Byte;
    reserved:   Byte;
    Revision:   LongWord;
  End;

  TRAMInfo = Packed Record
    AvailablePages:    LongWord;
    FreePages:         LongWord;
    PageFaults:        LongWord;
    KernelHeapSize:    LongWord;
    KernelHeapFree:    LongWord;
    Blocks:            LongWord;
    FreeBlocks:        LongWord;
    MaxFreeBlock:      LongWord;
    MaxAllocatedBlock: LongWord;
  End;

  TKeyboardLayout = Packed Array[0..127] Of KolibriChar;

  TCtrlDriver = Packed Record
    Handle:         LongWord;
    Func:           LongWord;
    InputData:      Pointer;
    InputDataSize:  LongWord;
    OutputData:     Pointer;
    OutputDataSize: LongWord;
  End;

  TFileDate = Packed Record
    Day:   Byte;
    Month: Byte;
    Year:  Word;
  End;

  TFileTime = Packed Record
    Seconds: Byte;
    Minutes: Byte;
    Hours:   Byte;
    Zero:    Byte;
  End;

  TFileAttributes = Packed Record
    Attributes:   LongWord;
    Flags:        LongWord;
    CreationTime: TFileTime;
    CreationDate: TFileDate;
    AccessTime:   TFileTime;
    AccessDate:   TFileDate;
    ModifyTime:   TFileTime;
    ModifyDate:   TFileDate;
    SizeLo:       LongWord;
    SizeHi:       LongWord;
  End;

  TFileInformation = Packed Record
    FileAttributes: TFileAttributes;
    FileName:       Array[0..255] Of KolibriChar;
    reserved:       Array[0..7] Of Byte;
  End;
  
  TFileInformationW = Packed Record
    FileAttributes: TFileAttributes;
    FileName:       Array[0..255] Of WideChar;
    reserved:       Array[0..7] Of Byte;
  End;
  
  TFolderInformation = Packed Record
    Version:         LongWord;
    BlockCount:      LongWord;
    FileCount:       LongWord;
    reserved:        Array[0..19] Of Byte;
    FileInformation: Array[0..0] Of TFileInformation;
  End;
  
  TFolderInformationW = Packed Record
    Version:         LongWord;
    BlockCount:      LongWord;
    FileCount:       LongWord;
    reserved:        Array[0..19] Of Byte;
    FileInformation: Array[0..0] Of TFileInformationW;
  End;
  
  TStandardColors = Packed Record
    Frames:         LongWord;
    Grab:           LongWord;
    Work3DDark:     LongWord;
    Work3DLight:    LongWord;
    GrabText:       LongWord;
    Work:           LongWord;
    WorkButton:     LongWord;
    WorkButtonText: LongWord;
    WorkText:       LongWord;
    WorkGraph:      LongWord;
  End;

  TSockAddr = Packed Record
    Family: Word;
    Data:   Packed Array[0..13] Of Byte;
  End;

  TOptStruct = Packed Record
    Level:     LongWord;
    OptName:   LongWord;
    OptLength: LongWord;
    Options:   Packed Array[0..0] Of Byte
  End;

  TThreadContext = Packed Record
    EIP:    LongWord;
    EFlags: LongWord;
    EAX:    LongWord;
    ECX:    LongWord;
    EDX:    LongWord;
    EBX:    LongWord;
    ESP:    LongWord;
    EBP:    LongWord;
    ESI:    LongWord;
    EDI:    LongWord;
  End;

  TSignalBuffer = Packed Record
    ID:   LongWord;
    Data: Packed Array[0..19] Of Byte;
  End;

  TIPCMessage = Packed Record
    ID:     LongWord;
    Length: LongWord;
    Data:   Packed Array[0..0] Of Byte;
  End;

  TIPCBuffer = Packed Record
    Lock:        LongWord;
    CurrentSize: LongWord;
    Data:        Packed Array[0..0] Of TIPCMessage;
  End;

  TDebugMessage = Packed Record
    Code: LongWord;
    ID:   LongWord;
    Data: LongWord;
  End;

  TDebugBuffer = Packed Record
    TotalSize:   LongWord;
    CurrentSize: LongWord;
    Buffer:      Packed Array[0..0] Of TDebugMessage;
  End;

(* -------------------------------------------------------- *)
Const

 (* Window styles *)
  WS_SKINNED_FIXED     =  $4000000;
  WS_SKINNED_SIZABLE   =  $3000000;
  WS_FIXED             =  $0000000;
  WS_SIZABLE           =  $2000000;
  WS_FILL_TRANSPARENT  = $40000000;
  WS_FILL_GRADIENT     = $80000000;
  WS_COORD_CLIENT      = $20000000;
  WS_CAPTION           = $10000000;

 (* Caption styles *)
  CAPTION_MOVABLE      = $00000000;
  CAPTION_NONMOVABLE   = $01000000;

 (* Events *)
  REDRAW_EVENT         = 1;
  KEY_EVENT            = 2;
  BUTTON_EVENT         = 3;
  BACKGROUND_EVENT     = 5;
  MOUSE_EVENT          = 6;
  IPC_EVENT            = 7;
  NETWORK_EVENT        = 8;
  DEBUG_EVENT          = 9;

 (* Event Mask Constants *)
  EM_REDRAW            = $001;
  EM_KEY               = $002;
  EM_BUTTON            = $004;
  EM_BACKGROUND        = $010;
  EM_MOUSE             = $020;
  EM_IPC               = $040;
  EM_NETWORK           = $080;
  EM_DEBUG             = $100;

 (* Size multipliers for DrawText *)
  DT_X1                =  $0000000;
  DT_X2                =  $1000000;
  DT_X3                =  $2000000;
  DT_X4                =  $3000000;
  DT_X5                =  $4000000;
  DT_X6                =  $5000000;
  DT_X7                =  $6000000;
  DT_X8                =  $7000000;

 (* Charset specifiers for DrawText *)
  DT_CP866_6X9         = $00000000;
  DT_CP866_8X16        = $10000000;
  DT_UTF_16LE_8X16     = $20000000;
  DT_UTF_8_8X16        = $30000000;

 (* Fill styles for DrawText *)
  DT_FILL_TRANSPARENT  = $00000000;
  DT_FILL_OPAQUE       = $40000000;

 (* Draw zero terminated string for DrawText *)
  DT_ZSTRING           = $80000000;

 (* Button styles *)
  BS_FILL_TRANSPARENT  = $40000000;
  BS_NO_FRAME          = $20000000;

 (* SharedMemoryOpen open\access flags *)
  SHM_OPEN             = $00;
  SHM_OPEN_ALWAYS      = $04;
  SHM_CREATE           = $08;
  SHM_READ             = $00;
  SHM_WRITE            = $01;

 (* KeyboardLayout flags *)
  KBL_NORMAL           = 1;
  KBL_SHIFT            = 2;
  KBL_ALT              = 3;

 (* SystemShutdown parameters *)
  SHUTDOWN_TURNOFF     = 2;
  SHUTDOWN_REBOOT      = 3;
  SHUTDOWN_RESTART     = 4;

 (* Blit flags *)  
  BLIT_CLIENT_RELATIVE = $20000000;

(* -------------------------------------------------------- *)
{-1}      Procedure TerminateThread; StdCall;
{0}       Procedure DrawWindow(Left, Top, Right, Bottom: Integer; Caption: PKolibriChar; BackColor, Style, CapStyle: LongWord); StdCall;
{1}       Procedure SetPixel(X, Y: Integer; Color: LongWord); StdCall;
{2}       Function  GetKey: TKeyboardInput; StdCall;
{3}       Function  GetSystemTime: TSystemTime; StdCall;
{4}       Procedure DrawText(X, Y: Integer; Text: PKolibriChar; ForeColor, BackColor, Flags, Count: LongWord); StdCall;
{5}       Procedure Sleep(Time: LongWord); StdCall;
{6}       {UNDEFINED}
{7}       Procedure DrawImage(Const Image; X, Y: Integer; Width, Height: LongWord); StdCall;
{8}       Procedure DrawButton(Left, Top, Right, Bottom: Integer; BackColor, Style, ID: LongWord); StdCall;
{8}       Procedure DeleteButton(ID: LongWord); StdCall;
{9}       Function  GetThreadInfo(Slot: LongWord; Var Buffer: TThreadInfo): LongWord; StdCall;
{10}      Function  WaitEvent: LongWord; StdCall;
{11}      Function  CheckEvent: LongWord; StdCall;
{12.1}    Procedure BeginDraw; StdCall;
{12.2}    Procedure EndDraw; StdCall;
{13}      Procedure DrawRectangle(X, Y: Integer; Width, Height: LongWord; Color: LongWord); StdCall;
{14}      Function  GetScreenMax: TPoint; StdCall;
{15.1}    Procedure SetBackgroundSize(Width, Height: LongWord); StdCall;
{15.2}    Procedure SetBackgroundPixel(X, Y: Integer; Color: LongWord); StdCall;
{15.3}    Procedure DrawBackground; StdCall;
{15.4}    Procedure SetBackgroundDrawMode(DrawMode: LongWord); StdCall;
{15.5}    Procedure DrawBackgroundImage(Const Image; X, Y: Integer; Width, Height: LongWord); StdCall;
{15.6}    Function  MapBackground: Pointer; StdCall;
{15.7}    Function  UnMapBackground(Background: Pointer): Integer; StdCall;
{15.8}    Function  GetLastDrawnBackgroundRect: TRect; StdCall;
{15.9}    Procedure UpdateBackgroundRect(Left, Top, Right, Bottom: Integer); StdCall;
{16}      Function  FlushFloppyCache(FloppyNumber: LongWord): LongWord; StdCall;
{17}      Function  GetButton: TButtonInput; StdCall;
{18.1}    Procedure DeactivateWindow(Slot: LongWord); StdCall;
{18.2}    Procedure TerminateThreadBySlot(Slot: LongWord); StdCall;
{18.3}    Procedure ActivateWindow(Slot: LongWord); StdCall;
{18.4}    Function  GetIdleTime: LongWord; StdCall;
{18.5}    Function  GetCPUClock: LongWord; StdCall;
{18.6}    Function  SaveRamDisk(Path: PKolibriChar): LongWord; StdCall;
{18.7}    Function  GetActiveWindow: LongWord; StdCall;
{18.8.1}  Function  GetSpeakerState: Integer; StdCall;
{18.8.2}  Procedure SwitchSpeakerState; StdCall;
{18.9}    Function  SystemShutdown(Param: LongWord): Integer; StdCall;
{18.10}   Procedure MinimizeActiveWindow; StdCall;
{18.11}   Procedure GetDiskSystemInfo(Var Buffer); StdCall;
{18.12}   {UNDEFINED}
{18.13}   Procedure GetKernelVersion(Var Buffer: TKernelVersion); StdCall;
{18.14}   Function  WaitRetrace: Integer; StdCall;
{18.15}   Function  CenterMousePointer: Integer; StdCall;
{18.16}   Function  GetFreeMemory: LongWord; StdCall;
{18.17}   Function  GetAvailableMemory: LongWord; StdCall;
{18.18}   Function  TerminateThreadById(ID: LongWord): Integer; StdCall;
{18.19.0} Function  GetMouseSpeed: LongWord; StdCall;
{18.19.1} Procedure SetMouseSpeed(Speed: LongWord); StdCall;
{18.19.2} Function  GetMouseSensitivity: LongWord; StdCall;
{18.19.3} Procedure SetMouseSensitivity(Sensitivity: LongWord); StdCall;
{18.19.4} Procedure SetMousePos(X, Y: Integer); StdCall;
{18.19.5} Procedure SetMouseButtons(State: LongWord); StdCall;
{18.19.6} Function  GetDoubleClickTime: LongWord; StdCall;
{18.19.7} Procedure SetDoubleClickTime(Time: LongWord); StdCall;
{18.20}   Function  GetRAMInfo(Var Buffer: TRAMInfo): Integer; StdCall;
{18.21}   Function  GetSlotById(ID: LongWord): LongWord; StdCall;
{18.22.0} Function  MinimizeWindowBySlot(Slot: LongWord): Integer; StdCall;
{18.22.1} Function  MinimizeWindowByID(ID: LongWord): Integer; StdCall;
{18.22.2} Function  RestoreWindowBySlot(Slot: LongWord): Integer; StdCall;
{18.22.3} Function  RestoreWindowByID(ID: LongWord): Integer; StdCall;
{18.23}   Function  MinimizeAllWindows: LongWord; StdCall;
{18.24}   Procedure SetScreenLimits(Width, Height: LongWord); StdCall;
{18.25.1} Function  GetWindowZOrder(ID: LongWord): LongWord; StdCall;
{18.25.2} Function  SetWindowZOrder(ID, ZOrder: LongWord): Integer; StdCall;
{19}      {UNDEFINED}
{20.1}    Function  ResetMidi: Integer; StdCall;
{20.2}    Function  OutputMidi(Data: Byte): Integer; StdCall;
{21.1}    Function  SetMidiBase(Port: LongWord): Integer; StdCall;
{21.2}    Function  SetKeyboardLayout(Flags: LongWord; Var Table: TKeyboardLayout): Integer; StdCall;
{21.2}    Function  SetKeyboardLayoutCountry(Country: LongWord): Integer; StdCall;
{21.3}    {UNDEFINED}
{21.4}    {UNDEFINED}
{21.5}    Function  SetSystemLanguage(SystemLanguage: LongWord): Integer; StdCall;
{21.6}    {UNDEFINED}
{21.7}    {UNDEFINED}
{21.8}    {UNDEFINED}
{21.9}    {UNDEFINED}
{21.10}   {UNDEFINED}
{21.11}   Function  SetHDAccess(Value: LongWord): Integer; StdCall;
{21.12}   Function  SetPCIAccess(Value: LongWord): Integer; StdCall;
{22.0}    Function  SetSystemTime(Time: TSystemTime): Integer; StdCall;
{22.1}    Function  SetSystemDate(Date: TSystemDate): Integer; StdCall;
{22.2}    Function  SetDayOfWeek(DayOfWeek: LongWord): Integer; StdCall;
{22.3}    Function  SetAlarm(Time: TSystemTime): Integer; StdCall;
{23}      Function  WaitEventByTime(Time: LongWord): LongWord; StdCall;
{24.4}    Procedure OpenCDTray(Drive: LongWord); StdCall;
{24.5}    Procedure CloseCDTray(Drive: LongWord); StdCall;
{25}      Procedure DrawBackgroundLayerImage(Const Image; X, Y: Integer; Width, Height: LongWord); StdCall;
{26.1}    Function  GetMidiBase: LongWord; StdCall;
{26.2}    Procedure GetKeyboardLayout(Flags: LongWord; Var Table: TKeyboardLayout); StdCall;
{26.2}    Function  GetKeyboardLayoutCountry: LongWord; StdCall;
{26.3}    {UNDEFINED}
{26.4}    {UNDEFINED}
{26.5}    Function  GetSystemLanguage: LongWord; StdCall;
{26.6}    {UNDEFINED}
{26.7}    {UNDEFINED}
{26.8}    {UNDEFINED}
{26.9}    Function  GetTickCount: LongWord; StdCall;
{26.10}   Function  GetTickCount64: QuadWord; StdCall;
{26.11}   Function  IsHDAccessAllowed: LongWord; StdCall;
{26.12}   Function  IsPCIAccessAllowed: LongWord; StdCall;
{27}      {UNDEFINED}
{28}      {UNDEFINED}
{29}      Function  GetSystemDate: TSystemDate; StdCall;
{30.1}    Procedure SetCurrentDirectory(Path: PKolibriChar); StdCall;
{30.2}    Function  GetCurrentDirectory(Buffer: PKolibriChar; Count: LongWord): LongWord; StdCall;
{31}      {UNDEFINED}
{32}      {UNDEFINED}
{33}      {UNDEFINED}
{34}      Function  GetPointOwner(X, Y: Integer): LongWord; StdCall;
{35}      Function  GetPixel(X, Y: Integer): LongWord; StdCall;
{36}      Procedure GetScreenImage(Var Buffer; X, Y: Integer; Width, Height: LongWord); StdCall;
{37.0}    Function  GetMousePos: TPoint; StdCall;
{37.1}    Function  GetWindowMousePos: TPoint; StdCall;
{37.2}    Function  GetMouseButtons: LongWord; StdCall;
{37.3}    Function  GetMouseEvents: LongWord; StdCall;
{37.4}    Function  LoadCursorFromFile(Path: PKolibriChar): LongWord; StdCall;
{37.4}    Function  LoadCursorFromMemory(Const Buffer): LongWord; StdCall;
{37.4}    Function  LoadCursorIndirect(Const Buffer; HotSpotX, HotSpotY: ShortInt): LongWord; StdCall;
{37.5}    Function  SetCursor(Handle: LongWord): LongWord; StdCall;
{37.6}    Function  DeleteCursor(Handle: LongWord): LongWord; StdCall;
{37.7}    Function  GetMouseScroll: TPoint; StdCall;
{38}      Procedure DrawLine(X1, Y1, X2, Y2: Integer; Color: LongWord); StdCall;
{39.1}    Function  GetBackgroundSize: TSize; StdCall;
{39.2}    Function  GetBackgroundPixel(X, Y: Integer): LongWord; StdCall;
{39.3}    {UNDEFINED}
{39.4}    Function  GetBackgroundDrawMode: LongWord; StdCall;
{40}      Function  SetEventMask(Mask: LongWord): LongWord; StdCall;
{41}      {UNDEFINED}
{42}      {UNDEFINED}
{43}      Function  InPort(Port: LongWord; Var Data: Byte): LongWord; StdCall;
{43}      Function  OutPort(Port: LongWord; Data: Byte): LongWord; StdCall;
{44}      {UNDEFINED}
{45}      {UNDEFINED}
{46}      Function  ReservePorts(First, Last: LongWord): LongWord; StdCall;
{46}      Function  FreePorts(First, Last: LongWord): LongWord; StdCall;
{47}      {DrawNumber}
{48.0}    Procedure ApplyStyleSettings; StdCall;
{48.1}    Procedure SetButtonStyle(ButtonStyle: LongWord); StdCall;
{48.2}    Procedure SetStandardColors(Var ColorTable: TStandardColors; Size: LongWord); StdCall;
{48.3}    Procedure GetStandardColors(Var ColorTable: TStandardColors; Size: LongWord); StdCall;
{48.4}    Function  GetSkinHeight: LongWord; StdCall;
{48.5}    Function  GetScreenWorkingArea: TRect; StdCall;
{48.6}    Procedure SetScreenWorkingArea(Left, Top, Right, Bottom: Integer); StdCall;
{48.7}    Function  GetSkinMargins: TRect; StdCall;
{48.8}    Function  SetSkin(Path: PKolibriChar): Integer; StdCall;
{48.9}    Function  GetFontSmoothing: Integer; StdCall;
{48.10}   Procedure SetFontSmoothing(Smoothing: Integer); StdCall;
{48.11}   Function  GetFontHeight: LongWord; StdCall;
{48.12}   Procedure SetFontHeight(Height: LongWord); StdCall;
{49}      {Advanced Power Management}
{50.0}    Procedure SetWindowShape(Const Data); StdCall;
{50.1}    Procedure SetWindowScale(Scale: LongWord); StdCall;
{51.1}    Function  ThreadCreate(Entry, Stack: Pointer): LongWord; StdCall;
{52}      {UNDEFINED}
{53}      {UNDEFINED}
{54.0}    Function  GetClipboardSlotCount: Integer; StdCall;
{54.1}    Function  GetClipboardData(Slot: LongWord): Pointer; StdCall;
{54.2}    Function  SetClipboardData(Const Src; Count: LongWord): Integer; StdCall;
{54.3}    Function  DeleteClipboardLastSlot: Integer; StdCall;
{54.4}    Function  ResetClipboard: Integer; StdCall;
{55}      Function  SpeakerPlay(Const Data): LongWord; StdCall;
{56}      {UNDEFINED}
{57}      {PCI BIOS}
{58}      {UNDEFINED}
{59}      {UNDEFINED}
{60.1}    Function  IPCSetBuffer(Const Buffer: TIPCBuffer; Size: LongWord): Integer; StdCall;
{60.2}    Function  IPCSendMessage(ID: LongWord; Var Msg: TIPCMessage; Size: LongWord): Integer; StdCall;
{61.1}    Function  GetScreenSize: TSize; StdCall;
{61.2}    Function  GetScreenBitsPerPixel: LongWord; StdCall;
{61.3}    Function  GetScreenBytesPerScanLine: LongWord; StdCall;
{62.0}    Function  GetPCIVersion: LongWord; StdCall;
{62.1}    Function  GetLastPCIBus: LongWord; StdCall;
{62.2}    Function  GetPCIAddressingMode: LongWord; StdCall;
{62.3}    {UNDEFINED}
{62.4}    Function  ReadPCIByte(Bus, Device, Func, Reg: Byte): Byte; StdCall;
{62.5}    Function  ReadPCIWord(Bus, Device, Func, Reg: Byte): Word; StdCall;
{62.6}    Function  ReadPCILongWord(Bus, Device, Func, Reg: Byte): LongWord; StdCall;
{62.7}    {UNDEFINED}
{62.8}    Function  WritePCIByte(Bus, Device, Func, Reg: Byte; Data: Byte): LongWord; StdCall;
{62.9}    Function  WritePCIWord(Bus, Device, Func, Reg: Byte; Data: Word): LongWord; StdCall;
{62.10}   Function  WritePCILongWord(Bus, Device, Func, Reg: Byte; Data: LongWord): LongWord; StdCall;
{63.1}    Procedure BoardWriteByte(Data: Byte); StdCall;
{63.2}    Function  BoardReadByte(Var Data: Byte): LongWord; StdCall;
{64}      Function  ReallocAppMemory(Count: LongWord): Integer; StdCall;
{65}      Procedure DrawImageEx(Const Image; Left, Top: Integer; Width, Height: LongWord; BPP: LongWord; Const Palette: Pointer; Padding: LongWord); StdCall;
{66.1}    Procedure SetKeyboardInputMode(Mode: LongWord); StdCall;
{66.2}    Function  GetKeyboardInputMode: LongWord; StdCall;
{66.3}    Function  GetControlKeyState: LongWord; StdCall;
{66.4}    Function  SetHotKey(ScanCode, Control: LongWord): Integer; StdCall;
{66.5}    Function  ResetHotKey(ScanCode, Control: LongWord): Integer; StdCall;
{66.6}    Procedure KeyboardLock; StdCall;
{66.7}    Procedure KeyboardUnlock; StdCall;
{67}      Procedure SetWindowPos(Left, Top, Right, Bottom: Integer); StdCall;
{68.0}    Function  GetTaskSwitchCount: LongWord; StdCall;
{68.1}    Procedure SwitchThread; StdCall;
{68.2.0}  Function  EnableRDPMC: LongWord; StdCall;
{68.2.1}  Function  IsCacheEnabled: LongWord; StdCall;
{68.2.2}  Procedure EnableCache; StdCall;
{68.2.3}  Procedure DisableCache; StdCall;
{68.3}    {ReadMSR}
{68.4}    {WriteMSR}
{68.5}    {UNDEFINED}
{68.6}    {UNDEFINED}
{68.7}    {UNDEFINED}
{68.8}    {UNDEFINED}
{68.9}    {UNDEFINED}
{68.10}   {UNDEFINED}
{68.11}   Function  HeapCreate: LongWord; StdCall;
{68.12}   Function  HeapAllocate(Bytes: LongWord): Pointer; StdCall;
{68.13}   Function  HeapFree(MemPtr: Pointer): LongWord; StdCall;
{68.14}   Procedure WaitSignal(Var Buffer: TSignalBuffer); StdCall;
{68.15}   {UNDEFINED}
{68.16}   Function  GetDriver(Name: PKolibriChar): LongWord; StdCall;
{68.17}   Function  ControlDriver(Var CtrlStructure: TCtrlDriver): LongWord; StdCall;
{68.18}   {UNDEFINED}
{68.19}   Function  LoadLibrary(Path: PKolibriChar): Pointer; StdCall;
{68.20}   Function  HeapReallocate(MemPtr: Pointer; Bytes: LongWord): Pointer; StdCall;
{68.21}   Function  LoadDriver(Name, CmdLine: PKolibriChar): LongWord; StdCall;
{68.22}   Function  SharedMemoryOpen(Name: PKolibriChar; Bytes: LongWord; Flags: LongWord): Pointer; StdCall;
{68.23}   Function  SharedMemoryClose(Name: PKolibriChar): LongWord; StdCall;
{68.24}   Function  SetExceptionHandler(Handler: Pointer; Mask: LongWord; Var OldMask: LongWord): Pointer; StdCall;
{68.25}   Function  SetExceptionActivity(Signal, Activity: LongWord): Integer; StdCall;
{68.26}   Procedure ReleaseMemoryPages(MemPtr: Pointer; Offset, Size: LongWord); StdCall;
{68.27}   Function  LoadFile(Path: PKolibriChar; Var Size: LongWord): Pointer; StdCall;
{69.0}    Procedure SetDebugBuffer(Const Buffer: TDebugBuffer); StdCall;
{69.1}    Procedure GetThreadContext(ID: LongWord; Var Context: TThreadContext); StdCall;
{69.2}    Procedure SetThreadContext(ID: LongWord; Const Context: TThreadContext); StdCall;
{69.3}    Procedure DetachThread(ID: LongWord); StdCall;
{69.4}    Procedure SuspendThread(ID: LongWord); StdCall;
{69.5}    Procedure ResumeThread(ID: LongWord); StdCall;
{69.6}    Function  ReadProcessMemory(ID, Count: LongWord; Const Src; Var Dst): Integer; StdCall;
{69.7}    Function  WriteProcessMemory(ID, Count: LongWord; Const Src; Var Dst): Integer; StdCall;
{69.8}    Procedure DebugTerminate(ID: LongWord); StdCall;
{69.9}    Function  SetBreakPoint(ID: LongWord; Index, Flags: Byte; Address: Pointer): Integer; StdCall;
{69.9}    Function  ResetBreakPoint(ID: LongWord; Index, Flags: Byte; Address: Pointer): Integer; StdCall;
{70.0}    Function  ReadFile(Path: PKolibriChar; Var Buffer; Count, LoPos, HiPos: Cardinal; Var BytesRead: LongWord): Integer; StdCall;
{70.1}    Function  ReadFolder(Path: PKolibriChar; Var Buffer; Count, Start, Flags: Cardinal; Var BlocksRead: LongWord): Integer; StdCall;
{70.2}    Function  CreateFile(Path: PKolibriChar): Integer; StdCall;
{70.3}    Function  WriteFile(Path: PKolibriChar; Const Buffer; Count, LoPos, HiPos: Cardinal; Var BytesWritten: LongWord): Integer; StdCall;
{70.4}    Function  ResizeFile(Path: PKolibriChar; LoSize, HiSize: Cardinal): Integer; StdCall;
{70.5}    Function  GetFileAttributes(Path: PKolibriChar; Var Buffer: TFileAttributes): Integer; StdCall;
{70.6}    Function  SetFileAttributes(Path: PKolibriChar; Var Buffer: TFileAttributes): Integer; StdCall;
{70.7}    Function  RunFile(Path, CmdLine: PKolibriChar): Integer; StdCall;
{70.7}    Function  DebugFile(Path, CmdLine: PKolibriChar): Integer; StdCall;
{70.8}    Function  DeleteFile(Path: PKolibriChar): Integer; StdCall;
{70.9}    Function  CreateFolder(Path: PKolibriChar): Integer; StdCall;
{71.1}    Procedure SetWindowCaption(Caption: PKolibriChar); StdCall;
{72.1.2}  Function  SendActiveWindowKey(KeyCode: LongWord): Integer; StdCall;
{72.1.3}  Function  SendActiveWindowButton(ButtonID: LongWord): Integer; StdCall;
{73}      Procedure Blit(Const Src; SrcX, SrcY: Integer; SrcW, SrcH: LongWord; DstX, DstY: Integer; DstW, DstH: LongWord; Stride, Flags: LongWord); StdCall;
{74.-1}   Function  GetActiveNetworkDevices: LongWord; StdCall;
{74.0}    Function  GetNetworkDeviceType(Device: Byte): Integer; StdCall;
{74.1}    Function  GetNetworkDeviceName(Device: Byte; Var Buffer): Integer; StdCall;
{74.2}    Function  ResetNetworkDevice(Device: Byte): Integer; StdCall;
{74.3}    Function  StopNetworkDevice(Device: Byte): Integer; StdCall;
{74.4}    Function  GetNetworkDevicePointer(Device: Byte): Pointer; StdCall;
{74.5}    {UNDEFINED}
{74.6}    Function  GetSentPackets(Device: Byte): Integer; StdCall;
{74.7}    Function  GetReceivedPackets(Device: Byte): Integer; StdCall;
{74.8}    Function  GetSentBytes(Device: Byte): Integer; StdCall;
{74.9}    Function  GetReceivedBytes(Device: Byte): Integer; StdCall;
{74.10}   Function  GetLinkStatus(Device: Byte): Integer; StdCall;
{75.0}    Function  OpenSocket(Domain, Kind, Protocol: LongWord): LongWord; StdCall;
{75.1}    Function  CloseSocket(Socket: LongWord): Integer; StdCall;
{75.2}    Function  SocketBind(Socket: LongWord; Var SockAddr: TSockAddr): Integer; StdCall;
{75.3}    Function  SocketListen(Socket: LongWord; Var BackLog): Integer; StdCall;
{75.4}    Function  SocketConnect(Socket: LongWord; Var SockAddr: TSockAddr): Integer; StdCall;
{75.5}    Function  SocketAccept(Socket: LongWord; Var SockAddr: TSockAddr): LongWord; StdCall;
{75.6}    Function  SocketSend(Socket: LongWord; Const Buffer; Size, Flags: LongWord): Integer; StdCall;
{75.7}    Function  SocketReceive(Socket: LongWord; Var Buffer; Size, Flags: LongWord): Integer; StdCall;
{75.8}    Function  SetSocketOptions(Socket: LongWord; Var OptStruct: TOptStruct): Integer; StdCall;
{75.9}    Function  GetSocketOptions(Socket: LongWord; Var OptStruct: TOptStruct): Integer; StdCall;
{75.10}   Function  GetSocketPair(Var Socket1, Socket2: LongWord): Integer; StdCall;
{76.0.0}  Function  GetMAC(Device: Byte): LongWord; StdCall;
{76.1.0}  Function  GetIPv4SentPackets(Device: Byte): LongWord; StdCall;
{76.1.1}  Function  GetIPv4ReceivedPackets(Device: Byte): LongWord; StdCall;
{76.1.2}  Function  GetIPv4IP(Device: Byte): LongWord; StdCall;
{76.1.3}  Function  SetIPv4IP(Device: Byte; IP: LongWord): LongWord; StdCall;
{76.1.4}  Function  GetIPv4DNS(Device: Byte): LongWord; StdCall;
{76.1.5}  Function  SetIPv4DNS(Device: Byte; DNS: LongWord): LongWord; StdCall;
{76.1.6}  Function  GetIPv4Subnet(Device: Byte): LongWord; StdCall;
{76.1.7}  Function  SetIPv4Subnet(Device: Byte; Subnet: LongWord): LongWord; StdCall;
{76.1.8}  Function  GetIPv4Gateway(Device: Byte): LongWord; StdCall;
{76.1.9}  Function  SetIPv4Gateway(Device: Byte; Gateway: LongWord): LongWord; StdCall;
{76.2.0}  Function  GetICMPSentPackets(Device: Byte): LongWord; StdCall;
{76.2.1}  Function  GetICMPReceivedPackets(Device: Byte): LongWord; StdCall;
{76.3.0}  Function  GetUDPSentPackets(Device: Byte): LongWord; StdCall;
{76.3.1}  Function  GetUDPReceivedPackets(Device: Byte): LongWord; StdCall;
{76.4.0}  Function  GetTCPSentPackets(Device: Byte): LongWord; StdCall;
{76.4.1}  Function  GetTCPReceivedPackets(Device: Byte): LongWord; StdCall;
{76.5.0}  Function  GetARPSentPackets(Device: Byte): LongWord; StdCall;
{76.5.1}  Function  GetARPReceivedPackets(Device: Byte): LongWord; StdCall;
{76.5.2}  Function  GetARPEntrys(Device: Byte): LongWord; StdCall;
{76.5.3}  Function  GetARPEntry(Device: Byte; Entry: LongWord; Var Buffer): LongWord; StdCall;
{76.5.4}  Function  AddARPEntry(Device: Byte; Const Buffer): LongWord; StdCall;
{76.5.5}  Function  RemoveARPEntry(Device: Byte; Entry: LongWord): LongWord; StdCall;
{76.5.6}  Function  SendARPAnnounce(Device: Byte): LongWord; StdCall;
{76.5.7}  Function  GetARPConflicts(Device: Byte): LongWord; StdCall;
{77.0}    Function  CreateFutex(Futex: Pointer): LongWord; StdCall;
{77.1}    Function  DestroyFutex(Handle: LongWord): LongWord; StdCall;
{77.2}    Function  WaitFutex(Handle, Value, Time: LongWord): LongWord; StdCall;
{77.3}    Function  WakeFutex(Handle, Waiters: LongWord): LongWord; StdCall;
          Function  GetProcAddress(hLib: Pointer; ProcName: PKolibriChar): Pointer; StdCall;
(* -------------------------------------------------------- *)
Implementation
(* -------------------------------------------------------- *)
{-1}      Procedure TerminateThread; StdCall;
          Asm
                  mov    eax, $FFFFFFFF
                  int    64
          End;
(* -------------------------------------------------------- *)
{0}       Procedure DrawWindow(Left, Top, Right, Bottom: Integer; Caption: PKolibriChar; BackColor, Style, CapStyle: LongWord); StdCall;
          Asm
                  push   ebx
                  push   edi
                  push   esi
                  xor    eax, eax
                  mov    ebx, Left
                  mov    ecx, Top
                  shl    ebx, 16
                  shl    ecx, 16
                  or     ebx, Right
                  or     ecx, Bottom
                  mov    edx, Style
                  or     edx, BackColor
                  mov    edi, Caption
                  mov    esi, CapStyle
                  int    64
                  pop    esi
                  pop    edi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{1}       Procedure SetPixel(X, Y: Integer; Color: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 1
                  mov    ebx, X
                  mov    ecx, Y
                  mov    edx, Color
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{2}       Function  GetKey: TKeyboardInput; StdCall;
          Asm
                  mov    eax, 2
                  int    64
          End;
(* -------------------------------------------------------- *)
{3}       Function  GetSystemTime: TSystemTime; StdCall;
          Asm
                  mov    eax, 3
                  int    64
          End;
(* -------------------------------------------------------- *)
{4}       Procedure DrawText(X, Y: Integer; Text: PKolibriChar; ForeColor, BackColor, Flags, Count: LongWord); StdCall;
          Asm
                  push   ebx
                  push   edi
                  push   esi
                  mov    eax, 4
                  mov    ebx, X
                  shl    ebx, 16
                  or     ebx, Y
                  mov    ecx, Flags
                  or     ecx, ForeColor
                  mov    edx, Text
                  mov    edi, BackColor
                  mov    esi, Count
                  int    64
                  pop    esi
                  pop    edi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{5}       Procedure Sleep(Time: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 5
                  mov    ebx, Time
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{6}       {UNDEFINED}
(* -------------------------------------------------------- *)
{7}       Procedure DrawImage(Const Image; X, Y: Integer; Width, Height: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 7
                  mov    ebx, Image
                  mov    ecx, Width 
                  mov    edx, X     
                  shl    ecx, 16    
                  shl    edx, 16    
                  or     ecx, Height
                  or     edx, Y
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{8}       Procedure DrawButton(Left, Top, Right, Bottom: Integer; BackColor, Style, ID: LongWord); StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 8
                  mov    ebx, Left
                  mov    ecx, Top
                  shl    ebx, 16
                  shl    ecx, 16
                  or     ebx, Right
                  or     ecx, Bottom
                  mov    edx, ID
                  or     edx, Style
                  mov    esi, BackColor
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{8}       Procedure DeleteButton(ID: LongWord); StdCall;
          Asm
                  mov    eax, 8
                  mov    edx, ID
                  or     edx, $80000000
                  int    64
          End;
(* -------------------------------------------------------- *)
{9}       Function  GetThreadInfo(Slot: LongWord; Var Buffer: TThreadInfo): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 9
                  mov    ebx, Buffer
                  mov    ecx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{10}      Function  WaitEvent: LongWord; StdCall;
          Asm
                  mov    eax, 10
                  int    64
          End;
(* -------------------------------------------------------- *)
{11}      Function  CheckEvent: LongWord; StdCall;
          Asm
                  mov    eax, 11
                  int    64
          End;
(* -------------------------------------------------------- *)
{12.1}    Procedure BeginDraw; StdCall;
          Asm
                  push   ebx
                  mov    eax, 12
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{12.2}    Procedure EndDraw; StdCall;
          Asm
                  push   ebx
                  mov    eax, 12
                  mov    ebx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{13}      Procedure DrawRectangle(X, Y: Integer; Width, Height: LongWord; Color: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 13
                  mov    ebx, X
                  mov    ecx, Y
                  mov    edx, Color
                  shl    ebx, 16
                  shl    ecx, 16
                  or     ebx, Width
                  or     ecx, Height
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{14}      Function  GetScreenMax: TPoint; StdCall;
          Asm
                  mov    eax, 14
                  int    64
          End;
(* -------------------------------------------------------- *)
{15.1}    Procedure SetBackgroundSize(Width, Height: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, 1
                  mov    ecx, Width
                  mov    edx, Height
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.2}    Procedure SetBackgroundPixel(X, Y: Integer; Color: LongWord); StdCall;
          Asm
                  push   ebx
          // at first need to know Background.Width
                  mov    eax, 39
                  mov    ebx, 1
                  int    64
          // at now eax = (Width << 16) | Height
          // need to make ecx = (X + Y * Background.Width) * 3
                  shr    eax, 16
                  mul    Y
                  add    eax, X
                  mov    ecx, eax
                  add    ecx, eax
                  add    ecx, eax
          // and now SetBackgroundPixel
                  mov    eax, 15
                  mov    ebx, 2
                  mov    edx, Color
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.3}    Procedure DrawBackground; StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, 3
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.4}    Procedure SetBackgroundDrawMode(DrawMode: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, 4
                  mov    ecx, DrawMode
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.5}    Procedure DrawBackgroundImage(Const Image; X, Y: Integer; Width, Height: LongWord); StdCall;
          Asm
                  push   ebx
                  push   esi
          // at first need to know Background.Width
                  mov    eax, 39
                  mov    ebx, 1
                  int    64
          // at now eax = (Width << 16) | Height
          // need to make edx = (X + Y * Background.Width) * 3
                  shr    eax, 16
                  mul    Y
                  add    eax, X
                  mov    edx, eax
                  add    edx, eax
                  add    edx, eax
          // need to make esi = Width * Height * 3
                  mov    eax, Width
                  mul    Height
                  mov    esi, eax
                  add    esi, eax
                  add    esi, eax
          // and now DrawBackgroundImage
                  mov    eax, 15
                  mov    ebx, 5
                  mov    ecx, Image
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.6}    Function  MapBackground: Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, 6
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.7}    Function  UnMapBackground(Background: Pointer): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, 7
                  mov    ecx, Background
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.8}    Function  GetLastDrawnBackgroundRect: TRect; StdCall;
          Asm
                  push   ebx
                  push   edi
                  mov    edi, eax
                  mov    eax, 15
                  mov    ebx, 8
                  int    64
                  movzx  edx, ax
                  movzx  ecx, bx
                  shr    eax, 16
                  shr    ebx, 16
                  mov    [edi].TRect.Left, eax
                  mov    [edi].TRect.Right, edx
                  mov    [edi].TRect.Top, ebx
                  mov    [edi].TRect.Bottom, ecx
                  pop    edi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{15.9}    Procedure UpdateBackgroundRect(Left, Top, Right, Bottom: Integer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, 9
                  mov    ecx, Left
                  mov    edx, Top
                  shl    ecx, 16
                  shl    edx, 16
                  or     ecx, Right
                  or     edx, Bottom
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{16}      Function  FlushFloppyCache(FloppyNumber: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 15
                  mov    ebx, FloppyNumber
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{17}      Function  GetButton: TButtonInput; StdCall;
          Asm
                  mov    eax, 17
                  int    64
          End;
(* -------------------------------------------------------- *)
{18.1}    Procedure DeactivateWindow(Slot: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 1
                  mov    ecx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.2}    Procedure TerminateThreadBySlot(Slot: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 2
                  mov    ecx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.3}    Procedure ActivateWindow(Slot: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 3
                  mov    ecx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.4}    Function  GetIdleTime: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 4
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.5}    Function  GetCPUClock: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 5
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.6}    Function  SaveRamDisk(Path: PKolibriChar): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 1
                  mov    ecx, Path
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.7}    Function  GetActiveWindow: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 7
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.8.1}  Function  GetSpeakerState: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 8
                  mov    ecx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.8.2}  Procedure SwitchSpeakerState; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 8
                  mov    ecx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.9}    Function  SystemShutdown(Param: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 9
                  mov    ecx, Param
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.10}   Procedure MinimizeActiveWindow; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 10
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.11}   Procedure GetDiskSystemInfo(Var Buffer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 11
                  mov    ecx, Buffer
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.12}   {UNDEFINED}
(* -------------------------------------------------------- *)
{18.13}   Procedure GetKernelVersion(Var Buffer: TKernelVersion); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 13
                  mov    ecx, Buffer
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.14}   Function  WaitRetrace: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 14
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.15}   Function  CenterMousePointer: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 15
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.16}   Function  GetFreeMemory: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 16
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.17}   Function  GetAvailableMemory: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 17
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.18}   Function  TerminateThreadById(ID: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 18
                  mov    ecx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.0} Function  GetMouseSpeed: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.1} Procedure SetMouseSpeed(Speed: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 1
                  mov    edx, Speed
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.2} Function  GetMouseSensitivity: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.3} Procedure SetMouseSensitivity(Sensitivity: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 3
                  mov    edx, Sensitivity
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.4} Procedure SetMousePos(X, Y: Integer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 4
                  mov    edx, X
                  shl    edx, 16
                  or     edx, Y
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.5} Procedure SetMouseButtons(State: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 5
                  mov    edx, State
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.6} Function  GetDoubleClickTime: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 6
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.19.7} Procedure SetDoubleClickTime(Time: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 19
                  mov    ecx, 7
                  mov    edx, Time
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.20}   Function  GetRAMInfo(Var Buffer: TRAMInfo): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 20
                  mov    ecx, Buffer
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.21}   Function  GetSlotById(ID: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 21
                  mov    ecx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.22.0} Function  MinimizeWindowBySlot(Slot: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 22
                  mov    ecx, 0
                  mov    edx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.22.1} Function  MinimizeWindowByID(ID: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 22
                  mov    ecx, 1
                  mov    edx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.22.2} Function  RestoreWindowBySlot(Slot: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 22
                  mov    ecx, 2
                  mov    edx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.22.3} Function  RestoreWindowByID(ID: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 22
                  mov    ecx, 3
                  mov    edx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.23}   Function  MinimizeAllWindows: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 23
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.24}   Procedure SetScreenLimits(Width, Height: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 24
                  mov    ecx, Width
                  mov    edx, Height
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.25.1} Function  GetWindowZOrder(ID: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 18
                  mov    ebx, 25
                  mov    ecx, 1
                  mov    edx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{18.25.2} Function  SetWindowZOrder(ID, ZOrder: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 18
                  mov    ebx, 25
                  mov    ecx, 2
                  mov    edx, ID
                  mov    esi, ZOrder
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{19}      {UNDEFINED}
(* -------------------------------------------------------- *)
{20.1}    Function  ResetMidi: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 20
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{20.2}    Function  OutputMidi(Data: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 20
                  mov    ebx, 2
                  mov    cl, Data
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{21.1}    Function  SetMidiBase(Port: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 21
                  mov    ebx, 1
                  mov    ecx, Port
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{21.2}    Function  SetKeyboardLayout(Flags: LongWord; Var Table: TKeyboardLayout): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 21
                  mov    ebx, 2
                  mov    ecx, Flags
                  mov    edx, Table
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{21.2}    Function  SetKeyboardLayoutCountry(Country: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 21
                  mov    ebx, 2
                  mov    ecx, 9
                  mov    edx, Country
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{21.3}    {UNDEFINED}
(* -------------------------------------------------------- *)
{21.4}    {UNDEFINED}
(* -------------------------------------------------------- *)
{21.5}    Function  SetSystemLanguage(SystemLanguage: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 21
                  mov    ebx, 5
                  mov    ecx, SystemLanguage
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{21.6}    {UNDEFINED}
(* -------------------------------------------------------- *)
{21.7}    {UNDEFINED}
(* -------------------------------------------------------- *)
{21.8}    {UNDEFINED}
(* -------------------------------------------------------- *)
{21.9}    {UNDEFINED}
(* -------------------------------------------------------- *)
{21.10}   {UNDEFINED}
(* -------------------------------------------------------- *)
{21.11}   Function  SetHDAccess(Value: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 21
                  mov    ebx, 11
                  mov    ecx, Value
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{21.12}   Function  SetPCIAccess(Value: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 21
                  mov    ebx, 12
                  mov    ecx, Value
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{22.0}    Function  SetSystemTime(Time: TSystemTime): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 22
                  mov    ebx, 0
                  mov    ecx, Time
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{22.1}    Function  SetSystemDate(Date: TSystemDate): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 22
                  mov    ebx, 1
                  mov    ecx, Date
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{22.2}    Function  SetDayOfWeek(DayOfWeek: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 22
                  mov    ebx, 2
                  mov    ecx, DayOfWeek
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{22.3}    Function  SetAlarm(Time: TSystemTime): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 22
                  mov    ebx, 3
                  mov    ecx, Time
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{23}      Function  WaitEventByTime(Time: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 23
                  mov    ebx, Time
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{24.4}    Procedure OpenCDTray(Drive: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 24
                  mov    ebx, 4
                  mov    ecx, Drive
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{24.5}    Procedure CloseCDTray(Drive: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 24
                  mov    ebx, 5
                  mov    ecx, Drive
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{25}      Procedure DrawBackgroundLayerImage(Const Image; X, Y: Integer; Width, Height: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 25
                  mov    ebx, Image
                  mov    ecx, Width
                  mov    edx, X
                  shl    ecx, 16
                  shl    edx, 16
                  or     ecx, Height
                  or     edx, Y
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.1}    Function  GetMidiBase: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.2}    Procedure GetKeyboardLayout(Flags: LongWord; Var Table: TKeyboardLayout); StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 2
                  mov    ecx, Flags
                  mov    edx, Table
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.2}    Function  GetKeyboardLayoutCountry: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 2
                  mov    ecx, 9
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.3}    {UNDEFINED}
(* -------------------------------------------------------- *)
{26.4}    {UNDEFINED}
(* -------------------------------------------------------- *)
{26.5}    Function  GetSystemLanguage: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 5
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.6}    {UNDEFINED}
(* -------------------------------------------------------- *)
{26.7}    {UNDEFINED}
(* -------------------------------------------------------- *)
{26.8}    {UNDEFINED}
(* -------------------------------------------------------- *)
{26.9}    Function  GetTickCount: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 9
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.10}   Function  GetTickCount64: QuadWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 10
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.11}   Function  IsHDAccessAllowed: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 11
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{26.12}   Function  IsPCIAccessAllowed: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 26
                  mov    ebx, 12
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{27}      {UNDEFINED}
(* -------------------------------------------------------- *)
{28}      {UNDEFINED}
(* -------------------------------------------------------- *)
{29}      Function  GetSystemDate: TSystemDate; StdCall;
          Asm
                  mov    eax, 29
                  int    64
          End;
(* -------------------------------------------------------- *)
{30.1}    Procedure SetCurrentDirectory(Path: PKolibriChar); StdCall;
          Asm
                  push   ebx
                  mov    eax, 30
                  mov    ebx, 1
                  mov    ecx, Path
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{30.2}    Function  GetCurrentDirectory(Buffer: PKolibriChar; Count: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 30
                  mov    ebx, 2
                  mov    ecx, Buffer
                  mov    edx, Count
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{31}      {UNDEFINED}
(* -------------------------------------------------------- *)
{32}      {UNDEFINED}
(* -------------------------------------------------------- *)
{33}      {UNDEFINED}
(* -------------------------------------------------------- *)
{34}      Function  GetPointOwner(X, Y: Integer): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 34
                  mov    ebx, X
                  mov    ecx, Y
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{35}      Function  GetPixel(X, Y: Integer): LongWord; StdCall;
          Asm
                  push   ebx
          // at first need to know Screen.Width
                  mov    eax, 61
                  mov    ebx, 1
                  int    64
          // at now eax = (Width << 16) | Height
          // need to make ebx = Y * Screen.Width + X
                  shr    eax, 16
                  mul    Y
                  add    eax, X
                  mov    ebx, eax
          // and now GetPixel
                  mov    eax, 35
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{36}      Procedure GetScreenImage(Var Buffer; X, Y: Integer; Width, Height: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 36
                  mov    ebx, Buffer
                  mov    ecx, Width
                  mov    edx, X
                  shl    ecx, 16
                  shl    edx, 16
                  or     ecx, Height
                  or     edx, Y
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.0}    Function  GetMousePos: TPoint; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.1}    Function  GetWindowMousePos: TPoint; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.2}    Function  GetMouseButtons: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.3}    Function  GetMouseEvents: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 3
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.4}    Function  LoadCursorFromFile(Path: PKolibriChar): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 4
                  mov    ecx, Path
                  mov    edx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.4}    Function  LoadCursorFromMemory(Const Buffer): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 4
                  mov    ecx, Buffer
                  mov    edx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.4}    Function  LoadCursorIndirect(Const Buffer; HotSpotX, HotSpotY: ShortInt): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 4
                  mov    ecx, Buffer
                  mov    dl, HotSpotY
                  mov    dh, HotSpotX
                  shl    edx, 16
                  or     edx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.5}    Function  SetCursor(Handle: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 5
                  mov    ecx, Handle
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.6}    Function  DeleteCursor(Handle: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 6
                  mov    ecx, Handle
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{37.7}    Function  GetMouseScroll: TPoint; StdCall;
          Asm
                  push   ebx
                  mov    eax, 37
                  mov    ebx, 7
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{38}      Procedure DrawLine(X1, Y1, X2, Y2: Integer; Color: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 38
                  mov    ebx, X1
                  mov    ecx, Y1
                  shl    ebx, 16
                  shl    ecx, 16
                  or     ebx, X2
                  or     ecx, Y2
                  mov    edx, Color
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{39.1}    Function  GetBackgroundSize: TSize; StdCall;
          Asm
                  push   ebx
                  mov    eax, 39
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{39.2}    Function  GetBackgroundPixel(X, Y: Integer): LongWord; StdCall;
          Asm
                  push   ebx
          // at first need to know Background.Width
                  mov    eax, 39
                  mov    ebx, 1
                  int    64
          // at now eax = (Width << 16) | Height
          // need to make ecx = (X + Y * Background.Width) * 3
                  shr    eax, 16
                  mul    Y
                  add    eax, X
                  mov    ecx, eax
                  add    ecx, eax
                  add    ecx, eax
          // and now GetBackgroundPixel
                  mov    eax, 39
                  mov    ebx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{39.3}    {UNDEFINED}
(* -------------------------------------------------------- *)
{39.4}    Function  GetBackgroundDrawMode: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 39
                  mov    ebx, 4
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{40}      Function  SetEventMask(Mask: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 40
                  mov    ebx, Mask
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{41}      {UNDEFINED}
(* -------------------------------------------------------- *)
{42}      {UNDEFINED}
(* -------------------------------------------------------- *)
{43}      Function  InPort(Port: LongWord; Var Data: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 43
                  mov    ecx, Port
                  or     ecx, $80000000
                  int    64
                  mov    ecx, Data
                  mov    [ecx], bl
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{43}      Function  OutPort(Port: LongWord; Data: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 43
                  mov    bl, Data
                  mov    ecx, Port
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{44}      {UNDEFINED}
(* -------------------------------------------------------- *)
{45}      {UNDEFINED}
(* -------------------------------------------------------- *)
{46}      Function  ReservePorts(First, Last: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 46
                  mov    ebx, 0
                  mov    ecx, First
                  mov    edx, Last
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{46}      Function  FreePorts(First, Last: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 46
                  mov    ebx, 1
                  mov    ecx, First
                  mov    edx, Last
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{47}      {DrawNumber}
(* -------------------------------------------------------- *)
{48.0}    Procedure ApplyStyleSettings; StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.1}    Procedure SetButtonStyle(ButtonStyle: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 1
                  mov    ecx, ButtonStyle
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.2}    Procedure SetStandardColors(Var ColorTable: TStandardColors; Size: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 2
                  mov    ecx, ColorTable
                  mov    edx, Size
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.3}    Procedure GetStandardColors(Var ColorTable: TStandardColors; Size: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 3
                  mov    ecx, ColorTable
                  mov    edx, Size
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.4}    Function  GetSkinHeight: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 4
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.5}    Function  GetScreenWorkingArea: TRect; StdCall;
          Asm
                  push   ebx
                  push   edi
                  mov    edi, eax
                  mov    eax, 48
                  mov    ebx, 5
                  int    64
                  movzx  edx, ax
                  movzx  ecx, bx
                  shr    eax, 16
                  shr    ebx, 16
                  mov    [edi].TRect.Left, eax
                  mov    [edi].TRect.Right, edx
                  mov    [edi].TRect.Top, ebx
                  mov    [edi].TRect.Bottom, ecx
                  pop    edi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.6}    Procedure SetScreenWorkingArea(Left, Top, Right, Bottom: Integer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 6
                  mov    ecx, Left
                  mov    edx, Top
                  shl    ecx, 16
                  shl    edx, 16
                  or     ecx, Right
                  or     edx, Bottom
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.7}    Function  GetSkinMargins: TRect; StdCall;
          Asm
                  push   ebx
                  push   edi
                  mov    edi, eax
                  mov    eax, 48
                  mov    ebx, 7
                  int    64
                  movzx  edx, ax
                  movzx  ecx, bx
                  shr    eax, 16
                  shr    ebx, 16
                  mov    [edi].TRect.Left, eax
                  mov    [edi].TRect.Right, edx
                  mov    [edi].TRect.Top, ebx
                  mov    [edi].TRect.Bottom, ecx
                  pop    edi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.8}    Function  SetSkin(Path: PKolibriChar): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 8
                  mov    ecx, Path
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.9}    Function  GetFontSmoothing: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 9
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.10}   Procedure SetFontSmoothing(Smoothing: Integer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 10
                  mov    ecx, Smoothing
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.11}   Function  GetFontHeight: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 11
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{48.12}   Procedure SetFontHeight(Height: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 48
                  mov    ebx, 12
                  mov    ecx, Height
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{49}      {Advanced Power Management}
(* -------------------------------------------------------- *)
{50.0}    Procedure SetWindowShape(Const Data); StdCall;
          Asm
                  push   ebx
                  mov    eax, 50
                  mov    ebx, 0
                  mov    ecx, Data
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{50.1}    Procedure SetWindowScale(Scale: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 50
                  mov    ebx, 1
                  mov    ecx, Scale
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{51.1}    Function  ThreadCreate(Entry, Stack: Pointer): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 51
                  mov    ebx, 1
                  mov    ecx, Entry
                  mov    edx, Stack
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{52}      {UNDEFINED}
(* -------------------------------------------------------- *)
{53}      {UNDEFINED}
(* -------------------------------------------------------- *)
{54.0}    Function  GetClipboardSlotCount: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 54
                  mov    ebx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{54.1}    Function  GetClipboardData(Slot: LongWord): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 54
                  mov    ebx, 1
                  mov    ecx, Slot
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{54.2}    Function  SetClipboardData(Const Src; Count: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 54
                  mov    ebx, 2
                  mov    ecx, Count
                  mov    edx, Src
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{54.3}    Function  DeleteClipboardLastSlot: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 54
                  mov    ebx, 3
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{54.4}    Function  ResetClipboard: Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 54
                  mov    ebx, 4
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{55}      Function  SpeakerPlay(Const Data): LongWord; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 55
                  mov    ebx, 55
                  mov    esi, Data
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{56}      {UNDEFINED}
(* -------------------------------------------------------- *)
{57}      {PCI BIOS}
(* -------------------------------------------------------- *)
{58}      {UNDEFINED}
(* -------------------------------------------------------- *)
{59}      {UNDEFINED}
(* -------------------------------------------------------- *)
{60.1}    Function  IPCSetBuffer(Const Buffer: TIPCBuffer; Size: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 60
                  mov    ebx, 1
                  mov    ecx, Buffer
                  mov    edx, Size
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{60.2}    Function  IPCSendMessage(ID: LongWord; Var Msg: TIPCMessage; Size: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 60
                  mov    ebx, 2
                  mov    ecx, ID
                  mov    edx, Msg
                  mov    esi, Size
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{61.1}    Function  GetScreenSize: TSize; StdCall;
          Asm
                  push   ebx
                  mov    eax, 61
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{61.2}    Function  GetScreenBitsPerPixel: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 61
                  mov    ebx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{61.3}    Function  GetScreenBytesPerScanLine: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 61
                  mov    ebx, 3
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.0}    Function  GetPCIVersion: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.1}    Function  GetLastPCIBus: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.2}    Function  GetPCIAddressingMode: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.3}    {UNDEFINED}
(* -------------------------------------------------------- *)
{62.4}    Function  ReadPCIByte(Bus, Device, Func, Reg: Byte): Byte; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 4
                  mov    bh, Bus
                  mov    cl, Reg
                  mov    ch, Device
                  shl    ch, 3
                  or     ch, Func
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.5}    Function  ReadPCIWord(Bus, Device, Func, Reg: Byte): Word; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 5
                  mov    bh, Bus
                  mov    cl, Reg
                  mov    ch, Device
                  shl    ch, 3
                  or     ch, Func
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.6}    Function  ReadPCILongWord(Bus, Device, Func, Reg: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 6
                  mov    bh, Bus
                  mov    cl, Reg
                  mov    ch, Device
                  shl    ch, 3
                  or     ch, Func
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.7}    {UNDEFINED}
(* -------------------------------------------------------- *)
{62.8}    Function  WritePCIByte(Bus, Device, Func, Reg: Byte; Data: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 8
                  mov    bh, Bus
                  mov    cl, Reg
                  mov    ch, Device
                  shl    ch, 3
                  or     ch, Func
                  mov    dl, Data
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.9}    Function  WritePCIWord(Bus, Device, Func, Reg: Byte; Data: Word): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 9
                  mov    bh, Bus
                  mov    cl, Reg
                  mov    ch, Device
                  shl    ch, 3
                  or     ch, Func
                  mov    dx, Data
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{62.10}   Function  WritePCILongWord(Bus, Device, Func, Reg: Byte; Data: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 62
                  mov    bl, 10
                  mov    bh, Bus
                  mov    cl, Reg
                  mov    ch, Device
                  shl    ch, 3
                  or     ch, Func
                  mov    edx, Data
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{63.1}    Procedure BoardWriteByte(Data: Byte); StdCall;
          Asm
                  push   ebx
                  mov    eax, 63
                  mov    ebx, 1
                  mov    cl, Data
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{63.2}    Function  BoardReadByte(Var Data: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 63
                  mov    ebx, 2
                  int    64
                  mov    ecx, Data
                  mov    [ecx], al
                  mov    eax, ebx
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{64}      Function  ReallocAppMemory(Count: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 64
                  mov    ebx, 1
                  mov    ecx, Count
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{65}      Procedure DrawImageEx(Const Image; Left, Top: Integer; Width, Height: LongWord; BPP: LongWord; Const Palette: Pointer; Padding: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 65
                  mov    ebx, Image
                  mov    ecx, Width
                  mov    edx, Left
                  shl    ecx, 16
                  shl    edx, 16
                  or     ecx, Height
                  or     edx, Top
                  mov    esi, BPP
                  mov    edi, Palette
                  mov    ebp, Padding
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.1}    Procedure SetKeyboardInputMode(Mode: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 1
                  mov    ecx, Mode
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.2}    Function  GetKeyboardInputMode: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.3}    Function  GetControlKeyState: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 3
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.4}    Function  SetHotKey(ScanCode, Control: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 4
                  mov    ecx, ScanCode
                  mov    edx, Control
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.5}    Function  ResetHotKey(ScanCode, Control: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 4
                  mov    ecx, ScanCode
                  mov    edx, Control
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.6}    Procedure KeyboardLock; StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 6
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{66.7}    Procedure KeyboardUnlock; StdCall;
          Asm
                  push   ebx
                  mov    eax, 66
                  mov    ebx, 7
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{67}      Procedure SetWindowPos(Left, Top, Right, Bottom: Integer); StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 67
                  mov    ebx, Left
                  mov    ecx, Top
                  mov    edx, Right
                  mov    esi, Bottom
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.0}    Function  GetTaskSwitchCount: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.1}    Procedure SwitchThread; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.2.0}  Function  EnableRDPMC: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 2
                  mov    ecx, 0
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.2.1}  Function  IsCacheEnabled: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 2
                  mov    ecx, 1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.2.2}  Procedure EnableCache; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 2
                  mov    ecx, 2
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.2.3}  Procedure DisableCache; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 2
                  mov    ecx, 3
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.3}    {ReadMSR}
(* -------------------------------------------------------- *)
{68.4}    {WriteMSR}
(* -------------------------------------------------------- *)
{68.5}    {UNDEFINED}
(* -------------------------------------------------------- *)
{68.6}    {UNDEFINED}
(* -------------------------------------------------------- *)
{68.7}    {UNDEFINED}
(* -------------------------------------------------------- *)
{68.8}    {UNDEFINED}
(* -------------------------------------------------------- *)
{68.9}    {UNDEFINED}
(* -------------------------------------------------------- *)
{68.10}   {UNDEFINED}
(* -------------------------------------------------------- *)
{68.11}   Function  HeapCreate: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 11
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.12}   Function  HeapAllocate(Bytes: LongWord): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 12
                  mov    ecx, Bytes
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.13}   Function  HeapFree(MemPtr: Pointer): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 13
                  mov    ecx, MemPtr
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.14}   Procedure WaitSignal(Var Buffer: TSignalBuffer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 14
                  mov    ecx, Buffer
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.15}   {UNDEFINED}
(* -------------------------------------------------------- *)
{68.16}   Function  GetDriver(Name: PKolibriChar): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 16
                  mov    ecx, Name
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.17}   Function  ControlDriver(Var CtrlStructure: TCtrlDriver): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 17
                  mov    ecx, CtrlStructure
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.18}   {UNDEFINED}
(* -------------------------------------------------------- *)
{68.19}   Function  LoadLibrary(Path: PKolibriChar): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 19
                  mov    ecx, Path
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.20}   Function  HeapReallocate(MemPtr: Pointer; Bytes: LongWord): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 20
                  mov    ecx, Bytes
                  mov    edx, MemPtr
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.21}   Function  LoadDriver(Name, CmdLine: PKolibriChar): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 21
                  mov    ecx, Name
                  mov    edx, CmdLine
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.22}   Function  SharedMemoryOpen(Name: PKolibriChar; Bytes: LongWord; Flags: LongWord): Pointer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 68
                  mov    ebx, 22
                  mov    ecx, Name
                  mov    edx, Bytes
                  mov    esi, Flags
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.23}   Function  SharedMemoryClose(Name: PKolibriChar): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 23
                  mov    ecx, Name
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.24}   Function  SetExceptionHandler(Handler: Pointer; Mask: LongWord; Var OldMask: LongWord): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 24
                  mov    ecx, Handler
                  mov    edx, Mask
                  int    64
                  mov    ecx, OldMask
                  mov    [ecx], ebx
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.25}   Function  SetExceptionActivity(Signal, Activity: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 25
                  mov    ecx, Signal
                  mov    edx, Activity
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.26}   Procedure ReleaseMemoryPages(MemPtr: Pointer; Offset, Size: LongWord); StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 68
                  mov    ebx, 26
                  mov    ecx, MemPtr
                  mov    edx, &Offset
                  mov    esi, Size
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{68.27}   Function  LoadFile(Path: PKolibriChar; Var Size: LongWord): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 68
                  mov    ebx, 27
                  mov    ecx, Path
                  int    64
                  mov    ecx, Size
                  mov    [ecx], edx
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.0}    Procedure SetDebugBuffer(Const Buffer: TDebugBuffer); StdCall;
          Asm
                  push   ebx
                  mov    eax, 69
                  mov    ebx, 0
                  mov    ecx, Buffer
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.1}    Procedure GetThreadContext(ID: LongWord; Var Context: TThreadContext); StdCall;
          Const SIZEOF_TTHREADCONTEXT = SizeOf(TThreadContext);
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 69
                  mov    ebx, 1
                  mov    ecx, ID
                  mov    edx, SIZEOF_TTHREADCONTEXT
                  mov    esi, Context
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.2}    Procedure SetThreadContext(ID: LongWord; Const Context: TThreadContext); StdCall;
          Const SIZEOF_TTHREADCONTEXT = SizeOf(TThreadContext);
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 69
                  mov    ebx, 2
                  mov    ecx, ID
                  mov    edx, SIZEOF_TTHREADCONTEXT
                  mov    esi, Context
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.3}    Procedure DetachThread(ID: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 69
                  mov    ebx, 3
                  mov    ecx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.4}    Procedure SuspendThread(ID: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 69
                  mov    ebx, 4
                  mov    ecx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.5}    Procedure ResumeThread(ID: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 69
                  mov    ebx, 5
                  mov    ecx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.6}    Function  ReadProcessMemory(ID, Count: LongWord; Const Src; Var Dst): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  push   edi
                  mov    eax, 69
                  mov    ebx, 6
                  mov    ecx, ID
                  mov    edx, Count
                  mov    esi, Src
                  mov    edi, Dst
                  int    64
                  pop    edi
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.7}    Function  WriteProcessMemory(ID, Count: LongWord; Const Src; Var Dst): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  push   edi
                  mov    eax, 69
                  mov    ebx, 7
                  mov    ecx, ID
                  mov    edx, Count
                  mov    esi, Dst
                  mov    edi, Src
                  int    64
                  pop    edi
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.8}    Procedure DebugTerminate(ID: LongWord); StdCall;
          Asm
                  push   ebx
                  mov    eax, 69
                  mov    ebx, 8
                  mov    ecx, ID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.9}    Function  SetBreakPoint(ID: LongWord; Index, Flags: Byte; Address: Pointer): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 69
                  mov    ebx, 9
                  mov    ecx, ID
                  mov    dl, Index
                  mov    dh, Flags
                  mov    esi, Address
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{69.9}    Function  ResetBreakPoint(ID: LongWord; Index, Flags: Byte; Address: Pointer): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 69
                  mov    ebx, 9
                  mov    ecx, ID
                  mov    dl, Index
                  mov    dh, Flags
                  or     dh, $80
                  mov    esi, Address
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.0}    Function  ReadFile(Path: PKolibriChar; Var Buffer; Count, LoPos, HiPos: Cardinal; Var BytesRead: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   Buffer
                  push   Count
                  push   HiPos
                  push   LoPos
                  push   0
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  mov    ecx, BytesRead
                  mov    [ecx], ebx
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.1}    Function  ReadFolder(Path: PKolibriChar; Var Buffer; Count, Start, Flags: Cardinal; Var BlocksRead: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   Buffer
                  push   Count
                  push   Flags
                  push   Start
                  push   1
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  mov    ecx, BlocksRead
                  mov    [ecx], ebx                  
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.2}    Function  CreateFile(Path: PKolibriChar): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   0
                  push   0
                  push   0
                  push   0
                  push   2
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.3}    Function  WriteFile(Path: PKolibriChar; Const Buffer; Count, LoPos, HiPos: Cardinal; Var BytesWritten: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   Buffer
                  push   Count
                  push   HiPos
                  push   LoPos
                  push   3
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  mov    ecx, BytesWritten
                  mov    [ecx], ebx                     
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.4}    Function  ResizeFile(Path: PKolibriChar; LoSize, HiSize: Cardinal): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   0
                  push   0
                  push   HiSize
                  push   LoSize
                  push   4
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.5}    Function  GetFileAttributes(Path: PKolibriChar; Var Buffer: TFileAttributes): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   Buffer
                  push   0
                  push   0
                  push   0
                  push   5
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.6}    Function  SetFileAttributes(Path: PKolibriChar; Var Buffer: TFileAttributes): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   Buffer
                  push   0
                  push   0
                  push   0
                  push   6
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.7}    Function  RunFile(Path, CmdLine: PKolibriChar): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   0
                  push   0
                  push   CmdLine
                  push   0
                  push   7
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.7}    Function  DebugFile(Path, CmdLine: PKolibriChar): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   0
                  push   0
                  push   CmdLine
                  push   1
                  push   7
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.8}    Function  DeleteFile(Path: PKolibriChar): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   0
                  push   0
                  push   0
                  push   0
                  push   8
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{70.9}    Function  CreateFolder(Path: PKolibriChar): Integer; StdCall;
          Asm
                  push   ebx
                  push   Path
                  dec    esp
                  mov    byte[esp], 0
                  push   0
                  push   0
                  push   0
                  push   0
                  push   9
                  mov    ebx, esp
                  mov    eax, 70
                  int    64
                  add    esp, 25
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{71.1}    Procedure SetWindowCaption(Caption: PKolibriChar); StdCall;
          Asm
                  push   ebx
                  mov    eax, 71
                  mov    ebx, 1
                  mov    ecx, Caption
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{72.1.2}  Function  SendActiveWindowKey(KeyCode: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 72
                  mov    ebx, 1
                  mov    ecx, 2
                  mov    edx, KeyCode
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{72.1.3}  Function  SendActiveWindowButton(ButtonID: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 72
                  mov    ebx, 1
                  mov    ecx, 3
                  mov    edx, ButtonID
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{73}      Procedure Blit(Const Src; SrcX, SrcY: Integer; SrcW, SrcH: LongWord; DstX, DstY: Integer; DstW, DstH: LongWord; Stride, Flags: LongWord); StdCall;
          Asm
                  push   Stride
                  push   Src
                  push   SrcH
                  push   SrcW
                  push   SrcY
                  push   SrcX
                  push   DstH
                  push   DstW
                  push   DstY
                  push   DstX
                  mov    eax, 73
                  mov    ebx, Flags
                  mov    ecx, esp
                  int    64
                  add    esp, 40
          End;
(* -------------------------------------------------------- *)
{74.-1}   Function  GetActiveNetworkDevices: LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, -1
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.0}    Function  GetNetworkDeviceType(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.1}    Function  GetNetworkDeviceName(Device: Byte; Var Buffer): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 1
                  mov    bh, Device
                  mov    ecx, Buffer
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.2}    Function  ResetNetworkDevice(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 2
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.3}    Function  StopNetworkDevice(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 3
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.4}    Function  GetNetworkDevicePointer(Device: Byte): Pointer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 4
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.5}    {UNDEFINED}
(* -------------------------------------------------------- *)
{74.6}    Function  GetSentPackets(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 6
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.7}    Function  GetReceivedPackets(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 7
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.8}    Function  GetSentBytes(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 8
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.9}    Function  GetReceivedBytes(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 9
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{74.10}   Function  GetLinkStatus(Device: Byte): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 74
                  mov    bl, 10
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.0}    Function  OpenSocket(Domain, Kind, Protocol: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 75
                  mov    bl, 0
                  mov    ecx, Domain
                  mov    edx, Kind
                  mov    esi, Protocol
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.1}    Function  CloseSocket(Socket: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 75
                  mov    bl, 1
                  mov    ecx, Socket
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.2}    Function  SocketBind(Socket: LongWord; Var SockAddr: TSockAddr): Integer; StdCall;
          Const SIZEOF_TSOCKADDR = SizeOf(TSockAddr);
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 75
                  mov    bl, 2
                  mov    ecx, Socket
                  mov    edx, SockAddr
                  mov    esi, SIZEOF_TSOCKADDR
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.3}    Function  SocketListen(Socket: LongWord; Var BackLog): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 75
                  mov    bl, 3
                  mov    ecx, Socket
                  mov    edx, BackLog
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.4}    Function  SocketConnect(Socket: LongWord; Var SockAddr: TSockAddr): Integer; StdCall;
          Const SIZEOF_TSOCKADDR = SizeOf(TSockAddr);
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 75
                  mov    bl, 4
                  mov    ecx, Socket
                  mov    edx, SockAddr
                  mov    esi, SIZEOF_TSOCKADDR
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.5}    Function  SocketAccept(Socket: LongWord; Var SockAddr: TSockAddr): LongWord; StdCall;
          Const SIZEOF_TSOCKADDR = SizeOf(TSockAddr);
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 75
                  mov    bl, 5
                  mov    ecx, Socket
                  mov    edx, SockAddr
                  mov    esi, SIZEOF_TSOCKADDR
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.6}    Function  SocketSend(Socket: LongWord; Const Buffer; Size, Flags: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  push   edi
                  mov    eax, 75
                  mov    bl, 6
                  mov    ecx, Socket
                  mov    edx, Buffer
                  mov    esi, Size
                  mov    edi, Flags
                  int    64
                  pop    edi
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.7}    Function  SocketReceive(Socket: LongWord; Var Buffer; Size, Flags: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  push   esi
                  push   edi
                  mov    eax, 75
                  mov    bl, 7
                  mov    ecx, Socket
                  mov    edx, Buffer
                  mov    esi, Size
                  mov    edi, Flags
                  int    64
                  pop    edi
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.8}    Function  SetSocketOptions(Socket: LongWord; Var OptStruct: TOptStruct): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 75
                  mov    bl, 8
                  mov    ecx, Socket
                  mov    edx, OptStruct
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.9}    Function  GetSocketOptions(Socket: LongWord; Var OptStruct: TOptStruct): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 75
                  mov    bl, 9
                  mov    ecx, Socket
                  mov    edx, OptStruct
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{75.10}   Function  GetSocketPair(Var Socket1, Socket2: LongWord): Integer; StdCall;
          Asm
                  push   ebx
                  mov    eax, 75
                  mov    bl, 10
                  int    64
                  mov    ecx, Socket1
                  mov    edx, Socket2
                  mov    [ecx], eax
                  mov    [edx], ebx
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.0.0}  Function  GetMAC(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00000000
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.0}  Function  GetIPv4SentPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.1}  Function  GetIPv4ReceivedPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 1
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.2}  Function  GetIPv4IP(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 2
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.3}  Function  SetIPv4IP(Device: Byte; IP: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 3
                  mov    bh, Device
                  mov    ecx, IP
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.4}  Function  GetIPv4DNS(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 4
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.5}  Function  SetIPv4DNS(Device: Byte; DNS: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 5
                  mov    bh, Device
                  mov    ecx, DNS
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.6}  Function  GetIPv4Subnet(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 6
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.7}  Function  SetIPv4Subnet(Device: Byte; Subnet: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 7
                  mov    bh, Device
                  mov    ecx, Subnet
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.8}  Function  GetIPv4Gateway(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 8
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.1.9}  Function  SetIPv4Gateway(Device: Byte; Gateway: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00010000
                  mov    bl, 9
                  mov    bh, Device
                  mov    ecx, Gateway
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.2.0}  Function  GetICMPSentPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00020000
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.2.1}  Function  GetICMPReceivedPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00020000
                  mov    bl, 1
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.3.0}  Function  GetUDPSentPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00030000
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.3.1}  Function  GetUDPReceivedPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00030000
                  mov    bl, 1
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.4.0}  Function  GetTCPSentPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00040000
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.4.1}  Function  GetTCPReceivedPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00040000
                  mov    bl, 1
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.0}  Function  GetARPSentPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 0
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.1}  Function  GetARPReceivedPackets(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 1
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.2}  Function  GetARPEntrys(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 2
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.3}  Function  GetARPEntry(Device: Byte; Entry: LongWord; Var Buffer): LongWord; StdCall;
          Asm
                  push   ebx
                  push   edi
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 3
                  mov    bh, Device
                  mov    ecx, Entry
                  mov    edi, Buffer
                  int    64
                  pop    edi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.4}  Function  AddARPEntry(Device: Byte; Const Buffer): LongWord; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 4
                  mov    bh, Device
                  mov    esi, Buffer
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.5}  Function  RemoveARPEntry(Device: Byte; Entry: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 5
                  mov    bh, Device
                  mov    ecx, Entry
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.6}  Function  SendARPAnnounce(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 6
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{76.5.7}  Function  GetARPConflicts(Device: Byte): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 76
                  mov    ebx, $00050000
                  mov    bl, 7
                  mov    bh, Device
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{77.0}    Function  CreateFutex(Futex: Pointer): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 77
                  mov    ebx, 0
                  mov    ecx, Futex
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{77.1}    Function  DestroyFutex(Handle: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 77
                  mov    ebx, 1
                  mov    ecx, Handle
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{77.2}    Function  WaitFutex(Handle, Value, Time: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  push   esi
                  mov    eax, 77
                  mov    ebx, 2
                  mov    ecx, Handle
                  mov    edx, Value
                  mov    esi, Time
                  int    64
                  pop    esi
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
{77.3}    Function  WakeFutex(Handle, Waiters: LongWord): LongWord; StdCall;
          Asm
                  push   ebx
                  mov    eax, 77
                  mov    ebx, 3
                  mov    ecx, Handle
                  mov    edx, Waiters
                  int    64
                  pop    ebx
          End;
(* -------------------------------------------------------- *)
          Function  GetProcAddress(hLib: Pointer; ProcName: PKolibriChar): Pointer; StdCall;
          Asm
                  push   esi
                  push   edi
                  push   ebx
                  mov    edx, hLib
                  xor    eax, eax
                  test   edx, edx
                  jz     @end
                  mov    edi, ProcName
                  mov    ecx, $FFFFFFFF
                  repne scasb
                  mov    ebx, ecx
                  not    ebx
          @next:
                  mov    esi, [edx]
                  test   esi, esi
                  jz     @end
                  mov    ecx, ebx
                  mov    edi, ProcName
                  add    edx, 8
                  repe cmpsb
                  jne    @next
                  mov    eax, [edx - 4]
          @end:
                  pop    ebx
                  pop    edi
                  pop    esi
          End;
(* -------------------------------------------------------- *)
End.