User Tools

Site Tools


base:julia_fractal_morpher

Julia Fractal Morpher

; Julia Morph
; -----------
; Entry for the July 1996 NTSC 4k
; demo contest.
;
; Coded by dW/style, July 1, 1996
;
; Notes:
;
; Assembled using turbo assembler
; macro + version
;
; The code assumes there is a music
; routine at $1000(init)/$1003(irq)

ncolors  = 16
negative = $80
width    = 72
height   = 56
yinit1   = 0
yinit2   = (width-4)*2
cset     = $3000
cset2    = $2800
initcptr = cset+((width/4)*height)
itercnt  = 32    ; max # of iterations
screen   = $0400
color    = $d800
pointerl = $0800
pointerh = $0900

aux      = $02
tmp      = $14
frame    = $22
iter     = $4b
currx    = $4c
currxs   = $4d
curry    = $4e
currys   = $4f
real     = $50
reals    = $51
imag     = $52
imags    = $53
rsq      = $54
isq      = $55
xtogo    = $56
ytogo    = $57
graph    = $58
gdata    = $59
ystor    = $5a
bit9     = $5b
rsq9     = $5c
isq9     = $5d
rseed    = $5e
rseeds   = $5f
iseed    = $60
iseeds   = $61
mapptr   = $62
colptr   = $64
ystor2   = $65
scrptr   = $68
mapptr2  = $6a
gdata2   = $6c

music    = $1000
hwnmi    = $fffa
hwirq    = $fffe

         *= $1800
start
         sei
         lda #$35
         sta $01
         lda #$7f
         sta $dc0d
         sta $dd0d
         lda $dc0d
         lda $dd0d
         lda #$00
         sta $d015
         jsr music
         ldy #$ff
         sty $dc02
         iny
         sty $dc03
         lda #255-2
         sta $dc00
         lda #<irqmain
         sta hwirq
         sta hwnmi
         lda #>irqmain
         sta hwirq+1
         sta hwnmi+1
         lda #<irq0
         sta jmpaddy
         lda #>irq0
         sta jmpaddy+1
         jmp begin

setint
         bit $d011
         bpl setint
         lda #$1b
         sta $d011
         lda lines
         sta $d012
         lda #$01
         sta $d019
         sta $d01a
         lda #$34
         sta $01
         cli
         rts

irqmain
         sei
         sta storea+1
         stx storex+1
         sty storey+1
         lda #$35
         sta $01
         inc $d019
         jmp (jmpaddy)

irqcont
         lda lines,y
         sta $d012
         lda #$34
         sta $01
         ldx #$00
         lda addyl,y
         sta jmpaddy,x
         inx
         lda addyh,y
         sta jmpaddy,x
storea   lda #$00
storex   ldx #$00
storey   ldy #$00
         cli
         rti
jmpaddy
         .byte 0,0

lines    .byte $26,$89,$fa
addyl    .byte <irq0,<irq1,<irq2
addyh    .byte >irq0,>irq1,>irq2


irq0
         lda #21
         sta $d018
         lda #27+64
         sta $d011
         lda #$00
         sta $d021
         sta $d020
         lda #$06
         sta $d022
         lda #$0e
         sta $d023
         lda #$05
         sta $d024
         lda #200
         sta $d016
         inc $d020
         dec $d020
         ldy #$01
         jmp irqcont

irq1     lda #27
         sta $d011
         lda #216
         sta $d016
         nop
         nop
         nop
         lda #$01
         sta $d021
         sta $d020
         jsr delay1
colr1    ldx #$0e
colr0    ldy #$03
         stx $d022
         sty $d023
colr2    lda #$06
         ldx #$00
         ldy #28
         sta $d021
         stx $d020
         sty $d018
         ldy #$02
         jmp irqcont

irq2
         jsr delay0
         lda #21
         sta $d018
         lda #$01
         sta $d021
         sta $d020
         jsr delay1
         jsr delay0
         nop
         nop
         nop
         lda #$00
         sta $d021
         sta $d020
         jsr $1003
         bit $dc01
         bmi skcycle
         dec cycle+1
cycle    lda #$08
         bne skcycle
         lda #$08
         sta cycle+1
         ldx colr0+1
         lda colr1+1
         sta colr0+1
         lda colr2+1
         sta colr1+1

colindex ldy #$00
         lda colors,y
         sta colr2+1
         iny
         cpy #ncolors
         bcc storindx
         ldy #$00
storindx sty colindex+1

skcycle  ldy #$00
         jmp irqcont

delay0
         nop
         rts

