Board.KolibriOS.org

Code: Select all

Unit Unit1;
(* -------------------------------------------------------- *)
Interface
(* -------------------------------------------------------- *)
Type

  Dword = Cardinal;

Var
  hConsole: Pointer;
  ConsoleInit:       Procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: Dword; Caption: PChar); StdCall;
  ConsoleExit:       Procedure(bCloseWindow: Cardinal); StdCall;
  printf:            Function(Const Format: PChar): Integer; CDecl VarArgs;
(* -------------------------------------------------------- *)
  Procedure Main; Forward;
  Procedure ThreadTerminate; Forward;
  Function  LoadLibrary(Path: PChar): Pointer; StdCall; Forward;
  Function  GetProcAddress(hLib: Pointer; ProcName: PChar): Pointer; StdCall; Forward;
  Function  HeapCreate: Cardinal; Forward;
  Function  HeapAllocate(Bytes: Cardinal): Pointer; StdCall; Forward;
  Function  HeapFree(MemPtr: Pointer): Cardinal; StdCall; Forward;
  Function  GetFreeMemory: Dword; Forward;
  Function  GetAvailableMemory: Dword; Forward;
(* -------------------------------------------------------- *)
Implementation
(* -------------------------------------------------------- *)
Procedure Main();
Var
   HeapSize: Dword;
   FreeMemory: Dword;
   AvailableMemory: Dword;
   MemPtr: Pointer;
Begin

   hConsole          := LoadLibrary('/sys/lib/console.obj');
   ConsoleInit       := GetProcAddress(hConsole, 'con_init');
   ConsoleExit       := GetProcAddress(hConsole, 'con_exit');
   printf            := GetProcAddress(hConsole, 'con_printf');

   ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Test');

   FreeMemory      := GetFreeMemory();
   AvailableMemory := GetAvailableMemory();
   HeapSize        := HeapCreate();

   printf('Free memory            = %d kilobytes.'#10, FreeMemory);
   printf('Available memory       = %d kilobytes.'#10, AvailableMemory);

   If HeapSize = 0 Then
     printf('HeapCreate Error!'#10)
   Else Begin
     printf('Heap created. HeapSize = %d bytes.'#10, HeapSize);

     MemPtr := HeapAllocate(FreeMemory * 1024);

     If MemPtr = nil Then
       printf('HeapAllocate Error!'#10)
     Else
       printf('Allocated %d kilobytes. Pointer to memory = %#x'#10, FreeMemory, MemPtr);

     If HeapFree(MemPtr) = 0 Then
       printf('HeapFree Error!'#10)
     Else
       printf('Memory freed.'#10);

   End;

   ConsoleExit(0);
   ThreadTerminate;
End;
(* -------------------------------------------------------- *)
Function  HeapCreate: Cardinal;
Asm
        push   ebx
        mov    eax, 68
        mov    ebx, 11
        int    64
        pop    ebx
End;
(* -------------------------------------------------------- *)
Function  HeapAllocate(Bytes: Cardinal): Pointer;
Asm
        push   ebx
        mov    eax, 68
        mov    ebx, 12
        mov    ecx, Bytes
        int    64
        pop    ebx
End;
(* -------------------------------------------------------- *)
Function  HeapFree(MemPtr: Pointer): Cardinal;
Asm
        push   ebx
        mov    eax, 68
        mov    ebx, 13
        mov    ecx, MemPtr
        int    64
        pop    ebx
End;
(* -------------------------------------------------------- *)
Function  GetFreeMemory: Dword;
Asm
        push   ebx
        mov    eax, 18
        mov    ebx, 16
        int    64
        pop    ebx
End;
(* -------------------------------------------------------- *)
Function  GetAvailableMemory: Dword;
Asm
        push   ebx
        mov    eax, 18
        mov    ebx, 17
        int    64
        pop    ebx
End;
(* -------------------------------------------------------- *)
Procedure ThreadTerminate();
Asm
        mov    eax, $FFFFFFFF
        int    64
End;
(* -------------------------------------------------------- *)
Function GetProcAddress(hLib: Pointer; ProcName: PChar): Pointer;
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;
(* -------------------------------------------------------- *)
Function LoadLibrary(Path: PChar): Pointer;
Asm
        push   ebx
        mov    eax, 68
        mov    ebx, 19
        mov    ecx, Path
        int    64
        pop    ebx
End;
(* -------------------------------------------------------- *)
End.