http://www.jwz.org/xscreensaver/xscreensaver-5.13.tar.gz
[xscreensaver] / hacks / images / m6502 / cellular-30.asm
1 ; Rule 30 cellular automata
2 ; by D.S.
3
4  lda #1
5  sta $20f
6
7 l3:
8  lda #2
9  sta 3
10  sta 5
11  sta 7
12  lda #1
13  sta 9
14  sta 6
15  lda #255
16  sta 8
17  lda #0
18  sta 2
19  lda #32
20  sta 4
21  ldx #30
22 l1:
23  ldy #31
24
25 l2:
26  lda ($2),y
27  ora ($6),y
28  eor ($8),y
29  sta ($4),y
30  dey
31  bpl l2
32
33  lda $2
34  adc #32
35  sta $2
36  lda $3
37  adc #0
38  sta $3
39  lda $4
40  adc #32
41  sta $4
42  lda $5
43  adc #0
44  sta $5
45  lda $6
46  adc #32
47  sta $6
48  lda $7
49  adc #0
50  sta $7
51  lda $8
52  adc #32
53  sta $8
54  lda $9
55  adc #0
56  sta $9
57  dex
58  bpl l1
59
60  ldy #31
61 l4:
62  lda ($2),y
63  sta $200,y
64  dey
65  bpl l4
66
67  jmp l3