!footer.inc

Переключить прокрутку окна
Загрузить этот исходный код

;
  ; Реализация среды исполнения языка программирования
  ; Объектно-ориентированный продвинутый векторный транслятор
  ;
  ; Copyright © 2021, 2024, 2026 Малик Разработчик
  ;
  ; Это свободная программа: вы можете перераспространять ее и/или изменять
  ; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
  ; в каком она была опубликована Фондом свободного программного обеспечения;
  ; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
  ;
  ; Эта программа распространяется в надежде, что она будет полезной,
  ; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
  ; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
  ; общественной лицензии GNU.
  ;
  ; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
  ; вместе с этой программой. Если это не так, см.
  ; <https://www.gnu.org/licenses/>.
;

; <fold раздел импорта — в соответствии со спецификацией формата исполняемого модуля>
                section     ".idata" import data readable writeable

    impr$begin: pelibrary   impr$kernel32,  "KERNEL32.DLL"

                peimport    impr$kernel32, \
                            impr$GetSystemInfo,             "GetSystemInfo", \
                            impr$LocalFree,                 "LocalFree", \
                            impr$CloseHandle,               "CloseHandle", \
                            impr$SetErrorMode,              "SetErrorMode", \
                            impr$CreateToolhelp32Snapshot,  "CreateToolhelp32Snapshot", \
                            impr$GetSystemTime,             "GetSystemTime", \
                            impr$GetTimeZoneInformation,    "GetTimeZoneInformation", \
                            impr$VirtualFree,               "VirtualFree", \
                            impr$VirtualProtect,            "VirtualProtect", \
                            impr$VirtualAlloc,              "VirtualAlloc", \
                            impr$VirtualQuery,              "VirtualQuery", \
                            impr$InitializeCriticalSection, "InitializeCriticalSection", \
                            impr$DeleteCriticalSection,     "DeleteCriticalSection", \
                            impr$EnterCriticalSection,      "EnterCriticalSection", \
                            impr$LeaveCriticalSection,      "LeaveCriticalSection", \
                            impr$SetEvent,                  "SetEvent", \
                            impr$ResetEvent,                "ResetEvent", \
                            impr$CreateEvent,               "CreateEventW", \
                            impr$SwitchToThread,            "SwitchToThread", \
                            impr$SetThreadPriority,         "SetThreadPriority", \
                            impr$Thread32First,             "Thread32First", \
                            impr$Thread32Next,              "Thread32Next", \
                            impr$SetThreadDescription,      "SetThreadDescription", \
                            impr$GetCurrentThreadId,        "GetCurrentThreadId", \
                            impr$GetThreadPriority,         "GetThreadPriority", \
                            impr$GetThreadDescription,      "GetThreadDescription", \
                            impr$WaitForSingleObject,       "WaitForSingleObject", \
                            impr$GetExitCodeThread,         "GetExitCodeThread", \
                            impr$OpenThread,                "OpenThread", \
                            impr$CreateThread,              "CreateThread", \
                            impr$ExitProcess,               "ExitProcess", \
                            impr$SetCurrentDirectory,       "SetCurrentDirectoryW", \
                            impr$SetPriorityClass,          "SetPriorityClass", \
                            impr$SetHandleInformation,      "SetHandleInformation", \
                            impr$SetEnvironmentStrings,     "SetEnvironmentStringsW", \
                            impr$SetEnvironmentVariable,    "SetEnvironmentVariableW", \
                            impr$FreeEnvironmentStrings,    "FreeEnvironmentStringsW", \
                            impr$Process32First,            "Process32FirstW", \
                            impr$Process32Next,             "Process32NextW", \
                            impr$CreateProcess,             "CreateProcessW", \
                            impr$GetConsoleInputCP,         "GetConsoleCP", \
                            impr$GetConsoleOutputCP,        "GetConsoleOutputCP", \
                            impr$GetCurrentProcessId,       "GetCurrentProcessId", \
                            impr$GetCurrentDirectory,       "GetCurrentDirectoryW", \
                            impr$GetPriorityClass,          "GetPriorityClass", \
                            impr$GetEnvironmentVariable,    "GetEnvironmentVariableW", \
                            impr$GetExitCodeProcess,        "GetExitCodeProcess", \
                            impr$GetCurrentProcess,         "GetCurrentProcess", \
                            impr$GetStdHandle,              "GetStdHandle", \
                            impr$OpenProcess,               "OpenProcess", \
                            impr$GetCommandLine,            "GetCommandLineW", \
                            impr$GetEnvironmentStrings,     "GetEnvironmentStringsW", \
                            impr$CreatePipe,                "CreatePipe", \
                            impr$GetModuleFileName,         "GetModuleFileNameW", \
                            impr$GetModuleHandle,           "GetModuleHandleW", \
                            impr$GetProcAddress,            "GetProcAddress", \
                            impr$LoadLibrary,               "LoadLibraryW", \
                            impr$SetEndOfFile,              "SetEndOfFile", \
                            impr$SetFileAttributes,         "SetFileAttributesW", \
                            impr$SetFileTime,               "SetFileTime", \
                            impr$GetFileTime,               "GetFileTime", \
                            impr$FindNextFile,              "FindNextFileW", \
                            impr$FindClose,                 "FindClose", \
                            impr$FlushFileBuffers,          "FlushFileBuffers", \
                            impr$DeleteFile,                "DeleteFileW", \
                            impr$MoveFile,                  "MoveFileW", \
                            impr$RemoveDirectory,           "RemoveDirectoryW", \
                            impr$CreateDirectory,           "CreateDirectoryW", \
                            impr$GetFileAttributes,         "GetFileAttributesW", \
                            impr$GetDriveType,              "GetDriveTypeW", \
                            impr$GetVolumeInformation,      "GetVolumeInformationW", \
                            impr$ReadFile,                  "ReadFile", \
                            impr$WriteFile,                 "WriteFile", \
                            impr$SetFilePointer,            "SetFilePointer", \
                            impr$GetFileSize,               "GetFileSize", \
                            impr$FindFirstFile,             "FindFirstFileW", \
                            impr$CreateFile,                "CreateFileW", \
                            impr$GetDiskFreeSpaceEx,        "GetDiskFreeSpaceExW"
    impr$end:
; </fold>