Tiny Language 1 [H68/TR+TV]

• GAME (ASCII:1978/7p66-??? | 合本:2p166-170) 大西博
• Tiny Language 1 (ASCII:1980.1p158-162 TBN | 合本:5p536-537 TBN) 大西博
• TL/1-BM (BMUG:1982.2) 増田俊樹
• TL/1･PC (ASCII:1981.1 | 合本:8) 鈴木仁志

公開されている GAME の正式名称は GAME-Ⅲ だと思いますが、ここでは当時そうだった様に単に「GAME」と表記することがあります。

掲載された TL/1 のアセンブルリストは、環境依存部分が H68/TR + H68/TV + GAME を想定したものになっています。 これはTL/1のプログラミング環境として、GAMEインタプリタのスクリーンエディタとコマンドインタプリタを流用していた事に由来する様です。

TL/1-BM は GAME-Ⅲ を ベーシックマスターに移植した「GAME-1」を含む形で公開されました。

TL/1 はGAMEのエディタを流用してます。 GAME のプログラムTEXTには各行の先頭に行番号(2byte/数値) が付いています。 プログラムリストでは 10進数表記の数字で表示されます。 TL/1ではソースTEXTを読み取る際に各行先頭の 2byteを無視する実装になっています。

行番号による管理が不要なエディタを使う際は、TL/1のソース読み取りルーチンを変更するか、各行先頭に空白２文字などのダミーを挿入する必要があります。

TL/1 には言語仕様としての行番号はありません。 一方で、TL/1 で書かれたプログラムリストを眺めてみると行番号が印字されたリストも存在します。 PC-8001用の TL/1･PC では「行番号あり」のバリエーションとして、<行番号>'<テキスト> の構成になっています。

これら付加された余分な情報は、エディタの都合やリスト出力プログラムに由来するものです。

入力する際は作業環境に合わせ、行番号他を無視したり補ったりする必要があります。

• オブジェクトのセーブ範囲：

  末尾のアドレスは $2004,5 に入っている値-1

  $2000～セーブすればコンパイラなしで実行可能

• オブジェクトの実行アドレス：

  $2000

  初期化後に JMP OBJBEG($216F)

ファイル間のシンボルの連動に難があるため、別ファイルにまとめます。

シンボル「_SYS」は外部で定義します。

main.asm

• 冒頭(「ORG $1000」まで) のシンボル定義をコメントアウトする

  MOUNT(→_MONIT), WTBLE, NSTACK, OBJBEG, SRCB は必要となるファイルに定義を追加します。

  ゼロページのワークは system.asm をインクルードして対応します。

  その他のシンボルは、他のソースで定義されるので不要です。

• $0A を シンボル「_LF」に置き換える

  TL/1-BM で $05 を使用しているため、差し替えできる様にします。 シンボル「_LF」は外部で定義します。

• リテラルで参照している２か所をシンボルに置き換える

  定義済みのシンボル(MHIGH,MOD) があるので置き換えます。

• 拡張時に変更が必要な２か所をシンボル化する

  $1152:E0 → _EXFLG

  $1644:E0 → _EXFLG

• 「* LIBRARY ADDRESS TABLE」はそのままにする

  ここでは領域定義のみのままとし、ファイルも分割しません。

  拡張する際は、機能を実装するファイル側でテーブルも追加します。

codegen.asm

readsrc.asm (環境依存)

• 冒頭(「ORG $1800」まで) のシンボル定義をコメントアウトする

  ゼロページのワークは system.asm をインクルードして対応します。

  その他のシンボルは、他のソースで定義されるので不要です。

• MEMIN のラベル ME1,ME2 の競合を回避する

  ME1,ME2 を MEMIN のローカルラベル化して重複を避けます。

  混乱しやすいので LEND もローカル化しておきます。

• リテラル($A) をシンボル化する

  LDDA #$A の $A を シンボル _LF に置き換えます。

• $0D0A が残っているので注意

  TL/1-BM のダンプリストでも $0D0A であることは確認済みです。

  問題が生じない為放置したのかもしれませんが、修正漏れの可能性もあります。

• 「* INPUT ROUTINE OPTION」以降を別ファイルに分ける

  使用するテキストエディタの仕様(TEXTの格納方法)に依存する部分を分割し、２ファイル構成にします。

table.asm

usertbl.asm (ユーザー拡張用)

• $195C,$1966番地がアセンブル結果と整合する様に調整する

• "MHIGH","MOD" の ID($16,$17)を、ラベル「MHIGH」,「MOD」に置き換える

  この２件に限り、ID はゼロページのシステム変数領域を指します。

  TL/1-BM ではそのアドレスが変更されているので、ここも連動させる必要があります。 BMUG:1982.6 掲載のデバッグ記事はこの部分の変更漏れです。

• 拡張用時に予約語を定義するファイルを用意しておく

  ここでは予約語の登録のみを行います。 拡張機能の実装とエントリの登録は userlib.asm で行います。

  シンボル「_EXFLG」を定義します。 シンボルの値は、拡張しない場合は $E0, 拡張する場合は $C0 とします。

  末尾にラベル「WTBLE」を貼っておきます。 掲載リストではシンボル「WTBLE」が リテラル(テーブル末尾+1) で定義されています。

runtime.asm

option.asm (環境依存)

userlib.asm (ユーザー拡張用)

object.asm

• 冒頭(「* OBJECT START」まで) のシンボル定義をコメントアウトする

  シンボル MONIT(→_MONIT), RUB, STACK は外部で定義します。

  ゼロページのワークは system.asm をインクルードして対応します。

  その他のシンボルは、他のソースで定義されるので不要です。

• 他のファイルと重複するシンボル「MONIT」を「_MONIT」に変更する

• ラベル「MONIT」を貼る

  MONIT は、掲載リストではリテラルでシンボル定義されています。

• 「* CRLF」に TL/1-BM用のパッチを追加する

  ここでは「_LF」の値でパッチを適用するか判断しています。 シンボル「_LF」は外部で定義します。

• 「* INPUT ROUTINE ADDRESS」の実装を削除する

  0番(keyboard),3番(不明) が登録されていますが、ここでは領域確保だけにします。

• 「* OUTPUT ROUTINE ADDRESS」の実装を削除する

  0番(keyboard) が登録されていますが、ここでは領域確保だけにします。

• ラベル「OBJBEG」を貼る

  OBJBEG は、掲載リストではリテラルでシンボル定義されています。

  ラベル「OBJECT」と混乱している可能性もあります。 変更を最小限にするため、「OBJBEG」も同じ場所に貼ることにします。

• $0A が残っているので注意

  TL/1-BM のダンプリストでも $0A であることは確認済みです。

  問題が生じない為放置したのかもしれませんが、修正漏れの可能性もあります。

• 「* OPTION FOR GAME USERS」を別ファイルに分ける

  環境に依存する部分を分割します。

  I/Oルーチン テーブルを登録します。

• 「* OBJECT PG AREA」を別ファイルに分ける

  TL/1-BM(ダンプ)では「LDAA #0」が入っていますがコンパイル時に更新される部分なので、ソースの「NOP」のままで大丈夫だと思います。

• 拡張コードを実装するファイルを用意する

  ここでは拡張機能の実装とエントリの登録を行います。 予約語の登録は userlib.asm で行います。

連載第２回 (ASCII:1980.7) に拡張方法の解説があります。

/BMに具体例あり (TL/1-GR)
詳細に書いてもこのページの趣旨に合わない