This thread was move to here from Trick'nd Tips.
I am very happy, because
I will not have to bear large amounts of
compensation or patent claim fees.
If it's off topic, I can talk about things like this.
Code: Select all
Global NewMap ExtRegisterYMM.s()
;
ExtRegisterYMM("0") = "ymm0"
ExtRegisterYMM("1") = "ymm1"
ExtRegisterYMM("2") = "ymm2"
ExtRegisterYMM("3") = "ymm3"
ExtRegisterYMM("4") = "ymm4"
ExtRegisterYMM("5") = "ymm5"
ExtRegisterYMM("6") = "ymm6"
ExtRegisterYMM("7") = "ymm7"
ExtRegisterYMM("8") = "ymm8"
ExtRegisterYMM("9") = "ymm9"
ExtRegisterYMM("10") = "ymm10"
ExtRegisterYMM("11") = "ymm11"
ExtRegisterYMM("12") = "ymm12"
ExtRegisterYMM("13") = "ymm13"
ExtRegisterYMM("14") = "ymm14"
ExtRegisterYMM("15") = "ymm15"
;
Global NewMap ExtRegisterYMMA.s()
;
ExtRegisterYMMA("0") = "ymm0"
ExtRegisterYMMA("2") = "ymm2"
ExtRegisterYMMA("4") = "ymm4"
ExtRegisterYMMA("6") = "ymm6"
ExtRegisterYMMA("8") = "ymm8"
ExtRegisterYMMA("10") = "ymm10"
ExtRegisterYMMA("12") = "ymm12"
ExtRegisterYMMA("14") = "ymm14"
;
Global NewMap ExtRegisterYMMB.s()
;
ExtRegisterYMMB("1") = "ymm1"
ExtRegisterYMMB("3") = "ymm3"
ExtRegisterYMMB("5") = "ymm5"
ExtRegisterYMMB("7") = "ymm7"
ExtRegisterYMMB("9") = "ymm9"
ExtRegisterYMMB("11") = "ymm11"
ExtRegisterYMMB("13") = "ymm13"
ExtRegisterYMMB("15") = "ymm15"
Code: Select all
Procedure Cures_five_YMM(start.i, cycle.i)
Protected pos.i, pos_2.i
; NOT_NOT_mmx_0_7_RAX_1.txt
For pos=start To start+(cycle-1)
AddElement(Buffer()) : Buffer() = FASM "JMP Cures_five_YMM"+Str(pos)
ForEach ExtRegisterMMA()
For pos_2=1 To 3
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "PAND " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "POR " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "POR " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
AddElement(Buffer()) : Buffer() = FASM "XCHG bh, cl"
AddElement(Buffer()) : Buffer() = FASM "XCHG cl, bh"
AddElement(Buffer()) : Buffer() = FASM "XCHG ch, bl"
AddElement(Buffer()) : Buffer() = FASM "XCHG bl, ch"
AddElement(Buffer()) : Buffer() = FASM "XCHG ah, dl"
AddElement(Buffer()) : Buffer() = FASM "XCHG dl, ah"
AddElement(Buffer()) : Buffer() = FASM "XCHG dh, al"
AddElement(Buffer()) : Buffer() = FASM "XCHG al, dh"
AddElement(Buffer()) : Buffer() = FASM "pcmpeqb " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
Next
AddElement(Buffer()) : Buffer() = FASM "PSRLQ " + ExtRegisterMMA() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "PSRAD " + ExtRegisterMMA() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "PSRAD " + ExtRegisterMMA() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "PADDQ " + ExtRegisterMMA() + ", " + ExtRegisterMMA()
Next
ResetMap(ExtRegisterXMMA())
ForEach ExtRegisterYMMA()
NextMapElement(ExtRegisterXMMA())
For pos_2=1 To 3
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterXMMA() + ", " + ExtRegisterXMMA() + ", " + ExtRegisterXMMA()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPAND " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
AddElement(Buffer()) : Buffer() = FASM "XCHG bh, cl"
AddElement(Buffer()) : Buffer() = FASM "XCHG cl, bh"
AddElement(Buffer()) : Buffer() = FASM "XCHG ch, bl"
AddElement(Buffer()) : Buffer() = FASM "XCHG bl, ch"
AddElement(Buffer()) : Buffer() = FASM "XCHG ah, dl"
AddElement(Buffer()) : Buffer() = FASM "XCHG dl, ah"
AddElement(Buffer()) : Buffer() = FASM "XCHG dh, al"
AddElement(Buffer()) : Buffer() = FASM "XCHG al, dh"
AddElement(Buffer()) : Buffer() = FASM "Vpcmpeqb " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
Next
AddElement(Buffer()) : Buffer() = FASM "VPSRLQ " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "VPSRAD " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "VPSRAD " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "VPADDQ " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA() + ", " + ExtRegisterYMMA()
Next
ForEach ExtRegisterMMB()
For pos_2=1 To 3
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "PAND " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "POR " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "POR " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "PXOR " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
AddElement(Buffer()) : Buffer() = FASM "XCHG bh, cl"
AddElement(Buffer()) : Buffer() = FASM "XCHG cl, bh"
AddElement(Buffer()) : Buffer() = FASM "XCHG ch, bl"
AddElement(Buffer()) : Buffer() = FASM "XCHG bl, ch"
AddElement(Buffer()) : Buffer() = FASM "XCHG ah, dl"
AddElement(Buffer()) : Buffer() = FASM "XCHG dl, ah"
AddElement(Buffer()) : Buffer() = FASM "XCHG dh, al"
AddElement(Buffer()) : Buffer() = FASM "XCHG al, dh"
AddElement(Buffer()) : Buffer() = FASM "pcmpeqb " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
Next
AddElement(Buffer()) : Buffer() = FASM "PSRLQ " + ExtRegisterMMB() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "PSRAD " + ExtRegisterMMB() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "PSRAD " + ExtRegisterMMB() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "PADDQ " + ExtRegisterMMB() + ", " + ExtRegisterMMB()
Next
ResetMap(ExtRegisterXMMB())
ForEach ExtRegisterYMMB()
NextMapElement(ExtRegisterXMMB())
For pos_2=1 To 3
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterXMMB() + ", " + ExtRegisterXMMB() + ", " + ExtRegisterXMMB()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPAND " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "VPXOR " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
AddElement(Buffer()) : Buffer() = FASM "XCHG bh, cl"
AddElement(Buffer()) : Buffer() = FASM "XCHG cl, bh"
AddElement(Buffer()) : Buffer() = FASM "XCHG ch, bl"
AddElement(Buffer()) : Buffer() = FASM "XCHG bl, ch"
AddElement(Buffer()) : Buffer() = FASM "XCHG ah, dl"
AddElement(Buffer()) : Buffer() = FASM "XCHG dl, ah"
AddElement(Buffer()) : Buffer() = FASM "XCHG dh, al"
AddElement(Buffer()) : Buffer() = FASM "XCHG al, dh"
AddElement(Buffer()) : Buffer() = FASM "Vpcmpeqb " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
Next
AddElement(Buffer()) : Buffer() = FASM "VPSRLQ " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "VPSRAD " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "VPSRAD " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", 255"
AddElement(Buffer()) : Buffer() = FASM "VPADDQ " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB() + ", " + ExtRegisterYMMB()
Next
AddElement(Buffer()) : Buffer() = FASM "Cures_five_YMM"+Str(pos)+":"
Next
EndProcedure
This code run "No operations!".
But Haswell design cores have PowerVoltageRegulator crushed.
My previous job was at SCREEN, a manufacturer of semiconductor
manufacturing equipment, so with just one my postcard notice,
Broadwell was no longer available in private distribution.
Skylake Kabylake was no troubles power.
but Kabylake-X had PowerVoltageRegulator crush.
In the world, there is no way to contact the "Intel CPU Design Department".
The only way Intel users can provide support with any problems.
Let's share PureBasic forum!