From http://www.jwz.org/xscreensaver/xscreensaver-5.36.tar.gz

[xscreensaver] / hacks / images / m6502 / sierpinski.asm

diff --git a/hacks/images/m6502/sierpinski.asm b/hacks/images/m6502/sierpinski.asm
new file mode 100644 (file)
index 0000000..2d21905
--- /dev/null
+++ b/hacks/images/m6502/sierpinski.asm
@@ -0,0 +1,24 @@
+; Sierpinski
+; Submitted by Anonymous
+
+start:
+  lda #$e1
+  sta $0
+  lda #$01
+  sta $1
+  ldy #$20
+
+write:
+  ldx #$00
+  eor ($0, x)
+  sta ($0),y
+
+  inc $0
+  bne write
+  inc $1
+  ldx $1
+  cpx #$06
+  bne write
+
+  rts
+