base:julia_fractal_morpher
no way to compare when less than two revisions
Differences
This shows you the differences between two versions of the page.
— | base:julia_fractal_morpher [2015-04-17 04:32] (current) – created - external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ====== 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)/ | ||
+ | |||
+ | ncolors | ||
+ | negative = $80 | ||
+ | width = 72 | ||
+ | height | ||
+ | yinit1 | ||
+ | yinit2 | ||
+ | cset = $3000 | ||
+ | cset2 = $2800 | ||
+ | initcptr = cset+((width/ | ||
+ | itercnt | ||
+ | screen | ||
+ | color = $d800 | ||
+ | pointerl = $0800 | ||
+ | pointerh = $0900 | ||
+ | |||
+ | aux = $02 | ||
+ | tmp = $14 | ||
+ | frame = $22 | ||
+ | iter = $4b | ||
+ | currx = $4c | ||
+ | currxs | ||
+ | curry = $4e | ||
+ | currys | ||
+ | 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 | ||
+ | iseed = $60 | ||
+ | iseeds | ||
+ | mapptr | ||
+ | colptr | ||
+ | ystor2 | ||
+ | scrptr | ||
+ | mapptr2 | ||
+ | gdata2 | ||
+ | |||
+ | 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 #< | ||
+ | sta hwirq | ||
+ | sta hwnmi | ||
+ | lda #> | ||
+ | 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 | ||
+ | storex | ||
+ | storey | ||
+ | cli | ||
+ | rti | ||
+ | jmpaddy | ||
+ | .byte 0,0 | ||
+ | |||
+ | lines .byte $26,$89,$fa | ||
+ | addyl .byte < | ||
+ | addyh .byte > | ||
+ | |||
+ | |||
+ | 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 | ||
+ | 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 | ||
+ | dey | ||
+ | bpl clrchar | ||
+ | |||
+ | currbox | ||
+ | cpy #$02 | ||
+ | clc | ||
+ | bne skpbox | ||
+ | sec | ||
+ | skpbox | ||
+ | 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 | ||
+ | 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 #< | ||
+ | sta mapptr | ||
+ | sta mapptr2 | ||
+ | lda # | ||
+ | sta ystor2 | ||
+ | lda #> | ||
+ | sta mapptr+1 | ||
+ | sta mapptr2+1 | ||
+ | lda #$04 | ||
+ | sta graph | ||
+ | |||
+ | rowinit | ||
+ | sta currxs | ||
+ | lda #$f8 | ||
+ | sta currx | ||
+ | |||
+ | ; Mandelbrot iteration init | ||
+ | iterinit | ||
+ | ldy currx | ||
+ | sty real | ||
+ | lda sqrtbl,y | ||
+ | sta rsq | ||
+ | lda sqrtbl+256, | ||
+ | sta rsq9 | ||
+ | lda currxs | ||
+ | sta reals | ||
+ | ldy curry | ||
+ | sty imag | ||
+ | lda sqrtbl+256, | ||
+ | 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 | ||
+ | asl a | ||
+ | tay | ||
+ | bcc table0 | ||
+ | lda logtbl+256, | ||
+ | bcs iter2 | ||
+ | table0 | ||
+ | iter2 clc | ||
+ | ldy imag | ||
+ | adc logtbl,y | ||
+ | tay | ||
+ | bcc iter3 | ||
+ | cpy #$11 | ||
+ | bcs enditer | ||
+ | lda exptbl+256, | ||
+ | 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 | ||
+ | sta tmp | ||
+ | txa | ||
+ | eor #$ff | ||
+ | clc | ||
+ | adc #$01 | ||
+ | tay | ||
+ | lda #$00 | ||
+ | adc tmp | ||
+ | bne enditer | ||
+ | lda #negative | ||
+ | eor imags | ||
+ | sta imags | ||
+ | tya | ||
+ | positv3 | ||
+ | jmp iterat2 | ||
+ | |||
+ | enditer | ||
+ | enditer2 jmp byebye | ||
+ | |||
+ | iterat2 | ||
+ | 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 | ||
+ | txa | ||
+ | eor rseeds | ||
+ | bne difsign | ||
+ | tya | ||
+ | clc | ||
+ | adc rseed | ||
+ | tay | ||
+ | lda #$00 | ||
+ | adc tmp | ||
+ | bne enditer | ||
+ | beq positv2 | ||
+ | |||
+ | difsign | ||
+ | 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 | ||
+ | tya | ||
+ | sta real | ||
+ | ldx iter | ||
+ | cpx #itercnt | ||
+ | bcc notyet | ||
+ | lda #$03 | ||
+ | bcs bye3 | ||
+ | notyet | ||
+ | lda sqrtbl,y | ||
+ | sta rsq | ||
+ | lda sqrtbl+256, | ||
+ | sta rsq9 | ||
+ | ldy imag | ||
+ | lda sqrtbl+256, | ||
+ | sta isq9 | ||
+ | lda sqrtbl,y | ||
+ | sta isq | ||
+ | adc rsq | ||
+ | lda isq9 | ||
+ | adc rsq9 | ||
+ | cmp #$02 | ||
+ | bcs bye2 | ||
+ | jmp iterate | ||
+ | |||
+ | bye2 | ||
+ | byebye | ||
+ | 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 | ||
+ | sta xtogo | ||
+ | lda ystor2 | ||
+ | clc | ||
+ | adc # | ||
+ | cmp #(width*2) | ||
+ | bne skipp1 | ||
+ | lda #(width*2) | ||
+ | clc | ||
+ | adc mapptr2 | ||
+ | sta mapptr2 | ||
+ | lda # | ||
+ | bcc skipp1 | ||
+ | inc mapptr2+1 | ||
+ | skipp1 | ||
+ | lda ystor | ||
+ | sec | ||
+ | sbc # | ||
+ | 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 | ||
+ | iny | ||
+ | bne clrmap | ||
+ | inc mapptr+1 | ||
+ | dex | ||
+ | bne clrmap | ||
+ | rts | ||
+ | |||
+ | nextfrm | ||
+ | dec chngseed+1 | ||
+ | inc chngsd+1 | ||
+ | inc chngsd+1 | ||
+ | lda chngseed+1 | ||
+ | jmp frameini | ||
+ | |||
+ | |||
+ | incrmnt | ||
+ | ldy #$01 | ||
+ | lda (tmp),y | ||
+ | bmi neg | ||
+ | dey | ||
+ | txa | ||
+ | clc | ||
+ | adc (tmp),y | ||
+ | return | ||
+ | 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 | ||
+ | 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 | ||
+ | | ||
+ | bcc skip1 | ||
+ | lda #$ea ; NOP | ||
+ | bcs skip2 | ||
+ | skip1 lda #$2c ; BIT | ||
+ | skip2 sta incrm | ||
+ | stx mapptr | ||
+ | sty mapptr+1 | ||
+ | ldy #$05 | ||
+ | setopts | ||
+ | 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 | ||
+ | sta aux | ||
+ | hval lda #$00 | ||
+ | sta ytogo | ||
+ | wval ldy #$00 | ||
+ | sty xtogo | ||
+ | ldy #$00 | ||
+ | fillrow | ||
+ | sta (scrptr),y | ||
+ | fillcol | ||
+ | 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, | ||
+ | box2 .byte 0, | ||
+ | box1 .byte $ff, | ||
+ | |||
+ | box4 .byte 160, | ||
+ | box3 .byte 96, | ||
+ | |||
+ | box6 .byte 224, | ||
+ | box5 .byte 96, | ||
+ | |||
+ | boxtabll .byte < | ||
+ | .byte < | ||
+ | boxtablh .byte > | ||
+ | .byte > | ||
+ | |||
+ | bits .byte $00, | ||
+ | |||
+ | ; x, y, text | ||
+ | text0 .byte 11,1,5,18 | ||
+ | .null "julia set morpher" | ||
+ | |||
+ | text1 .byte 11,6,158 | ||
+ | .text " | ||
+ | .byte 186, | ||
+ | .text " | ||
+ | .byte 175 | ||
+ | .null " | ||
+ | |||
+ | text2 .byte 11,7,158 | ||
+ | .text " | ||
+ | .byte 186, | ||
+ | .text " | ||
+ | .byte 175 | ||
+ | .null " | ||
+ | |||
+ | *= $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 | ||
+ | |||
+ | |||
+ | ; | ||
+ | |||
+ | ; square table low | ||
+ | sqrtbl | ||
+ | .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, | ||
+ | .byte 13, | ||
+ | .byte 16, | ||
+ | .byte 20, | ||
+ | .byte 24, | ||
+ | .byte 28, | ||
+ | .byte 33, | ||
+ | .byte 38, | ||
+ | .byte 44, | ||
+ | .byte 50, | ||
+ | .byte 56, | ||
+ | .byte 63, | ||
+ | .byte 71, | ||
+ | .byte 78, | ||
+ | .byte 86, | ||
+ | .byte 95, | ||
+ | .byte 103, | ||
+ | .byte 113, | ||
+ | .byte 122, | ||
+ | .byte 132, | ||
+ | .byte 142, | ||
+ | .byte 153, | ||
+ | .byte 164, | ||
+ | .byte 176, | ||
+ | .byte 188, | ||
+ | .byte 200, | ||
+ | .byte 213, | ||
+ | .byte 226, | ||
+ | .byte 239, | ||
+ | .byte 253,0,3,6,9 | ||
+ | .byte 11, | ||
+ | .byte 26, | ||
+ | .byte 41, | ||
+ | .byte 57, | ||
+ | .byte 72, | ||
+ | .byte 89, | ||
+ | .byte 105, | ||
+ | .byte 122, | ||
+ | .byte 140, | ||
+ | .byte 157, | ||
+ | .byte 175, | ||
+ | .byte 194, | ||
+ | .byte 213, | ||
+ | .byte 232, | ||
+ | .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 39, | ||
+ | .byte 56, | ||
+ | .byte 66, | ||
+ | .byte 74, | ||
+ | .byte 79, | ||
+ | .byte 83, | ||
+ | .byte 87, | ||
+ | .byte 91, | ||
+ | .byte 93, | ||
+ | .byte 96, | ||
+ | .byte 98, | ||
+ | .byte 100, | ||
+ | .byte 102, | ||
+ | .byte 104, | ||
+ | .byte 106, | ||
+ | .byte 108, | ||
+ | .byte 109, | ||
+ | .byte 110, | ||
+ | .byte 112, | ||
+ | .byte 113, | ||
+ | .byte 114, | ||
+ | .byte 115, | ||
+ | .byte 116, | ||
+ | .byte 117, | ||
+ | .byte 118, | ||
+ | .byte 119, | ||
+ | .byte 120, | ||
+ | .byte 121, | ||
+ | .byte 122, | ||
+ | .byte 123, | ||
+ | .byte 124, | ||
+ | .byte 125, | ||
+ | .byte 125, | ||
+ | .byte 126, | ||
+ | .byte 127, | ||
+ | .byte 127, | ||
+ | .byte 128, | ||
+ | .byte 129, | ||
+ | .byte 129, | ||
+ | .byte 130, | ||
+ | .byte 131, | ||
+ | .byte 131, | ||
+ | .byte 132, | ||
+ | .byte 132, | ||
+ | .byte 133, | ||
+ | .byte 133, | ||
+ | .byte 134, | ||
+ | .byte 134, | ||
+ | .byte 135, | ||
+ | .byte 135, | ||
+ | .byte 136, | ||
+ | .byte 136, | ||
+ | .byte 137, | ||
+ | .byte 137, | ||
+ | .byte 138, | ||
+ | .byte 138, | ||
+ | .byte 139, | ||
+ | .byte 139, | ||
+ | .byte 140, | ||
+ | .byte 140, | ||
+ | .byte 140, | ||
+ | .byte 141, | ||
+ | .byte 141, | ||
+ | .byte 142, | ||
+ | .byte 142, | ||
+ | .byte 142, | ||
+ | .byte 143, | ||
+ | .byte 143, | ||
+ | .byte 143, | ||
+ | .byte 144, | ||
+ | .byte 144, | ||
+ | .byte 144, | ||
+ | .byte 145, | ||
+ | .byte 145, | ||
+ | .byte 145, | ||
+ | .byte 146, | ||
+ | .byte 146, | ||
+ | .byte 146, | ||
+ | .byte 147, | ||
+ | .byte 147, | ||
+ | .byte 147, | ||
+ | .byte 148, | ||
+ | .byte 148, | ||
+ | .byte 148, | ||
+ | .byte 148, | ||
+ | .byte 149, | ||
+ | .byte 149, | ||
+ | .byte 149, | ||
+ | .byte 150, | ||
+ | .byte 150, | ||
+ | .byte 150, | ||
+ | .byte 150, | ||
+ | .byte 151, | ||
+ | .byte 151, | ||
+ | .byte 151, | ||
+ | .byte 151, | ||
+ | .byte 152, | ||
+ | .byte 152, | ||
+ | .byte 152, | ||
+ | .byte 152, | ||
+ | .byte 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,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, | ||
+ | .byte 12, | ||
+ | .byte 15, | ||
+ | .byte 18, | ||
+ | .byte 22, | ||
+ | .byte 27, | ||
+ | .byte 33, | ||
+ | .byte 41, | ||
+ | .byte 50, | ||
+ | .byte 61, | ||
+ | .byte 75, | ||
+ | .byte 92, | ||
+ | .byte 113, | ||
+ | .byte 138, | ||
+ | .byte 170, | ||
+ | .byte 208, | ||
+ | .byte 255, | ||
+ | .byte 57, | ||
+ | .byte 127, | ||
+ | .byte 214, | ||
+ | .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/ | ||
+ | </ |
base/julia_fractal_morpher.txt · Last modified: 2015-04-17 04:32 by 127.0.0.1