delay1
         ldx #$04
ddel1    dex
         bpl ddel1
         rts

begin
         bit $d011
         bpl begin
         lda #$0b
         sta $d011
         jsr clearpic
         lda #$00
         sta tmp+1
         sta frame
         ldy #$07
         lda #$ff
clrchar  sta cset+$07f8,y
         dey
         bpl clrchar

currbox  ldy #$00
         cpy #$02
         clc
         bne skpbox
         sec
skpbox   lda boxtabll,y
         tax
         lda boxtablh,y
         tay
         jsr drawbox
         inc currbox+1
         lda currbox+1
         cmp #$07
         bne currbox
         lda #$00
         sta currbox+1

         lda #$37
         sta $01
         ldx #<text0
         ldy #>text0
         jsr prnttext
         ldx #<text1
         ldy #>text1
         jsr prnttext
         ldx #<text2
         ldy #>text2
         jsr prnttext
         lda #$35
         sta $01

         lda #147
         sta $dd00
         jsr setint

         ; seed init
frameini
chngsd   lda #0
         sta rseed
         lda #0
         sta rseeds
chngseed lda #94
         sta iseed
         lda #0
         sta iseeds
         sta currys
         sta curry

         lda #width
         sta xtogo
         lda #height
         sta ytogo

         lda #0
         sta ystor
         lda #<initcptr
         sta mapptr
         sta mapptr2
         lda #(width*2)-8
         sta ystor2
         lda #>initcptr
         sta mapptr+1
         sta mapptr2+1
         lda #$04
         sta graph

rowinit  lda #negative
         sta currxs
         lda #$f8
         sta currx

         ; Mandelbrot iteration init
iterinit
         ldy currx
         sty real
         lda sqrtbl,y
         sta rsq
         lda sqrtbl+256,y
         sta rsq9
         lda currxs
         sta reals
         ldy curry
         sty imag
         lda sqrtbl+256,y
         sta isq9
         lda sqrtbl,y
         sta isq
         ldx currys
         stx imags
         ldx #$00
         stx iter
         clc
         lda isq
         adc rsq
         lda isq9
         adc rsq9
         cmp #$02
         bcc iterate
maxi     lda #$03
         jmp bye3

         ; Main iteration loop
iterate
         inc iter
         lda iter
         and #$03
         cmp #$03
         bne skipc0
         inc iter
skipc0   lda real
         asl a
         tay
         bcc table0
         lda logtbl+256,y
         bcs iter2
table0   lda logtbl,y
iter2    clc
         ldy imag
         adc logtbl,y
         tay
         bcc iter3
         cpy #$11
         bcs enditer
         lda exptbl+256,y
         ldx #$01
         stx bit9
         bne iter4
iter3    lda exptbl,y
         ldx #$00
         stx bit9
iter4    tay
         lda reals
         eor imags
         tax
         stx imags
         eor iseeds
         bne difsign2
         lda bit9
         bne enditer
         clc
         tya
         adc iseed
         bcs enditer
         bcc positv3

difsign2 tya
         sec
         sbc iseed
         tax
         lda bit9
         sbc #$00
         bmi sgnchng
         bne enditer
         txa
         jmp positv3
sgnchng  eor #$ff
         sta tmp
         txa
         eor #$ff
         clc
         adc #$01
         tay
         lda #$00
         adc tmp
         bne enditer
         lda #negative
         eor imags
         sta imags
         tya
positv3  sta imag
         jmp iterat2

enditer
enditer2 jmp byebye

iterat2  ldx #$00
         lda rsq
         sec
         sbc isq
         tay
         lda rsq9
         sbc isq9
         bmi sgnchng2
         sta tmp
         jmp positv1
sgnchng2 ldx #negative
         eor #$ff
         sta tmp
         tya
         eor #$ff
         clc
         adc #$01
         tay
         lda tmp
         adc #$00
         sta tmp
positv1  stx reals
         txa
         eor rseeds
         bne difsign
         tya
         clc
         adc rseed
         tay
         lda #$00
         adc tmp
         bne enditer
         beq positv2

difsign  tya
         sec
         sbc rseed
         tay
         lda tmp
         sbc #$00
         bmi sgnch
         bne enditer
         beq positv2
sgnch    eor #$ff
         sta tmp
         tya
         eor #$ff
         adc #$01
         tay
         lda #$00
         adc tmp
         bne enditer
         lda #negative
         eor reals
         sta reals
         .byte $2c
positv2  sta tmp
         tya
         sta real
         ldx iter
         cpx #itercnt
         bcc notyet
         lda #$03
         bcs bye3
