とりあえずスロットゲームを作ってみた。

ふと思いついたナイトライダーネタは
id:yasuho さんに先を越されてしまってたー＞＜
それはそれとしてー。

直ぐ出来そうって思いついて書いてみたスロットゲーム。
シュウォッチのシークレットモードのスロットゲーム並みに目押しできませんｗ

最初 CAL TIMR でウエイト掛けて作ってみたら予想通りの無理ゲーになりました。
入力受付の瞬間が一瞬だから。
次にノンウエイトで作り直したらこれまた予想通り
スロットの目が高速過ぎて味気ない出来栄えになりました。
仕方ないので
適当に思いついたウエイトを噛ませてみたら少しマシになりました。

コメントが何だか微妙だけど公開しちまえっと。

SLOTGAME.ASM

INIT:	TIA	0	;Aレジスタ値を初期化
	TIY	0	;Yレジスタ値を初期化（数字LEDへ表示する用の値）
START:	CY		;Aレジスタ値とYレジスタ値を入れ替え
	AIA	1	;Aレジスタ値をインクリメント（＋１増分）
	AO		;Aレジスタ値を数字LEDに表示
	CY		;Aレジスタ値で増分した値をYレジスタへ戻す（入れ替える）
KEYCHK:	AIA	1	;入力受付。1回の数値表示に付き15回の入力受付。
	JUMP	START	;入力受付終了。桁越え（15回ループ）したらSTARTへ戻る。
	KA		;入力チェック。
	JUMP	KEYCHK	;入力がない場合。入力受付へ戻る。
	TIA	0	;入力があった場合。スロットを止める。Aレジスタもクリアする。
STOP:	KA		;スロットが止まってる状態。再度入力があったら再開
	JUMP	STOP	;入力がない場合ストップのまま
	TIA	0	;再度入力があった場合。Aレジスタをクリア
	JUMP	START	;再度入力があった場合。ゲーム再開

SLOTGAME.BIN

アドレス	命令	命令コード 
00	TIA	8 
01	＜0＞	0 
02	TIY	A 
03	＜0＞	0 
04	CY	3 
05	AIA	9 
06	＜1＞	1 
07	AO	1 
08	CY	3 
09	AIA	9 
0A	＜1＞	1 
0B	JUMP	F 
0C	＜0＞	0 
0D	＜4＞	4 
0E	KA	0 
0F	JUMP	F 
10	＜0＞	0 
11	＜9＞	9 
12	TIA	8 
13	＜0＞	0 
14	KA	0 
15	JUMP	F 
16	＜1＞	1 
17	＜4＞	4 
18	TIA	8 
19	＜0＞	0 
1A	JUMP	F 
1B	＜0＞	0 
1C	＜4＞	4