Accessing bits of an array element

[pedja089]

Just an idea...

ArrayA VAR BYTE[1000]
BitNo VAR WORD 
ByteInArray VAR WORD
BitInByte VAR BYTE
TmpByte VAR BYTE
BitValue VAR BIT

GetBit: 'Input Array,BitNo; Output BitValue
ByteInArray=BitNo/8
TmpByte=ArrayA[ByteInArray]
BitInByte=BitNo//8
BitValue=TmpByte.0[BitInByte]
RETURN

SetBit :'Input Array, BitNo,BitValue; Output: Array
ByteInArray=BitNo/8
TmpByte=ArrayA[ByteInArray]
BitInByte=BitNo//8
TmpByte.0[BitInByte]=BitValue
ArrayA[ByteInArray]=TmpByte
RETURN