notyet   tay
         lda sqrtbl,y
         sta rsq
         lda sqrtbl+256,y
         sta rsq9
         ldy imag
         lda sqrtbl+256,y
         sta isq9
         lda sqrtbl,y
         sta isq
         adc rsq
         lda isq9
         adc rsq9
         cmp #$02
         bcs bye2
         jmp iterate

bye2
byebye   lda iter
         and #$03
bye3     tax
         asl gdata
         asl gdata
         ora gdata
         sta gdata
         lsr gdata2
         lsr gdata2
         lda bits,x
         ora gdata2
         sta gdata2
         dec graph
         bne skipg
         lda #$04
         sta graph
         ldy ystor
         lda gdata
         sta (mapptr),y
         tya
         clc
         adc #$08
         sta ystor
         ldy ystor2
         lda curry
         beq skipplot
         lda ytogo
         beq skipplot
         lda gdata2
         sta (mapptr2),y
skipplot tya
         sec
         sbc #$08
         sta ystor2
skipg    dec xtogo
         beq endrow
         lda #currx
         ldx #7
         jsr incrmnt
         jmp iterinit
endrow   lda #width
         sta xtogo
         lda ystor2
         clc
         adc #(width*2)+1
         cmp #(width*2)
         bne skipp1
         lda #(width*2)
         clc
         adc mapptr2
         sta mapptr2
         lda #(width*2)-8
         bcc skipp1
         inc mapptr2+1
skipp1   sta ystor2
         lda ystor
         sec
         sbc #(width*2)+1
         cmp #$ff
         bne skipp
         sec
         lda mapptr
         sbc #(width*2)
         sta mapptr
         lda #$07
         bcs skipp
         dec mapptr+1
skipp    sta ystor
         dec ytogo
         bmi done
         lda #curry
         ldx #4
         jsr incrmnt
         jmp rowinit

done     jmp nextfrm


clearpic ldy #<cset
         sty mapptr
         lda #>cset
         sta mapptr+1
         ldx #$08
         lda #$00
         tay
clrmap   sta (mapptr),y
         iny
         bne clrmap
         inc mapptr+1
         dex
         bne clrmap
         rts

nextfrm  dec chngseed+1
         dec chngseed+1
         inc chngsd+1
         inc chngsd+1
         lda chngseed+1
         jmp frameini


incrmnt  sta tmp
         ldy #$01
         lda (tmp),y
         bmi neg
         dey
         txa
         clc
         adc (tmp),y
return   sta (tmp),y
         rts
neg      dey
         lda (tmp),y
         stx aux
         sec
         sbc aux
         bcs return
         eor #$ff
         adc #$01
         sta (tmp),y
         tya
         iny
         sta (tmp),y
         rts

copymem  stx mapptr+1
         sty mapptr2+1
         tax
         ldy #$00
         sty mapptr
         sty mapptr2
copy2    lda (mapptr),y
         sta (mapptr2),y
         iny
         bne copy2
         inc mapptr+1
         inc mapptr2+1
         dex
         bne copy2
         rts

prnttext
         stx currx
         sty currx+1
         ldy #$01
         lda (currx),y
         tax
         dey
         lda (currx),y
         tay
         clc
         jsr $fff0
         lda currx
         clc
         adc #$02
         pha
         lda currx+1
         adc #$00
         tay
         pla
         jsr $ab1e
         rts

drawbox
         .block
         bcc skip1
         lda #$ea          ; NOP
         bcs skip2
skip1    lda #$2c          ; BIT
skip2    sta incrm
         stx mapptr
         sty mapptr+1
         ldy #$05
setopts  lda codetabl,y
         tax
         lda (mapptr),y
         sta code,x
         dey
         bpl setopts
         lda #$00
         sta scrptr+1
code     lda #$00        ; y
         asl a
         asl a
         asl a
         sta scrptr
         asl a
         rol scrptr+1
         asl a
         rol scrptr+1
         clc
         adc scrptr
xval     adc #$00        ; x
         sta scrptr
         sta colptr
         lda #$00
         adc scrptr+1
         pha
         adc #>screen
         sta scrptr+1
         pla
         adc #$d8
         sta colptr+1
fillch   lda #$00         ; char
         sta aux
hval     lda #$00
         sta ytogo
wval     ldy #$00
         sty xtogo
         ldy #$00
fillrow  lda aux
         sta (scrptr),y
fillcol  lda #$00         ; color
         sta (colptr),y
