Electrelic

先日ガスの点検がありまして、特に問題なく進んでいたのですが、最後にガス栓からわずかなガス漏れが発見されてしまいました。匂いではわからず検知器をほとんど擦りつけるようにしてやっと検知するほどでしたが、すぐ交換の手配をしてくれて2時間ほどで交換完了となりました。

これが交換で外したガス栓です。

床に8cm角くらいの箱が埋めてあってその中にこれが入っています。

扇形の部分がコックで、赤い「開」の文字が上を向いているのでこれは開いた状態です。右に90°回すと「止」になります。

最近はワンタッチで着脱できますがこれはまだ切っただけのゴムホースを挿してバンドで留める時代のものですね。赤い線のところまでホースを挿し込まなくてはなりませんでした。建ててから交換はしていなかったと思うので50年以上昔のものです。

先日も今は無きモノ（書籍編）で『Small-Cハンドブック』が国会図書館デジタルコレクション（館内限定公開）になっていると書きましたが、数日前に驚くべきニュースが入ってきました。

まず「国会図書館デジタルコレクション」とは何かということなのですが、簡単に書くと所蔵資料をスキャン（撮影）してデジタル化しブラウザから閲覧できるようにしたものです。利用者視点でのメリットは閲覧申請して出てくるのを待つ必要が無いこと、図書館側からは申請ごとに書庫から取り出さなくてよく資料の劣化も防げるといったことがあります。

ブラウザから閲覧できるならそもそも行く必要もないのではと思うかもしれませんが、著作権の関係からか館内からしか閲覧できない資料が大半でした。

なのですが……

Twitter（現X）で「エンサイクロペディアアスキー」（月刊アスキーの4～6月分を合本にしたもの）が自宅などから閲覧できるようになっているというツイートがありました。

『Small-Cハンドブック』もあらためて見に行ったところ閲覧可能になっていました。前の記事書いていた時は駄目だったのですが。

以前68000 Tiny BASICの予約語で書いたように独自の命令を追加していました。

でもソースコードもあり自由に変更できたTiny BASICなどだけでなく、マスクROMが使用されソースコードも無い市販パソコンのBASICの命令拡張も良く行われていました。ちょっとした数十バイト程度のものから本格的なものまで当時の雑誌には頻繁に掲載されていたものです。

以下はある程度知っているN-BASIC, N80-BASICを例に書いてみます。

ところでマスクROMのBASICをどうやって拡張するのでしょう?

BASICによっては要所要所でRAM上の特定番地をCALLするようになっていました。そこは起動時にはRET命令が置かれているので、これを用意したルーチンへの分岐命令に書き換えることで動作に介入することができるのです。これを「フック」と読んでいました。

介入したい個所にピンポイントでフックが無い場合は少し手前のフックから目的個所までのROM内の処理を自分のルーチン内で行ない、さらに戻り番地を調整するなどを行ないます。

ちょっと思い出してきたので今回は原始ピタゴラス数の探索について書こうと思います。

高校生の頃に原始ピタゴラス数の探索をしていたことがありました。ピタゴラス数というのは a²+b²=c² を満たす自然数の組で、各辺の長さの比がこれになっている三角形は直角三角形になります。（3, 4, 5）などのいくつかは学校でも習いますね。

ある時もっとあるだろうから探してみようと思い立ちました。

当然パソコンを使って探すわけですが、当時手元にあって使えたのはPC-8001mk2かFP-1100くらい（FM-7はまだなかったと思う）でした。ある理由（後述）でFP-1100の方が良いのですが、遅かったことやFDDが無かったことなどでPC-8001mk2を使いました。言語も当時使えたのはBASICのみ（平方根を使いたいのでTL/1, GAMEは不向き）でした。