diff options
Diffstat (limited to 'hacks/images/m6502/dragon-fractal.asm')
-rw-r--r-- | hacks/images/m6502/dragon-fractal.asm | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/hacks/images/m6502/dragon-fractal.asm b/hacks/images/m6502/dragon-fractal.asm new file mode 100644 index 0000000..ce05ad4 --- /dev/null +++ b/hacks/images/m6502/dragon-fractal.asm @@ -0,0 +1,49 @@ +;; dmsc +;; +;; PostPosted: Thu Dec 13, 2007 11:57 pm Post subject: Dragon curve +;; fractal +;; +;; +;; Hi! +;; +;; This draws the dragon curve fractal (really a "twin dragon"): + +lda #0 + sta $0 + +lop: + lda $0 + sta $1 + lda #3 + sta $6 + lda #232 + sta $5 + + ldx #0 +lpN: + lsr $1 + bcc nos + lda $5 + clc + adc tL,x + sta $5 + lda $6 + adc tH,x + sta $6 +nos: + inx + lda $1 + bne lpN + inx + txa + ldy #0 + sta ($5),y + + inc $0 + bne lop + rts + +tL: + dcb 32, 31, 254, 190, 128, 132, 8, 8 +tH: + dcb 0, 0, 255, 255, 255, 255, 0, 1 |