; Из последней русифицированной справки
; Пример: Применение преобразования типов для объединения и разделения многокомпонентных значений.
Structure RGBA   ;  Создаём шаблон Структуры RGBA (тип RGBA, назовите тип как Вам удобно),
  StructureUnion ;  и вкладываем в него Структурное Объединение,
    color.l      ;  в котором объединяем переменную 'color' с типом Long (4 байта),
    byte.a[4]    ;  и статический массив с типом ASCII (1 байт), элементы массива накладываются на байты переменной 'color'.
  EndStructureUnion
EndStructure

col.RGBA  ; Создаём экземпляр структуры RGBA, в виде переменной col с типом RGBA.

col\color = RGBA(255, 200, 150, 100)  ; Присваиваем полю 'color' значение RGBA. 
Debug "Красный:   " + col\byte[0]     ; Считываем значение из нужного элемента массива (он же байт переменной 'color').
Debug "Зелёный:   " + col\byte[1]     ; Так можно объединять и разделять много-компонентные значения на составляющие.
Debug "Синий:     " + col\byte[2]     ; В данном случае получилось разделение, но если записать компонентные значения по  
Debug "Прозрачность:  " + col\byte[3] ; элементам массива, то значение считанное из col\color - будет полным значением RGBA.
End

l.l = 12345678
Debug  "1 байт "+Red(l)
Debug  "2 байт "+ Green(l)
Debug  "3 байт "+ Blue(l)
Debug  "4 байт "+ Alpha(l)

EnableExplicit
Structure L_BYTE
  StructureUnion
    MainVar.l
    PartVar.a[4]
  EndStructureUnion
EndStructure

Define TestVar.L_BYTE
Dim HexStr.s(255)
Define i.i
; Это выполняенся 1раз и лучше вообще заранее и результат в датасекцию
For i = 0 To 255
HexStr(i) = RSet(Hex(i), 2, "0")  
Next
;
TestVar\MainVar = -1 
Debug TestVar\PartVar[0]
Debug HexStr(TestVar\PartVar[0])
Debug TestVar\PartVar[1]
Debug HexStr(TestVar\PartVar[1])
Debug TestVar\PartVar[2]
Debug HexStr(TestVar\PartVar[2])
Debug TestVar\PartVar[3]
Debug HexStr(TestVar\PartVar[3])
Debug "----------------------"
TestVar\MainVar = 0 
Debug TestVar\PartVar[0]
Debug HexStr(TestVar\PartVar[0])
Debug TestVar\PartVar[1]
Debug HexStr(TestVar\PartVar[1])
Debug TestVar\PartVar[2]
Debug HexStr(TestVar\PartVar[2])
Debug TestVar\PartVar[3]
Debug HexStr(TestVar\PartVar[3])
Debug "----------------------"
TestVar\MainVar = Random(2147483647) 
Debug TestVar\PartVar[0]
Debug HexStr(TestVar\PartVar[0])
Debug TestVar\PartVar[1]
Debug HexStr(TestVar\PartVar[1])
Debug TestVar\PartVar[2]
Debug HexStr(TestVar\PartVar[2])
Debug TestVar\PartVar[3]
Debug HexStr(TestVar\PartVar[3])
; Т.е. не каких вызовов функций и прочих манипуляций
; Если подготовиться, то огромное количество алгоритмов это просто взятее заготовленного по адресу.
; При этом индекс массива это тот же адрес (смещение от адреса начального)
End

l.l = 12345678
If CreateFile(0,"c:\test.txt")
  For i = 0 To 3
    WriteStringN(0,RSet(Hex(PeekA(@l+i),#PB_Byte),2,"0"))
  Next 
CloseFile(0)
EndIf

EnableExplicit
Structure L_BYTE
  StructureUnion
    MainVar.l
    PartVar.a[4]
  EndStructureUnion
EndStructure
Define L4B.L_BYTE
Define L4.l
Define B0.a
Define B1.a
Define B2.a
Define B3.a
;------------------
L4B\MainVar = -1 
B0 = L4B\PartVar[0]
B1 = L4B\PartVar[1]
B2 = L4B\PartVar[2]
B3 = L4B\PartVar[3]
;------------------
L4 = -1
B0 = PeekA(@L4+0)
B1 = PeekA(@L4+1)
B2 = PeekA(@L4+2)
B3 = PeekA(@L4+3)
;------------------
End

; L4B\MainVar = -1 
  LEA    rbp,[v_L4B]
  MOV    dword [rbp],-1
; B0 = L4B\PartVar[0]
  MOVZX  rax,byte [rbp]
  MOV    byte [v_B0],al
; B1 = L4B\PartVar[1]
  MOVZX  rax,byte [rbp+1]
  MOV    byte [v_B1],al
; B2 = L4B\PartVar[2]
  MOVZX  rax,byte [rbp+2]
  MOV    byte [v_B2],al
; B3 = L4B\PartVar[3]
  MOVZX  rax,byte [rbp+3]
  MOV    byte [v_B3],al
; 
; L4 = -1
  MOV    dword [v_L4],-1
; B0 = PeekA(@L4+0)
  LEA    rax,[v_L4]
  MOV    r15,rax
  MOV    rax,r15
  MOV    rcx,rax
  CALL   PB_PeekA
  MOV    byte [v_B0],al
; B1 = PeekA(@L4+1)
  LEA    rax,[v_L4]
  INC    rax
  MOV    rcx,rax
  CALL   PB_PeekA
  MOV    byte [v_B1],al
; B2 = PeekA(@L4+2)
  LEA    rax,[v_L4]
  ADD    rax,2
  MOV    rcx,rax
  CALL   PB_PeekA
  MOV    byte [v_B2],al
; B3 = PeekA(@L4+3)
  LEA    rax,[v_L4]
  ADD    rax,3
  MOV    rcx,rax
  CALL   PB_PeekA
  MOV    byte [v_B3],al
; 

If CreateFile(0,"test.eep")
  WriteData(0, @Byte(), ArraSize(Byte()))
  CloseFile(0)
EndIf 

#file_test=0
Dim long.l (1,3)
long(0, 0)=12  
long(0, 1)=876543210 
long(0, 2)=234554321
long(0, 3)=-234554321
long(1, 0)=201032
long(1, 1)=111111111 
long(1, 2)=-324354645
long(1, 3)=-9999994
Summa.a=0
data_end$=":00000001FF"
TempString$=""
nb_bytes_line$=RSet(Hex((ArraySize (long(), 2)+1)*4), 2, "0")
start_address=0
type_write$="00"
For f=0 To ArraySize (long(), 1)
  TempString$+":"+nb_bytes_line$+RSet(Hex(start_address), 4, "0")+type_write$
  For i=0 To ArraySize (long(), 2)
    For i_1=0 To 3
      Summa-PeekA (@long(f, i)+i_1)
      TempString$+RSet(Hex(PeekA (@long(f, i)+i_1)), 2, "0")
    Next
  Next
  TempString$+RSet(Hex(Summa), 2, "0")+#CRLF$
  Summa=0
  start_address+((ArraySize (long(), 2)+1)*4)
Next
TempString$+data_end$
If CreateFile(#file_test,"res_test.txt")
  WriteString(#file_test, TempString$, #PB_Ascii)
  CloseFile(#file_test)
Else
  Debug "Can not create file!"
EndIf