| ＫＥＹ０，”ＰＯＫＥ＆ＦＢ，＆Ｅ３”＋ＣＨＲ＄１３ |
Ｅ５００のキーは内部的には別表のように格子状に配列されています。まずは、この表の簡単な見方を説明します。
例えば、［１］と［４］が同時に押されているかどうかを調べたい場合、 表の上の方をたどってみるとＦ０ｈ番地、ビット５と書いてあると思います。これは、どういう意味かと言うと、Ｆ０ｈ番地のビット５をＯＮにするということです。何のことやら分からないという人のためにもう少し分かりやすく書きます。
１バイトは８ビットであるというのは知ってますよね。例えば、１６進数でＡＢｈという値は２進数では10101011と表記することができます。「１バイトは８ビットである」というのは言い換えるならば「１バイトは８桁の２進数で表記することができる」ということなのです。
また、２進数というのは「１」か「０」、つまり、「ＯＮ」か「ＯＦＦ」の２通りしかありません。ビット５をＯＮにするというのは下から数えて６番目の位をＯＮにする（０から始まっているので）ということなのです。だから、要は２の５乗（２０ｈ＝３２）を書き込めばよいのです。
だから、「１」が押されたかどうかを調べるのには、まず準備として、
ＰＯＫＥ ＆Ｆ０，＆２０
とすればよいのです。押されたかどうかはＦ２ｈ番地をＰＥＥＫで読み取ることで分かります。
Ａ＝ＰＥＥＫ ＆Ｆ２
表の左を見たら分かりますが、［１］が押されていればＦ２ｈ番地のビット６がＯＮになるのです。つまり、Ａに６４（＝４０ｈ）という値が代入されるのです。［４］が押された場合はＦ２ｈ番地のビット５がＯＮになり、Ａに３２（＝２０ｈ）という値が代入されます。
では、［１］［４］同時に押した場合どうなるでしょうか。これは、ビット５、ビット６が両方ともＯＮになるのでＡに９６（＝６０ｈ）が代入されるのです。これを利用して［１］［４］が押されているかどうかを調べるプログラムは以下の通りです。［１］［４］を同時に押せばプログラムを終了します。
サンプルプログラム
|
10 KEY 0,"POKE&FB,&E3"+CHR$ 13 20 POKE &FB,&A0:POKE &F0,&20 30 CLS 40 A=PEEK &F2 50 IF A=&40 PRINT "1 ガ オサレタヨ":BEEP 1 60 IF A=&20 PRINT "4 ガ オサレタヨ":BEEP 1 70 IF A=&60 THEN 90 80 GOTO 30 90 PRINT "リョウホウ オサレマシタ" 100 POKE &FB,&E3 |
同時キー入力は慣れるまでは少し面倒ですが、今までオールＢＡＳＩＣでは不可能と思われた同時キー入力のゲームを作ることが可能になります。これにより、２人対戦のゲームも作れるようになるのです。さらに、キー割り込みを無効化している分、処理の高速化も出来ます。ぜひ、どんどん使ってみてください。ただ、キー割り込みを無効化するとBREAKも使用できなくなるという問題があります。その場合ゲームを強制終了する場合、リセットボタンを押すしかありません。可能ならば特定のキーを押した場合にキー割り込みを許可（ＰＯＫＥ＆ＦＢ，＆Ｅ３を実行）するような処置を取るのが望ましいです。
|
コラム 割り込み無効による高速化
ＢＡＳＩＣプログラム実行時は様々な割り込み処理（何かあったらプログラム実行中でも別の処理に移る）が行われているのだ。 |
| Ｆ１ｈ番地 | Ｆ０ｈ番地 | |||||||||||
| Ｆ２ｈ番地 | ビット２ | ビット１ | ビット０ | ビット７ | ビット６ | ビット５ | ビット４ | ビット３ | ビット２ | ビット１ | ビット０ | |
| ビット０ | Ｐ | ） | § | CCE | STO | RCL | Ｉ | Ｙ | Ｒ | Ｗ | ◆ | |
| ビット１ | 2ndF | FSE | tan | cos | sin | hyp | Ｏ | Ｕ | Ｔ | Ｅ | Ｑ | |
| ビット２ | PF5 | 1/x | log | In | DEG | HEX | Ｋ | Ｈ | Ｆ | Ｓ | MENU | |
| ビット３ | PF4 | ） | X2 | √ | YX | EXP | Ｌ | Ｊ | Ｇ | Ｄ | Ａ | |
| ビット４ | PF3 | DEL | ÷ | ９ | ８ | ７ | ， | Ｎ | Ｖ | Ｘ | BASIC | |
| ビット５ | PF2 | BS | × | ６ | ５ | ４ | ； | Ｍ | Ｂ | Ｃ | Ｚ | |
| ビット６ | PF1 | INS | − | ３ | ２ | １ | ← | ↑ | SPC | CAP | SHIFT | |
| ビット７ | ＝ | ＋ | ． | +/- | ０ | RET | → | ↓ | カナ | CTRL | ||
同時キー入力サンプルゲーム
《プログラムについて》
同時キー入力の基本原理はすでに上記に書いていますので省略します。では、判定方法の方を見ていくことにしましょう。
通常のレースゲームでよく見られるアクセルを押しながら左右にハンドルを切るというのと同じことをしているわけです。
ここで考えられる判定パターンは次の３通りです。
|
(1) アクセルを押しているかどうか (2) 左にハンドルを切っているかどうか (3) 右にハンドルを切っているかどうか |
（１）を満たしていればＫに１０ｈが代入される
（２）を満たしていればＫに２０ｈが代入される
（３）を満たしていればＫに４０ｈが代入される
しかし、実は（１）と（２）の両方を満たしている場合、つまり、アクセルを押しながらハンドルを右に切るという場合はＫの値は３０ｈとなりますが、これをどのように判定するかが問題なのです。このままでは「アクセルを押しながらハンドルを切った場合」というさらに別の判定が必要（上記の３つの判定パターンにあてはまらないため）になります。
つまり、単純に考えた場合、以下の５通りの判定が必要なのです。
そこで登場するのが論理積ＡＮＤです。ＡＮＤはＩＦ文で条件式の結合として使用されることが多いですが、本来の役目は論理積を行う演算子です。ここで「論理積とは何か」ということは省略（マニュアルを見てね）させてもらいますが、
Ｂ＝Ｋ ＡＮＤ ＆１０
というように用いることによって好きなビットのみを取り出すことができ、
ＩＦ （Ｋ ＡＮＤ ＆１０）＝＆１０ 〜
とすることにより、取り出したビットがＯＮになっているかどうかを調べることができます。上記の例ではビット４がＯＮになっているかどうかを調べています。こうすることにより、他のキーが押されたかどうかを考えることがなく判定が可能になります。
《プログラムリスト》
|
10 CLS :T=0:X=239:Y=15:A=RND -1 20 FOR I=1TO 50:GCURSOR (RND 220,RND 36):GPRINT "FFFFFFFFFFFF":NEXT 30 KEY 0,"POKE&FB,&E3"+CHR$ 13:BEEP 1:POKE &FB,&A0:POKE &F0,&40 40 T=T+0.1-(V+ABS W)/40:PRESET (X-V,Y-W):K=PEEK &F2 50 V=((K AND &10)=&10):W=((K AND &20)=&20)-((K AND &40)=&40) 60 P=POINT (X,Y):PSET (X,Y):X=X+V:Y=Y+W 70 IF P FOR I=0TO 20:LINE (X,Y)-(X+RND 18-9,Y+RND 18-9),X:BEEP 1,I*10,9:NEXT GOTO 90 80 IF X=0BEEP 1:LOCATE 9,1:PRINT USING "GOAL IN ! TIME="###.##";T ELSE 40 90 POKE &FB,&E3:WAIT :GPRINT :GPRINT :WAIT 0:GOTO 10 |