X"F4"
Packs the least significant bits in eight bytes into a single byte.
Syntax:
call x"F4" using byte
array
Parameters:
|
Using call prototype (see
Library Routines - Key) |
Picture (32-bit systems) |
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. |
On Exit:
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
See Also: