2009年07月05日

レーザー光線プログラム:リスト

 先の記事で書いた「レーザー光線」のプログラムのリスト。
 解説はこちらLink

00:A   TIY
01:1   <1>
02:8   TIA
03:D   <D>
04:4   AM
05:A   TIY
06:2   <2>
07:8   TIA
08:0   <0>
09:4   AM
0A:E   CAL
0B:6   _SIFT
0C:F   JUMP
0D:1   <1>
0E:2   <2>
0F:F   JUMP
10:1   <1>
11:4   <4>
12:9   AIA
13:8   <8>
14:B   AIY
15:1   <1>
16:D   CIY
17:B   <B>
18:F   JUMP
19:0   <0>
1A:9   <9>
1B:8   TIA
1C:0   <0>
1D:4   AM
1E:0   KA
1F:F   JUMP
20:1   <1>
21:E   <E>
22:A   TIY
23:0   <0>
24:8   TIA
25:4   <4>
26:4   AM
27:3   CY
28:5   MA
29:A   TIY
2A:F   <F>
2B:4   AM
2C:A   TIY
2D:0   <0>
2E:5   MA
2F:A   TIY
30:1   <1>
31:7   M-
32:3   CY
33:5   MA
34:A   TIY
35:E   <E>
36:4   AM
37:E   CAL
38:D   _DSPR
39:8   TIA
3A:0   <0>
3B:E   CAL
3C:C   _TIMR
3D:A   TIY
3E:0   <0>
3F:5   MA
40:9   AIA
41:1   <1>
42:C   CIA
43:C   <C>
44:F   JUMP
45:2   <2>
46:6   <6>
47:F   JUMP
48:1   <1>
49:E   <E>

TIY 1
TIA D
AM      ;アドレス51にDを入れる
TIY 2      ;アドレス52から
TIA 0
CS: AM      ;データメモリにArを入れる
CAL SIFT   ;Arを右にシフト
JUMP CYES   ;偶数ならCYESにジャンプ
JUMP CNO   ;奇数ならCNOにジャンプ
CYES: AIA 8   ;Arの4ビット目をON
CNO: AIY 1   ;Yrを1増やす
CIY B      ;Yは11?
JUMP CS      ;11以外ならループ
TIA 0
AM      ;アドレス5Bに0を入れる
LOOP: KA   ;キー待ち
JUMP LOOP
TIY 0
TIA 4      ;4から始める
MAIN:AM      ;アドレス50に現在の数値保存
CY      ;現在の数値を点灯アドレスにする
MA      ;Arに点灯番号
TIY F
AM      ;アドレス5Fに2進の左LED点灯番号
TIY 0
MA      ;もう一度アドレス50から現在の数値取得
TIY 1
M-      ;Arにアドレス51の数値(D)-現在の数値
CY      ;その数値を点灯アドレスに
MA      ;Arに点灯番号
TIY E
AM      ;アドレス5Eに2進の右LED点灯番号
CAL DSPR   ;2進LED点灯
TIA 0
CAL TIMR   ;タイマー
TIY 0
MA
AIA 1      ;Arに現在の数値+1
CIA C      ;現在の数値が12?
JUMP MAIN   ;12以外なら、次の点灯
JUMP LOOP   ;12なら、キー入力に戻る




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

メールアドレス:

ホームページアドレス:

コメント: [必須入力]


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

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