自作ゲームのダウンロード

�@ＰＯＣＫＥＴ　ＴＥＴＲＩＳ　Ver1.1（テトリスです）

　インターネットをさまよっていた所、 ＳＣ６１８６０（ＰＣ-１２４５のＣＰＵです。Hi）用の アセンブラを見つけました。 アセンブルするとＣＬＯＡＤＭ命令でそのまま読み込める ＷＡＶファイルができる優れものです。 アイデア自体は「ポケコンマシン語入門」にも載っているＦＭ−８のクロスアセンブラそのままですが、普通のＷｉｎマシンで手軽に使えるのがうれしい。 ただしＰｅｒｌ （←Ｗｉｎ９８など古めのＰＣ用。新しめのＰＣでは動作しないようなので 最新版で。） を事前にインストールしておかなければならず、そこがネックですが、 全部デフォルト設定でインストールすれば問題なく使用できました（＾＾）ｖ。 （最新版でもデフォルトのままインストールで問題なし。平成27年9月12日） それで、何かを作ってみたくなり、これができました。 パッケージの取扱説明書中にダンプリストが入っていますので、 カセットインターフェースがない方でも大丈夫です。（ver1.0…平成14年12月）。
→キーにリピートがかかるように変更しました。（ver1.1…平成16年1月）
ソースが見たい方はこちら→tetris.S

�AＰＯＣＫＥＴ ＬＩＦＥ ＧＡＭＥ　Ver1.0（ライフゲームです）

　ゲーム１つではさびしいので、ライフゲームを作ってみました。 ライフゲームの詳細については検索サイトで調べてみると、 いくつか専門のサイトで解説されているのでそちらをご覧になってください。 以前（と言っても３０年以上前ですが）、 何かの雑誌でＢＡＳＩＣ言語でライフゲームを動かすのは、 パソコンでも速度的に非常に厳しいようなことが書いてあった記憶があり、 クロックが５００ｋＨｚそこそこ（しかも１命令実行するのに何クロックもかかる）のポケコンでは、 たとえマシン語で組んでも実用的な速度が出ないのではないかと 心配しましたが、作ってみたら、１世代進むのに１秒程度ということで、 結構遊べるものになったのではないかと思います。 （ver1.0…平成16年3月）
ソースが見たい方はこちら→life.S

�B足し算ゲーム　Ver1.0

　子供に足し算を覚えさせようとして作りましたが、 大人が遊んでも結構、ハマることが分かったので公開。 簡単な計算でも、時間がかかるよりは早く間違いなく計算できるようになった方が、 仕事の効率も上がるかもしれない。 そろばんで暗算の得意な人は、ひょっとしたら桁が足りなくなるもしれません。 簡単なＢＡＳＩＣプログラムです。リスト同梱につき、カセットインタフェースは なくてもＯＫ。（ver1.0･･･平成20年11月）

�CＳＨＯＯＴ１　Ver1.5

