context.inc

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

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

; ВАЖНО: кодировка строк 36 и 39 этого файла должна соответствовать текущей локали (здесь это CP-866).

; <fold context routines data (platform-dependent)>
            dalign  $10
    ctx$threadStackDataSize:
            dd      $01000000 ; Размер области данных тагированного стака. Может быть от $00010000 до $7fff0000 с шагом $00010000.
            dd      $00000000 ; Зарезервировано
    ctx$fpuControlWord:
            dd      $0000037f ; Начальное значение слова управления FPU. Изменять его не рекомендуется.
    ctx$avxControlStatusWord:
            dd      $00001f80 ; Начальное значение регистра MXCSR. Изменять его не рекомендуется.
            dalign  $10
    ctx$noavxCPUMessage: ; Сообщение о ЦПУ без поддержки AVX-512. Должно быть локализовано.
            db      " ⮩ ணࠬ  ⮫쪮    প AVX, AVX2  AVX-512 (F, CD, DQ, BW).", $0d, $0a
    .end:   dalign  $10
    ctx$noavxOSMessage: ; Сообщение об ОС без поддержки AVX-512. Должно быть локализовано.
            db      " ⮩ ணࠬ  ⮫쪮  । 樮 ⥬  প AVX, AVX2  AVX-512 (F, CD, DQ, BW).", $0d, $0a
    .end:
; </fold>