git.hungrycats.org Git - xscreensaver/blob - hacks/images/m6502/sierpinski.asm

   1 ; Sierpinski
   2 ; Submitted by Anonymous
   3
   4 start:
   5   lda #$e1
   6   sta $0
   7   lda #$01
   8   sta $1
   9   ldy #$20
  10
  11 write:
  12   ldx #$00
  13   eor ($0, x)
  14   sta ($0),y
  15
  16   inc $0
  17   bne write
  18   inc $1
  19   ldx $1
  20   cpx #$06
  21   bne write
  22
  23   rts
  24