X"F4"

8 つの 1 バイトデータの最下位ビットを 1 バイトのデータにパックします。

構文：

call x"F4" using byte
                 array

パラメーター：

	呼び出しプロトタイプ使用時 (「説明の読み方」を参照)	PIC
`byte`	cblt-x1-compx	pic x comp-x
`array`	cblt-x1-compx occurs 8	pic x comp-x occurs 8

入力パラメーター：

array

パックするビット

出力パラメーター：

byte

パックされたバイト

説明：

array に格納されている 8 つの 1 バイトデータからそれぞれの最下位ビットを取得して 1 つのバイトデータを生成し、byte に格納します。array の先頭に格納されている要素の最下位ビットが、byte では最上位ビット (ビット 7) になります。

00000001 00000001 00000000 00000000 00000001 00000000 00000001 00000001
       |        |        |        |        |        |        |        | 
       |        |        |        |+-------+        |        |        |
       |        |        +-------+||+---------------+        |        |
       |        +---------------+||||+-----------------------+        |
       +-----------------------+||||||+-------------------------------+
                               ||||||||
                               vvvvvvvv
                               11001011