http://www.jwz.org/xscreensaver/xscreensaver-5.13.tar.gz
[xscreensaver] / hacks / images / m6502 / cellular-600.asm
1 ; Code 600 cellular automata - by D.S.
2  lda #1
3  sta $22f
4
5 l3:
6  ldy #29
7
8 l2:
9  lda  $220,y
10  adc $221,y
11  adc $222,y
12  tax
13  lda rule,x
14  sta  $201,y
15  dey
16  bpl l2
17
18  ldy #$c0
19  sec
20 ll2:
21  lda $503,y
22  sta $523,y
23  sta $53b,y
24  lda $504,y
25  sta $524,y
26  sta $53a,y
27  lda $505,y
28  sta $525,y
29  sta $539,y
30  lda $506,y
31  sta $526,y
32  sta $538,y
33  lda $507,y
34  sta $527,y
35  sta $537,y
36  lda $508,y
37  sta $528,y
38  sta $536,y
39  lda $509,y
40  sta $529,y
41  sta $535,y
42  lda $50a,y
43  sta $52a,y
44  sta $534,y
45  lda $50b,y
46  sta $52b,y
47  sta $533,y
48  lda $50c,y
49  sta $52c,y
50  sta $532,y
51  lda $50d,y
52  sta $52d,y
53  sta $531,y
54  lda $50e,y
55  sta $52e,y
56  sta $530,y
57  lda $50f,y
58  sta $52f,y
59  tya
60  adc #$df
61  tay
62  bcs ll2
63
64  ldy #$e0
65  sec
66 ll3:
67  lda $403,y
68  sta $423,y
69  sta $43b,y
70  lda $404,y
71  sta $424,y
72  sta $43a,y
73  lda $405,y
74  sta $425,y
75  sta $439,y
76  lda $406,y
77  sta $426,y
78  sta $438,y
79  lda $407,y
80  sta $427,y
81  sta $437,y
82  lda $408,y
83  sta $428,y
84  sta $436,y
85  lda $409,y
86  sta $429,y
87  sta $435,y
88  lda $40a,y
89  sta $42a,y
90  sta $434,y
91  lda $40b,y
92  sta $42b,y
93  sta $433,y
94  lda $40c,y
95  sta $42c,y
96  sta $432,y
97  lda $40d,y
98  sta $42d,y
99  sta $431,y
100  lda $40e,y
101  sta $42e,y
102  sta $430,y
103  lda $40f,y
104  sta $42f,y
105  tya
106  adc #$df
107  tay
108  bcs ll3
109
110  ldy #$e0
111  sec
112 ll4:
113  lda $303,y
114  sta $323,y
115  sta $33b,y
116  lda $304,y
117  sta $324,y
118  sta $33a,y
119  lda $305,y
120  sta $325,y
121  sta $339,y
122  lda $306,y
123  sta $326,y
124  sta $338,y
125  lda $307,y
126  sta $327,y
127  sta $337,y
128  lda $308,y
129  sta $328,y
130  sta $336,y
131  lda $309,y
132  sta $329,y
133  sta $335,y
134  lda $30a,y
135  sta $32a,y
136  sta $334,y
137  lda $30b,y
138  sta $32b,y
139  sta $333,y
140  lda $30c,y
141  sta $32c,y
142  sta $332,y
143  lda $30d,y
144  sta $32d,y
145  sta $331,y
146  lda $30e,y
147  sta $32e,y
148  sta $330,y
149  lda $30f,y
150  sta $32f,y
151  tya
152  adc #$df
153  tay
154  bcs ll4
155
156
157  ldy #$e0
158  sec
159 ll1:
160  lda $203,y
161  sta $223,y
162  sta $23b,y
163  lda $204,y
164  sta $224,y
165  sta $23a,y
166  lda $205,y
167  sta $225,y
168  sta $239,y
169  lda $206,y
170  sta $226,y
171  sta $238,y
172  lda $207,y
173  sta $227,y
174  sta $237,y
175  lda $208,y
176  sta $228,y
177  sta $236,y
178  lda $209,y
179  sta $229,y
180  sta $235,y
181  lda $20a,y
182  sta $22a,y
183  sta $234,y
184  lda $20b,y
185  sta $22b,y
186  sta $233,y
187  lda $20c,y
188  sta $22c,y
189  sta $232,y
190  lda $20d,y
191  sta $22d,y
192  sta $231,y
193  lda $20e,y
194  sta $22e,y
195  sta $230,y
196  lda $20f,y
197  sta $22f,y
198  tya
199  adc #$df
200  tay
201  bcs ll1
202
203  jmp l3
204
205 ; Rules, uncomment only one line of the following.
206 rule:
207  dcb 0,2,0,1,1,2,0 ; CODE 600
208 ; dcb 0,2,1,0,2,0,0 ; CODE 177
209 ; dcb 0,1,2,0,2,0,1; CODE 912