projects
/
xscreensaver
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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