2009年07月07日

7セグアニメーションプログラム:リスト

 先の記事で書いた「7セグアニメーション」のプログラムリスト。
 プログラムと共に、50〜5Fにデータを入力してから実行する。


アセンブルリストとデータ
00  (0000000)   A   1       TIY <1>
02 (0000010) 2 CH
03 (0000011) A 0 TIY <0>
05 (0000101) E 5 CAL CHNG
07 (0000111) 8 F TIA <F>
09 (0001001) A 0 TIY <0>
0B (0001011) E 5 CAL CHNG
0D (0001101) 5 MA
0E (0001110) 1 AO
0F (0001111) 2 CH
10 (0010000) 5 MA
11 (0010001) 1 AO
12 (0010010) E 5 CAL CHNG
14 (0010100) 9 F AIA <F>
16 (0010110) F 0 B JUMP <0B>
19 (0011001) B F AIY <F>
1B (0011011) F 0 B JUMP <0B>
1E (0011110) E 5 CAL CHNG
20 (0100000) B 2 AIY <2>
22 (0100010) 2 CH
23 (0100011) B 2 AIY <2>
25 (0100101) 2 CH
26 (0100110) F 0 5 JUMP <05>

50 (1010000) B D 6 6 0 0 9 5 ;表示用データ
58 (1011000) A A 2 E 0 0 3 D ;表示用データ

ソースリスト
TIY 01          ;Yrに1
CH ;Zrに移動
TIY 00 ;Yrに0
LOOP:
CAL CHNG ;補助レジスタと入れ替え
TIA 0Fh ;ループ用1桁目
TIY 00 ;ループ用2桁目
TURN:
CAL CHNG ;補助レジスタを戻す
MA
AO ;1つめの数字表示
CH
MA
AO ;2つめの数字表示
CAL CHNG ;補助レジスタと入れ替え
AIA 0Fh ;Arを1減らす
JUMP TURN ;Arが桁上がりしなければジャンプ
AIY 0Fh ;Yrを1減らす
JUMP TURN ;Yrが桁上がりしなければジャンプ
CAL CHNG ;補助レジスタを戻す
AIY 02 ;Yrを2増やす
CH ;Zrに移動
AIY 02 ;Yrを2増やす
CH
JUMP LOOP ;ループする





posted by 司隆 at 11:26 | Comment(0) | TrackBack(0) | Computer
この記事へのコメント
コメントを書く
お名前: [必須入力]

メールアドレス:

ホームページアドレス:

コメント: [必須入力]


この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。