プログラムからの Adis キー マッピングの変更

次の呼び出しを使用します。

call x"AF" using       set-map-byte
                       adis-key-mapping 

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

01 set-map-byte       pic 9(2) comp-x value 3.
01 adis-key-mapping.
   03 adis-map-byte   pic 9(2) comp-x.
   03 adis-key-number pic 9(2) comp-x.

詳細は次のとおりです。

adis-map-byte

マッピングするキーの機能番号を設定します。

adis-key-number

変更するキー番号を設定します。

* Change mapping of Backspace key
     move 14 to adis-key-number
     move 3 to adis-mapping-byte
     call x"AF" using set-map-byte
                      adis-key-mapping
* Change mapping of the tab key
     move 8 to adis-key-number
     move 8 to adis-mapping-byte
     call x"AF" using set-map-byte
                      adis-key-mapping