　このプログラムは相当気合を入れて作ったシューティングゲームです。 ステージの終わりにはボスも登場いたします。 最初はなかなかボスに会えなかったり、 会えても倒せないかもしれませんが、 コツをつかめば２面には進めると思います。 「ＳＨＯＯＴ１」と言うからには「２」があるのか？・・・お楽しみに （ver1.0･･･平成21年1月）
　２面以降で得点計算が正しく行われていない場合があったので、 ＢＡＳＩＣプログラムを少し修正しました。根本原因が不明なので、 「とりあえず対応」です(^_^;(ver1.1…平成21年3月7日)
　キーリピートを固定にしていましたが、低速時（１面）で自機の移動速度が 速すぎて自分の撃った弾に追いついてしまう上、当たると死ぬバグがあったので、 直しました。そのほか、ちょこちょこ修正(ver1.2…平成21年3月13日)
　自弾の数を５→７に増やしたほか、ちょこっと修正。これによりステージ３クリアも 比較的簡単になりました(ver1.3…平成21年4月8日)
　自弾の数を７→１０に増やしたほか、ちょこっと修正(ver1.4…平成21年4月10日)
　自弾の数を１０→７に戻した。連射速度を自機の位置により変えるようにした。 少し１面の速度を速くした。これにより、多分、従来の得点は取れなくなりました。 でも、１面が退屈だったので、このくらいでちょうどよいと思います (ver1.5…平成21年4月17日）
※ソースはパッケージ内に同梱としました

自作ツールのダウンロード

�@ＢＡＳ　ｔｏ　ＷＡＶ　Ver1.2

　ＢＡＳＩＣのテキストを元に、ＣＬＯＡＤ命令で読み込めるＷＡＶファイルを 作成するＰＥＲＬ（最新版はこちら) スクリプトです。 yasm.plの ＷＡＶ作成部分を勝手に借りました（すみません）。(ver1.0…平成21年2月初旬)
「ＳＣＯＲＥ」表示をよく見たら「ＳＣ　ＯＲ　ＲＥ」になっていたので あわてて修正(^^;(ver1.1…平成21年2月23日)
「大きなファイルになると、きちんとロードできない変なＷＡＶができる」との レポートを頂いていましたが、原因が書いてある サイト を見つけたので修正しました（ｍａｍｏ！！さんありがとう・・・）（ver1.2…平成27年9月13日）

�Aメロディ演奏ツール ver1.1

　さしあたっては「風の谷のナウシカ（オープニング）」を鳴らすだけの プログラムですが、発音ルーチン自体は汎用的に作った（積もり）なので、 他の曲もデータをセットすれば演奏することができます。(ver1.0…平成21年6月27日)
演奏中、ＢＲＫキーで中断できるようにしました（ver1.1…平成21年7月3日）
「天空の城ラピュタ（君をのせて）」も 入力してみました（メロディ以外、パッケージ内容は同じです:平成21年6月30日）
同様にＢＲＫキーで中断できるよう修正済み（平成21年7月3日）

カセットインターフェースの製作

　最近はポケコンのページもちらほらできてきて、ここ以外にも、 ＷＡＶファイルをダウンロードできるサイトがあるようです。 カセットインターフェースがないと少々辛くなってきています。 ＣＥ−１２４（カセットインターフェース）を入手できると一番よいのですが、 現在、入手困難と思われます。 で、適当に作ってしまおうというのがこのコーナーです。
　ポケコンの回路図を眺めていると、 ポケコンの左側面にあるコネクタの上から２番目にＧＮＤ（マイナス）、 ７番目に音声を入力すればよいようなので、 百円ショップでイヤホンを買い、コードを途中でぶった切ってポケコンに突っ込んでみましたが、 パワー不足でうまくいきません。 そこで、キット（リンク先は例として秋月電子通商さん） のアンプを買って途中に入れてみると、 一応読み込みに成功しました。 線をポケコンのコネクタに突っ込む際は、銅線のままではうまく入らないので、 キットを組み立てる際にできるゴミ（部品の足）を利用するとよいと思います。 クリップを伸ばして使ってもよいのですが、ハンダがうまくついてくれませんでした。 「製作」とたいそうなタイトルをつけている割にはキット利用（というかキットそのもの）ですみません。

ＰＣ−１２４５のマシン語操作（ＢＡＳＩＣ）

　ＰＯＫＥ命令でメモリに値を書込み、ＣＡＬＬでマシン語ルーチンを呼び出します。 また、メモリに入っている内容はＰＥＥＫ命令で見ることができます。 ＢＡＳＩＣプログラムは＄Ｃ０００番地から記録されていくので、 マシン語の開始アドレスは＄Ｃ１００番地から始めればちょうどいいようです。 なお、ＰＣ−１２４５のＢＡＳＩＣはコマンド入力か プログラム中のどちらかでしか使えない命令がほとんどですが、 ＰＯＫＥ、ＰＥＥＫ、ＣＡＬＬ等はどちらでも使用できるようです。

命令	説明	使用例
ＰＯＫＥ	指定した番地に指定した値を書き込む命令。 １バイトずつ書き込む他、行が続く限り連続して書き込むことも可能。 ＰＣ−１２４５では＆は１６進数にする働きがある。 ＆ＦＦと書いても２５５と書いても同じ。	�@POKE &C100,&79 �APOKE 49409,&C4,$00 �BPOKE &C400,55
ＰＥＥＫ	指定した番地の値を読み出す命令。 ＰＯＫＥと違って１バイトずつしか読み出せない。 直接実行して画面に値を表示することもできるし、 入力例のように変数に代入することもできる。	�@PEEK &C100 �AA=PEEK 49408
ＣＡＬＬ	指定した番地からマシン語ルーチンを 実行する命令。プログラムが間違っていると暴走する。	�@CALL &C100 �ACALL 49408
ＣＬＯＡＤＭ	テープやＷＡＶファイルからマシン語プログラムを読み込む命令。 読み込む番地を指定したり、ファイル名を指定できるが、 特に指定しなくてもＳＡＶＥ時の通りに読み込まれるので問題ない。	�@CLOADM �ACLOADM "ABC" �BCLOADM &C100 �CCLOADM "ABC";&C100
ＣＳＡＶＥＭ	テープにマシン語プログラムを書き出す命令だが、Ｗｉｎに付属のサウンドレコーダで ＷＡＶファイルにしてしまうのがお手軽。 ファイル名は省略できるが、開始アドレスと終了アドレスは省略できない。	�@CSAVEM "ABC";&C100,&C106 �ACSAVEM &C100,&C106

ＰＣ−１２４５のプログラムの作り方

【１】プログラムの入力・実行の仕方

�@右上のスライドスイッチを「ＰＲＯ」のポジションにする。
�AＢＡＳＩＣの場合はそのままリストを入力する。 １行入力する都度、「ＥＮＴＥＲ」を押す。押すと、 行番号の横に：がついたり、命令の前後にスペースが入るなどの編集が自動的に行われる。
�Bアセンブラの場合はまず上で紹介したアセンブラを使用してダンプリストを得る。 できたダンプリストを見ながら上で説明しているＰＯＫＥ命令を使用して、 番地とセットする値を入力する。カセットインターフェースを持っている場合は、 上で紹介したアセンブラでＷＡＶファイルを作って読み込めば、自分で入力しなくてもよい。
�Cプログラムの実行の際は、右上のスライドスイッチを「ＲＵＮ」のポジションにして、 ＢＡＳＩＣの場合はＲＵＮ（ＥＮＴＥＲ）、マシン語の場合はＣＡＬＬ　＆○○○○（ＥＮＴＥＲ）と 入力する。

【２】画面に任意のドットを表示する方法

　＆Ｆ８００番地から＆Ｆ８３Ｂ番地までが液晶の左１２桁、 ＆Ｆ８６８番地から＆Ｆ８７Ｂ番地までが液晶の右４桁の ＶＲＡＭになっている（右４桁については、画面の右へいくほど若番）。 そこで、例えば２桁目の左上のドットを黒くするには、 ＢＡＳＩＣで「ＰＯＫＥ　＆Ｆ８０５，１」 を実行すればよい。書き込む値を２にすると、 上から２つめのドットが黒くなる。 書き込む値を４にすると、上から３つめのドットが黒くなる。 書き込む値を１２７にすると縦１列が黒くなる。 ただし、ＢＡＳＩＣの命令実行中はＬＣＤがＯＦＦになるため、 実際に表示を目で見る場合には、ＰＯＫＥ命令を実行した後に、 ＬＣＤをＯＮにするＢＩＯＳを呼び出す「ＣＡＬＬ　＆１１Ｅ０」を 実行する必要がある。 また、プログラムが終了してしまうと、 ユーザが表示したものを全部消して、 コマンドプロンプトが表示されてしまうため、 ＬＣＤをＯＮにした後に別の処理を行うか、 空のループで時間稼ぎをして、 プログラムがすぐに終わってしまわないように する必要がある。 ＢＡＳＩＣの実行中はＶＲＡＭがＢＡＳＩＣの処理のための ワークエリアとして使用されるため、 左端には意味不明なドットが表示されることがある。 あまり左端の桁は使用しない方がよい。 （全部アセンブラで組んでいる場合は別）　

�@ＢＡＳＩＣで２桁目から山田と表示してみる （スクロール可：スマホの方）

10 PRINT ""
20 POKE &F805,124,64,127,64,124,127,73,127,73,127
30 CALL &11E0
40 FOR A=0 TO 99:NEXT A

�Aアセンブラで２桁目から山田と表示してみる （スクロール可：スマホの方）

	ORG	$C100
	LIDP	$F800	;ＤＰ←＄Ｆ８００
	LII	59	;Ｉ←５９（…５×１２−１）
	LIA	0	;Ａ←０
	FILD		;（ＤＰ）〜（ＤＰ＋Ｉ）←Ａ（…左１２桁のクリア）
	LIDP	$F868	;ＤＰ←＄Ｆ８６８
	LII	19	;Ｉ←１９（…５×４−１）
	FILD		;（ＤＰ）〜（ＤＰ＋Ｉ）←Ａ（…右４桁のクリア）
	LIB	$00	;ＦＯＮＴのアドレスの上位（一度アセンブル後、改めて設定※）
	LIA	$00	;ＦＯＮＴのアドレスの下位（一度アセンブル後、改めて設定※）
	CAL	$11F1	;Ｘ←ＢＡ−１（…ＢＩＯＳの機能呼出し）
	LIB	$F8	;Ｂ←＄Ｆ８
	LIA	$05	;Ａ←＄０５
	CAL	$11F5	;Ｙ←ＢＡ−１（…ＢＩＯＳの機能呼出し）
	LIA	9	;Ａ←９
	PUSH		;スタックにＡの値を入れる
TRAN:	IXL		;Ｘ←Ｘ＋１，Ａ←（Ｘ）
	IYS		;Ｙ←Ｙ＋１,（Ｙ）←Ａ
	LOOP	TRAN	;スタックの値＋１回ループ
	CAL	$11E0	;ＬＣＤをＯＮ（…ＢＩＯＳの機能呼出し）
	LIA	$FF	;Ａ←＄ＦＦ
	PUSH		;スタックにＡの値を入れる
	PUSH		;スタックにＡの値を入れる
WWLP:	WAIT	$FF	;時間待ち
	LOOP	WWLP
	LOOP	WWLP
	RTN
FONT:	DB	124,64,127,64,124	;山
	DB	127,73,127,73,127	;田
※一度アセンブルしてＦＯＮＴの配置されるアドレスを確定後、改めてその値をセットし、再度アセンブルする。

【３】音を出す方法

ＢＡＳＩＣの場合は、例えば「ＢＥＥＰ　３」とか入力すれば ピーピーピーと簡単に音が出るが、音程は変えられない。 アセンブラの場合は「12 5F 61 52 DF F1 E0」で よく耳をすますと「ぷち」という音がするので、 このルーチンをループさせればよい。 ループ内に適当なＷＡＩＴを入れておくと、ＷＡＩＴが短いときは高い音が、 ＷＡＩＴが長いときは低い音が出る。また、ＷＡＩＴの時間を適切に設定すれば、 メロディの演奏も可能である。

（音を出すプログラム（スクロール可：スマホの方））

	ORG	$C100
	LIA	$FF	;Ａ←＄ＦＦ
	LIDP	ONTEI	;ＤＰ←ＯＮＴＥＩ
LAB1:	STD		;（ＤＰ）←Ａ
	LIA	5	;Ａ←５
	PUSH
LAB2:	LIP	$5F	;Ｐ←＄５Ｆ
	ORIM	$52	;（Ｐ）←（Ｐ）ｏｒ＄５２
	OUTC
	CAL	$11E0
	LIDP	ONTEI	;ＤＰ←ＯＮＴＥＩ
	LDD		;Ａ←（ＤＰ）
	LP	$00	;Ｐ←Ｉレジスタ
	EXAM		;（Ｐ）←→Ａ
	LIDP	$4000	;ＤＰ←＄４０００
	FILD		;（ＤＰ）〜（ＤＰ＋Ｉ）←Ａ
	LOOP	LAB2
	LIDP	ONTEI	;ＤＰ←ＯＮＴＥＩ
	LDD		;Ａ←（ＤＰ）
	DECA		;Ａ←Ａ−１
	JRNZM	LAB1	;ＩＦ Ｚ＝０ ＴＨＥＮ ＬＡＢ１
	RTN
ONTEI:	DS	1
※低い周波数から高い周波数まで上がっていく効果音が出ます。

【４】キースキャンする方法

　ＢＡＳＩＣの場合、ＩＮＫＥＹ＄を利用できる。アセンブラの場合は、 ＆１Ｆ４４をコールすると、その時点でキーが押されていれば、キャリーが立つとともに結果がＡに入る（Ｂ、ＤＰ、Ｋ、Ｌ、Ｐ、Ｑ、Ｘ、Ｍが破壊される）。 ただし、これらの方法は、同時に２つ以上のキーを押すと、何も押さなかったのと同じになってしまう。
　複数キーが同時に押されていることを判別するには、スキャンしたい行を １にして、ＯＵＴＡ（とＯＵＴＢ）を実行し、直後にＩＮＡを実行する。 すると、押されているキーに対応するビットが１になっているので、あるキーが押されているかどうか、判別できる。この方法は、複数キーが同時に押されても判別できるが、何のキーが押されているかは個々に調べなければ分からない。

ＳＣ６１８６０の構成

　ＳＣ６１８６０とはＰＣ−１２４５に使われているＣＰＵの名前である。 ＳＣ６１８６０はＣＰＵ内部に９６バイトのＲＡＭを持っており、内部ＲＡＭと呼ばれる。 アキュムレータその他の汎用レジスタは内部ＲＡＭ上に配置されている （アドレスレジスタはＸとＹを除いて内部ＲＡＭの外に独立して存在している）。 外部ＲＡＭは６４ＫＢ使えるようになっている（ただし、 若い方のアドレスにはＲＯＭ領域があり、 ６４ＫＢすべてをＲＡＭにできるわけではない）。 内部ＲＡＭ・外部ＲＡＭともに、それぞれ専用のアドレスレジスタを使ってアクセスする （レジスタに割り当てられている内部ＲＡＭはレジスタ名でもアドレスレジスタを使ってもアクセスできる）。 フラグはＣとＺの２つあり、演算命令で繰り上がりまたは繰り下がり（キャリー）が起こったときにＣが、 ゼロになったときＺが立つ。 例えばＡ（アキュムレータ）に２５５（２進数で１１１１１１１１）が入っている時にＩＮＣＡ （Ａに１加える命令）を実行すると本来２５６（２進数で１００００００００）になるべき所だが、 Ａのサイズは８ビット（８桁）しかないため、結果は０になる。 このとき演算結果がゼロなのでＺが立ち、繰り上がりが発生しているためＣも立つ。

【１】アドレスレジスタ

レジスタ名	説明	使用例
ＤＰ	外部ＲＡＭにアクセスするための１６ビットのレジスタ	LIDP　$C100
Ｐ	内部ＲＡＭにアクセスするための７ビットのレジスタ	LP　$04
Ｑ	内部ＲＡＭにアクセスするための７ビットのレジスタ	LIQ　$04
Ｒ	内部ＲＡＭにアクセスするための７ビットのレジスタ。 このレジスタはＣＡＬＬ命令やＰＵＳＨ命令が使用するスタック・ポインタであるので、 ユーザが値を変更するとしばしば暴走する。	LIR　$04

【２】内部ＲＡＭ

アドレス	レジスタ名	使われ方
００	Ｉ	カウンタ
０１	Ｊ	カウンタ
０２	Ａ	アキュムレータ
０３	Ｂ	アキュムレータ予備
０４	Ｘ（下位）	外部ＲＡＭポインタ（読み込み用）
０５	Ｘ（上位）	外部ＲＡＭポインタ（読み込み用）
０６	Ｙ（下位）	外部ＲＡＭポインタ（書き込み用）
０７	Ｙ（上位）	外部ＲＡＭポインタ（書き込み用）
０８	Ｋ	汎用レジスタ
０９	Ｌ	汎用レジスタ
０Ａ	Ｍ	汎用レジスタ
０Ｂ	Ｎ	汎用レジスタ
０Ｃ〜		汎用ＲＡＭ
〜５Ｂ		システム・スタック
５Ｃ	ＩＡ	Ｉ／Ｏポート・レジスタ
５Ｄ	ＩＢ	Ｉ／Ｏポート・レジスタ
５Ｅ	ＦＯ	Ｉ／Ｏポート・レジスタ
５Ｆ	ＯＵＴＣ	コントロール・ポート・レジスタ

液晶画面を大事にしよう

　ポケコンを何年間も使っていると、液晶の端の方から 少しずつ黒ずんできます。 主に冬の低温下でこの症状は発生しますが、 だんだんと季節を問わず黒ずむようになり、 液晶の中央へ向かって進行していきます。 そして最終的には使用に耐えなくなってしまいます。 このようになる原因ですが、液晶が膨張・収縮を繰り返すうちに、 液晶を封じ込めている容器の容積がわずかに大きくなり、 容器の内側の圧力が下がるのが原因ではないかと考えています。 と、言いますのも、分解して偏光板をはがし、 黒ずんでいる所を指で押さえると、 押さえている間だけ黒ずみが改善するからです。 なお、偏光板を通して見なければ黒ずみは見えません。 念のため。なお、偏光板を一度はがすと、 二度と元の密着状態に貼り付けられないので、真似しないでください。
　筆者の知る限り、この黒ずみを根本的に直す方法がありません。 白熱電灯の下に置いて暖める、などの方法を紹介しているサイトもありますが、 温度が下がれば元通り黒ずみますので、 何の解決にもならない上に、 液晶の劣化（容器の拡張）を早めてしまいます。 結局、劣化を食い止める最善の方法は、暑さ寒さを避けて、 ２０℃くらいの一定温度で保管するしかないのではないかと 思います。実行するのはなかなか難しいことですが、 安易に加熱するのだけは避けた方がよさそうです。
　最近、偏光板の取り換えで画面を復活させる方法が行われているようです。ポケコンで再度、試したらやっぱり駄目でしたが、他機種ならまた見えるようになるかもしれません！ぜひ試してみてください！（例）　１台でも多く実機が使い続けられることを願って・・・

進行を遅らせることはできても止める事はできない
こうなってはおしまいの図

ＰＣ−１２４５の思い出

　中学に上がってすぐの頃、「子供の科学」誌でシャープのＭＺ−７００やＮＥＣのＰＣ−６００１の紹介があり、 欲しくてたまりませんでしたが、当時、お金がなくてとても買えませんでした。 そして中学１年の冬休みにお年玉でやっとポケットコンピュータ（以下ポケコンと略）ＰＣ−１２４５を買い （本当はカシオＰＢ−１００を買いに行ったのですが売り切れでシャープになりました。結果的にラッキー）、 ＰＩＯ誌に掲載されたゲームを打ち込んだり、 プログラムを作って遊んだりしていました。 ＬＣＤに私の名前（山田）を表示させていたら、 某氏からどうして自分の名前は出せないんだと言われたのも今では懐かしい思い出です。 １文字５×７ドットなので名前表示は山田が限界 ・・・とか説明しても分かってもらえなかったような気がします。 その後もお金がなく、高校時代もやっぱりＰＣ−１２４５を使っていました。 その頃にはポケコン界の主流は画面の大きなＰＣ−１３５０に移っており、 ＰＣ−１２４５のプログラムはほとんど雑誌に掲載されず、 高校時代はポケコンマシン語入門という本を入手して、 マシン語プログラミングにハマっておりました。 そして自分の作ったゲームで遊んでいました。 また、水晶交換（今は原発乗っ取りというのでしょうか）で、 倍速にしたりしていましたが、むちゃな改造がたたって破損。 そんなこんなで現在使用しているＰＣ−１２４５は３台目です。 なお、倍速改造は音楽（といっても単音ですが）まで速くなり（音程も高くなる）、 ゲームも速すぎて遊べなくなってしまうため、 某氏はマイクロスイッチで切り替えできるようにされていました。 今は学生時代のように時間が取れなくなってしまいましたが、 「Yagshi's SC61860 Assembler "YASM61860"」を得て、 今後もプログラミングを楽しませてくれることでしょう。ポケコンよ、永遠なれ！

→「ＭＳＸの思い出」へ続く

このホームページの内容についてのご意見ご感想は jp3tlc@jarl.com までお願いします。