免責事項

ここに掲載されたソース・プログラムは自由に引用してかまいません。
(全然、いないと思いますが) (^^;
ただし、本プログラムを使用したことにより損失や不具合が発生した場合、
著者は一切、責任、損失の補償には応じません。

仮想アセンブラの概要

本来であれば、「仮想機械のためのアセンブラ」と呼ぶべきだと思いますが、
長いので「仮想アセンブラ」と個人的には呼んでいます。
すなわち、アセンブラそのものは「仮想」ではなく「実」です。

アセンブラはふたつの部分から成ります。
変換テーブルを作成するためのvasm1とソース・プログラムをアセンブルする
vasm2です。vasm1は一度実行すればおしまいですので、
通常、アセンブラとして使用するのはvasm2のみです。

アセンブラの構成はFORTHを参考にしましたので、
処理の仕方はよく似ています。

使用方法

後報。

メモリマップ

データ構造

変数の割当

処理ルーチン一覧

処理詳細

1. PSHR
   (1)機能
   

   行番号	名称	入力	出力	処理	備考
   1000	PSHR	X:RSに積む値	---	変数Xをリターンスタックにプッシュします。 サブルーチンの冒頭で変数!に格納されたメインルーチンへ の戻りアドレスをリターンスタックに積むときに使用します。

   
   (2)処理内容
   
   VTLではサブルーチンがメインルーチンに戻る際に必要となる戻りアドレスが
   変数!に格納されていますが、変数!が破壊されてもよいようにサブルーチンの
   冒頭で戻りアドレスをリターン・スタックに格納するために使用します。
   本ルーチンを呼び出すことにより変数!が破壊されてしまうため
   戻りアドレスは変数Xに格納してから、本ルーチンを呼び出します。
   なお本ルーチンを使用したときは、サブルーチンから戻るときに、 RETを使用します。
   
   (3)ソース・リスト
   
   1000 R=R-1
   1010 :R)=X
   1020 #=!
   
   [解説]
   1000 リターン・スタックのポインタをデクリメント
   1010 変数X(戻り行番号)をリターン・スタックに格納
   1020 このルーチンを呼び出したサブルーチンに戻る
   
   
   
2. RET
   (1)機能
   

   行番号	名称	入力	出力	処理	備考
   1100	RET	---	---	サブルーチンからメインルーチンに戻ります。そのために リターンスタックに格納された戻りアドレスを変数「#」に 代入します。

   
   (2)処理内容
   
   PSHRルーチンを呼び出して戻りアドレスを リターン・スタックに
   格納したサブルーチンがメイン・ルーチンに戻るときに使用します。
   そのために、リターンスタックに格納された戻りアドレスを
   変数「#」に代入します。
   
   (3)ソース・リスト
   
   1100 !=:R)
   1110 R=R+1
   1120 #=!
   
   [解説]
   1100 リターン・スタックに積まれたメイン・ルーチンの戻り行番号を変数!に戻す。
   1110 リターン・スタックのポインタをデクリメント
   1120 メイン・ルーチンにジャンプ
   
   
   
3. ACPT
   (1)機能
   

   行番号	名称	入力	出力	処理	備考
   1400	ACPT	G:文字列を格納する 　配列の先頭	X:入力した文字数	キーボードから文字列を入力し、入力バッファ (先頭は変数G)以降の配列に格納します。 Xに文字列末尾の0x00は含みません。

   
   (2)処理内容
   
   キーボードから文字列を入力し配列に格納します。
   配列の先頭アドレスは変数Gで指定します。
   なお、配列のアドレスはバイト・アドレスになります。
   入力された文字列の終わりに文字列の終わりを示す(区切り文字)
   0x00が追加されます。
   戻り値として変数Xに入力された文字列の文字数が設定されます。
   Xの文字数には区切り文字は含みません。
   (空行入力時はX=0です)
   
   
   (3)ソース・リスト
   
   1400 ^=G
   1410 X=$
   1420 #=!
   
   [解説]
   1400 文字列を格納する配列のポインタを設定。(変数^はVTLの変数)
   1410 文字列を入力し、入力文字数を変数Xに格納。(変数$はVTLの変数)
   1420 このルーチンを呼び出したサブルーチンに戻る
   
   
   
