MemoryBlock.ExpandBitsMBS(dest as memoryblock, SourceByteCount as Integer, LowValue as Integer = 0, HighValue as Integer = 255) as boolean

dim m1 as new MemoryBlock(200)
dim m2 as new MemoryBlock(1600)

for i as Integer = 0 to 127
  m1.Int8Value(i) = i
next

dim n as Integer = 128
dim b as Boolean = m1.ExpandBitsMBS(m2, n)

break // see result in debugger

Takes a bit from the source memoryblock and writes a byte for it to destination. Uses LowValue (default 0) if the bit is not set and HighValue (Default 255) if the bit is set.
Works only on x86 CPUs (no PPC).
Reads source memoryblock in 32 bit blocks and writes the destination in 32 byte blocks.

Blog Entries

• MBS REALbasic Plugins, version 10.6pr9