使用可能なシフト キーの判別

このルーチンは、一意のイベントとして検出できるシフト キーを探します。

次の呼び出しを使用して、プログラムで使用可能なシフト キーを判断します。

call x"AF" using    adis-function
                    adis-parameter 

adis-function および adis-parameter は、プログラムの作業場所節で次のように定義します。

 01 adis-function        pic 9(2) comp-x.
 01 adis-parameter       pic 9(4) comp-x.

詳細は次のとおりです。

adis-function
44 です。
adis-parameter
プログラムで使用可能なシフト キーを返します。adis-parameter の 16 ビットは、次のようなシフト キーを示します。ビット 0 が最下位ビットです。
ビット 対応するキー
4 から 15 予約済み
3 Alt
2 Ctrl
1 左 Shift
0 右 Shift