incrm    .byte $2c        ; BIT
         inc aux
         iny
         dec xtogo
         bne fillrow
         lda scrptr
         clc
         adc #40
         sta scrptr
         sta colptr
         bcc goon
         inc scrptr+1
         inc colptr+1
goon     dec ytogo
         bne wval
         rts

codetabl
         .byte fillch-code+1
         .byte fillcol-code+1
         .byte xval-code+1
         .byte 1
         .byte wval-code+1
         .byte hval-code+1

         .bend

         ; screen box fill presets
         ;
         ; char, color, x, y, w, h
box0     .byte $20,$00,0,0,40,25
box2     .byte 0,$08,11,11,18,14
box1     .byte $ff,$00,0,11,40,14

box4     .byte 160,0,10,0,19,3
box3     .byte 96,0,11,1,19,3

box6     .byte 224,0,10,5,19,4
box5     .byte 96,0,11,6,19,4

boxtabll .byte <box0,<box1,<box2
         .byte <box3,<box4,<box5,<box6
boxtablh .byte >box0,>box1,>box2
         .byte >box3,>box4,>box5,>box6

bits     .byte $00,$40,$80,$c0

         ; x, y, text
text0    .byte 11,1,5,18
         .null "julia set morpher"

text1    .byte 11,6,158
         .text "CODE"
         .byte 186,160,160,160,160,5
         .text "DW"
         .byte 175
         .null "STYLE"

text2    .byte 11,7,158
         .text "MUSIC"
         .byte 186,160,160,5
         .text "MSK"
         .byte 175
         .null "CREST"

         *= $21f0
colors
         .byte $0b
         .byte $05
         .byte $0d
         .byte $07
         .byte $0a
         .byte $08
         .byte $02
         .byte $09

         .byte $0b
         .byte $0c
         .byte $0f
         .byte $01
         .byte $03
         .byte $0e
         .byte $06
         .byte $04


       ;  *= $2200

; square table low
sqrtbl   .byte 0,0,0,0,0
         .byte 0,0,0,1,1
         .byte 1,1,1,1,2
         .byte 2,2,2,3,3
         .byte 3,3,4,4,5
         .byte 5,5,6,6,7
         .byte 7,8,8,9,9
         .byte 10,10,11,11,12
         .byte 13,13,14,14,15
         .byte 16,17,17,18,19
         .byte 20,20,21,22,23
         .byte 24,25,25,26,27
         .byte 28,29,30,31,32
         .byte 33,34,35,36,37
         .byte 38,39,41,42,43
         .byte 44,45,46,48,49
         .byte 50,51,53,54,55
         .byte 56,58,59,61,62
         .byte 63,65,66,68,69
         .byte 71,72,74,75,77
         .byte 78,80,81,83,85
         .byte 86,88,89,91,93
         .byte 95,96,98,100,102
         .byte 103,105,107,109,111
         .byte 113,114,116,118,120
         .byte 122,124,126,128,130
         .byte 132,134,136,138,140
         .byte 142,145,147,149,151
         .byte 153,155,158,160,162
         .byte 164,167,169,171,173
         .byte 176,178,181,183,185
         .byte 188,190,193,195,198
         .byte 200,203,205,208,210
         .byte 213,215,218,221,223
         .byte 226,228,231,234,237
         .byte 239,242,245,248,250
         .byte 253,0,3,6,9
         .byte 11,14,17,20,23
         .byte 26,29,32,35,38
         .byte 41,44,47,50,53
         .byte 57,60,63,66,69
         .byte 72,76,79,82,85
         .byte 89,92,95,98,102
         .byte 105,109,112,115,119
         .byte 122,126,129,133,136
         .byte 140,143,147,150,154
         .byte 157,161,165,168,172
         .byte 175,179,183,187,190
         .byte 194,198,202,205,209
         .byte 213,217,221,225,228
         .byte 232,236,240,244,248
         .byte 252

; square table high
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1


