home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / demos / baah / Basic / WizAsm / Julia_iim next >
Unknown  |  1996-05-15  |  5.5 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% xdgMime image/x-tga default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 30 f4 20 4a 75 | 6c 69 61 20 53 65 74 2c |...0. Ju|lia Set,|
|00000010| 20 69 6e 76 65 72 73 65 | 20 69 74 65 72 61 74 69 | inverse| iterati|
|00000020| 76 65 20 6d 65 74 68 6f | 64 2e 20 28 69 69 6d 29 |ve metho|d. (iim)|
|00000030| 0d 00 14 30 f4 20 41 6c | 61 69 6e 20 42 52 4f 42 |...0. Al|ain BROB|
|00000040| 45 43 4b 45 52 20 28 62 | 61 61 68 2f 41 72 6d 27 |ECKER (b|aah/Arm'|
|00000050| 73 20 54 65 63 68 29 20 | 20 6a 75 6e 65 20 39 35 |s Tech) | june 95|
|00000060| 0d 00 1e 04 0d 00 28 41 | 73 3d 35 20 20 20 20 20 |......(A|s=5 |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 3a f4 20 4e 62 20 6f 66 | 20 62 61 63 6b 77 61 72 |:. Nb of| backwar|
|00000090| 64 20 69 74 65 72 61 74 | 69 6f 6e 73 20 74 6f 20 |d iterat|ions to |
|000000a0| 73 6b 69 70 2e 0d 00 32 | 44 f4 3d 3d 3d 3d 20 41 |skip...2|D.==== A|
|000000b0| 53 4d 20 43 4f 44 45 20 | 3d 3d 3d 3d 3d 3d 3d 3d |SM CODE |========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 00 3c 0d de 63 20 |========|=..<..c |
|000000f0| 31 30 32 34 2a 34 0d 00 | 46 0c e3 6f 3d 30 b8 32 |1024*4..|F..o=0.2|
|00000100| 88 32 0d 00 50 08 50 25 | 3d 63 0d 00 5a 0a 5b 6f |.2..P.P%|=c..Z.[o|
|00000110| 70 74 20 6f 0d 00 64 32 | 3b 20 54 68 69 73 20 72 |pt o..d2|; This r|
|00000120| 6f 75 74 69 6e 65 20 70 | 72 69 6e 74 73 20 74 68 |outine p|rints th|
|00000130| 65 20 6a 75 6c 69 61 20 | 73 65 74 20 75 73 69 6e |e julia |set usin|
|00000140| 67 20 69 69 6d 2e 0d 00 | 6e 30 3b 20 50 61 72 61 |g iim...|n0; Para|
|00000150| 6d 65 74 65 72 20 72 30 | 3d 61 64 72 65 73 73 20 |meter r0|=adress |
|00000160| 6f 66 20 6d 69 64 64 6c | 65 20 6f 66 20 76 69 64 |of middl|e of vid|
|00000170| 65 6f 72 61 6d 2e 0d 00 | 78 42 3b 20 20 20 20 20 |eoram...|xB; |
|00000180| 20 20 20 20 20 20 72 31 | 3d 61 64 72 65 73 73 20 | r1|=adress |
|00000190| 6f 66 20 74 68 65 20 6d | 69 64 64 6c 65 20 6f 66 |of the m|iddle of|
|000001a0| 20 74 68 65 20 78 20 63 | 6f 6e 76 65 72 73 69 6f | the x c|onversio|
|000001b0| 6e 20 74 61 62 6c 65 2e | 0d 00 82 36 3b 20 20 20 |n table.|...6; |
|000001c0| 20 20 20 20 20 20 20 20 | 72 32 3d 63 78 3d 72 65 | |r2=cx=re|
|000001d0| 61 6c 20 70 61 72 74 20 | 6f 66 20 74 68 65 20 4a |al part |of the J|
|000001e0| 75 6c 69 61 20 63 6f 6e | 73 74 61 6e 74 2e 0d 00 |ulia con|stant...|
|000001f0| 8c 3b 3b 20 20 20 20 20 | 20 20 20 20 20 20 72 33 |.;; | r3|
|00000200| 3d 63 79 3d 69 6d 61 67 | 69 6e 61 72 79 20 70 61 |=cy=imag|inary pa|
|00000210| 72 74 20 6f 66 20 74 68 | 65 20 4a 75 6c 69 61 20 |rt of th|e Julia |
|00000220| 63 6f 6e 73 74 61 6e 74 | 2e 0d 00 96 41 3b 20 20 |constant|....A; |
|00000230| 20 20 20 20 20 20 20 20 | 20 72 34 3d 61 64 72 65 | | r4=adre|
|00000240| 73 73 20 6f 66 20 74 68 | 65 20 62 75 66 66 65 72 |ss of th|e buffer|
|00000250| 20 66 6f 72 20 6e 6f 6e | 20 70 72 6f 63 65 73 73 | for non| process|
|00000260| 65 64 20 70 6f 69 6e 74 | 73 2e 0d 00 aa 0f 2e 6a |ed point|s......j|
|00000270| 75 6c 69 61 5f 69 69 6d | 30 0d 00 b4 1f 20 20 73 |ulia_iim|0.... s|
|00000280| 74 6d 66 64 20 20 20 72 | 31 33 21 2c 7b 72 30 2d |tmfd r|13!,{r0-|
|00000290| 72 31 32 2c 72 31 34 7d | 0d 00 be 4a 20 20 6d 6f |r12,r14}|...J mo|
|000002a0| 76 20 20 20 20 20 72 35 | 2c 23 30 20 20 20 20 20 |v r5|,#0 |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 72 35 20 69 | | ; r5 i|
|000002c0| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|000002d0| 70 6f 69 6e 74 73 20 69 | 6e 20 27 73 74 61 63 6b |points i|n 'stack|
|000002e0| 27 2e 0d 00 c8 41 20 20 | 6d 6f 76 20 20 20 20 20 |'....A |mov |
|000002f0| 72 36 2c 23 30 20 20 20 | 20 20 20 20 20 20 20 20 |r6,#0 | |
|00000300| 20 20 20 20 3b 20 72 36 | 3d 78 27 3d 72 65 61 6c | ; r6|=x'=real|
|00000310| 20 70 61 72 74 20 6f 66 | 20 63 75 72 72 65 6e 74 | part of| current|
|00000320| 20 7a 2e 0d 00 d2 36 20 | 20 6d 6f 76 20 20 20 20 | z....6 | mov |
|00000330| 20 72 37 2c 23 30 20 20 | 20 20 20 20 20 20 20 20 | r7,#0 | |
|00000340| 20 20 20 20 20 3b 20 72 | 37 3d 79 27 3d 69 6d 61 | ; r|7=y'=ima|
|00000350| 67 69 6e 61 72 79 2e 2e | 2e 0d 00 dc 18 20 20 62 |ginary..|..... b|
|00000360| 20 20 20 20 20 20 20 6a | 75 6c 69 61 5f 69 69 6d | j|ulia_iim|
|00000370| 31 0d 00 f0 46 3b 20 4a | 75 6c 69 61 5f 69 69 6d |1...F; J|ulia_iim|
|00000380| 32 20 69 73 20 74 6f 74 | 61 6c 6c 79 20 73 69 6d |2 is tot|ally sim|
|00000390| 69 6c 61 72 20 74 6f 20 | 6a 75 6c 69 61 5f 69 69 |ilar to |julia_ii|
|000003a0| 6d 31 2c 20 65 78 63 65 | 70 74 20 74 68 61 74 20 |m1, exce|pt that |
|000003b0| 77 65 20 6c 6f 61 64 0d | 00 fa 44 3b 20 74 68 65 |we load.|..D; the|
|000003c0| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 20 66 72 6f | coordin|ates fro|
|000003d0| 6d 20 74 68 65 20 70 6f | 69 6e 74 20 69 6e 20 74 |m the po|int in t|
|000003e0| 68 65 20 74 61 62 6c 65 | 2e 20 54 68 61 74 27 20 |he table|. That' |
|000003f0| 73 20 77 68 79 20 69 74 | 27 20 73 0d 01 04 45 3b |s why it|' s...E;|
|00000400| 20 70 6c 61 63 65 64 20 | 6a 75 73 74 20 61 62 6f | placed |just abo|
|00000410| 76 65 20 6a 75 6c 69 61 | 5f 69 69 6d 31 2e 20 57 |ve julia|_iim1. W|
|00000420| 65 20 63 6f 75 6c 64 20 | 61 76 6f 69 64 20 74 68 |e could |avoid th|
|00000430| 65 20 27 62 20 6a 75 6c | 69 61 5f 69 69 6d 31 27 |e 'b jul|ia_iim1'|
|00000440| 0d 01 0e 4a 3b 20 6a 75 | 73 74 20 61 62 6f 76 65 |...J; ju|st above|
|00000450| 20 69 66 20 77 65 20 77 | 65 72 65 20 68 61 76 69 | if we w|ere havi|
|00000460| 6e 67 20 6a 75 6c 69 61 | 5f 69 69 6d 32 20 69 6e |ng julia|_iim2 in|
|00000470| 64 65 70 65 6e 64 61 6e | 74 20 66 72 6f 6d 20 6a |dependan|t from j|
|00000480| 75 6c 69 61 5f 69 69 6d | 31 2e 0d 01 18 0f 2e 6a |ulia_iim|1......j|
|00000490| 75 6c 69 61 5f 69 69 6d | 32 0d 01 22 3a 20 20 6c |ulia_iim|2..": l|
|000004a0| 64 6d 64 62 20 20 20 72 | 34 21 2c 7b 72 36 2d 72 |dmdb r|4!,{r6-r|
|000004b0| 37 7d 20 20 20 20 20 20 | 20 20 20 3b 20 4c 6f 61 |7} | ; Loa|
|000004c0| 64 20 61 20 7a 20 69 6e | 20 74 68 65 20 74 61 62 |d a z in| the tab|
|000004d0| 6c 65 2e 0d 01 2c 2b 20 | 20 72 73 62 20 20 20 20 |le...,+ | rsb |
|000004e0| 20 72 36 2c 72 36 2c 23 | 30 20 20 20 20 20 20 20 | r6,r6,#|0 |
|000004f0| 20 20 20 20 20 3b 20 72 | 36 3d 2d 78 27 2e 0d 01 | ; r|6=-x'...|
|00000500| 36 2b 20 20 72 73 62 20 | 20 20 20 20 72 37 2c 72 |6+ rsb | r7,r|
|00000510| 37 2c 23 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |7,#0 | |
|00000520| 3b 20 72 37 3d 2d 79 27 | 2e 0d 01 40 43 20 20 73 |; r7=-y'|...@C s|
|00000530| 75 62 53 20 20 20 20 72 | 35 2c 72 35 2c 23 31 20 |ubS r|5,r5,#1 |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 4f 6e 65 | | ; One|
|00000550| 20 70 6f 69 6e 74 20 65 | 78 74 72 61 63 74 65 64 | point e|xtracted|
|00000560| 20 66 72 6f 6d 20 74 61 | 62 6c 65 2e 0d 01 4a 40 | from ta|ble...J@|
|00000570| 20 20 6c 64 6d 45 51 66 | 64 20 72 31 33 21 2c 7b | ldmEQf|d r13!,{|
|00000580| 72 30 2d 72 31 32 2c 70 | 63 7d 20 20 20 20 3b 20 |r0-r12,p|c} ; |
|00000590| 51 75 69 74 20 69 66 20 | 61 6c 6c 20 70 6f 69 6e |Quit if |all poin|
|000005a0| 74 73 20 61 72 65 20 73 | 65 65 6e 2e 0d 01 54 4a |ts are s|een...TJ|
|000005b0| 3b 20 6a 75 6c 69 61 5f | 69 69 6d 31 20 74 61 6b |; julia_|iim1 tak|
|000005c0| 65 73 20 69 6e 20 61 63 | 63 6f 75 6e 74 20 74 68 |es in ac|count th|
|000005d0| 65 20 66 61 63 74 20 74 | 68 61 74 20 72 36 20 61 |e fact t|hat r6 a|
|000005e0| 6e 64 20 72 37 20 61 6c | 72 65 61 64 79 20 63 6f |nd r7 al|ready co|
|000005f0| 6e 74 61 69 6e 73 0d 01 | 5e 40 3b 20 63 6f 6f 72 |ntains..|^@; coor|
|00000600| 64 69 6e 61 74 65 73 20 | 6f 66 20 61 20 70 6f 69 |dinates |of a poi|
|00000610| 6e 74 20 74 6f 20 70 72 | 6f 63 65 73 73 2c 20 73 |nt to pr|ocess, s|
|00000620| 6f 20 77 65 20 64 6f 6e | 27 20 74 20 6c 6f 61 64 |o we don|' t load|
|00000630| 20 74 68 65 6d 2e 0d 01 | 68 0f 2e 6a 75 6c 69 61 | them...|h..julia|
|00000640| 5f 69 69 6d 31 0d 01 72 | 2f 20 20 73 75 62 20 20 |_iim1..r|/ sub |
|00000650| 20 20 20 72 38 2c 72 36 | 2c 72 32 20 20 20 20 20 | r8,r6|,r2 |
|00000660| 20 20 20 20 20 20 20 3b | 20 72 38 3d 61 3d 78 27 | ;| r8=a=x'|
|00000670| 2d 63 78 2e 0d 01 7c 13 | 20 20 6d 6f 76 53 20 20 |-cx...|.| movS |
|00000680| 20 20 72 36 2c 72 38 0d | 01 86 2e 20 20 72 73 62 | r6,r8.|... rsb|
|00000690| 4d 49 20 20 20 72 36 2c | 72 36 2c 23 30 20 20 20 |MI r6,|r6,#0 |
|000006a0| 20 20 20 20 20 20 20 20 | 20 3b 20 72 36 3d 61 62 | | ; r6=ab|
|000006b0| 73 28 61 29 2e 0d 01 90 | 2f 20 20 73 75 62 53 20 |s(a)....|/ subS |
|000006c0| 20 20 20 72 37 2c 72 37 | 2c 72 33 20 20 20 20 20 | r7,r7|,r3 |
|000006d0| 20 20 20 20 20 20 20 3b | 20 72 37 3d 62 3d 79 27 | ;| r7=b=y'|
|000006e0| 2d 63 79 2e 0d 01 9a 2e | 20 20 72 73 62 4d 49 20 |-cy.....| rsbMI |
|000006f0| 20 20 72 37 2c 72 37 2c | 23 30 20 20 20 20 20 20 | r7,r7,|#0 |
|00000700| 20 20 20 20 20 20 3b 20 | 72 37 3d 61 62 73 28 62 | ; |r7=abs(b|
|00000710| 29 2e 0d 01 a4 42 20 20 | 6d 6f 76 4d 49 20 20 20 |)....B |movMI |
|00000720| 72 31 34 2c 23 31 20 20 | 20 20 20 20 20 20 20 20 |r14,#1 | |
|00000730| 20 20 20 20 3b 20 49 66 | 20 62 20 77 61 73 20 6e | ; If| b was n|
|00000740| 65 67 61 74 69 76 65 2c | 20 74 68 65 6e 20 72 31 |egative,| then r1|
|00000750| 34 3d 31 2e 0d 01 ae 2b | 20 20 6d 75 6c 20 20 20 |4=1....+| mul |
|00000760| 20 20 72 39 2c 72 36 2c | 72 36 20 20 20 20 20 20 | r9,r6,|r6 |
|00000770| 20 20 20 20 20 20 3b 20 | 72 39 3d 61 5e 32 2e 0d | ; |r9=a^2..|
|00000780| 01 b8 2f 20 20 6d 6c 61 | 20 20 20 20 20 72 36 2c |../ mla| r6,|
|00000790| 72 37 2c 72 37 2c 72 39 | 20 20 20 20 20 20 20 20 |r7,r7,r9| |
|000007a0| 20 3b 20 72 36 3d 61 5e | 32 2b 62 5e 32 2e 0d 01 | ; r6=a^|2+b^2...|
|000007b0| c2 34 20 20 a4 73 71 72 | 28 36 2c 39 2c 31 30 29 |.4 .sqr|(6,9,10)|
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000007d0| 20 72 39 3d 73 71 72 74 | 28 61 5e 32 2b 62 5e 32 | r9=sqrt|(a^2+b^2|
|000007e0| 29 2e 0d 01 cc 38 20 20 | 73 75 62 20 20 20 20 20 |)....8 |sub |
|000007f0| 72 36 2c 72 39 2c 72 38 | 20 20 20 20 20 20 20 20 |r6,r9,r8| |
|00000800| 20 20 20 20 3b 20 72 36 | 3d 2d 61 2b 73 71 72 74 | ; r6|=-a+sqrt|
|00000810| 28 61 5e 32 2b 62 5e 32 | 29 2e 0d 01 d6 3c 20 20 |(a^2+b^2|)....< |
|00000820| 6d 6f 76 20 20 20 20 20 | 72 36 2c 72 36 2c 6c 73 |mov |r6,r6,ls|
|00000830| 6c 20 23 31 33 20 20 20 | 20 20 20 20 3b 20 72 36 |l #13 | ; r6|
|00000840| 3d 28 2d 61 2b 73 71 72 | 74 28 61 5e 32 2b 62 5e |=(-a+sqr|t(a^2+b^|
|00000850| 32 29 29 2f 32 2e 0d 01 | e0 43 20 20 a4 73 71 72 |2))/2...|.C .sqr|
|00000860| 28 36 2c 37 2c 31 30 29 | 20 20 20 20 20 20 20 20 |(6,7,10)| |
|00000870| 20 20 20 20 20 20 20 3b | 20 72 37 3d 79 3d 73 71 | ;| r7=y=sq|
|00000880| 72 74 28 28 2d 61 2b 73 | 71 72 74 28 61 5e 32 2b |rt((-a+s|qrt(a^2+|
|00000890| 62 5e 32 29 29 2f 32 29 | 2e 0d 01 ea 37 20 20 61 |b^2))/2)|....7 a|
|000008a0| 64 64 20 20 20 20 20 72 | 39 2c 72 39 2c 72 38 20 |dd r|9,r9,r8 |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 72 39 3d | | ; r9=|
|000008c0| 61 2b 73 71 72 74 28 61 | 5e 32 2b 62 5e 32 29 2e |a+sqrt(a|^2+b^2).|
|000008d0| 0d 01 f4 3b 20 20 6d 6f | 76 20 20 20 20 20 72 39 |...; mo|v r9|
|000008e0| 2c 72 39 2c 6c 73 6c 20 | 23 31 33 20 20 20 20 20 |,r9,lsl |#13 |
|000008f0| 20 20 3b 20 72 39 3d 28 | 61 2b 73 71 72 74 28 61 | ; r9=(|a+sqrt(a|
|00000900| 5e 32 2b 62 5e 32 29 29 | 2f 32 2e 0d 01 fe 42 20 |^2+b^2))|/2....B |
|00000910| 20 a4 73 71 72 28 39 2c | 36 2c 31 30 29 20 20 20 | .sqr(9,|6,10) |
|00000920| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 72 36 | | ; r6|
|00000930| 3d 78 3d 73 71 72 74 28 | 28 61 2b 73 71 72 74 28 |=x=sqrt(|(a+sqrt(|
|00000940| 61 5e 32 2b 62 5e 32 29 | 29 2f 32 29 2e 0d 02 08 |a^2+b^2)|)/2)....|
|00000950| 33 20 20 63 6d 70 20 20 | 20 20 20 72 31 34 2c 23 |3 cmp | r14,#|
|00000960| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |1 | ;|
|00000970| 20 62 20 77 61 73 20 6e | 65 67 61 74 69 76 65 3f | b was n|egative?|
|00000980| 0d 02 12 31 20 20 72 73 | 62 45 51 20 20 20 72 37 |...1 rs|bEQ r7|
|00000990| 2c 72 37 2c 23 30 20 20 | 20 20 20 20 20 20 20 20 |,r7,#0 | |
|000009a0| 20 20 3b 20 72 37 3d 79 | 3d 62 2f 28 32 2a 78 29 | ; r7=y|=b/(2*x)|
|000009b0| 2e 0d 02 1c 4e 3b 20 4e | 6f 77 20 63 68 65 63 6b |....N; N|ow check|
|000009c0| 20 69 66 20 28 78 3b 79 | 29 20 69 73 20 61 6c 72 | if (x;y|) is alr|
|000009d0| 65 61 64 79 20 64 72 61 | 77 6e 20 6f 6e 20 73 63 |eady dra|wn on sc|
|000009e0| 72 65 65 6e 2c 20 61 6e | 64 20 69 66 20 69 74 27 |reen, an|d if it'|
|000009f0| 20 73 20 6e 6f 74 20 74 | 68 65 20 63 61 73 65 0d | s not t|he case.|
|00000a00| 02 26 4e 3b 20 64 72 61 | 77 20 28 78 3b 79 29 20 |.&N; dra|w (x;y) |
|00000a10| 61 6e 64 20 28 2d 78 3b | 2d 79 29 2c 20 70 75 74 |and (-x;|-y), put|
|00000a20| 20 28 78 3b 79 29 20 69 | 6e 20 74 68 65 20 74 61 | (x;y) i|n the ta|
|00000a30| 62 6c 65 20 61 6e 64 20 | 63 6f 6e 74 69 6e 75 65 |ble and |continue|
|00000a40| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 73 0d 02 30 | calcula|tions..0|
|00000a50| 4a 3b 20 77 69 74 68 20 | 28 2d 78 3b 2d 79 29 2e |J; with |(-x;-y).|
|00000a60| 20 49 66 20 28 78 3b 79 | 29 20 69 73 20 61 6c 72 | If (x;y|) is alr|
|00000a70| 65 61 64 79 20 64 72 61 | 77 6e 20 6f 6e 20 73 63 |eady dra|wn on sc|
|00000a80| 72 65 65 6e 2c 20 74 68 | 65 6e 20 64 6f 6e 27 20 |reen, th|en don' |
|00000a90| 74 20 70 72 69 6e 74 0d | 02 3a 4a 3b 20 70 6f 69 |t print.|.:J; poi|
|00000aa0| 6e 74 73 20 61 6e 65 77 | 2c 20 61 6e 64 20 73 74 |nts anew|, and st|
|00000ab0| 6f 70 20 70 72 6f 63 65 | 73 73 69 6e 67 20 74 68 |op proce|ssing th|
|00000ac0| 6f 73 65 20 70 6f 69 6e | 74 73 2c 20 73 6f 20 6a |ose poin|ts, so j|
|00000ad0| 75 6d 70 20 74 6f 20 6a | 75 6c 69 61 5f 69 69 6d |ump to j|ulia_iim|
|00000ae0| 32 0d 02 44 2e 3b 20 69 | 6e 20 6f 72 64 65 72 20 |2..D.; i|n order |
|00000af0| 74 6f 20 6c 6f 61 64 20 | 61 20 6e 65 77 20 70 6f |to load |a new po|
|00000b00| 69 6e 74 20 66 72 6f 6d | 20 74 61 62 6c 65 2e 0d |int from| table..|
|00000b10| 02 4e 4b 3b 20 41 74 20 | 74 68 65 20 73 61 6d 65 |.NK; At |the same|
|00000b20| 20 74 69 6d 65 20 77 65 | 20 63 68 61 6e 67 65 20 | time we| change |
|00000b30| 72 31 34 2c 20 73 6f 20 | 74 68 61 74 20 69 74 20 |r14, so |that it |
|00000b40| 64 6f 65 73 20 6e 6f 20 | 6c 6f 6e 67 65 72 20 63 |does no |longer c|
|00000b50| 6f 6e 74 61 69 6e 20 23 | 31 2e 0d 02 58 35 3b 20 |ontain #|1...X5; |
|00000b60| 28 49 74 20 77 69 6c 6c | 20 63 6f 6e 74 61 69 6e |(It will| contain|
|00000b70| 20 74 68 65 20 61 64 72 | 65 73 73 20 6f 66 20 76 | the adr|ess of v|
|00000b80| 69 64 65 6f 72 61 6d 2b | 6f 66 66 73 65 74 29 0d |ideoram+|offset).|
|00000b90| 02 62 32 20 20 6d 6f 76 | 20 20 20 20 20 72 38 2c |.b2 mov| r8,|
|00000ba0| 72 36 2c 61 73 72 20 23 | 37 20 20 20 20 20 20 20 |r6,asr #|7 |
|00000bb0| 20 3b 20 72 38 3d 69 6e | 74 28 78 2a 31 32 38 29 | ; r8=in|t(x*128)|
|00000bc0| 2e 0d 02 6c 4b 20 20 61 | 64 64 20 20 20 20 20 72 |...lK a|dd r|
|00000bd0| 38 2c 72 31 2c 72 38 2c | 6c 73 6c 20 23 34 20 20 |8,r1,r8,|lsl #4 |
|00000be0| 20 20 20 3b 20 72 38 20 | 70 6f 69 6e 74 73 20 6f | ; r8 |points o|
|00000bf0| 6e 20 78 20 69 6e 20 74 | 68 65 20 63 6f 6e 76 65 |n x in t|he conve|
|00000c00| 72 73 69 6f 6e 20 74 61 | 62 6c 65 2e 0d 02 76 4a |rsion ta|ble...vJ|
|00000c10| 20 20 6c 64 6d 69 61 20 | 20 20 72 38 2c 7b 72 38 | ldmia | r8,{r8|
|00000c20| 2d 72 31 31 7d 20 20 20 | 20 20 20 20 20 20 3b 20 |-r11} | ; |
|00000c30| 4f 66 66 73 65 74 73 20 | 26 20 70 61 74 74 65 72 |Offsets |& patter|
|00000c40| 6e 73 20 6f 66 20 28 78 | 3b 79 29 20 26 20 28 2d |ns of (x|;y) & (-|
|00000c50| 78 3b 2d 79 29 2e 0d 02 | 80 32 20 20 6d 6f 76 20 |x;-y)...|.2 mov |
|00000c60| 20 20 20 20 72 31 32 2c | 72 37 2c 61 73 72 20 23 | r12,|r7,asr #|
|00000c70| 38 20 20 20 20 20 20 20 | 3b 20 72 31 32 3d 69 6e |8 |; r12=in|
|00000c80| 74 28 79 2a 36 34 29 2e | 0d 02 8a 33 20 20 61 64 |t(y*64).|...3 ad|
|00000c90| 64 20 20 20 20 20 72 31 | 32 2c 72 31 32 2c 72 31 |d r1|2,r12,r1|
|00000ca0| 32 2c 6c 73 6c 20 23 32 | 20 20 3b 20 72 31 32 3d |2,lsl #2| ; r12=|
|00000cb0| 35 2a 69 6e 74 28 79 2a | 36 34 29 0d 02 94 42 20 |5*int(y*|64)...B |
|00000cc0| 20 61 64 64 20 20 20 20 | 20 72 31 34 2c 72 38 2c | add | r14,r8,|
|00000cd0| 72 31 32 2c 6c 73 6c 20 | 23 34 20 20 20 3b 20 72 |r12,lsl |#4 ; r|
|00000ce0| 31 34 3d 6f 66 66 73 65 | 74 20 69 6e 20 73 63 72 |14=offse|t in scr|
|00000cf0| 65 65 6e 20 6f 66 20 28 | 78 3b 79 29 2e 0d 02 9e |een of (|x;y)....|
|00000d00| 4a 20 20 6c 64 72 20 20 | 20 20 20 72 38 2c 5b 72 |J ldr | r8,[r|
|00000d10| 31 34 2c 72 30 5d 21 20 | 20 20 20 20 20 20 20 3b |14,r0]! | ;|
|00000d20| 20 72 38 3d 6c 6f 6e 67 | 20 63 6f 6e 74 61 69 6e | r8=long| contain|
|00000d30| 69 6e 67 20 70 69 78 65 | 6c 20 26 20 63 68 61 6e |ing pixe|l & chan|
|00000d40| 67 65 20 72 31 34 2e 0d | 02 a8 3b 20 20 74 73 74 |ge r14..|..; tst|
|00000d50| 20 20 20 20 20 72 38 2c | 72 39 20 20 20 20 20 20 | r8,|r9 |
|00000d60| 20 20 20 20 20 20 20 20 | 20 3b 20 49 73 20 28 78 | | ; Is (x|
|00000d70| 3b 79 29 20 61 6c 72 65 | 61 64 79 20 64 72 61 77 |;y) alre|ady draw|
|00000d80| 6e 3f 0d 02 b2 48 20 20 | 62 4e 45 20 20 20 20 20 |n?...H |bNE |
|00000d90| 6a 75 6c 69 61 5f 69 69 | 6d 32 20 20 20 20 20 20 |julia_ii|m2 |
|00000da0| 20 20 20 20 3b 20 54 68 | 65 6e 20 73 74 6f 70 20 | ; Th|en stop |
|00000db0| 70 72 6f 63 65 73 73 69 | 6e 67 20 74 68 6f 73 65 |processi|ng those|
|00000dc0| 20 70 6f 69 6e 74 73 2e | 2e 2e 0d 02 bc 3d 20 20 | points.|.....= |
|00000dd0| 6f 72 72 20 20 20 20 20 | 72 38 2c 72 38 2c 72 39 |orr |r8,r8,r9|
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 45 6c | | ; El|
|00000df0| 73 65 20 64 72 61 77 20 | 74 68 65 20 74 77 6f 20 |se draw |the two |
|00000e00| 70 6f 69 6e 74 73 2e 0d | 02 c6 3f 20 20 63 6d 70 |points..|..? cmp|
|00000e10| 20 20 20 20 20 72 35 2c | 23 73 20 20 20 20 20 20 | r5,|#s |
|00000e20| 20 20 20 20 20 20 20 20 | 20 3b 20 44 6f 6e 27 20 | | ; Don' |
|00000e30| 74 20 64 72 61 77 20 69 | 66 20 69 74 65 72 61 74 |t draw i|f iterat|
|00000e40| 69 6f 6e 3c 73 2e 0d 02 | d0 16 20 20 73 74 72 47 |ion<s...|.. strG|
|00000e50| 45 20 20 20 72 38 2c 5b | 72 31 34 5d 0d 02 da 3a |E r8,[|r14]...:|
|00000e60| 20 20 73 75 62 20 20 20 | 20 20 72 31 34 2c 72 31 | sub | r14,r1|
|00000e70| 30 2c 72 31 32 2c 6c 73 | 6c 20 23 34 20 20 3b 20 |0,r12,ls|l #4 ; |
|00000e80| 72 31 34 3d 6f 66 66 73 | 65 74 20 6f 66 20 28 2d |r14=offs|et of (-|
|00000e90| 78 3b 2d 79 29 2e 0d 02 | e4 4a 20 20 6c 64 72 20 |x;-y)...|.J ldr |
|00000ea0| 20 20 20 20 72 38 2c 5b | 72 31 34 2c 72 30 5d 21 | r8,[|r14,r0]!|
|00000eb0| 20 20 20 20 20 20 20 20 | 3b 20 72 38 3d 6c 6f 6e | |; r8=lon|
|00000ec0| 67 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 70 69 78 |g contai|ning pix|
|00000ed0| 65 6c 20 26 20 63 68 61 | 6e 67 65 20 72 31 34 2e |el & cha|nge r14.|
|00000ee0| 0d 02 ee 17 20 20 6f 72 | 72 20 20 20 20 20 72 38 |.... or|r r8|
|00000ef0| 2c 72 38 2c 72 31 31 0d | 02 f8 16 20 20 73 74 72 |,r8,r11.|... str|
|00000f00| 47 45 20 20 20 72 38 2c | 5b 72 31 34 5d 0d 03 02 |GE r8,|[r14]...|
|00000f10| 3b 20 20 73 74 6d 69 61 | 20 20 20 72 34 21 2c 7b |; stmia| r4!,{|
|00000f20| 72 36 2d 72 37 7d 20 20 | 20 20 20 20 20 20 20 3b |r6-r7} | ;|
|00000f30| 20 50 75 74 20 28 78 3b | 79 29 20 69 6e 20 74 68 | Put (x;|y) in th|
|00000f40| 65 20 74 61 62 6c 65 2e | 0d 03 0c 32 20 20 61 64 |e table.|...2 ad|
|00000f50| 64 20 20 20 20 20 72 35 | 2c 72 35 2c 23 31 20 20 |d r5|,r5,#1 |
|00000f60| 20 20 20 20 20 20 20 20 | 20 20 3b 20 57 65 6c 6c | | ; Well|
|00000f70| 2c 20 74 65 6c 6c 20 69 | 74 2e 0d 03 16 3e 20 20 |, tell i|t....> |
|00000f80| 62 20 20 20 20 20 20 20 | 6a 75 6c 69 61 5f 69 69 |b |julia_ii|
|00000f90| 6d 31 20 20 20 20 20 20 | 20 20 20 20 3b 20 43 6f |m1 | ; Co|
|00000fa0| 6e 74 69 6e 75 65 20 63 | 61 6c 63 73 20 77 69 74 |ntinue c|alcs wit|
|00000fb0| 68 20 28 78 3b 79 29 2e | 0d 03 20 05 5d 0d 03 2a |h (x;y).|.. .]..*|
|00000fc0| 06 ed 6f 0d 03 34 44 f4 | 3d 3d 3d 3d 20 42 41 53 |..o..4D.|==== BAS|
|00000fd0| 49 43 20 43 4f 44 45 20 | 3d 3d 3d 3d 3d 3d 3d 3d |IC CODE |========|
|00000fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001000| 3d 3d 3d 3d 3d 3d 3d 0d | 03 3e 17 eb 30 3a 87 3a |=======.|.>..0:.:|
|00001010| c8 91 20 36 34 31 2c 35 | 31 33 3a c8 97 ee 0d 03 |.. 641,5|13:.....|
|00001020| 48 32 de 76 20 38 3a 21 | 76 3d 31 34 38 3a 76 21 |H2.v 8:!|v=148:v!|
|00001030| 34 3d 2d 31 3a c8 99 22 | 4f 53 5f 52 65 61 64 56 |4=-1:.."|OS_ReadV|
|00001040| 64 75 56 61 72 69 61 62 | 6c 65 73 22 2c 76 2c 76 |duVariab|les",v,v|
|00001050| 0d 03 52 34 76 3d 21 76 | 2b 38 30 2a 31 32 38 2b |..R4v=!v|+80*128+|
|00001060| 34 30 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 76 |40 | :. v|
|00001070| 3d 6d 69 64 64 6c 65 20 | 6f 66 20 76 69 64 65 6f |=middle |of video|
|00001080| 72 61 6d 2e 0d 03 53 39 | de 45 25 20 31 30 32 34 |ram...S9|.E% 1024|
|00001090| 2a 32 2a 34 20 20 20 20 | 20 20 20 20 20 20 3a f4 |*2*4 | :.|
|000010a0| 20 42 75 66 66 65 72 20 | 66 6f 72 20 27 77 61 69 | Buffer |for 'wai|
|000010b0| 74 69 6e 67 27 20 70 6f | 69 6e 74 73 2e 0d 03 54 |ting' po|ints...T|
|000010c0| 32 62 3d 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |2b=1 | |
|000010d0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 53 63 72 65 | | :. Scre|
|000010e0| 65 6e 20 62 61 6e 6b 20 | 6e 75 6d 62 65 72 2e 0d |en bank |number..|
|000010f0| 03 5c 04 0d 03 66 20 f4 | 20 43 72 65 61 74 65 20 |.\...f .| Create |
|00001100| 78 20 63 6f 6e 76 65 72 | 73 69 6f 6e 20 74 61 62 |x conver|sion tab|
|00001110| 6c 65 2e 0d 03 70 11 de | 42 25 20 32 31 2a 33 32 |le...p..|B% 21*32|
|00001120| 2a 34 2a 34 0d 03 7a 08 | 61 3d 42 25 0d 03 84 0f |*4*4..z.|a=B%....|
|00001130| e3 69 3d 2d 34 30 b8 34 | 30 88 34 0d 03 8e 2d 20 |.i=-40.4|0.4...- |
|00001140| 20 61 21 30 3d 69 20 3a | 20 61 21 34 3d 31 20 3a | a!0=i :| a!4=1 :|
|00001150| 20 61 21 38 3d 2d 69 20 | 3a 20 61 21 31 32 3d 31 | a!8=-i |: a!12=1|
|00001160| 20 3a 20 61 2b 3d 31 36 | 0d 03 98 0d 20 20 e3 6a | : a+=16|.... .j|
|00001170| 3d 31 b8 33 31 0d 03 a2 | 3c 20 20 20 20 61 21 30 |=1.31...|< a!0|
|00001180| 3d 69 20 3a 20 61 21 34 | 3d 31 3c 3c 6a 20 3a 20 |=i : a!4|=1<<j : |
|00001190| 61 21 38 3d 2d 69 2d 34 | 20 3a 20 61 21 31 32 3d |a!8=-i-4| : a!12=|
|000011a0| 31 3c 3c 28 33 32 2d 6a | 29 20 3a 20 61 2b 3d 31 |1<<(32-j|) : a+=1|
|000011b0| 36 0d 03 ac 06 ed 2c 0d | 03 b6 3d 42 25 2b 3d 31 |6.....,.|..=B%+=1|
|000011c0| 30 2a 33 32 2a 34 2a 34 | 20 20 20 20 20 20 20 20 |0*32*4*4| |
|000011d0| 20 20 20 3a f4 20 42 25 | 3d 6d 69 64 64 6c 65 20 | :. B%|=middle |
|000011e0| 6f 66 20 63 6f 6e 76 65 | 72 73 69 6f 6e 20 74 61 |of conve|rsion ta|
|000011f0| 62 6c 65 2e 0d 03 de 04 | 0d 03 e8 05 f5 0d 03 f2 |ble.....|........|
|00001200| 2e 20 20 c8 96 3a c8 99 | 22 4f 53 5f 42 79 74 65 |. ..:..|"OS_Byte|
|00001210| 22 2c 26 37 31 2c 62 3a | c8 99 22 4f 53 5f 42 79 |",&71,b:|.."OS_By|
|00001220| 74 65 22 2c 26 37 30 2c | 33 2d 62 0d 03 fc 0f 20 |te",&70,|3-b.... |
|00001230| 20 db 3a c8 97 78 2c 79 | 2c 7a 0d 04 06 2d 20 20 | .:..x,y|,z...- |
|00001240| f1 8a 33 33 2c 30 29 3b | 22 2d 20 4a 75 6c 69 61 |..33,0);|"- Julia|
|00001250| 20 69 69 6d 20 2d 22 3a | f1 8a 37 34 2c 30 29 3b | iim -":|..74,0);|
|00001260| 22 42 61 61 68 2e 22 0d | 04 10 2d 20 20 62 3d 33 |"Baah.".|..- b=3|
|00001270| 2d 62 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-b | |
|00001280| 20 20 20 3a f4 20 62 61 | 6e 6b 20 73 77 61 70 70 | :. ba|nk swapp|
|00001290| 69 6e 67 2e 0d 04 1a 36 | 20 20 41 25 3d 76 2b 28 |ing....6| A%=v+(|
|000012a0| 28 62 2d 31 29 2a 38 30 | 3c 3c 38 29 20 20 20 20 |(b-1)*80|<<8) |
|000012b0| 3a f4 20 41 25 20 70 6f | 69 6e 74 20 6f 6e 20 77 |:. A% po|int on w|
|000012c0| 6f 72 6b 73 63 72 65 65 | 6e 2e 0d 04 24 0d 20 20 |orkscree|n...$. |
|000012d0| 43 25 3d 78 3c 3c 35 0d | 04 2e 0d 20 20 44 25 3d |C%=x<<5.|... D%=|
|000012e0| 79 3c 3c 35 0d 04 38 11 | 20 20 d6 6a 75 6c 69 61 |y<<5..8.| .julia|
|000012f0| 5f 69 69 6d 30 0d 04 42 | 09 fd 7a 3c 3e 30 0d 04 |_iim0..B|..z<>0..|
|00001300| 4c 05 e0 0d 04 56 04 0d | 04 60 45 f4 3d 3d 3d 3d |L....V..|.`E.====|
|00001310| 20 4d 41 43 52 4f 53 20 | 3d 3d 3d 3d 3d 3d 3d 3d | MACROS |========|
|00001320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 04 6a 27 |========|====..j'|
|00001350| f4 20 54 68 69 73 20 6d | 61 63 72 6f 20 70 75 74 |. This m|acro put|
|00001360| 73 20 73 71 72 74 28 6d | 30 29 20 69 6e 74 6f 20 |s sqrt(m|0) into |
|00001370| 6d 31 2e 0d 04 74 13 dd | a4 73 71 72 28 6d 30 2c |m1...t..|.sqr(m0,|
|00001380| 6d 31 2c 6d 32 29 0d 04 | 7e 0a 5b 6f 70 74 20 6f |m1,m2)..|~.[opt o|
|00001390| 0d 04 88 47 20 20 6d 6f | 76 20 20 20 20 20 20 20 |...G mo|v |
|000013a0| 6d 31 2c 23 30 20 20 20 | 20 20 20 20 20 20 20 20 |m1,#0 | |
|000013b0| 20 20 20 20 20 20 20 20 | 3b 20 54 68 69 73 20 69 | |; This i|
|000013c0| 73 20 72 69 70 70 65 64 | 20 66 72 6f 6d 20 4a 61 |s ripped| from Ja|
|000013d0| 6e 2f 42 41 53 53 2e 0d | 04 92 2c 20 20 6d 6f 76 |n/BASS..|.., mov|
|000013e0| 20 20 20 20 20 20 20 6d | 32 2c 23 31 3c 3c 33 30 | m|2,#1<<30|
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00001400| 20 20 7c 0d 04 9c 2c 20 | 20 63 6d 70 20 20 20 20 | |..., | cmp |
|00001410| 20 20 20 6d 30 2c 6d 32 | 20 20 20 20 20 20 20 20 | m0,m2| |
|00001420| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 7c 0d | | ; |.|
|00001430| 04 a6 2c 20 20 73 75 62 | 48 53 20 20 20 20 20 6d |.., sub|HS m|
|00001440| 30 2c 6d 30 2c 6d 32 20 | 20 20 20 20 20 20 20 20 |0,m0,m2 | |
|00001450| 20 20 20 20 20 20 20 3b | 20 20 7c 0d 04 b0 2c 20 | ;| |..., |
|00001460| 20 61 64 63 20 20 20 20 | 20 20 20 6d 31 2c 6d 31 | adc | m1,m1|
|00001470| 2c 6d 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,m1 | |
|00001480| 20 20 20 3b 20 20 7c 0d | 04 ba 05 5d 0d 04 c4 0d | ; |.|...]....|
|00001490| e3 6e 3d 32 b8 33 30 88 | 32 0d 04 ce 0a 5b 6f 70 |.n=2.30.|2....[op|
|000014a0| 74 20 6f 0d 04 d8 2c 20 | 20 61 64 64 20 20 20 20 |t o..., | add |
|000014b0| 20 20 20 6d 32 2c 6d 31 | 2c 23 31 3c 3c 33 30 20 | m2,m1|,#1<<30 |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 7c 0d | | ; |.|
|000014d0| 04 e2 2c 20 20 63 6d 70 | 20 20 20 20 20 20 20 6d |.., cmp| m|
|000014e0| 30 2c 6d 32 2c 72 6f 72 | 20 23 6e 20 20 20 20 20 |0,m2,ror| #n |
|000014f0| 20 20 20 20 20 20 20 3b | 20 20 7c 0d 04 ec 2c 20 | ;| |..., |
|00001500| 20 73 75 62 48 53 20 20 | 20 20 20 6d 30 2c 6d 30 | subHS | m0,m0|
|00001510| 2c 6d 32 2c 72 6f 72 20 | 23 6e 20 20 20 20 20 20 |,m2,ror |#n |
|00001520| 20 20 20 3b 20 20 7c 0d | 04 f6 3d 20 20 61 64 63 | ; |.|..= adc|
|00001530| 20 20 20 20 20 20 20 6d | 31 2c 6d 31 2c 6d 31 20 | m|1,m1,m1 |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00001550| 20 45 6e 64 20 6f 66 20 | 72 69 70 70 65 64 20 63 | End of |ripped c|
|00001560| 6f 64 65 2e 0d 05 00 05 | 5d 0d 05 0a 06 ed 6e 0d |ode.....|].....n.|
|00001570| 05 14 0a 5b 6f 70 74 20 | 6f 0d 05 1e 39 20 20 63 |...[opt |o...9 c|
|00001580| 6d 70 20 20 20 20 20 20 | 20 6d 30 2c 6d 31 20 20 |mp | m0,m1 |
|00001590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000015a0| 20 3b 20 46 6c 61 67 73 | 3d 76 61 6c 2d 72 6f 6f | ; Flags|=val-roo|
|000015b0| 74 2e 0d 05 28 43 20 20 | 61 64 64 50 4c 20 20 20 |t...(C |addPL |
|000015c0| 20 20 6d 31 2c 6d 31 2c | 23 31 20 20 20 20 20 20 | m1,m1,|#1 |
|000015d0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 52 6f 75 6e | | ; Roun|
|000015e0| 64 20 74 6f 20 6e 65 61 | 72 65 73 74 20 69 6e 74 |d to nea|rest int|
|000015f0| 65 67 65 72 2e 0d 05 32 | 05 5d 0d 05 3c 07 3d 22 |eger...2|.]..<.="|
|00001600| 22 0d ff | |".. | |
+--------+-------------------------+-------------------------+--------+--------+