Packs the least significant bits in eight bytes into a single byte.
Syntax:
call x"F4" using byte
array
Parameters:
| |
Using call prototype (see
Key)
|
Picture
|
|
byte
|
cblt-x1-compx
|
pic x comp-x.
|
|
array
|
cblt-x1-compx occurs 8
|
pic x comp-x occurs 8
|
On Entry:
|
array
|
The bits to be packed.
|
Comments:
The routine takes the eight bytes from array and uses the least significant bit of each byte to form byte. The first occurrence in array becomes the most significant bit of byte (bit 7).
00000001 00000001 00000000 00000000 00000001 00000000 00000001 00000001 | | | | | | | | | | | |+-------+ | | | | | +-------+||+---------------+ | | | +---------------+||||+-----------------------+ | +-----------------------+||||||+-------------------------------+ |||||||| vvvvvvvv 11001011