/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / afg_1 / minimandel

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | b4 00 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 31 4c 69 6e 65 4d 61 | 6e 4d 31 00 89 01 00 00 |.1LineMa|nM1.....|
|00000070| 42 fb ff ff 15 1e 01 55 | 03 00 65 c5 89 01 00 00 |B......U|..e.....|
|00000080| 24 00 00 00 82 31 4c 69 | 6e 65 4d 61 6e 4d 32 00 |$....1Li|neManM2.|
|00000090| 8d 01 00 00 42 fb ff ff | 41 8b 01 55 03 00 d8 ba |....B...|A..U....|
|000000a0| 8d 01 00 00 d1 01 00 00 | 82 4d 61 6e 46 73 74 46 |........|.ManFstF|
|000000b0| 69 6c 6c 00 16 07 00 00 | 43 fb ff ff 0d 50 7a 66 |ill.....|C....Pzf|
|000000c0| 03 00 df ad 16 07 00 00 | 82 03 00 00 82 53 68 61 |........|.....Sha|
|000000d0| 67 4d 61 6e 64 65 6c 00 | 7f 0d 00 00 43 fb ff ff |gMandel.|....C...|
|000000e0| f2 01 7a 66 03 00 db 69 | 7f 0d 00 00 bc 0a 00 00 |..zf...i|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 31 4c 69 |....File|Data.1Li|
|00000360| 6e 65 4d 61 6e 4d 31 00 | 89 01 00 00 42 fb ff ff |neManM1.|....B...|
|00000370| 15 1e 01 55 03 00 65 c5 | 0d 00 01 11 f4 20 3e 31 |...U..e.|..... >1|
|00000380| 4c 69 6e 65 4d 61 6e 4d | 31 0d 00 02 2f f4 20 4d |LineManM|1.../. M|
|00000390| 4f 44 45 31 20 4d 61 6e | 64 65 6c 62 72 6f 74 20 |ODE1 Man|delbrot |
|000003a0| 53 65 74 20 69 6e 20 6f | 6e 65 20 6c 69 6e 65 20 |Set in o|ne line |
|000003b0| 6f 66 20 42 41 53 49 43 | 0d 00 03 58 f4 20 49 66 |of BASIC|...X. If|
|000003c0| 20 79 6f 75 20 74 79 70 | 65 20 69 6e 20 74 68 65 | you typ|e in the|
|000003d0| 20 6c 69 6e 65 20 79 6f | 75 20 77 69 6c 6c 20 68 | line yo|u will h|
|000003e0| 61 76 65 20 74 6f 20 75 | 73 65 20 74 68 65 20 61 |ave to u|se the a|
|000003f0| 62 62 72 65 76 69 61 74 | 69 6f 6e 73 20 66 6f 72 |bbreviat|ions for|
|00000400| 20 42 41 53 49 43 20 6b | 65 79 77 6f 72 64 73 2e | BASIC k|eywords.|
|00000410| 0d 00 04 1e f4 20 4a 6f | 68 6e 20 47 72 65 65 6e |..... Jo|hn Green|
|00000420| 69 6e 67 2c 20 45 64 69 | 6e 62 75 72 67 68 0d 00 |ing, Edi|nburgh..|
|00000430| 05 d1 eb 31 3a ef 32 39 | 2c 38 30 30 3b 35 31 32 |...1:.29|,800;512|
|00000440| 3b 3a e3 78 3d 2d 32 b8 | 2e 35 36 88 2e 30 31 3a |;:.x=-2.|.56..01:|
|00000450| e3 79 3d 31 2e 32 38 b8 | 30 88 2d 2e 30 31 3a 72 |.y=1.28.|0.-.01:r|
|00000460| 3d 30 3a 69 3d 30 3a 43 | 3d 30 3a f5 3a 61 3d 72 |=0:i=0:C|=0:.:a=r|
|00000470| 2a 72 3a 62 3d 69 2a 69 | 3a 6e 3d 61 2d 62 2b 78 |*r:b=i*i|:n=a-b+x|
|00000480| 3a 6d 3d 32 2a 72 2a 69 | 2b 79 3a 43 3d 43 2b 31 |:m=2*r*i|+y:C=C+1|
|00000490| 3a 73 3d 61 2b 62 3a 72 | 3d 6e 3a 69 3d 6d 3a fd |:s=a+b:r|=n:i=m:.|
|000004a0| 73 3e 34 84 43 3e 39 39 | 3a e6 30 2c 31 2d 28 43 |s>4.C>99|:.0,1-(C|
|000004b0| 3e 39 39 29 2d 28 43 3e | 32 35 29 2d 28 43 3e 31 |>99)-(C>|25)-(C>1|
|000004c0| 32 29 2d 28 43 3e 38 29 | 2d 28 43 3e 35 29 2d 28 |2)-(C>8)|-(C>5)-(|
|000004d0| 43 3e 33 29 2d 28 43 3e | 32 29 3a 58 3d 34 30 30 |C>3)-(C>|2):X=400|
|000004e0| 2a 78 3a 59 3d 34 30 30 | 2a 79 3a f0 36 39 2c 58 |*x:Y=400|*y:.69,X|
|000004f0| 2c 59 3a f0 36 39 2c 58 | 2c 2d 59 3a ed 3a ed 0d |,Y:.69,X|,-Y:.:..|
|00000500| ff 46 69 6c 65 44 61 74 | 61 82 31 4c 69 6e 65 4d |.FileDat|a.1LineM|
|00000510| 61 6e 4d 32 00 8d 01 00 | 00 42 fb ff ff 41 8b 01 |anM2....|.B...A..|
|00000520| 55 03 00 d8 ba 0d 00 01 | 11 f4 20 3e 31 4c 69 6e |U.......|.. >1Lin|
|00000530| 65 4d 61 6e 4d 32 0d 00 | 02 2f f4 20 4d 4f 44 45 |eManM2..|./. MODE|
|00000540| 32 20 4d 61 6e 64 65 6c | 62 72 6f 74 20 53 65 74 |2 Mandel|brot Set|
|00000550| 20 69 6e 20 6f 6e 65 20 | 6c 69 6e 65 20 6f 66 20 | in one |line of |
|00000560| 42 41 53 49 43 0d 00 03 | 58 f4 20 49 66 20 79 6f |BASIC...|X. If yo|
|00000570| 75 20 74 79 70 65 20 69 | 6e 20 74 68 65 20 6c 69 |u type i|n the li|
|00000580| 6e 65 20 79 6f 75 20 77 | 69 6c 6c 20 68 61 76 65 |ne you w|ill have|
|00000590| 20 74 6f 20 75 73 65 20 | 74 68 65 20 61 62 62 72 | to use |the abbr|
|000005a0| 65 76 69 61 74 69 6f 6e | 73 20 66 6f 72 20 42 41 |eviation|s for BA|
|000005b0| 53 49 43 20 6b 65 79 77 | 6f 72 64 73 2e 0d 00 04 |SIC keyw|ords....|
|000005c0| 1e f4 20 4a 6f 68 6e 20 | 47 72 65 65 6e 69 6e 67 |.. John |Greening|
|000005d0| 2c 20 45 64 69 6e 62 75 | 72 67 68 0d 00 05 d5 eb |, Edinbu|rgh.....|
|000005e0| 32 3a ef 32 39 2c 38 30 | 30 3b 35 31 32 3b 3a e3 |2:.29,80|0;512;:.|
|000005f0| 78 3d 2d 32 b8 2e 35 88 | 2e 30 32 3a e3 79 3d 31 |x=-2..5.|.02:.y=1|
|00000600| 2e 33 b8 30 88 2d 2e 30 | 32 3a 72 3d 30 3a 69 3d |.3.0.-.0|2:r=0:i=|
|00000610| 30 3a 43 3d 30 3a f5 3a | 61 3d 72 2a 72 3a 62 3d |0:C=0:.:|a=r*r:b=|
|00000620| 69 2a 69 3a 6e 3d 61 2d | 62 2b 78 3a 6d 3d 32 2a |i*i:n=a-|b+x:m=2*|
|00000630| 72 2a 69 2b 79 3a 43 3d | 43 2b 31 3a 73 3d 61 2b |r*i+y:C=|C+1:s=a+|
|00000640| 62 3a 72 3d 6e 3a 69 3d | 6d 3a fd 73 3e 34 84 43 |b:r=n:i=|m:.s>4.C|
|00000650| 3e 39 39 3a e6 30 2c 36 | 2b 28 43 3e 39 39 29 2b |>99:.0,6|+(C>99)+|
|00000660| 28 43 3e 32 35 29 2b 28 | 43 3e 31 32 29 2b 28 43 |(C>25)+(|C>12)+(C|
|00000670| 3e 38 29 2b 28 43 3e 35 | 29 2b 28 43 3e 33 29 3a |>8)+(C>5|)+(C>3):|
|00000680| 58 3d 34 30 30 2a 78 3a | 59 3d 34 30 30 2a 79 3a |X=400*x:|Y=400*y:|
|00000690| e3 5a 3d 59 2d 34 b8 59 | 20 88 34 3a f0 36 39 2c |.Z=Y-4.Y| .4:.69,|
|000006a0| 58 2c 5a 3a f0 36 39 2c | 58 2c 2d 5a 3a ed 2c 2c |X,Z:.69,|X,-Z:.,,|
|000006b0| 0d ff 46 69 6c 65 44 61 | 74 61 82 4d 61 6e 46 73 |..FileDa|ta.ManFs|
|000006c0| 74 46 69 6c 6c 00 16 07 | 00 00 43 fb ff ff 0d 50 |tFill...|..C....P|
|000006d0| 7a 66 03 00 df ad 0d 00 | 0a 11 f4 20 3e 4d 61 6e |zf......|... >Man|
|000006e0| 46 73 74 46 69 6c 6c 0d | 00 14 52 f4 20 50 6c 6f |FstFill.|..R. Plo|
|000006f0| 74 73 20 74 68 65 20 4d | 61 6e 64 65 6c 62 72 6f |ts the M|andelbro|
|00000700| 74 20 53 65 74 20 62 79 | 20 72 75 6e 6e 69 6e 67 |t Set by| running|
|00000710| 20 72 6f 75 6e 64 20 63 | 6f 6e 74 6f 75 72 73 20 | round c|ontours |
|00000720| 61 6e 64 20 66 6c 6f 6f | 64 69 6e 67 20 74 68 65 |and floo|ding the|
|00000730| 20 69 6e 74 65 72 69 6f | 72 0d 00 1e 1a f4 20 20 | interio|r.....  |
|00000740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000750| 2a 2a 2a 0d 00 28 1a f4 | 20 20 2a 20 20 4a 6f 68 |***..(..|  *  Joh|
|00000760| 6e 20 47 72 65 65 6e 69 | 6e 67 20 20 2a 0d 00 32 |n Greeni|ng  *..2|
|00000770| 1a f4 20 20 2a 20 20 20 | 20 45 64 69 6e 62 75 72 |..  *   | Edinbur|
|00000780| 67 68 20 20 20 20 2a 0d | 00 3c 1a f4 20 20 2a 2a |gh    *.|.<..  **|
|00000790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007a0| 2a 0d 00 46 06 eb 39 0d | 00 50 0e c8 91 20 38 30 |*..F..9.|.P... 80|
|000007b0| 30 2c 35 31 32 0d 00 5a | 11 78 3d 2e 31 32 35 3a |0,512..Z|.x=.125:|
|000007c0| 79 3d 31 2e 32 38 0d 00 | 64 17 44 25 3d 78 2a 32 |y=1.28..|d.D%=x*2|
|000007d0| 5e 32 34 3a 45 25 3d 79 | 2a 32 5e 32 34 0d 00 6e |^24:E%=y|*2^24..n|
|000007e0| 0f 48 25 3d 2e 30 31 2a | 32 5e 32 34 0d 00 78 0b |.H%=.01*|2^24..x.|
|000007f0| 53 25 3d 32 5e 32 36 0d | 00 82 0a e6 30 2c 31 32 |S%=2^26.|....0,12|
|00000800| 39 0d 00 8c 05 da 0d 00 | 96 0f e3 20 4e 25 3d 31 |9.......|... N%=1|
|00000810| 20 b8 20 31 33 0d 00 a0 | 0b f3 20 43 6d 61 78 25 | . 13...|.. Cmax%|
|00000820| 0d 00 aa 20 e7 20 4e 25 | 3d 31 33 20 e6 30 2c 30 |... . N%|=13 .0,0|
|00000830| 20 8b 20 e6 30 2c 28 4e | 25 20 83 20 37 29 2b 31 | . .0,(N|% . 7)+1|
|00000840| 0d 00 b4 0d f2 61 73 73 | 65 6d 62 6c 65 0d 00 be |.....ass|emble...|
|00000850| 0b d6 20 63 6f 64 65 25 | 0d 00 c8 0a c8 90 20 30 |.. code%|...... 0|
|00000860| 2c 30 0d 00 d2 14 e6 20 | 31 32 38 2b 28 4e 25 20 |,0..... |128+(N% |
|00000870| 83 20 37 29 2b 31 0d 00 | dc 05 ed 0d 00 e6 05 e0 |. 7)+1..|........|
|00000880| 0d 00 f0 27 dc 20 34 2c | 35 2c 36 2c 37 2c 38 2c |...'. 4,|5,6,7,8,|
|00000890| 39 2c 31 30 2c 31 31 2c | 31 32 2c 31 36 2c 33 32 |9,10,11,|12,16,32|
|000008a0| 2c 36 34 2c 31 32 38 0d | 00 fa 05 3a 0d 01 04 0e |,64,128.|...:....|
|000008b0| dd f2 61 73 73 65 6d 62 | 6c 65 0d 01 0e 10 de 20 |..assemb|le..... |
|000008c0| 63 6f 64 65 25 20 33 30 | 30 30 0d 01 18 15 e3 20 |code% 30|00..... |
|000008d0| 70 61 73 73 25 3d 30 20 | b8 20 32 20 88 20 32 0d |pass%=0 |. 2 . 2.|
|000008e0| 01 22 0c 50 25 3d 63 6f | 64 65 25 0d 01 2c 0e 5b |.".P%=co|de%..,.[|
|000008f0| 4f 50 54 20 70 61 73 73 | 25 0d 01 36 14 53 54 4d |OPT pass|%..6.STM|
|00000900| 46 44 20 52 31 33 21 2c | 7b 52 31 34 7d 0d 01 40 |FD R13!,|{R14}..@|
|00000910| 0c 2e 72 65 70 65 61 74 | 31 0d 01 4a 10 53 55 42 |..repeat|1..J.SUB|
|00000920| 20 52 34 2c 52 34 2c 52 | 37 0d 01 54 0e 42 4c 20 | R4,R4,R|7..T.BL |
|00000930| 69 74 65 72 61 74 65 0d | 01 5e 11 43 4d 50 20 52 |iterate.|.^.CMP R|
|00000940| 39 2c 23 43 6d 61 78 25 | 0d 01 68 0f 42 4e 45 20 |9,#Cmax%|..h.BNE |
|00000950| 72 65 70 65 61 74 31 0d | 01 72 0d 4d 4f 56 20 52 |repeat1.|.r.MOV R|
|00000960| 35 2c 23 32 0d 01 7c 0b | 42 4c 20 70 6c 6f 74 0d |5,#2..|.|BL plot.|
|00000970| 01 86 10 4d 56 4e 20 52 | 36 2c 23 32 30 34 38 0d |...MVN R|6,#2048.|
|00000980| 01 90 0c 2e 72 65 70 65 | 61 74 32 0d 01 9a 10 41 |....repe|at2....A|
|00000990| 44 44 20 52 36 2c 52 36 | 2c 23 31 0d 01 a4 0d 43 |DD R6,R6|,#1....C|
|000009a0| 4d 50 20 52 35 2c 23 31 | 0d 01 ae 12 53 55 42 45 |MP R5,#1|....SUBE|
|000009b0| 51 20 52 34 2c 52 34 2c | 52 37 0d 01 b8 0d 43 4d |Q R4,R4,|R7....CM|
|000009c0| 50 20 52 35 2c 23 32 0d | 01 c2 12 41 44 44 45 51 |P R5,#2.|...ADDEQ|
|000009d0| 20 52 33 2c 52 33 2c 52 | 37 0d 01 cc 0d 43 4d 50 | R3,R3,R|7....CMP|
|000009e0| 20 52 35 2c 23 33 0d 01 | d6 12 41 44 44 45 51 20 | R5,#3..|..ADDEQ |
|000009f0| 52 34 2c 52 34 2c 52 37 | 0d 01 e0 0d 43 4d 50 20 |R4,R4,R7|....CMP |
|00000a00| 52 35 2c 23 34 0d 01 ea | 12 53 55 42 45 51 20 52 |R5,#4...|.SUBEQ R|
|00000a10| 33 2c 52 33 2c 52 37 0d | 01 f4 0e 42 4c 20 69 74 |3,R3,R7.|...BL it|
|00000a20| 65 72 61 74 65 0d 01 fe | 11 43 4d 50 20 52 39 2c |erate...|.CMP R9,|
|00000a30| 23 43 6d 61 78 25 0d 02 | 08 12 41 44 44 45 51 20 |#Cmax%..|..ADDEQ |
|00000a40| 52 35 2c 52 35 2c 23 31 | 0d 02 12 0d 42 4c 45 51 |R5,R5,#1|....BLEQ|
|00000a50| 20 70 6c 6f 74 0d 02 1c | 11 43 4d 50 20 52 39 2c | plot...|.CMP R9,|
|00000a60| 23 43 6d 61 78 25 0d 02 | 26 12 53 55 42 4e 45 20 |#Cmax%..|&.SUBNE |
|00000a70| 52 35 2c 52 35 2c 23 31 | 0d 02 30 0d 43 4d 50 20 |R5,R5,#1|..0.CMP |
|00000a80| 52 35 2c 23 35 0d 02 3a | 0c ec 51 20 52 35 2c 23 |R5,#5..:|..Q R5,#|
|00000a90| 31 0d 02 44 0d 43 4d 50 | 20 52 35 2c 23 30 0d 02 |1..D.CMP| R5,#0..|
|00000aa0| 4e 0c ec 51 20 52 35 2c | 23 34 0d 02 58 1c 53 57 |N..Q R5,|#4..X.SW|
|00000ab0| 49 20 22 4f 53 5f 52 65 | 61 64 45 73 63 61 70 65 |I "OS_Re|adEscape|
|00000ac0| 53 74 61 74 65 22 0d 02 | 62 0e 42 43 53 20 65 73 |State"..|b.BCS es|
|00000ad0| 63 61 70 65 0d 02 6c 0d | 43 4d 50 20 52 36 2c 23 |cape..l.|CMP R6,#|
|00000ae0| 30 0d 02 76 0f 42 4c 45 | 20 72 65 70 65 61 74 32 |0..v.BLE| repeat2|
|00000af0| 0d 02 80 0e 43 4d 50 20 | 52 33 2c 23 44 25 0d 02 |....CMP |R3,#D%..|
|00000b00| 8a 0f 42 4c 45 20 72 65 | 70 65 61 74 32 0d 02 94 |..BLE re|peat2...|
|00000b10| 0a 42 20 6f 76 65 72 0d | 02 9e 0b 2e 65 73 63 61 |.B over.|....esca|
|00000b20| 70 65 0d 02 a8 0f 4d 4f | 56 20 52 30 2c 23 26 37 |pe....MO|V R0,#&7|
|00000b30| 45 0d 02 b2 11 53 57 49 | 20 22 4f 53 5f 42 79 74 |E....SWI| "OS_Byt|
|00000b40| 65 22 0d 02 bc 13 53 57 | 49 20 22 4f 53 5f 57 72 |e"....SW|I "OS_Wr|
|00000b50| 69 74 65 53 22 0d 02 c6 | 11 45 51 55 53 20 22 45 |iteS"...|.EQUS "E|
|00000b60| 73 63 61 70 65 22 0d 02 | d0 0a 45 51 55 42 20 30 |scape"..|..EQUB 0|
|00000b70| 0d 02 da 09 41 4c 49 47 | 4e 0d 02 e4 09 2e 6f 76 |....ALIG|N.....ov|
|00000b80| 65 72 0d 02 ee 14 4c 44 | 4d 46 44 20 52 31 33 21 |er....LD|MFD R13!|
|00000b90| 2c 7b 52 31 34 7d 0d 02 | f8 0e 4d 4f 56 20 50 43 |,{R14}..|..MOV PC|
|00000ba0| 2c 52 31 34 0d 03 02 09 | 2e 70 6c 6f 74 0d 03 0c |,R14....|.plot...|
|00000bb0| 0e 4d 4f 56 20 52 30 2c | 23 36 39 0d 03 16 0d 4d |.MOV R0,|#69....M|
|00000bc0| 4f 56 20 52 31 2c 52 33 | 0d 03 20 17 41 44 44 20 |OV R1,R3|.. .ADD |
|00000bd0| 52 31 2c 52 31 2c 52 31 | 2c 41 53 4c 20 23 32 0d |R1,R1,R1|,ASL #2.|
|00000be0| 03 2a 17 41 44 44 20 52 | 31 2c 52 31 2c 52 31 2c |.*.ADD R|1,R1,R1,|
|00000bf0| 41 53 4c 20 23 32 0d 03 | 34 15 4d 4f 56 20 52 31 |ASL #2..|4.MOV R1|
|00000c00| 2c 52 31 2c 41 53 52 20 | 23 32 30 0d 03 3e 0d 4d |,R1,ASR |#20..>.M|
|00000c10| 4f 56 20 52 32 2c 52 34 | 0d 03 48 17 41 44 44 20 |OV R2,R4|..H.ADD |
|00000c20| 52 32 2c 52 32 2c 52 32 | 2c 41 53 4c 20 23 32 0d |R2,R2,R2|,ASL #2.|
|00000c30| 03 52 17 41 44 44 20 52 | 32 2c 52 32 2c 52 32 2c |.R.ADD R|2,R2,R2,|
|00000c40| 41 53 4c 20 23 32 0d 03 | 5c 15 4d 4f 56 20 52 32 |ASL #2..|\.MOV R2|
|00000c50| 2c 52 32 2c 41 53 52 20 | 23 32 30 0d 03 66 11 53 |,R2,ASR |#20..f.S|
|00000c60| 57 49 20 22 4f 53 5f 50 | 6c 6f 74 22 0d 03 70 0e |WI "OS_P|lot"..p.|
|00000c70| 4d 4f 56 20 50 43 2c 52 | 31 34 0d 03 7a 0c 2e 69 |MOV PC,R|14..z..i|
|00000c80| 74 65 72 61 74 65 0d 03 | 84 0d 4d 4f 56 20 52 32 |terate..|..MOV R2|
|00000c90| 2c 23 30 0d 03 8e 0d 4d | 4f 56 20 52 38 2c 23 30 |,#0....M|OV R8,#0|
|00000ca0| 0d 03 98 0d 4d 4f 56 20 | 52 39 2c 23 30 0d 03 a2 |....MOV |R9,#0...|
|00000cb0| 0c 2e 72 65 70 65 61 74 | 33 0d 03 ac 10 4d 55 4c |..repeat|3....MUL|
|00000cc0| 20 52 30 2c 52 32 2c 52 | 32 0d 03 b6 10 4d 55 4c | R0,R2,R|2....MUL|
|00000cd0| 20 52 31 2c 52 38 2c 52 | 38 0d 03 c0 0e 4d 4f 56 | R1,R8,R|8....MOV|
|00000ce0| 20 52 31 30 2c 23 30 0d | 03 ca 11 53 55 42 20 52 | R10,#0.|...SUB R|
|00000cf0| 31 30 2c 52 30 2c 52 31 | 0d 03 d4 12 41 44 44 20 |10,R0,R1|....ADD |
|00000d00| 52 31 30 2c 52 31 30 2c | 52 33 0d 03 de 13 4d 4f |R10,R10,|R3....MO|
|00000d10| 56 20 52 32 2c 52 32 2c | 41 53 4c 23 31 0d 03 e8 |V R2,R2,|ASL#1...|
|00000d20| 11 4d 55 4c 20 52 31 31 | 2c 52 32 2c 52 38 0d 03 |.MUL R11|,R2,R8..|
|00000d30| f2 12 41 44 44 20 52 31 | 31 2c 52 31 31 2c 52 34 |..ADD R1|1,R11,R4|
|00000d40| 0d 03 fc 10 41 44 44 20 | 52 39 2c 52 39 2c 23 31 |....ADD |R9,R9,#1|
|00000d50| 0d 04 06 11 41 44 44 20 | 52 31 32 2c 52 30 2c 52 |....ADD |R12,R0,R|
|00000d60| 31 0d 04 10 15 4d 4f 56 | 20 52 32 2c 52 31 30 2c |1....MOV| R2,R10,|
|00000d70| 41 53 52 23 31 32 0d 04 | 1a 15 4d 4f 56 20 52 38 |ASR#12..|..MOV R8|
|00000d80| 2c 52 31 31 2c 41 53 52 | 23 31 32 0d 04 24 0f 43 |,R11,ASR|#12..$.C|
|00000d90| 4d 50 20 52 31 32 2c 23 | 53 25 0d 04 2e 0b 42 47 |MP R12,#|S%....BG|
|00000da0| 54 20 6f 75 74 0d 04 38 | 11 43 4d 50 20 52 39 2c |T out..8|.CMP R9,|
|00000db0| 23 43 6d 61 78 25 0d 04 | 42 0f 42 4e 45 20 72 65 |#Cmax%..|B.BNE re|
|00000dc0| 70 65 61 74 33 0d 04 4c | 08 2e 6f 75 74 0d 04 56 |peat3..L|..out..V|
|00000dd0| 0e 4d 4f 56 20 50 43 2c | 52 31 34 0d 04 60 05 5d |.MOV PC,|R14..`.]|
|00000de0| 0d 04 6a 05 ed 0d 04 74 | 05 e1 0d ff 46 69 6c 65 |..j....t|....File|
|00000df0| 44 61 74 61 82 53 68 61 | 67 4d 61 6e 64 65 6c 00 |Data.Sha|gMandel.|
|00000e00| 7f 0d 00 00 43 fb ff ff | f2 01 7a 66 03 00 db 69 |....C...|..zf...i|
|00000e10| 0d 00 0a 11 f4 20 3e 53 | 68 61 67 4d 61 6e 64 65 |..... >S|hagMande|
|00000e20| 6c 0d 00 14 48 f4 20 41 | 20 71 75 69 63 6b 69 73 |l...H. A| quickis|
|00000e30| 68 20 6d 65 74 68 6f 64 | 20 6f 66 20 64 65 72 69 |h method| of deri|
|00000e40| 76 69 6e 67 20 74 68 65 | 20 22 73 68 61 67 67 79 |ving the| "shaggy|
|00000e50| 20 6f 75 74 6c 69 6e 65 | 22 20 4d 61 6e 64 65 6c | outline|" Mandel|
|00000e60| 62 72 6f 74 20 53 65 74 | 2e 0d 00 1e 86 f4 20 50 |brot Set|...... P|
|00000e70| 52 4f 43 6d 64 69 73 63 | 20 61 6e 64 20 46 4e 4d |ROCmdisc| and FNM|
|00000e80| 73 65 74 64 69 73 74 20 | 61 72 65 20 64 65 72 69 |setdist |are deri|
|00000e90| 76 65 64 20 66 72 6f 6d | 20 74 68 65 20 6f 75 74 |ved from| the out|
|00000ea0| 6c 69 6e 65 20 61 6c 67 | 6f 72 69 74 68 6d 73 20 |line alg|orithms |
|00000eb0| 69 6e 20 22 54 68 65 20 | 53 63 69 65 6e 63 65 20 |in "The |Science |
|00000ec0| 6f 66 20 46 72 61 63 74 | 61 6c 20 49 6d 61 67 65 |of Fract|al Image|
|00000ed0| 73 22 70 2e 32 39 33 20 | 61 6e 64 20 70 2e 31 39 |s"p.293 |and p.19|
|00000ee0| 38 20 72 65 73 70 65 63 | 74 69 76 65 6c 79 2e 0d |8 respec|tively..|
|00000ef0| 00 28 05 3a 0d 00 32 19 | f4 20 2a 2a 2a 2a 2a 2a |.(.:..2.|. ******|
|00000f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 00 3c |********|*****..<|
|00000f10| 19 f4 20 2a 20 20 4a 6f | 68 6e 20 47 72 65 65 6e |.. *  Jo|hn Green|
|00000f20| 69 6e 67 20 20 2a 0d 00 | 46 19 f4 20 2a 20 20 20 |ing  *..|F.. *   |
|00000f30| 20 45 64 69 6e 62 75 72 | 67 68 20 20 20 20 2a 0d | Edinbur|gh    *.|
|00000f40| 00 50 19 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.P.. ***|********|
|00000f50| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 00 5a 06 eb 31 0d 00 |********|..Z..1..|
|00000f60| 64 0f f2 66 69 6c 6c 63 | 65 6e 74 72 65 0d 00 6e |d..fillc|entre..n|
|00000f70| 05 3a 0d 00 78 11 ef 31 | 39 2c 32 2c 34 2c 30 2c |.:..x..1|9,2,4,0,|
|00000f80| 30 2c 30 0d 00 82 08 e6 | 30 2c 33 0d 00 8c 0a c8 |0,0.....|0,3.....|
|00000f90| 91 20 30 2c 30 0d 00 96 | 16 6f 76 65 72 66 6c 6f |. 0,0...|.overflo|
|00000fa0| 77 3d 31 30 30 30 30 30 | 30 30 30 0d 00 a0 16 78 |w=100000|000....x|
|00000fb0| 6d 69 6e 3d 2d 32 3a 79 | 6d 69 6e 3d 2d 31 2e 32 |min=-2:y|min=-1.2|
|00000fc0| 38 0d 00 aa 1e de 20 78 | 6f 72 62 69 74 28 31 33 |8..... x|orbit(13|
|00000fd0| 30 29 2c 20 79 6f 72 62 | 69 74 28 31 33 30 29 0d |0), yorb|it(130).|
|00000fe0| 00 b4 17 68 75 67 65 3d | 36 30 30 30 3a 73 69 64 |...huge=|6000:sid|
|00000ff0| 65 3d 32 2e 35 36 0d 00 | be 1a 6e 3d 32 35 36 3a |e=2.56..|..n=256:|
|00001000| 64 65 6c 74 61 3d 73 69 | 64 65 2f 28 6e 2d 31 29 |delta=si|de/(n-1)|
|00001010| 0d 00 c8 18 f2 6f 75 74 | 73 69 64 65 28 33 32 2c |.....out|side(32,|
|00001020| 35 36 2c 31 30 2c 34 29 | 0d 00 d2 17 f2 6f 75 74 |56,10,4)|.....out|
|00001030| 73 69 64 65 28 31 32 38 | 2c 38 2c 31 2c 31 29 0d |side(128|,8,1,1).|
|00001040| 00 dc 14 e6 30 2c 33 3a | c8 90 20 31 31 30 30 2c |....0,3:|.. 1100,|
|00001050| 35 30 30 0d 00 e6 05 e0 | 0d 00 f0 05 3a 0d 00 fa |500.....|....:...|
|00001060| 05 3a 0d 01 04 10 dd f2 | 66 69 6c 6c 63 65 6e 74 |.:......|fillcent|
|00001070| 72 65 0d 01 0e 0e c8 91 | 20 38 30 30 2c 35 31 32 |re......| 800,512|
|00001080| 0d 01 18 11 78 3d 2e 31 | 32 35 3a 79 3d 31 2e 32 |....x=.1|25:y=1.2|
|00001090| 38 0d 01 22 17 44 25 3d | 78 2a 32 5e 32 34 3a 45 |8..".D%=|x*2^24:E|
|000010a0| 25 3d 79 2a 32 5e 32 34 | 0d 01 2c 0f 48 25 3d 2e |%=y*2^24|..,.H%=.|
|000010b0| 30 31 2a 32 5e 32 34 0d | 01 36 0b 53 25 3d 32 5e |01*2^24.|.6.S%=2^|
|000010c0| 32 36 0d 01 40 0c 43 6d | 61 78 25 3d 33 32 0d 01 |26..@.Cm|ax%=32..|
|000010d0| 4a 08 e6 30 2c 31 0d 01 | 54 0d f2 61 73 73 65 6d |J..0,1..|T..assem|
|000010e0| 62 6c 65 0d 01 5e 0b d6 | 20 63 6f 64 65 25 0d 01 |ble..^..| code%..|
|000010f0| 68 0a c8 90 20 30 2c 30 | 0d 01 72 0e c8 90 20 2d |h... 0,0|..r... -|
|00001100| 35 30 2c 33 30 30 0d 01 | 7c 05 e1 0d 01 86 05 3a |50,300..||......:|
|00001110| 0d 01 90 21 dd f2 6f 75 | 74 73 69 64 65 28 6d 61 |...!..ou|tside(ma|
|00001120| 78 69 74 65 72 2c 4e 25 | 2c 5a 25 2c 73 74 65 70 |xiter,N%|,Z%,step|
|00001130| 29 0d 01 9a 12 72 65 63 | 75 72 3d 5a 25 2a 64 65 |)....rec|ur=Z%*de|
|00001140| 6c 74 61 0d 01 a4 17 e3 | 20 69 79 3d 30 20 b8 20 |lta.....| iy=0 . |
|00001150| 6e 2d 31 20 88 20 73 74 | 65 70 0d 01 ae 17 e3 20 |n-1 . st|ep..... |
|00001160| 69 78 3d 30 20 b8 20 6e | 2d 31 20 88 20 73 74 65 |ix=0 . n|-1 . ste|
|00001170| 70 0d 01 b8 4c e7 20 b0 | 34 2a 69 78 2c 34 2a 69 |p...L. .|4*ix,4*i|
|00001180| 79 29 3d 30 20 e6 20 30 | 2c 31 3a c8 92 20 34 2a |y)=0 . 0|,1:.. 4*|
|00001190| 69 78 2c 34 2a 69 79 3a | c8 92 20 34 2a 69 78 2c |ix,4*iy:|.. 4*ix,|
|000011a0| 31 30 32 34 2d 34 2a 69 | 79 3a e6 20 30 2c 33 3a |1024-4*i|y:. 0,3:|
|000011b0| f2 6d 64 69 73 63 28 69 | 78 2c 69 79 29 0d 01 c2 |.mdisc(i|x,iy)...|
|000011c0| 05 ed 0d 01 cc 05 ed 0d | 01 d6 05 e1 0d 01 e0 05 |........|........|
|000011d0| 3a 0d 01 ea 12 dd f2 6d | 64 69 73 63 28 69 78 2c |:......m|disc(ix,|
|000011e0| 69 79 29 0d 01 f4 17 e7 | 20 b0 34 2a 69 78 2c 34 |iy).....| .4*ix,4|
|000011f0| 2a 69 79 29 3d 33 20 8c | 20 e1 0d 01 fe 25 e7 20 |*iy)=3 .| ....%. |
|00001200| 69 78 3c 30 20 84 20 69 | 79 3c 30 20 84 20 69 78 |ix<0 . i|y<0 . ix|
|00001210| 3e 6e 2d 31 20 84 20 69 | 79 3e 6e 2d 31 20 e1 0d |>n-1 . i|y>n-1 ..|
|00001220| 02 08 19 63 78 3d 78 6d | 69 6e 2b 73 69 64 65 2a |...cx=xm|in+side*|
|00001230| 69 78 2f 28 6e 2d 31 29 | 0d 02 12 19 63 79 3d 79 |ix/(n-1)|....cy=y|
|00001240| 6d 69 6e 2b 73 69 64 65 | 2a 69 79 2f 28 6e 2d 31 |min+side|*iy/(n-1|
|00001250| 29 0d 02 1c 26 64 69 73 | 74 3d 30 2e 32 35 2a a4 |)...&dis|t=0.25*.|
|00001260| 4d 73 65 74 64 69 73 74 | 28 63 78 2c 63 79 2c 6d |Msetdist|(cx,cy,m|
|00001270| 61 78 69 74 65 72 29 0d | 02 26 15 69 72 61 64 3d |axiter).|.&.irad=|
|00001280| a8 28 64 69 73 74 2a 73 | 69 64 65 29 0d 02 30 34 |.(dist*s|ide)..04|
|00001290| e7 20 69 72 61 64 3d 31 | 20 8c 20 c8 92 20 34 2a |. irad=1| . .. 4*|
|000012a0| 69 78 2c 34 2a 69 79 3a | c8 92 20 34 2a 69 78 2c |ix,4*iy:|.. 4*ix,|
|000012b0| 31 30 32 34 2d 34 2a 69 | 79 3a e5 20 8d 44 4e 42 |1024-4*i|y:. .DNB|
|000012c0| 0d 02 3a 2b e7 20 69 72 | 61 64 3e 31 20 8c 20 f2 |..:+. ir|ad>1 . .|
|000012d0| 66 69 6c 6c 64 69 73 63 | 28 69 78 2c 69 79 2c 69 |filldisc|(ix,iy,i|
|000012e0| 72 61 64 29 3a e5 20 8d | 44 4e 42 0d 02 44 31 e7 |rad):. .|DNB..D1.|
|000012f0| 20 64 69 73 74 3e 64 65 | 6c 74 61 20 8c 20 c8 92 | dist>de|lta . ..|
|00001300| 20 34 2a 69 78 2c 34 2a | 69 79 3a c8 92 20 34 2a | 4*ix,4*|iy:.. 4*|
|00001310| 69 78 2c 31 30 32 34 2d | 34 2a 69 79 0d 02 4e 12 |ix,1024-|4*iy..N.|
|00001320| e7 20 64 69 73 74 3e 72 | 65 63 75 72 20 8c 0d 02 |. dist>r|ecur ...|
|00001330| 58 16 e7 20 69 72 61 64 | 3e 31 20 8c 20 69 72 61 |X.. irad|>1 . ira|
|00001340| 64 2b 3d 31 0d 02 62 16 | f2 6d 64 69 73 63 28 69 |d+=1..b.|.mdisc(i|
|00001350| 78 2c 69 79 2b 69 72 61 | 64 29 0d 02 6c 16 f2 6d |x,iy+ira|d)..l..m|
|00001360| 64 69 73 63 28 69 78 2c | 69 79 2d 69 72 61 64 29 |disc(ix,|iy-irad)|
|00001370| 0d 02 76 16 f2 6d 64 69 | 73 63 28 69 78 2b 69 72 |..v..mdi|sc(ix+ir|
|00001380| 61 64 2c 69 79 29 0d 02 | 80 16 f2 6d 64 69 73 63 |ad,iy)..|...mdisc|
|00001390| 28 69 78 2d 69 72 61 64 | 2c 69 79 29 0d 02 8a 19 |(ix-irad|,iy)....|
|000013a0| 69 72 61 64 3d a8 28 30 | 2e 35 2b 69 72 61 64 2f |irad=.(0|.5+irad/|
|000013b0| b6 28 32 29 29 0d 02 94 | 1b f2 6d 64 69 73 63 28 |.(2))...|..mdisc(|
|000013c0| 69 78 2b 69 72 61 64 2c | 69 79 2b 69 72 61 64 29 |ix+irad,|iy+irad)|
|000013d0| 0d 02 9e 1b f2 6d 64 69 | 73 63 28 69 78 2d 69 72 |.....mdi|sc(ix-ir|
|000013e0| 61 64 2c 69 79 2d 69 72 | 61 64 29 0d 02 a8 1b f2 |ad,iy-ir|ad).....|
|000013f0| 6d 64 69 73 63 28 69 78 | 2d 69 72 61 64 2c 69 79 |mdisc(ix|-irad,iy|
|00001400| 2b 69 72 61 64 29 0d 02 | b2 1b f2 6d 64 69 73 63 |+irad)..|...mdisc|
|00001410| 28 69 78 2b 69 72 61 64 | 2c 69 79 2d 69 72 61 64 |(ix+irad|,iy-irad|
|00001420| 29 0d 02 bc 05 cd 0d 02 | c6 05 e1 0d 02 d0 05 3a |).......|.......:|
|00001430| 0d 02 da 1d dd a4 4d 73 | 65 74 64 69 73 74 28 63 |......Ms|etdist(c|
|00001440| 78 2c 63 79 2c 6d 61 78 | 69 74 65 72 29 0d 02 e4 |x,cy,max|iter)...|
|00001450| 34 78 3d 30 3a 79 3d 30 | 3a 78 32 3d 30 3a 79 32 |4x=0:y=0|:x2=0:y2|
|00001460| 3d 30 3a 64 69 73 74 3d | 30 3a 78 6f 72 62 69 74 |=0:dist=|0:xorbit|
|00001470| 28 30 29 3d 30 3a 79 6f | 72 62 69 74 28 30 29 3d |(0)=0:yo|rbit(0)=|
|00001480| 30 0d 02 ee 0a 69 74 65 | 72 3d 30 0d 02 f8 05 f5 |0....ite|r=0.....|
|00001490| 0d 03 02 11 74 65 6d 70 | 3d 78 32 2d 79 32 2b 63 |....temp|=x2-y2+c|
|000014a0| 78 0d 03 0c 0e 79 3d 32 | 2a 78 2a 79 2b 63 79 0d |x....y=2|*x*y+cy.|
|000014b0| 03 16 0a 78 3d 74 65 6d | 70 0d 03 20 0a 78 32 3d |...x=tem|p.. .x2=|
|000014c0| 78 2a 78 0d 03 2a 0a 79 | 32 3d 79 2a 79 0d 03 34 |x*x..*.y|2=y*y..4|
|000014d0| 0b 69 74 65 72 2b 3d 31 | 0d 03 3e 12 78 6f 72 62 |.iter+=1|..>.xorb|
|000014e0| 69 74 28 69 74 65 72 29 | 3d 78 0d 03 48 12 79 6f |it(iter)|=x..H.yo|
|000014f0| 72 62 69 74 28 69 74 65 | 72 29 3d 79 0d 03 52 21 |rbit(ite|r)=y..R!|
|00001500| fd 20 69 74 65 72 3d 6d | 61 78 69 74 65 72 20 84 |. iter=m|axiter .|
|00001510| 20 28 78 32 2b 79 32 29 | 3e 68 75 67 65 0d 03 5c | (x2+y2)|>huge..\|
|00001520| 14 e7 20 28 78 32 2b 79 | 32 29 3e 68 75 67 65 20 |.. (x2+y|2)>huge |
|00001530| 8c 0d 03 66 15 78 64 65 | 72 3d 30 3a 79 64 65 72 |...f.xde|r=0:yder|
|00001540| 3d 30 3a 69 3d 30 0d 03 | 70 0a 66 6c 61 67 3d a3 |=0:i=0..|p.flag=.|
|00001550| 0d 03 7a 18 c8 95 20 69 | 3c 69 74 65 72 20 80 20 |..z... i|<iter . |
|00001560| 28 ac 20 66 6c 61 67 29 | 0d 03 84 2c 74 65 6d 70 |(. flag)|...,temp|
|00001570| 3d 32 2a 28 78 6f 72 62 | 69 74 28 69 29 2a 78 64 |=2*(xorb|it(i)*xd|
|00001580| 65 72 2d 79 6f 72 62 69 | 74 28 69 29 2a 79 64 65 |er-yorbi|t(i)*yde|
|00001590| 72 29 2b 31 0d 03 8e 2a | 79 64 65 72 3d 32 2a 28 |r)+1...*|yder=2*(|
|000015a0| 79 6f 72 62 69 74 28 69 | 29 2a 78 64 65 72 2b 78 |yorbit(i|)*xder+x|
|000015b0| 6f 72 62 69 74 28 69 29 | 2a 79 64 65 72 29 0d 03 |orbit(i)|*yder)..|
|000015c0| 98 0d 78 64 65 72 3d 74 | 65 6d 70 0d 03 a2 2f e7 |..xder=t|emp.../.|
|000015d0| 20 94 28 78 64 65 72 29 | 3e 94 28 79 64 65 72 29 | .(xder)|>.(yder)|
|000015e0| 20 6d 61 78 3d 94 28 78 | 64 65 72 29 20 8b 20 6d | max=.(x|der) . m|
|000015f0| 61 78 3d 94 28 79 64 65 | 72 29 0d 03 ac 15 66 6c |ax=.(yde|r)....fl|
|00001600| 61 67 3d 6d 61 78 3e 6f | 76 65 72 66 6c 6f 77 0d |ag=max>o|verflow.|
|00001610| 03 b6 08 69 2b 3d 31 0d | 03 c0 05 ce 0d 03 ca 10 |...i+=1.|........|
|00001620| e7 20 28 ac 20 66 6c 61 | 67 29 20 8c 0d 03 d4 34 |. (. fla|g) ....4|
|00001630| 64 69 73 74 3d 4e 25 2a | aa 28 78 32 2b 79 32 29 |dist=N%*|.(x2+y2)|
|00001640| 2a b6 28 78 32 2b 79 32 | 29 2f b6 28 78 64 65 72 |*.(x2+y2|)/.(xder|
|00001650| 2a 78 64 65 72 2b 79 64 | 65 72 2a 79 64 65 72 29 |*xder+yd|er*yder)|
|00001660| 0d 03 de 05 cd 0d 03 e8 | 05 cd 0d 03 f2 09 3d 64 |........|......=d|
|00001670| 69 73 74 0d 03 fc 05 3a | 0d 04 06 1a dd f2 66 69 |ist....:|......fi|
|00001680| 6c 6c 64 69 73 63 28 69 | 78 2c 69 79 2c 69 72 61 |lldisc(i|x,iy,ira|
|00001690| 64 29 0d 04 10 52 ec 20 | 69 78 2a 34 2c 69 79 2a |d)...R. |ix*4,iy*|
|000016a0| 34 3a f0 26 39 44 2c 34 | 2a 28 69 78 2b 69 72 61 |4:.&9D,4|*(ix+ira|
|000016b0| 64 29 2c 69 79 2a 34 3a | ec 20 69 78 2a 34 2c 31 |d),iy*4:|. ix*4,1|
|000016c0| 30 32 34 2d 69 79 2a 34 | 3a f0 20 26 39 44 2c 34 |024-iy*4|:. &9D,4|
|000016d0| 2a 28 69 78 2b 69 72 61 | 64 29 2c 31 30 32 34 2d |*(ix+ira|d),1024-|
|000016e0| 69 79 2a 34 0d 04 1a 05 | e1 0d 04 24 05 3a 0d 04 |iy*4....|...$.:..|
|000016f0| 2e 0e dd f2 61 73 73 65 | 6d 62 6c 65 0d 04 38 10 |....asse|mble..8.|
|00001700| de 20 63 6f 64 65 25 20 | 33 30 30 30 0d 04 42 15 |. code% |3000..B.|
|00001710| e3 20 70 61 73 73 25 3d | 30 20 b8 20 32 20 88 20 |. pass%=|0 . 2 . |
|00001720| 32 0d 04 4c 0c 50 25 3d | 63 6f 64 65 25 0d 04 56 |2..L.P%=|code%..V|
|00001730| 0e 5b 4f 50 54 20 70 61 | 73 73 25 0d 04 60 14 53 |.[OPT pa|ss%..`.S|
|00001740| 54 4d 46 44 20 52 31 33 | 21 2c 7b 52 31 34 7d 0d |TMFD R13|!,{R14}.|
|00001750| 04 6a 0c 2e 72 65 70 65 | 61 74 31 0d 04 74 10 53 |.j..repe|at1..t.S|
|00001760| 55 42 20 52 34 2c 52 34 | 2c 52 37 0d 04 7e 0e 42 |UB R4,R4|,R7..~.B|
|00001770| 4c 20 69 74 65 72 61 74 | 65 0d 04 88 11 43 4d 50 |L iterat|e....CMP|
|00001780| 20 52 39 2c 23 43 6d 61 | 78 25 0d 04 92 0f 42 4e | R9,#Cma|x%....BN|
|00001790| 45 20 72 65 70 65 61 74 | 31 0d 04 9c 0d 4d 4f 56 |E repeat|1....MOV|
|000017a0| 20 52 35 2c 23 32 0d 04 | a6 0b 42 4c 20 70 6c 6f | R5,#2..|..BL plo|
|000017b0| 74 0d 04 b0 10 4d 56 4e | 20 52 36 2c 23 32 30 34 |t....MVN| R6,#204|
|000017c0| 38 0d 04 ba 0c 2e 72 65 | 70 65 61 74 32 0d 04 c4 |8.....re|peat2...|
|000017d0| 10 41 44 44 20 52 36 2c | 52 36 2c 23 31 0d 04 ce |.ADD R6,|R6,#1...|
|000017e0| 0d 43 4d 50 20 52 35 2c | 23 31 0d 04 d8 12 53 55 |.CMP R5,|#1....SU|
|000017f0| 42 45 51 20 52 34 2c 52 | 34 2c 52 37 0d 04 e2 0d |BEQ R4,R|4,R7....|
|00001800| 43 4d 50 20 52 35 2c 23 | 32 0d 04 ec 12 41 44 44 |CMP R5,#|2....ADD|
|00001810| 45 51 20 52 33 2c 52 33 | 2c 52 37 0d 04 f6 0d 43 |EQ R3,R3|,R7....C|
|00001820| 4d 50 20 52 35 2c 23 33 | 0d 05 00 12 41 44 44 45 |MP R5,#3|....ADDE|
|00001830| 51 20 52 34 2c 52 34 2c | 52 37 0d 05 0a 0d 43 4d |Q R4,R4,|R7....CM|
|00001840| 50 20 52 35 2c 23 34 0d | 05 14 12 53 55 42 45 51 |P R5,#4.|...SUBEQ|
|00001850| 20 52 33 2c 52 33 2c 52 | 37 0d 05 1e 0e 42 4c 20 | R3,R3,R|7....BL |
|00001860| 69 74 65 72 61 74 65 0d | 05 28 11 43 4d 50 20 52 |iterate.|.(.CMP R|
|00001870| 39 2c 23 43 6d 61 78 25 | 0d 05 32 12 41 44 44 45 |9,#Cmax%|..2.ADDE|
|00001880| 51 20 52 35 2c 52 35 2c | 23 31 0d 05 3c 0d 42 4c |Q R5,R5,|#1..<.BL|
|00001890| 45 51 20 70 6c 6f 74 0d | 05 46 11 43 4d 50 20 52 |EQ plot.|.F.CMP R|
|000018a0| 39 2c 23 43 6d 61 78 25 | 0d 05 50 12 53 55 42 4e |9,#Cmax%|..P.SUBN|
|000018b0| 45 20 52 35 2c 52 35 2c | 23 31 0d 05 5a 0d 43 4d |E R5,R5,|#1..Z.CM|
|000018c0| 50 20 52 35 2c 23 35 0d | 05 64 0c ec 51 20 52 35 |P R5,#5.|.d..Q R5|
|000018d0| 2c 23 31 0d 05 6e 0d 43 | 4d 50 20 52 35 2c 23 30 |,#1..n.C|MP R5,#0|
|000018e0| 0d 05 78 0c ec 51 20 52 | 35 2c 23 34 0d 05 82 0d |..x..Q R|5,#4....|
|000018f0| 43 4d 50 20 52 36 2c 23 | 30 0d 05 8c 0f 42 4c 45 |CMP R6,#|0....BLE|
|00001900| 20 72 65 70 65 61 74 32 | 0d 05 96 0e 43 4d 50 20 | repeat2|....CMP |
|00001910| 52 33 2c 23 44 25 0d 05 | a0 0f 42 4c 45 20 72 65 |R3,#D%..|..BLE re|
|00001920| 70 65 61 74 32 0d 05 aa | 14 4c 44 4d 46 44 20 52 |peat2...|.LDMFD R|
|00001930| 31 33 21 2c 7b 52 31 34 | 7d 0d 05 b4 0e 4d 4f 56 |13!,{R14|}....MOV|
|00001940| 20 50 43 2c 52 31 34 0d | 05 be 09 2e 70 6c 6f 74 | PC,R14.|....plot|
|00001950| 0d 05 c8 0e 4d 4f 56 20 | 52 30 2c 23 36 39 0d 05 |....MOV |R0,#69..|
|00001960| d2 0d 4d 4f 56 20 52 31 | 2c 52 33 0d 05 dc 17 41 |..MOV R1|,R3....A|
|00001970| 44 44 20 52 31 2c 52 31 | 2c 52 31 2c 41 53 4c 20 |DD R1,R1|,R1,ASL |
|00001980| 23 32 0d 05 e6 17 41 44 | 44 20 52 31 2c 52 31 2c |#2....AD|D R1,R1,|
|00001990| 52 31 2c 41 53 4c 20 23 | 32 0d 05 f0 15 4d 4f 56 |R1,ASL #|2....MOV|
|000019a0| 20 52 31 2c 52 31 2c 41 | 53 52 20 23 32 30 0d 05 | R1,R1,A|SR #20..|
|000019b0| fa 0d 4d 4f 56 20 52 32 | 2c 52 34 0d 06 04 17 41 |..MOV R2|,R4....A|
|000019c0| 44 44 20 52 32 2c 52 32 | 2c 52 32 2c 41 53 4c 20 |DD R2,R2|,R2,ASL |
|000019d0| 23 32 0d 06 0e 17 41 44 | 44 20 52 32 2c 52 32 2c |#2....AD|D R2,R2,|
|000019e0| 52 32 2c 41 53 4c 20 23 | 32 0d 06 18 15 4d 4f 56 |R2,ASL #|2....MOV|
|000019f0| 20 52 32 2c 52 32 2c 41 | 53 52 20 23 32 30 0d 06 | R2,R2,A|SR #20..|
|00001a00| 22 11 53 57 49 20 22 4f | 53 5f 50 6c 6f 74 22 0d |".SWI "O|S_Plot".|
|00001a10| 06 2c 0e 4d 4f 56 20 50 | 43 2c 52 31 34 0d 06 36 |.,.MOV P|C,R14..6|
|00001a20| 0c 2e 69 74 65 72 61 74 | 65 0d 06 40 0d 4d 4f 56 |..iterat|e..@.MOV|
|00001a30| 20 52 32 2c 23 30 0d 06 | 4a 0d 4d 4f 56 20 52 38 | R2,#0..|J.MOV R8|
|00001a40| 2c 23 30 0d 06 54 0d 4d | 4f 56 20 52 39 2c 23 30 |,#0..T.M|OV R9,#0|
|00001a50| 0d 06 5e 0c 2e 72 65 70 | 65 61 74 33 0d 06 68 10 |..^..rep|eat3..h.|
|00001a60| 4d 55 4c 20 52 30 2c 52 | 32 2c 52 32 0d 06 72 10 |MUL R0,R|2,R2..r.|
|00001a70| 4d 55 4c 20 52 31 2c 52 | 38 2c 52 38 0d 06 7c 0e |MUL R1,R|8,R8..|.|
|00001a80| 4d 4f 56 20 52 31 30 2c | 23 30 0d 06 86 11 53 55 |MOV R10,|#0....SU|
|00001a90| 42 20 52 31 30 2c 52 30 | 2c 52 31 0d 06 90 12 41 |B R10,R0|,R1....A|
|00001aa0| 44 44 20 52 31 30 2c 52 | 31 30 2c 52 33 0d 06 9a |DD R10,R|10,R3...|
|00001ab0| 13 4d 4f 56 20 52 32 2c | 52 32 2c 41 53 4c 23 31 |.MOV R2,|R2,ASL#1|
|00001ac0| 0d 06 a4 11 4d 55 4c 20 | 52 31 31 2c 52 32 2c 52 |....MUL |R11,R2,R|
|00001ad0| 38 0d 06 ae 12 41 44 44 | 20 52 31 31 2c 52 31 31 |8....ADD| R11,R11|
|00001ae0| 2c 52 34 0d 06 b8 10 41 | 44 44 20 52 39 2c 52 39 |,R4....A|DD R9,R9|
|00001af0| 2c 23 31 0d 06 c2 11 41 | 44 44 20 52 31 32 2c 52 |,#1....A|DD R12,R|
|00001b00| 30 2c 52 31 0d 06 cc 15 | 4d 4f 56 20 52 32 2c 52 |0,R1....|MOV R2,R|
|00001b10| 31 30 2c 41 53 52 23 31 | 32 0d 06 d6 15 4d 4f 56 |10,ASR#1|2....MOV|
|00001b20| 20 52 38 2c 52 31 31 2c | 41 53 52 23 31 32 0d 06 | R8,R11,|ASR#12..|
|00001b30| e0 0f 43 4d 50 20 52 31 | 32 2c 23 53 25 0d 06 ea |..CMP R1|2,#S%...|
|00001b40| 0b 42 47 54 20 6f 75 74 | 0d 06 f4 11 43 4d 50 20 |.BGT out|....CMP |
|00001b50| 52 39 2c 23 43 6d 61 78 | 25 0d 06 fe 0f 42 4e 45 |R9,#Cmax|%....BNE|
|00001b60| 20 72 65 70 65 61 74 33 | 0d 07 08 08 2e 6f 75 74 | repeat3|.....out|
|00001b70| 0d 07 12 0e 4d 4f 56 20 | 50 43 2c 52 31 34 0d 07 |....MOV |PC,R14..|
|00001b80| 1c 05 5d 0d 07 26 05 ed | 0d 07 30 05 e1 0d ff    |..]..&..|..0.... |
+--------+-------------------------+-------------------------+--------+--------+