パソコン活用研究5番街（Visual Basic、Excel(VBA)、BASIC　プログラミング研究）

DUMPプログラム作成 　（互換/（一般））

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
どのプログラム言語でも、プログラム入門書なるものを見ると、本の最後の方に、一通りの文法を
学んだあとのおさらいとして、「DUMPプログラム」の作成が課題としてとりあげられています。
とりあえず、DUMPプログラムが一人で作成できれば、入門卒業として考えていいかもしれません。

DUMPプログラムを作成するには
・ファイルのオープン、クローズ、データの入出力
・キーボードからの入力と入力値の処理
・モニターへの表示、成型した出力（ゼロパッティングなど）
・条件判断と分岐
など、プログラム作成に必要な技法を一通り使います。DUMPプログラムが作成できれば、簡単なゲーム
などは容易に作れるでしょう。

というわけで、DUMPプログラムの作成をしてみましょう。ちなみに今回は、N88互換Basic for Win
を対象に作成しましたが、一般的なBasicでほとんど手直しなしで、移植できると思います。
N88互換Basic for Win　では、field , get といったランダムファイルアクセス系の命令が若干オリジナル
仕様（旧BasicよりVisual Basicよりで、柔軟な仕様）になっていますが、今回のDumpプログラムでは
オリジナル仕様の使い方ではなく、ごく一般的な使い方ですので、コードはそのままでO.K.だと思います。
もし、エラーが出るようであれば、お使いのBasicの文法仕様を確かめて、アレンジして下さい。

なお、ほぼ同様の機能を持ったDUMPプログラムをアセンブラで組んだものを、姉妹サイトの
「パソコン活用研究ラピュタへの道/DUMPプログラム作成　コード編」で解説しています。興味が
あればのぞいてみてください。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

１　DUMPプログラムの仕様について

プログラムの流れは以下の通りです
（１）　ダンプしたいファイル名の入力
（２）　コマンドの入力。コマンドは以下の通り。
　　D ダンプ開始 　　Q プログラム終了 　　C バイナリーデータ検索
　　Cコマンドの検索で指定したデータは赤色で表示します。
　　Cコマンド指定例 　&H5Eを検索データとして指定する場合 -C5E と記述します
（３）　Dコマンドによるダンプ中にはサブコマンドが使えます。
　　サブコマンド　1 一時中断 　　2 再開 　　　3 コマンド入力に戻る

下記は実行中の画面例です。Cコマンドで"0D"を指定しているので、0Dは赤色で表示されて
います。



２　プログラム概説
（１）　初期設定
コードに関しては、特に説明するところはありませんので、このプログラムで使っている変数に
について解説します。

50行目は、開発中の遺産です。ファイルをオープンするプログラム開発中に、プログラムのバグで
プログラムが終了すると、ファイルがクローズされない（オープンのまま）状態で残ってしまうことが
あります。そのため、プログラムの最初に、こんなおまじないを入れて開発したりしますが、その時
の残りです。削除して構いません。

60、70行目で変数の、宣言、初期化をしています。
b$　読み込んだデータの一時保存用に使います
n　　ランダムファイル読み込み時のレコード番号
address　ダンプ表示時のアドレス
frag　0 ダンプ中　　　1 ダンプ一時中断中
kan2　1 漢字の２バイト目のデータの可能性がある

（２）　ファイルオープン、コマンド入力

180行　ランダムファイルを開く時の、open　の使い方です。（＝ランダムモード）
ランダムモードでファイルを開くと、ファイルの好きな位置にアクセスして、データを取得することが
できます。

190行　c$=left$(cmnd$,1)
"-"に続けて入力されたコマンドをc$に抜き取ります

720行からはCコマンドの処理用サブルーチンです
720行　c1$=mid$(cmnd$,2,2)
"-"に続けて入力されたCコマンド文字列（=cmnd$）の２文字目から、２文字取り出して、c1$に入れます
例えば、"-C0D" と入力されたとすると、"0D"がc1$に代入されます。
730行　cv=val("&H"+c1$)
１６進数の表記の文字列を数値変数に変換（関数val）して、数値変数cvに代入します。

（３）　ダンプ表示
ダンプ表示部の大きな流れは以下の通りです。
（A）　データ読み込み（１６データづつ）
（B）　バイナリー値表示
　　・アドレス表示
　　・１６個のバイナリー値表示（Cコマンドで指定された値は赤色表示）
（C）　アスキー部表示
（D）　サブコマンド処理

まず、（A）　データ読み込み（１６データづつ）、（B）　バイナリー値表示　のコードについて説明します。

270行　if eof(1) then close:goto130
eof( )関数は、ファイルエンドに到達すると-1（=True）を返しますので、その場合はclose処理をして130行に
飛びます。
ファイルが残っていれば0(=False）を返しますので、280行以下の処理を繰り返します。
ここは、if eof(1)=-1 then close:goto130 と書いても同じです。

290行、300行　　１６バイトづつ読み込みます　
field #1,16 as a$
get #1,n

310行　print right$("0000"+hex$(address),4)+": ";
左にゼロパッティングしてアドレス表示します。ゼロパッティングの定番のコードの書き方です。

360行 b$(i)=mid$(a$,i,1)
a$から１バイトづつ取り出して、b$に代入します

380行 print right$("0"+hex$(asc(b$(i))),2);" ";
asc(b$(i)) --> b$のデータ（文字）のアスキーコード値（キャラクタコード）を取得し　
hex$( ) --> ascは１０進の数値変数として結果を返すので、16進数の文字列に変更します
right$("0" + ......, 2) --> 左にゼロパッティングして表示

（C）　アスキー部表示、（D）　サブコマンド処理　の部分です。
440行 if i=1 and kan2=1 then b$(i)=" ":kan2=0:goto 490
先頭の１文字目のデータ（ｉ=1）が、漢字の２バイト目（kan2=1）の可能性（すなわち、前の行の行末
＝１６文字目が、漢字の１バイト目の可能性）のあるときの処理です。このデータは、前の行のアスキー
表示部で処理済みなので、ここでは空白" "を表示します。

480行 if ((asc(b$(i))>=&h80) and (asc(b$(i))<=&h9f)) or ((asc(b$(i))>=&hE0) and (asc(b$(i))<=&hFC)) then
gosub 630
漢字の１バイト目の可能性があるときは、630行の「２バイト文字処理サブルーチン」を呼びます

530行目〜570行目は、サブコマンドの処理です。

630行目以降は、２バイト文字処理サブルーチンです。
行末(=１６バイト目）の場合は、
650 get #1,n+1 --> 次のレコード（１６バイト）のデータ読み込み
660 nextb$=left$(a$,1):nextbb=asc(nextb$) --> 先頭の１バイトをnextb$に切り出し
670 if (nextbb>=&h40) and (nextbb<= &hFC) then kan2=1:b$(17)=nextb$
----> ２バイト文字の２バイト目だったら、行末アスキー表示の処理（b$(17)=nextb$）

ＴＯＰ ＰＡＧＥ >Ｂａｓｉｃ活用研究目次