4. DISP
   (1)機能
   

   行番号	名称	入力	出力	処理	備考
   1500	DISP	Y: 文字列のアドレス-1	---	配列に格納された文字列を画面に出力します。 文字列の位置は変数Y+1から 区切り文字0x00までです。

   
   (2)処理内容
   
   配列に格納された文字列を画面に出力します。
   表示する文字列の先頭は変数Yで指定しますが、
   実際に表示される文字列の位置はY+1からです。
   文字列の終わりには区切り文字(0x00)が必要です。
   なお、配列のアドレスはバイト・アドレスになります。
   
   
   (3)ソース・リスト
   
   1500 X=!
   1510 #=1000
   1520 ^=Y+1
   1530 #=(\=0)*1570
   1540 $=\
   1550 Y=Y+1
   1560 #=1520
   1570 ?=""
   1580 #=1100
   
   [解説]
   1500 戻り行番号を
   1510 リターン・スタックに積む。
   1520 表示文字のある配列のバイト・アドレスを、バイト・アクセスのポインタに設定。
   1530 文字が区切り文字なら表示終了。
   1540 ポインタの位置の文字を1文字表示。
   1550 ポインタをひとつ進める。
   1560 文字列表示のためのループ。
   1570 改行を表示して、
   1580 メイン・ルーチンに戻る。
   
   
   
5. DISP1
   (1)機能
   

   行番号	名称	入力	出力	処理	備考
   1600	DISP1	配列に格納された文字列を画面に出力します。 文字列の位置は変数Y+1から 区切り文字0x00までです。変数Yが BOTM(変数B)に達しているときは何も表示しません。

   
   (2)処理内容
   
   配列に格納された文字列を画面に出力します。
   表示する文字列の先頭は変数Yで指定しますが、
   実際に表示される文字列の位置はY+1からです。
   文字列の終わりには区切り文字(0x00)が必要です。
   ポインタ(変数Y)がファイル用作業領域の末尾(BOTM)に
   達している場合はポインタは移動せず、「(EOT)」と表示して、
   メイン・ルーチンに戻ります(EOTの表示はオリジナルにはありません)。
   なお、配列のアドレスはバイト・アドレスになります。
   
   
   (3)ソース・リスト
   
   1600 X=!
   1610 #=1000
   1620 #=(Y>B)*1650
   1630 #=1500
   1640 #=1100
   1650 ?="(EOF)"
   1660 #=1100
   
   [解説]
   1600 戻り行番号を
   1610 リターン・スタックに積む。
   1620 表示する文字列のポインタがBOTM(変数B)に達したらポインタは移動しない。
   1630 ポインタ(変数Y)の位置の文字列を表示する。
   1640 メイン・ルーチンに戻る。
   1650 テキストの終わりであること(EOT)を表示する。
   1660 メイン・ルーチンに戻る。
   
   
   
6. DTOB
   (1)機能
   

   行番号	名称	入力	出力	処理	備考
   2000	DTOB	Y: 文字列のアドレス	Z: 変換した数値	変数Yからの文字列を符号なし整数に変換し 変数Zに返します。数値に変換出来ないときは Z=0が返されます。

   
   (2)処理内容
   
   文字列を数値に変換します。
   変換は、最初に数値以外の文字が現れるまで続けらます。
   
   
   
   (3)ソース・リスト
   
   2000 X=!
   2010 #=1000
   2020 Z=0
   2030 ^=Y
   2040 X=\-48
   2050 #=(X<9)*2080
   2070 #=1100
   2080 Z=Z*10+X
   2090 Y=Y+1
   2100 #=2030
   
   [解説]
   2000 戻り行番号を
   2010 リターン・スタックに積む。
   2020 結果を格納する変数Zをクリア。
   2030 文字列のポインタをVTLの変数^に格納し、
   2040 その位置の文字(バイト)が48("0")〜57("9")なら、
   2050 その文字は数字である。
   2060 (削除)
   2070 数字以外の文字があれば変換終了。
   2080 変換済の数値は桁上げし、次の数値を変換済の数値に足す。
   2090 文字列のポインタを更新し、
   2100 変換のループを回る。
   
   
   
7. RDSEC
   

   2200

   RDSEC

   Y:読込むアドレス Z:セクタ番号

   ---

   仮想セクタから1セクタ配列に読み込みます。

   
   (2)処理内容
   
   変数Zで示される仮想セクタから、1セクタのデータを読み込み
   変数Yで示される配列のアドレスに格納します。
   
   
   (3)ソース・リスト
   
   
   [解説]
   
   
   
8. LOAD
   
   (2)処理内容
   
   
   (3)ソース・リスト
   
   
   [解説]
   
   
   
9. CHNG
   
   (2)処理内容
   
   
   (3)ソース・リスト
   
   
   [解説]
   
   
   
10. START
    

    行番号	名称	入力	出力	処理	備考
    100	START	---	---	エディタで使用する変数を初期化して エディタを開始します。

    
    (2)処理内容
    
    アセンブラで使用する定数・変数を初期化します。
    変数AとBの設定値はまだ暫定です。
    
    
    (3)ソース・リスト
    
    
    [解説]
    
    9000 スタック・ポインタを初期化します。
    9010 マイクロ・エディタの開始のメッセージです。オリジナルにはありません。
    　　　この後、10000行からエディタの処理に接続します。