d3a98cf
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 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