X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=hacks%2Fimages%2Fm6502%2Fsierpinski.asm;fp=hacks%2Fimages%2Fm6502%2Fsierpinski.asm;h=2d21905e60359ed95fd302e3e10a7178b1680533;hp=0000000000000000000000000000000000000000;hb=d6b0217f2417bd19187f0ebc389d6c5c2233b11c;hpb=aa75c7476aeaa84cf3abc192b376a8b03c325213

diff --git a/hacks/images/m6502/sierpinski.asm b/hacks/images/m6502/sierpinski.asm
new file mode 100644
index 00000000..2d21905e
--- /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
+