;
; Реализация среды исполнения языка программирования
; Объектно-ориентированный продвинутый векторный транслятор
;
; Copyright © 2021, 2024 Малик Разработчик
;
; Это свободная программа: вы можете перераспространять ее и/или изменять
; ее на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
; в каком она была опубликована Фондом свободного программного обеспечения;
; либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
;
; Эта программа распространяется в надежде, что она будет полезной,
; но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
; или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
; общественной лицензии GNU.
;
; Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
; вместе с этой программой. Если это не так, см.
; <https://www.gnu.org/licenses/>.
;
; <fold функции проверки поддержки необходимых возможностей процессора и операционной системы>
if(used ctxt$os.isSupportedAVX512) ; <fold проверка поддержки AVX-512 со стороны операционной системы>
proc ctxt$os.isSupportedAVX512
mov r00d, $00000001
cpuid
test r01d, $08000000 ; инструкция XGETBV включена операционной системой?
jz @F
xor r01d, r01d
xgetbv
and r00d, $000000e7 ; состояние регистров FPU, SSE, AVX и AVX-512 сохраняется операционной системой при переключении контекстов?
cmp r00d, $000000e7
jne @F
mov r00d, $ffffffff
ret
@@: xor r00d, r00d
ret
end_proc
end if ; </fold>
if(used ctxt$cpu.isSupportedAVX512) ; <fold проверка поддержки AVX-512 со стороны процессора>
proc ctxt$cpu.isSupportedAVX512
mov r00d, $00000001
cpuid
and r01d, $10000001 ; SSE3 [бит 0], AVX [бит 28]
cmp r01d, $10000001
jne @F
mov r00d, $00000007
mov r01d, $00000000
cpuid
and r03d, $80030020 ; AVX2 [бит 5], AVX512F [бит 16], AVX512DQ [бит 17], AVX512VL [бит 31]
cmp r03d, $80030020
jne @F
mov r00d, $ffffffff
ret
@@: xor r00d, r00d
ret
end_proc
end if ; </fold>
if(used ctxt$cpu.isSupportedXStorage) ; <fold проверка поддержки XSAVE и XSAVEC>
proc ctxt$cpu.isSupportedXStorage
mov r00d, $00000001
cpuid
test r01d, $04000000 ; XSAVE
jz @F
mov r00d, $0000000d
mov r01d, $00000001
cpuid
test r00d, $00000002 ; XSAVEC
jz @F
mov r00d, $ffffffff
ret
@@: xor r00d, r00d
ret
end_proc
end if ; </fold>
if(used ctxt$cpu.getXStorageAreaSize) ; <fold определение размера в байтах области xstorage>
proc ctxt$cpu.getXStorageAreaSize
mov r06d, $00000240
mov r00d, $0000000d
mov r01d, $00000002 ; верхние 128 бит регистров YMM0–YMM15
cpuid
add r06d, r00d
mov r00d, $0000000d
mov r01d, $00000005 ; масочные регистры K0–K7
cpuid
add r06d, r00d
mov r00d, $0000000d
mov r01d, $00000006 ; верхние 256 бит регистров ZMM0–ZMM15
cpuid
add r06d, r00d
mov r00d, $0000000d
mov r01d, $00000007 ; регистры ZMM16–ZMM32
cpuid
add r00d, r06d
ret
end_proc
end if ; </fold>
; </fold>
