bic_ サブルーチンは、ビット X2 の X1 を 0 に設定します。
引き数タイプおよび属性
INTEGER(4)
X1 は、範囲 0 <= X1 <= 31 の値を持ちます。
例
INTEGER(4) X1, X2 CALL bic_ (X1, X2)