ProcedureDLL Execute(*Thread.ThreadData)
*ThisThread = *Thread
OnErrorGoto(?__Finish)
With *ThisThread
Repeat; Execution loop.
If \IP\u > #InstructionsCount : \ExitCode = #cInvalidOperand : Break : EndIf
Define *JMPDest = System\JMPTable[\IP\u]
\IP + #OpCodeSize; Move to next instruction.
EnableASM : JMP *JMPDest : DisableASM
__Ret:; Returning destination.
Until \ExitCode
EndWith
__Finish: __ReportError(*ThisThread)
EndProcedure

EnableExplicit; Essential.
#WordCap = 2; We need 2 words (4 bytes).

Structure DoubleVision
StructureUnion; 2 merged arrays (byte & word one).
Array wArr.u(#WordCap-1); Desired array, aligned there.
Array bArr.a(0); Base array, bounds doesn't matter.
EndStructureUnion; They are shared, however...
EndStructure

Macro PP(TypeName, Num, Val, TypeConst); Sugar.
Debug TypeName + Str(Num+1) + ": " + Hex(Val, TypeConst)
EndMacro

Procedure FillUp(Array Arr.a(1)); Получатель байт.
Define I, Val.a, Tofix = (ArraySize(Arr())+1)*SizeOf(Word)-1; Подготовка, переcчет границ.
For I = 0 To ToFix : Val = Random(255) : DisableDebugger; Подавляем отладчик, здесь он не прав.
Arr(I) = Val : EnableDebugger : PP("Byte", I, Val, #PB_Byte) : Next; Выдаем данные и записываем.
EndProcedure

Procedure Test(Array Arr.u(1)); Получатель слов.
Debug "-----------------------------"; Разделитель.
Define I, Tofix = ArraySize(Arr()); Получаем размер массива...
For I = 0 To ToFix : PP("Word", I, Arr(I), #PB_Word) : Next; Вывод.
EndProcedure

Define I, ToFix, DWArray.DoubleVision : With DWArray; Подготовка.
FillUP(\bArr()) : Test(\wArr()) : EndWith; Тестирование.