; log table
logtbl   .byte 0,0,17,27,34
         .byte 39,44,48,51,54
         .byte 56,59,61,63,65
         .byte 66,68,70,71,72
         .byte 74,75,76,77,78
         .byte 79,80,81,82,83
         .byte 83,84,85,86,87
         .byte 87,88,89,89,90
         .byte 91,91,92,92,93
         .byte 93,94,94,95,95
         .byte 96,96,97,97,98
         .byte 98,99,99,100,100
         .byte 100,101,101,102,102
         .byte 102,103,103,104,104
         .byte 104,105,105,105,106
         .byte 106,106,107,107,107
         .byte 108,108,108,108,109
         .byte 109,109,110,110,110
         .byte 110,111,111,111,111
         .byte 112,112,112,112,113
         .byte 113,113,113,114,114
         .byte 114,114,115,115,115
         .byte 115,116,116,116,116
         .byte 116,117,117,117,117
         .byte 117,118,118,118,118
         .byte 118,119,119,119,119
         .byte 119,120,120,120,120
         .byte 120,121,121,121,121
         .byte 121,121,122,122,122
         .byte 122,122,122,123,123
         .byte 123,123,123,123,124
         .byte 124,124,124,124,124
         .byte 125,125,125,125,125
         .byte 125,125,126,126,126
         .byte 126,126,126,126,127
         .byte 127,127,127,127,127
         .byte 127,128,128,128,128
         .byte 128,128,128,128,129
         .byte 129,129,129,129,129
         .byte 129,129,130,130,130
         .byte 130,130,130,130,130
         .byte 131,131,131,131,131
         .byte 131,131,131,132,132
         .byte 132,132,132,132,132
         .byte 132,132,133,133,133
         .byte 133,133,133,133,133
         .byte 133,134,134,134,134
         .byte 134,134,134,134,134
         .byte 134,135,135,135,135
         .byte 135,135,135,135,135
         .byte 135,136,136,136,136
         .byte 136,136,136,136,136
         .byte 136,137,137,137,137
         .byte 137,137,137,137,137
         .byte 137,137,138,138,138
         .byte 138,138,138,138,138
         .byte 138,138,138,139,139
         .byte 139,139,139,139,139
         .byte 139,139,139,139,139
         .byte 140,140,140,140,140
         .byte 140,140,140,140,140
         .byte 140,140,141,141,141
         .byte 141,141,141,141,141
         .byte 141,141,141,141,141
         .byte 142,142,142,142,142
         .byte 142,142,142,142,142
         .byte 142,142,142,143,143
         .byte 143,143,143,143,143
         .byte 143,143,143,143,143
         .byte 143,143,144,144,144
         .byte 144,144,144,144,144
         .byte 144,144,144,144,144
         .byte 144,144,145,145,145
         .byte 145,145,145,145,145
         .byte 145,145,145,145,145
         .byte 145,145,146,146,146
         .byte 146,146,146,146,146
         .byte 146,146,146,146,146
         .byte 146,146,147,147,147
         .byte 147,147,147,147,147
         .byte 147,147,147,147,147
         .byte 147,147,147,147,148
         .byte 148,148,148,148,148
         .byte 148,148,148,148,148
         .byte 148,148,148,148,148
         .byte 148,149,149,149,149
         .byte 149,149,149,149,149
         .byte 149,149,149,149,149
         .byte 149,149,149,150,150
         .byte 150,150,150,150,150
         .byte 150,150,150,150,150
         .byte 150,150,150,150,150
         .byte 150,150,151,151,151
         .byte 151,151,151,151,151
         .byte 151,151,151,151,151
         .byte 151,151,151,151,151
         .byte 151,152,152,152,152
         .byte 152,152,152,152,152
         .byte 152,152,152,152,152
         .byte 152,152,152,152,152
         .byte 152,153,153,153,153
         .byte 153,153,153,153,153
         .byte 153,153

; exp table
exptbl   .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,1
         .byte 1,1,1,1,2
         .byte 2,2,2,2,2
         .byte 2,2,2,2,2
         .byte 2,2,3,3,3
         .byte 3,3,3,3,3
         .byte 4,4,4,4,4
         .byte 4,5,5,5,5
         .byte 5,6,6,6,6
         .byte 7,7,7,7,8
         .byte 8,8,9,9,9
         .byte 10,10,11,11,12
         .byte 12,12,13,14,14
         .byte 15,15,16,17,17
         .byte 18,19,20,20,21
         .byte 22,23,24,25,26
         .byte 27,28,29,31,32
         .byte 33,35,36,38,39
         .byte 41,42,44,46,48
         .byte 50,52,54,56,59
         .byte 61,64,66,69,72
         .byte 75,78,81,85,88
         .byte 92,96,100,104,108
         .byte 113,118,122,128,133
         .byte 138,144,150,156,163
         .byte 170,177,184,192,200
         .byte 208,217,226,235,245
         .byte 255,10,21,32,44
         .byte 57,70,83,97,112
         .byte 127,143,160,177,195
         .byte 214,234,254,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0,0,0,0
         .byte 0,0

         .text "code by dw/style"
base/julia_fractal_morpher.txt · Last modified: 2015-04-17 04:32 (external edit)