Code: Select all
CopyMemory(codestrings(current_code)\cs(), @*outstream\byte[0]+*outstream\index, codestrings(current_code)\index)
*outstream\index + codestrings(current_code)\index
Here's a working snippet:
Code: Select all
Structure decoder_table
index.l
Array cs.a(200)
EndStructure
Structure colorbits
index.l
byte.a[0]
EndStructure
Dim codestrings.decoder_table(0)
codestrings(0)\index = 150
*outstream.colorbits = AllocateMemory(1024)
*outstream\index = 100
; Move 150 bytes from codestrings array to outstream starting at *outstream\index
CopyMemory(codestrings(0)\cs(), @*outstream\byte[0]+*outstream\index, codestrings(0)\index)
(sorry for my english I'm just learning)