番外編
Ｃｈａｐ．７ 命令語インタプリタを改造する（２）（2010/12/26 本文中のＶｉｓｕａｌ Ｂａｓｉｃプログラムは、ＶＢ５．０のものです。ＶＢ．ＮＥＴとは一部異なる部分があります。）
Ｃｈａｐ．６では、命令語インタプリタの改造について検討しました。
今回は、Ｖｉｓｕａｌ Ｂａｓｉｃ ５．０で書いた命令語インタプリタのソースを実際に改造することにします。
なお、改造の元となるソースプログラムは、番外編Ｃｈａｐ．２で作成したプログラム（ｂａｎｇ１０ｂ．ｚｉｐ）です。
７．１ 導通状態スタックを設ける（改造１）
まず、回路ブロックの演算結果を一時的に記憶しておくスタック（導通状態スタック）を設けます。（リスト７．１）
前回説明したように、スタックの機能をシフトレジスタで構成するため、スタックポインタは必要ありません。
| '変数定義 Dim Prg(1023) As String '命令語プログラム Dim LastPrg As Integer '命令語プログラム最終ポインタ＋１ Dim RunFlg As Boolean 'スキャン実行許可フラグ Dim m(&HFF) As Boolean 'Ｉ／Ｏメモリ Dim Reg As Integer '導通状態レジスタ Dim Cmd As String 'Ｉ／Ｏメモリの変更指示（文字列） Dim FileName As String '命令語プログラムファイル名 Dim Stk(7) As Integer '導通状態スタック (99/07/19) |
また、命令語の処理の中で、このスタックに対するＰＵＳＨ動作、ＰＵＬＬ動作の手続き（または関数）が必要となるため、ここで作成しておきます。（リスト７．２）
| '名称：ＰＵＳＨ動作 '機能：スタック（配列）にデータをＰＵＳＨ（シフト）する '99/07/19 新規作成 Private Sub PushStk(x() As Integer, y As Integer) x(7) = x(6) x(6) = x(5) x(5) = x(4) x(4) = x(3) x(3) = x(2) x(2) = x(1) x(1) = x(0) x(0) = y End Sub '名称：ＰＵＬＬ動作 '機能：スタック（配列）からデータをＰＵＬＬ（シフト）する '99/07/19 新規作成 Private Function PullStk(x() As Integer) As Integer PullStk = x(0) x(0) = x(1) x(1) = x(2) x(2) = x(3) x(3) = x(4) x(4) = x(5) x(5) = x(6) x(6) = x(7) x(7) = 0 End Function |
７．２ ＬＤ命令、ＬＤＮＯＴ命令の動作を変更する（改造２）
次に、ＬＤ命令、ＬＤＮＯＴ命令の動作を変更します。
従来の命令語インタプリタでは、ＬＤ命令、ＬＤＮＯＴ命令の動作は、導通状態レジスタにデータをロードするだけでした。
改造後の命令語インタプリタでは、導通状態レジスタにデータをロードする前に、現在の導通状態レジスタの内容を導通状態スタックに退避（ＰＵＳＨ動作）します。（リスト７．３）
| Case "LD" 'ＬＤ命令のとき i = i + 1 Call PushStk(Stk(), Reg) '導通状態レジスタをスタックに退避 (99/07/19) Reg = m(Val("&H" + Prg(i))) Case "LDNOT" 'ＬＤＮＯＴ命令のとき i = i + 1 Call PushStk(Stk(), Reg) '導通状態レジスタをスタックに退避 (99/07/19) Reg = Not (m(Val("&H" + Prg(i)))) |
７．３ ＡＮＤＳＴＡＣＫ命令、ＯＲＳＴＡＣＫ命令を新規作成する（改造３）
次に、ＡＮＤＳＴＡＣＫ命令、ＯＲＳＴＡＣＫ命令を新規作成します。
これらの命令は、ＬＤ命令またはＬＤＮＯＴ命令でスタックに退避したデータと導通状態レジスタとを、ＡＮＤ結合またはＯＲ結合する命令です。（リスト７．４）
| Case "ANDSTACK" 'ＡＮＤＳＴＡＣＫ命令のとき
(99/07/19) Reg = Reg And PullStk(Stk()) '(99/07/19) Case "ORSTACK" 'ＯＲＳＴＡＣＫ命令のとき (99/07/19) Reg = Reg Or PullStk(Stk()) '(99/07/19) |
７．４ バージョン表示を変更（改造４）
最後に、バージョン表示をＶ１．０から、Ｖ１．１に変更します。（リスト７．５）
| '名称：フォームロード処理 '機能：起動時の初期設定 Private Sub Form_Load() '(99/07/19) frmMain.Caption = "番外編 - 命令語インタプリタ V1.0" frmMain.Caption = "番外編 - 命令語インタプリタ V1.1" '(99/07/19) lstMon.Font = "ＭＳ ゴシック" lstPrg.Font = "ＭＳ ゴシック" Timer1.Interval = 100 '１００ｍｓ毎にタイマイベント発生 End Sub |
７．５ 動作確認
以上の改造１〜改造４をおこない再コンパイルすると、改造後の命令語インタプリタの実行ファイル（ＥＸＥファイル）ができあがります。
では、この作成した命令語インタプリタの動作を、図７．１のテストプログラムで確かめてみましょう。
 |
このラダー図は、回路ブロックの結合があるため、従来の命令語インタプリタでは、実行できませんでした。
しかし、改造後の命令語インタプリタでは、リスト７．６のように命令語に変換して、実行することができます。
| /* ANDSTACK,ORSTACKﾃｽﾄ */ LD 00 LDNOT 10 LD 20 AND 21 ORSTACK ANDSTACK OUT 30 END |
動作を確かめたい方は、改造後の命令語インタプリタのソースと実行ファイル（ｂａｎｇ１１．ｚｉｐ）を、ダウンロードして、実際に動かしてみてください。
さて、次回からは、改造後の命令語インタプリタで「ラダー図でメモリを作る」に挑戦します。