/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / Fagandini / Ratios

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 20 3e | 24 2e 52 61 74 69 6f 73 |.... . >|$.Ratios|
|00000010| 0d 00 14 3f 20 f4 20 54 | 68 69 73 20 70 67 6d 20 |...? . T|his pgm |
|00000020| 69 64 65 6e 74 69 66 69 | 65 73 20 72 65 63 75 72 |identifi|es recur|
|00000030| 72 69 6e 67 20 64 65 63 | 69 6d 61 6c 73 20 77 68 |ring dec|imals wh|
|00000040| 65 72 65 20 74 68 65 79 | 20 61 72 69 73 65 2e 0d |ere they| arise..|
|00000050| 00 1e 13 20 f4 20 44 41 | 41 46 20 31 2e 31 30 2e |... . DA|AF 1.10.|
|00000060| 38 39 0d 00 28 06 20 f4 | 0d 00 32 06 20 3a 0d 00 |89..(. .|..2. :..|
|00000070| 3c 06 20 db 0d 00 46 22 | 20 e8 22 48 6f 77 20 6d |<. ...F"| ."How m|
|00000080| 61 6e 79 20 69 6e 74 65 | 67 65 72 73 20 22 3b 64 |any inte|gers ";d|
|00000090| 69 67 69 74 73 25 0d 00 | 50 41 20 43 31 25 3d 64 |igits%..|PA C1%=d|
|000000a0| 69 67 69 74 73 25 2b 31 | 30 3a 43 30 25 3d 43 31 |igits%+1|0:C0%=C1|
|000000b0| 25 3a 43 32 25 3d 43 31 | 25 3a 43 33 25 3d 28 a8 |%:C2%=C1|%:C3%=(.|
|000000c0| 28 43 31 25 2f 32 34 30 | 29 29 3a e7 43 33 25 3c |(C1%/240|)):.C3%<|
|000000d0| 31 20 43 33 25 3d 31 0d | 00 5a 1c 20 74 69 6d 65 |1 C3%=1.|.Z. time|
|000000e0| 24 3d 91 24 3a d1 3d 30 | 3a 63 6f 75 6e 74 65 72 |$=.$:.=0|:counter|
|000000f0| 25 3d 30 0d 00 64 0f 20 | de 20 61 25 20 43 30 25 |%=0..d. |. a% C0%|
|00000100| 2a 38 0d 00 6e 12 20 de | 44 63 6d 6c 24 28 43 33 |*8..n. .|Dcml$(C3|
|00000110| 25 2b 31 29 0d 00 78 36 | 20 de 58 24 28 43 30 25 |%+1)..x6| .X$(C0%|
|00000120| 2b 31 29 2c 53 50 24 28 | 43 30 25 2b 31 29 2c 53 |+1),SP$(|C0%+1),S|
|00000130| 50 28 43 30 25 2b 31 29 | 2c 4e 28 43 30 25 2b 31 |P(C0%+1)|,N(C0%+1|
|00000140| 29 2c 4d 28 43 30 25 2b | 31 29 0d 00 82 13 20 dd |),M(C0%+|1).... .|
|00000150| a4 4c 28 57 29 3d a9 28 | c3 28 57 29 29 0d 00 8c |.L(W)=.(|.(W))...|
|00000160| 0e 20 f2 61 73 73 65 6d | 62 6c 65 0d 00 96 1f 20 |. .assem|ble.... |
|00000170| 4e 61 6d 65 24 3d 22 49 | 6e 74 44 61 74 61 22 2b |Name$="I|ntData"+|
|00000180| c3 28 64 69 67 69 74 73 | 25 29 0d 00 a0 14 20 63 |.(digits|%).... c|
|00000190| 68 61 6e 6e 65 6c 3d ae | 20 4e 61 6d 65 24 0d 00 |hannel=.| Name$..|
|000001a0| aa 18 20 f1 23 20 63 68 | 61 6e 6e 65 6c 2c 20 64 |.. .# ch|annel, d|
|000001b0| 69 67 69 74 73 25 0d 00 | b4 14 20 e3 56 25 3d 31 |igits%..|.. .V%=1|
|000001c0| 20 b8 20 64 69 67 69 74 | 73 25 0d 00 be 14 20 e3 | . digit|s%.... .|
|000001d0| 57 25 3d 31 20 b8 20 64 | 69 67 69 74 73 25 0d 00 |W%=1 . d|igits%..|
|000001e0| c8 0b 20 41 31 25 3d 56 | 25 0d 00 d2 17 20 e7 56 |.. A1%=V|%.... .V|
|000001f0| 25 3d 64 69 67 69 74 73 | 25 20 f2 65 6e 64 3a e0 |%=digits|% .end:.|
|00000200| 0d 00 dc 14 20 e7 41 31 | 25 3e 3d 57 25 20 8c 20 |.... .A1|%>=W% . |
|00000210| ed 20 57 25 0d 00 e6 0b | 20 42 31 25 3d 57 25 0d |. W%....| B1%=W%.|
|00000220| 00 f0 14 20 43 31 25 3d | 43 32 25 3a 43 30 25 3d |... C1%=|C2%:C0%=|
|00000230| 43 31 25 0d 00 fa 22 20 | 43 33 25 3d 28 a8 28 43 |C1%..." |C3%=(.(C|
|00000240| 31 25 2f 32 34 30 29 29 | 3a e7 43 33 25 3c 31 20 |1%/240))|:.C3%<1 |
|00000250| 43 33 25 3d 31 0d 01 04 | 0d 20 63 6f 75 6e 74 25 |C3%=1...|. count%|
|00000260| 3d 32 0d 01 0e 21 20 e3 | 4a 25 3d 31 20 b8 20 43 |=2...! .|J%=1 . C|
|00000270| 33 25 2b 31 3a 44 63 6d | 6c 24 28 4a 25 29 3d 22 |3%+1:Dcm|l$(J%)="|
|00000280| 22 3a ed 0d 01 18 36 20 | e3 4a 25 3d 31 20 b8 20 |":....6 |.J%=1 . |
|00000290| 43 31 25 3a 58 24 28 4a | 25 29 3d 22 22 3a 61 25 |C1%:X$(J|%)="":a%|
|000002a0| 21 28 4a 25 2a 38 29 3d | 30 3a 61 25 21 28 4a 25 |!(J%*8)=|0:a%!(J%|
|000002b0| 2a 38 2d 34 29 3d 30 3a | ed 0d 01 22 12 20 44 25 |*8-4)=0:|...". D%|
|000002c0| 3d a8 28 41 31 25 2f 42 | 31 25 29 0d 01 2c 14 20 |=.(A1%/B|1%)..,. |
|000002d0| 41 30 25 3d 41 31 25 3a | 42 30 25 3d 42 31 25 0d |A0%=A1%:|B0%=B1%.|
|000002e0| 01 36 0c 20 f2 64 69 76 | 69 64 65 0d 01 40 16 20 |.6. .div|ide..@. |
|000002f0| f2 73 74 72 69 6e 67 73 | 5f 6c 65 6e 67 74 68 65 |.strings|_lengthe|
|00000300| 6e 0d 01 4a 15 20 f2 73 | 74 72 69 6e 67 73 5f 73 |n..J. .s|trings_s|
|00000310| 65 63 74 69 6f 6e 0d 01 | 54 12 20 e3 4a 25 3d 32 |ection..|T. .J%=2|
|00000320| 20 b8 20 43 33 25 2b 31 | 0d 01 5e 2a 20 e7 a9 28 | . C3%+1|..^* ..(|
|00000330| 44 63 6d 6c 24 28 4a 25 | 29 29 20 83 38 3c 3e 30 |Dcml$(J%|)) .8<>0|
|00000340| 20 8c 20 43 30 25 2d 3d | 37 20 8b 20 43 30 25 2d | . C0%-=|7 . C0%-|
|00000350| 3d 38 0d 01 68 09 20 ed | 20 4a 25 0d 01 72 06 20 |=8..h. .| J%..r. |
|00000360| 3a 0d 01 7c 10 20 e3 4a | 25 3d 31 b8 43 30 25 2b |:..|. .J|%=1.C0%+|
|00000370| 31 0d 01 86 17 20 58 24 | 28 4a 25 29 3d 22 31 2e |1.... X$|(J%)="1.|
|00000380| 22 2b 58 24 28 4a 25 29 | 0d 01 90 1f 20 61 25 21 |"+X$(J%)|.... a%!|
|00000390| 28 4a 25 2a 38 29 3d a8 | 28 bb 28 58 24 28 4a 25 |(J%*8)=.|(.(X$(J%|
|000003a0| 29 29 2a 31 45 38 29 0d | 01 9a 16 20 61 25 21 28 |))*1E8).|... a%!(|
|000003b0| 4a 25 2a 38 2d 34 29 3d | 4e 28 4a 25 29 0d 01 a4 |J%*8-4)=|N(J%)...|
|000003c0| 06 20 ed 0d 01 ae 06 20 | 3a 0d 01 b8 0a 20 41 25 |. ..... |:.... A%|
|000003d0| 3d 61 25 0d 01 c2 09 20 | 42 25 3d 31 0d 01 cc 0d |=a%.... |B%=1....|
|000003e0| 20 43 25 3d 43 30 25 2b | 31 0d 01 d6 0c 20 d6 20 | C%=C0%+|1.... . |
|000003f0| 71 73 6f 72 74 0d 01 e0 | 06 20 3a 0d 01 ea 2e 20 |qsort...|. :.... |
|00000400| e3 4a 25 3d 31 20 b8 20 | 43 30 25 2b 31 3a 58 24 |.J%=1 . |C0%+1:X$|
|00000410| 28 4a 25 29 3d c2 c3 28 | 28 61 25 21 28 4a 25 2a |(J%)=..(|(a%!(J%*|
|00000420| 38 29 29 29 2c 38 29 3a | ed 0d 01 f4 3a 20 e3 4a |8))),8):|....: .J|
|00000430| 25 3d 31 20 b8 20 43 30 | 25 2b 31 3a 53 50 28 4a |%=1 . C0|%+1:SP(J|
|00000440| 25 29 3d 4e 28 61 25 21 | 28 4a 25 2a 38 2d 34 29 |%)=N(a%!|(J%*8-4)|
|00000450| 29 3a ed 3a 4e 28 29 3d | 53 50 28 29 3a 53 50 28 |):.:N()=|SP():SP(|
|00000460| 29 3d 30 0d 01 fe 06 20 | 3a 0d 02 08 13 20 63 6f |)=0.... |:.... co|
|00000470| 75 6e 74 25 3d 30 3a 4e | 30 25 3d 31 0d 02 12 12 |unt%=0:N|0%=1....|
|00000480| 20 e3 4a 25 3d 31 20 b8 | 20 43 30 25 2b 31 0d 02 | .J%=1 .| C0%+1..|
|00000490| 1c 19 20 20 e7 20 58 24 | 28 4a 25 29 3d 58 24 28 |..  . X$|(J%)=X$(|
|000004a0| 4a 25 2b 31 29 20 8c 0d | 02 26 10 20 20 20 63 6f |J%+1) ..|.&.   co|
|000004b0| 75 6e 74 25 2b 3d 31 0d | 02 30 2f 20 20 20 4d 28 |unt%+=1.|.0/   M(|
|000004c0| 63 6f 75 6e 74 25 29 3d | 94 28 61 25 21 28 4a 25 |count%)=|.(a%!(J%|
|000004d0| 2a 38 2d 34 29 2d 61 25 | 21 28 28 4a 25 2b 31 29 |*8-4)-a%|!((J%+1)|
|000004e0| 2a 38 2d 34 29 29 0d 02 | 3a 07 20 20 cd 0d 02 44 |*8-4))..|:.  ...D|
|000004f0| 23 20 e7 20 58 24 28 4a | 25 29 3c 3e 58 24 28 4a |# . X$(J|%)<>X$(J|
|00000500| 25 2b 31 29 20 8c 20 58 | 24 28 4a 25 29 3d 22 22 |%+1) . X|$(J%)=""|
|00000510| 0d 02 4e 06 20 ed 0d 02 | 58 06 20 3a 0d 02 62 1c |..N. ...|X. :..b.|
|00000520| 20 e7 20 63 6f 75 6e 74 | 25 3d 30 20 6c 65 6e 25 | . count|%=0 len%|
|00000530| 3d 30 3a e5 8d 64 5e 43 | 0d 02 6c 06 20 3a 0d 02 |=0:..d^C|..l. :..|
|00000540| 76 13 20 e3 4a 25 3d 31 | 20 b8 20 63 6f 75 6e 74 |v. .J%=1| . count|
|00000550| 25 0d 02 80 14 20 61 25 | 21 28 4a 25 2a 38 29 3d |%.... a%|!(J%*8)=|
|00000560| 4d 28 4a 25 29 0d 02 8a | 13 20 61 25 21 28 4a 25 |M(J%)...|. a%!(J%|
|00000570| 2a 38 2d 34 29 3d 4a 25 | 0d 02 94 06 20 ed 0d 02 |*8-4)=J%|.... ...|
|00000580| 9e 06 20 3a 0d 02 a8 0a | 20 41 25 3d 61 25 0d 02 |.. :....| A%=a%..|
|00000590| b2 09 20 42 25 3d 31 0d | 02 bc 0e 20 43 25 3d 63 |.. B%=1.|... C%=c|
|000005a0| 6f 75 6e 74 25 0d 02 c6 | 06 20 3a 0d 02 d0 0c 20 |ount%...|. :.... |
|000005b0| d6 20 71 73 6f 72 74 0d | 02 da 10 20 6c 65 6e 25 |. qsort.|... len%|
|000005c0| 3d 61 25 21 28 38 29 0d | 02 e4 06 20 3a 0d 02 ee |=a%!(8).|... :...|
|000005d0| 12 20 e3 4a 25 3d 31 20 | b8 20 43 30 25 2b 31 0d |. .J%=1 |. C0%+1.|
|000005e0| 02 f8 22 20 4d 28 4a 25 | 29 3d a7 44 63 6d 6c 24 |.." M(J%|)=.Dcml$|
|000005f0| 28 31 29 2c c0 58 24 28 | 4a 25 29 2c 38 29 2c 31 |(1),.X$(|J%),8),1|
|00000600| 29 0d 03 02 14 20 61 25 | 21 28 4a 25 2a 38 29 3d |).... a%|!(J%*8)=|
|00000610| 4d 28 4a 25 29 0d 03 0c | 13 20 61 25 21 28 4a 25 |M(J%)...|. a%!(J%|
|00000620| 2a 38 2d 34 29 3d 4a 25 | 0d 03 16 06 20 ed 0d 03 |*8-4)=J%|.... ...|
|00000630| 20 06 20 3a 0d 03 2a 0a | 20 41 25 3d 61 25 0d 03 | . :..*.| A%=a%..|
|00000640| 34 09 20 42 25 3d 31 0d | 03 3e 0d 20 43 25 3d 43 |4. B%=1.|.>. C%=C|
|00000650| 30 25 2b 31 0d 03 48 06 | 20 3a 0d 03 52 0c 20 d6 |0%+1..H.| :..R. .|
|00000660| 20 71 73 6f 72 74 0d 03 | 5c 24 20 e3 4a 25 3d 31 | qsort..|\$ .J%=1|
|00000670| 20 b8 20 43 30 25 2b 31 | 3a 4d 28 4a 25 29 3d 61 | . C0%+1|:M(J%)=a|
|00000680| 25 21 28 4a 25 2a 38 29 | 3a ed 0d 03 66 40 20 e3 |%!(J%*8)|:...f@ .|
|00000690| 4a 25 3d 31 20 b8 20 43 | 30 25 2b 31 3a 53 50 24 |J%=1 . C|0%+1:SP$|
|000006a0| 28 4a 25 29 3d 58 24 28 | 61 25 21 28 4a 25 2a 38 |(J%)=X$(|a%!(J%*8|
|000006b0| 2d 34 29 29 3a ed 3a 58 | 24 28 29 3d 53 50 24 28 |-4)):.:X|$()=SP$(|
|000006c0| 29 3a 53 50 24 28 29 3d | 22 22 0d 03 70 3a 20 e3 |):SP$()=|""..p: .|
|000006d0| 4a 25 3d 31 20 b8 20 43 | 30 25 2b 31 3a 53 50 28 |J%=1 . C|0%+1:SP(|
|000006e0| 4a 25 29 3d 4e 28 61 25 | 21 28 4a 25 2a 38 2d 34 |J%)=N(a%|!(J%*8-4|
|000006f0| 29 29 3a ed 3a 4e 28 29 | 3d 53 50 28 29 3a 53 50 |)):.:N()|=SP():SP|
|00000700| 28 29 3d 30 0d 03 7a 06 | 20 3a 0d 03 84 06 20 f5 |()=0..z.| :.... .|
|00000710| 0d 03 8e 0c 20 52 25 3d | 52 25 2b 31 0d 03 98 1b |.... R%=|R%+1....|
|00000720| 20 fd 20 52 25 3e 43 30 | 25 20 84 20 bb 28 58 24 | . R%>C0|% . .(X$|
|00000730| 28 52 25 29 29 3e 30 0d | 03 a2 06 20 3a 0d 03 ac |(R%))>0.|... :...|
|00000740| 35 20 44 65 63 69 6d 61 | 6c 24 3d c1 44 63 6d 6c |5 Decima|l$=.Dcml|
|00000750| 24 28 31 29 2c a7 44 63 | 6d 6c 24 28 31 29 2c c0 |$(1),.Dc|ml$(1),.|
|00000760| 58 24 28 52 25 29 2c 37 | 29 2c 31 29 2c 6c 65 6e |X$(R%),7|),1),len|
|00000770| 25 29 0d 03 b6 36 20 e7 | c0 58 24 28 52 25 29 2c |%)...6 .|.X$(R%),|
|00000780| 37 29 3d c2 58 24 28 52 | 25 29 2c 37 29 20 6c 65 |7)=.X$(R|%),7) le|
|00000790| 6e 25 3d 31 3a 44 65 63 | 69 6d 61 6c 24 3d c2 58 |n%=1:Dec|imal$=.X|
|000007a0| 24 28 52 25 29 2c 31 29 | 0d 03 c0 33 20 e7 c2 58 |$(R%),1)|...3 ..X|
|000007b0| 24 28 52 25 29 2c 35 29 | 3d 22 30 30 30 30 30 22 |$(R%),5)|="00000"|
|000007c0| 20 6c 65 6e 25 3d 30 3a | 44 65 63 69 6d 61 6c 24 | len%=0:|Decimal$|
|000007d0| 3d c2 58 24 28 52 25 29 | 2c 31 29 0d 03 ca 06 20 |=.X$(R%)|,1).... |
|000007e0| 3a 0d 03 d4 0f 20 e7 20 | 6c 65 6e 25 3e 30 20 8c |:.... . |len%>0 .|
|000007f0| 0d 03 de 14 20 20 f1 23 | 20 63 68 61 6e 6e 65 6c |....  .#| channel|
|00000800| 2c 41 30 25 0d 03 e8 14 | 20 20 f1 23 20 63 68 61 |,A0%....|  .# cha|
|00000810| 6e 6e 65 6c 2c 42 30 25 | 0d 03 f2 15 20 20 f1 23 |nnel,B0%|....  .#|
|00000820| 20 63 68 61 6e 6e 65 6c | 2c 6c 65 6e 25 0d 03 fc | channel|,len%...|
|00000830| 19 20 20 f1 23 20 63 68 | 61 6e 6e 65 6c 2c 44 65 |.  .# ch|annel,De|
|00000840| 63 69 6d 61 6c 24 0d 04 | 06 23 20 20 f2 70 72 69 |cimal$..|.#  .pri|
|00000850| 6e 74 28 41 30 25 2c 42 | 30 25 2c 6c 65 6e 25 2c |nt(A0%,B|0%,len%,|
|00000860| 44 65 63 69 6d 61 6c 24 | 29 0d 04 10 11 20 20 63 |Decimal$|)....  c|
|00000870| 6f 75 6e 74 65 72 25 2b | 3d 31 0d 04 1a 06 20 cd |ounter%+|=1.... .|
|00000880| 0d 04 24 28 20 41 30 25 | 3d 30 3a 42 30 25 3d 30 |..$( A0%|=0:B0%=0|
|00000890| 3a 6c 65 6e 25 3d 30 3a | 52 25 3d 30 3a 44 65 63 |:len%=0:|R%=0:Dec|
|000008a0| 69 6d 61 6c 24 3d 22 22 | 0d 04 2e 09 20 ed 20 57 |imal$=""|.... . W|
|000008b0| 25 0d 04 38 09 20 ed 20 | 56 25 0d 04 42 06 20 3a |%..8. . |V%..B. :|
|000008c0| 0d 04 4c 09 20 f2 65 6e | 64 0d 04 56 06 20 e0 0d |..L. .en|d..V. ..|
|000008d0| 04 60 06 20 3a 0d 04 6a | 0d 20 dd f2 64 69 76 69 |.`. :..j|. ..divi|
|000008e0| 64 65 0d 04 74 18 20 41 | 31 25 3d 31 30 2a 28 41 |de..t. A|1%=10*(A|
|000008f0| 31 25 2d 44 25 2a 42 31 | 25 29 0d 04 7e 0d 20 e7 |1%-D%*B1|%)..~. .|
|00000900| 41 31 25 3d 30 20 8c 0d | 04 88 0f 20 20 e7 20 43 |A1%=0 ..|...  . C|
|00000910| 31 25 3d 30 20 e1 0d 04 | 92 07 20 20 cd 0d 04 9c |1%=0 ...|..  ....|
|00000920| 06 20 cd 0d 04 a6 12 20 | 44 25 3d a8 28 41 31 25 |. ..... |D%=.(A1%|
|00000930| 2f 42 31 25 29 0d 04 b0 | 11 20 41 24 3d c2 c3 28 |/B1%)...|. A$=..(|
|00000940| 44 25 29 2c 31 29 0d 04 | ba 14 20 f2 73 74 72 69 |D%),1)..|.. .stri|
|00000950| 6e 67 73 5f 63 72 65 61 | 74 65 0d 04 c4 0f 20 f2 |ngs_crea|te.... .|
|00000960| 63 6f 75 6e 74 64 6f 77 | 6e 0d 04 ce 1c 20 44 63 |countdow|n.... Dc|
|00000970| 6d 6c 24 28 31 29 3d c0 | 44 63 6d 6c 24 28 31 29 |ml$(1)=.|Dcml$(1)|
|00000980| 2c 32 34 38 29 0d 04 d8 | 06 20 e1 0d 04 e2 06 20 |,248)...|. ..... |
|00000990| 3a 0d 04 ec 10 20 dd f2 | 63 6f 75 6e 74 64 6f 77 |:.... ..|countdow|
|000009a0| 6e 0d 04 f6 0b 20 43 31 | 25 2d 3d 31 0d 05 00 0e |n.... C1|%-=1....|
|000009b0| 20 e7 20 43 31 25 3e 30 | 20 8c 0d 05 0a 0d 20 20 | . C1%>0| .....  |
|000009c0| f2 64 69 76 69 64 65 0d | 05 14 06 20 cd 0d 05 1e |.divide.|... ....|
|000009d0| 06 20 e1 0d 05 28 06 20 | 3a 0d 05 32 15 20 dd f2 |. ...(. |:..2. ..|
|000009e0| 73 74 72 69 6e 67 73 5f | 63 72 65 61 74 65 0d 05 |strings_|create..|
|000009f0| 3c 18 20 e7 20 a9 28 44 | 63 6d 6c 24 28 31 29 29 |<. . .(D|cml$(1))|
|00000a00| 3c 32 34 39 20 8c 0d 05 | 46 12 20 20 44 63 6d 6c |<249 ...|F.  Dcml|
|00000a10| 24 28 31 29 2b 3d 41 24 | 0d 05 50 06 20 cd 0d 05 |$(1)+=A$|..P. ...|
|00000a20| 5a 1d 20 e7 20 a9 28 44 | 63 6d 6c 24 28 63 6f 75 |Z. . .(D|cml$(cou|
|00000a30| 6e 74 25 29 29 3d 32 34 | 30 20 8c 0d 05 64 0f 20 |nt%))=24|0 ...d. |
|00000a40| 20 63 6f 75 6e 74 25 2b | 3d 31 0d 05 6e 06 20 cd | count%+|=1..n. .|
|00000a50| 0d 05 78 2f 20 e7 20 a9 | 28 44 63 6d 6c 24 28 31 |..x/ . .|(Dcml$(1|
|00000a60| 29 29 3d 32 34 39 20 80 | 20 a9 28 44 63 6d 6c 24 |))=249 .| .(Dcml$|
|00000a70| 28 63 6f 75 6e 74 25 29 | 29 3c 32 34 30 20 8c 0d |(count%)|)<240 ..|
|00000a80| 05 82 17 20 20 44 63 6d | 6c 24 28 63 6f 75 6e 74 |...  Dcm|l$(count|
|00000a90| 25 29 2b 3d 41 24 0d 05 | 8c 06 20 cd 0d 05 96 06 |%)+=A$..|.. .....|
|00000aa0| 20 e1 0d 05 a0 06 20 3a | 0d 05 aa 17 20 dd f2 73 | ..... :|.... ..s|
|00000ab0| 74 72 69 6e 67 73 5f 6c | 65 6e 67 74 68 65 6e 0d |trings_l|engthen.|
|00000ac0| 05 b4 18 20 e7 a9 28 44 | 63 6d 6c 24 28 31 29 29 |... ..(D|cml$(1))|
|00000ad0| 3e 3d 32 34 38 20 8c 0d | 05 be 13 20 20 e3 4a 25 |>=248 ..|...  .J%|
|00000ae0| 3d 32 20 b8 20 43 33 25 | 2b 31 0d 05 c8 3e 20 20 |=2 . C3%|+1...>  |
|00000af0| 20 e7 20 a9 28 44 63 6d | 6c 24 28 4a 25 29 29 3e | . .(Dcm|l$(J%))>|
|00000b00| 3d 31 20 8c 20 44 63 6d | 6c 24 28 4a 25 29 3d c2 |=1 . Dcm|l$(J%)=.|
|00000b10| 44 63 6d 6c 24 28 4a 25 | 2d 31 29 2c 38 29 2b 44 |Dcml$(J%|-1),8)+D|
|00000b20| 63 6d 6c 24 28 4a 25 29 | 0d 05 d2 07 20 20 ed 0d |cml$(J%)|....  ..|
|00000b30| 05 dc 06 20 cd 0d 05 e6 | 3a 20 20 e3 4a 25 3d 32 |... ....|:  .J%=2|
|00000b40| 20 b8 20 43 33 25 2b 31 | 3a 44 63 6d 6c 24 28 4a | . C3%+1|:Dcml$(J|
|00000b50| 25 29 3d c2 44 63 6d 6c | 24 28 4a 25 29 2c a9 28 |%)=.Dcml|$(J%),.(|
|00000b60| 44 63 6d 6c 24 28 4a 25 | 29 29 2d 31 29 3a ed 0d |Dcml$(J%|))-1):..|
|00000b70| 05 f0 06 20 e1 0d 05 fa | 06 20 3a 0d 06 04 16 20 |... ....|. :.... |
|00000b80| dd f2 73 74 72 69 6e 67 | 73 5f 73 65 63 74 69 6f |..string|s_sectio|
|00000b90| 6e 0d 06 0e 0d 20 63 6f | 75 6e 74 25 3d 31 0d 06 |n.... co|unt%=1..|
|00000ba0| 18 12 20 e3 4a 25 3d 31 | 20 b8 20 43 33 25 2b 31 |.. .J%=1| . C3%+1|
|00000bb0| 0d 06 22 1a 20 20 e3 4b | 25 3d 31 20 b8 20 a9 28 |..".  .K|%=1 . .(|
|00000bc0| 44 63 6d 6c 24 28 4a 25 | 29 29 0d 06 2c 20 20 20 |Dcml$(J%|))..,   |
|00000bd0| 20 e7 20 a9 28 c1 44 63 | 6d 6c 24 28 4a 25 29 2c | . .(.Dc|ml$(J%),|
|00000be0| 4b 25 2c 38 29 29 3d 38 | 20 8c 0d 06 36 44 20 20 |K%,8))=8| ...6D  |
|00000bf0| 20 20 58 24 28 63 6f 75 | 6e 74 25 29 3d c1 44 63 |  X$(cou|nt%)=.Dc|
|00000c00| 6d 6c 24 28 4a 25 29 2c | 4b 25 2c 31 30 29 3a f4 |ml$(J%),|K%,10):.|
|00000c10| 20 31 30 20 74 6f 20 61 | 76 6f 69 64 20 6c 6f 73 | 10 to a|void los|
|00000c20| 73 20 6f 66 20 61 63 63 | 75 72 61 63 79 2e 0d 06 |s of acc|uracy...|
|00000c30| 40 18 20 20 20 20 4e 28 | 63 6f 75 6e 74 25 29 3d |@.    N(|count%)=|
|00000c40| 63 6f 75 6e 74 25 0d 06 | 4a 17 20 20 20 20 20 e7 |count%..|J.     .|
|00000c50| 20 63 6f 75 6e 74 25 3c | 43 30 25 20 8c 0d 06 54 | count%<|C0% ...T|
|00000c60| 13 20 20 20 20 20 20 63 | 6f 75 6e 74 25 2b 3d 31 |.      c|ount%+=1|
|00000c70| 0d 06 5e 0a 20 20 20 20 | 20 cd 0d 06 68 08 20 20 |..^.    | ...h.  |
|00000c80| 20 cd 0d 06 72 0a 20 20 | ed 20 4b 25 0d 06 7c 09 | ...r.  |. K%..|.|
|00000c90| 20 ed 20 4a 25 0d 06 86 | 06 20 e1 0d 06 90 06 20 | . J%...|. ..... |
|00000ca0| 3a 0d 06 9a 0d 20 dd f2 | 70 72 69 6d 65 73 0d 06 |:.... ..|primes..|
|00000cb0| a4 0e 20 50 72 69 6d 65 | 73 25 3d 30 0d 06 ae 1a |.. Prime|s%=0....|
|00000cc0| 20 e3 20 49 25 3d 32 20 | b8 20 50 72 69 6d 65 73 | . I%=2 |. Primes|
|00000cd0| 5f 66 72 6f 6d 25 0d 06 | b8 30 20 e7 20 4b 28 49 |_from%..|.0 . K(I|
|00000ce0| 25 29 3d 31 20 8c 20 8d | 64 42 46 20 8b 20 50 72 |%)=1 . .|dBF . Pr|
|00000cf0| 69 6d 65 73 25 2b 3d 31 | 3a 50 28 50 72 69 6d 65 |imes%+=1|:P(Prime|
|00000d00| 73 25 29 3d 49 25 0d 06 | c2 08 20 ed 20 49 0d 06 |s%)=I%..|.. . I..|
|00000d10| cc 06 20 e1 0d 06 d6 06 | 20 3a 0d 06 e0 13 20 dd |.. .....| :.... .|
|00000d20| f2 70 72 69 6d 65 73 5f | 63 6f 75 6e 74 0d 06 ea |.primes_|count...|
|00000d30| 0e 20 50 72 69 6d 65 73 | 25 3d 30 0d 06 f4 20 20 |. Primes|%=0...  |
|00000d40| e3 20 49 25 3d 32 20 b8 | 20 a8 28 b6 28 50 72 69 |. I%=2 .| .(.(Pri|
|00000d50| 6d 65 73 5f 66 72 6f 6d | 25 29 29 0d 06 fe 15 20 |mes_from|%)).... |
|00000d60| e7 20 4b 28 49 25 29 3d | 31 20 8c 20 8d 54 66 47 |. K(I%)=|1 . .TfG|
|00000d70| 0d 07 08 22 20 e3 20 4a | 25 3d 32 2a 49 25 20 b8 |..." . J|%=2*I% .|
|00000d80| 20 50 72 69 6d 65 73 5f | 66 72 6f 6d 25 20 88 20 | Primes_|from% . |
|00000d90| 49 25 0d 07 12 0c 20 4b | 28 4a 25 29 3d 31 0d 07 |I%.... K|(J%)=1..|
|00000da0| 1c 08 20 ed 4a 25 0d 07 | 26 08 20 ed 49 25 0d 07 |.. .J%..|&. .I%..|
|00000db0| 30 1a 20 e3 20 49 25 3d | 32 20 b8 20 50 72 69 6d |0. . I%=|2 . Prim|
|00000dc0| 65 73 5f 66 72 6f 6d 25 | 0d 07 3a 22 20 e7 20 4b |es_from%|..:" . K|
|00000dd0| 28 49 25 29 3d 31 20 8c | 20 8d 44 44 47 20 8b 20 |(I%)=1 .| .DDG . |
|00000de0| 50 72 69 6d 65 73 25 2b | 3d 31 0d 07 44 08 20 ed |Primes%+|=1..D. .|
|00000df0| 49 25 0d 07 4e 06 20 e1 | 0d 07 58 06 20 3a 0d 07 |I%..N. .|..X. :..|
|00000e00| 62 0b 20 dd f2 72 65 61 | 64 0d 07 6c 0f 20 63 6f |b. ..rea|d..l. co|
|00000e10| 75 6e 74 65 72 25 3d 30 | 0d 07 76 14 20 63 68 61 |unter%=0|..v. cha|
|00000e20| 6e 6e 65 6c 3d 8e 20 4e | 61 6d 65 24 0d 07 80 16 |nnel=. N|ame$....|
|00000e30| 20 e8 23 63 68 61 6e 6e | 65 6c 2c 64 69 67 69 74 | .#chann|el,digit|
|00000e40| 73 25 0d 07 8a 06 20 f5 | 0d 07 94 13 20 20 e8 23 |s%.... .|....  .#|
|00000e50| 63 68 61 6e 6e 65 6c 2c | 4e 31 25 0d 07 9e 13 20 |channel,|N1%.... |
|00000e60| 20 e8 23 63 68 61 6e 6e | 65 6c 2c 4e 32 25 0d 07 | .#chann|el,N2%..|
|00000e70| a8 13 20 20 e8 23 63 68 | 61 6e 6e 65 6c 2c 4e 33 |..  .#ch|annel,N3|
|00000e80| 25 0d 07 b2 18 20 20 e8 | 23 63 68 61 6e 6e 65 6c |%....  .|#channel|
|00000e90| 2c 44 65 63 69 6d 61 6c | 24 0d 07 bc 21 20 f2 70 |,Decimal|$...! .p|
|00000ea0| 72 69 6e 74 28 4e 31 25 | 2c 4e 32 25 2c 4e 33 25 |rint(N1%|,N2%,N3%|
|00000eb0| 2c 44 65 63 69 6d 61 6c | 24 29 0d 07 c6 10 20 63 |,Decimal|$).... c|
|00000ec0| 6f 75 6e 74 65 72 25 2b | 3d 31 0d 07 d0 10 20 fd |ounter%+|=1.... .|
|00000ed0| 20 c5 23 63 68 61 6e 6e | 65 6c 0d 07 da 06 20 f1 | .#chann|el.... .|
|00000ee0| 0d 07 e4 0e 20 d9 23 63 | 68 61 6e 6e 65 6c 0d 07 |.... .#c|hannel..|
|00000ef0| ee 06 20 e1 0d 07 f8 06 | 20 3a 0d 08 02 1f 20 dd |.. .....| :.... .|
|00000f00| f2 70 72 69 6e 74 28 70 | 25 2c 71 25 2c 72 25 2c |.print(p|%,q%,r%,|
|00000f10| 44 65 63 69 6d 61 6c 24 | 29 0d 08 0c 06 20 f1 0d |Decimal$|).... ..|
|00000f20| 08 16 25 20 f1 70 25 3b | 89 28 34 2d a4 4c 28 71 |..% .p%;|.(4-.L(q|
|00000f30| 25 29 29 71 25 3b 89 28 | 34 2d a4 4c 28 72 25 29 |%))q%;.(|4-.L(r%)|
|00000f40| 29 72 25 3b 0d 08 20 18 | 20 f1 89 28 34 29 c0 44 |)r%;.. .| ..(4).D|
|00000f50| 65 63 69 6d 61 6c 24 2c | 35 38 29 3b 0d 08 2a 2e |ecimal$,|58);..*.|
|00000f60| 20 e7 a9 28 44 65 63 69 | 6d 61 6c 24 29 3e 35 38 | ..(Deci|mal$)>58|
|00000f70| 20 8c 20 f1 89 28 32 32 | 29 c1 44 65 63 69 6d 61 | . ..(22|).Decima|
|00000f80| 6c 24 2c 35 39 2c 35 38 | 29 3b 0d 08 34 30 20 e7 |l$,59,58|);..40 .|
|00000f90| a9 28 44 65 63 69 6d 61 | 6c 24 29 3e 31 31 36 20 |.(Decima|l$)>116 |
|00000fa0| 8c 20 f1 89 28 32 32 29 | c1 44 65 63 69 6d 61 6c |. ..(22)|.Decimal|
|00000fb0| 24 2c 31 31 37 2c 35 38 | 29 3b 0d 08 3e 30 20 e7 |$,117,58|);..>0 .|
|00000fc0| a9 28 44 65 63 69 6d 61 | 6c 24 29 3e 31 37 34 20 |.(Decima|l$)>174 |
|00000fd0| 8c 20 f1 89 28 32 32 29 | c1 44 65 63 69 6d 61 6c |. ..(22)|.Decimal|
|00000fe0| 24 2c 31 37 35 2c 35 38 | 29 3b 0d 08 48 30 20 e7 |$,175,58|);..H0 .|
|00000ff0| a9 28 44 65 63 69 6d 61 | 6c 24 29 3e 32 33 32 20 |.(Decima|l$)>232 |
|00001000| 8c 20 f1 89 28 32 32 29 | c1 44 65 63 69 6d 61 6c |. ..(22)|.Decimal|
|00001010| 24 2c 32 33 33 2c 32 33 | 29 3b 0d 08 52 06 20 e1 |$,233,23|);..R. .|
|00001020| 0d 08 5c 06 20 3a 0d 08 | 66 0a 20 dd f2 65 6e 64 |..\. :..|f. ..end|
|00001030| 0d 08 70 07 20 f1 27 0d | 08 7a 0c 20 f1 20 74 69 |..p. .'.|.z. . ti|
|00001040| 6d 65 24 0d 08 84 09 20 | f1 20 91 24 0d 08 8e 18 |me$.... |. .$....|
|00001050| 20 f1 20 a8 28 91 2f 31 | 30 30 29 3b 22 20 73 65 | . .(./1|00);" se|
|00001060| 63 73 20 22 0d 08 98 1d | 20 f1 22 49 6e 74 65 67 |cs "....| ."Integ|
|00001070| 65 72 73 20 74 6f 20 20 | 22 3b 64 69 67 69 74 73 |ers to  |";digits|
|00001080| 25 0d 08 a2 30 20 f1 27 | 3b 63 6f 75 6e 74 65 72 |%...0 .'|;counter|
|00001090| 25 3b 22 20 44 61 74 61 | 20 66 69 6c 65 20 69 74 |%;" Data| file it|
|000010a0| 65 6d 73 20 6e 6f 77 20 | 6f 6e 20 64 69 73 63 2e |ems now |on disc.|
|000010b0| 22 0d 08 ac 0e 20 d9 23 | 63 68 61 6e 6e 65 6c 0d |".... .#|channel.|
|000010c0| 08 b6 1f 20 e8 22 52 65 | 76 69 65 77 20 64 61 74 |... ."Re|view dat|
|000010d0| 61 20 28 59 2f 4e 29 20 | 22 3b 61 6e 73 24 0d 08 |a (Y/N) |";ans$..|
|000010e0| c0 15 20 e7 20 61 6e 73 | 24 3d 22 59 22 20 f2 72 |.. . ans|$="Y" .r|
|000010f0| 65 61 64 0d 08 ca 06 20 | e1 0d 08 d4 06 20 3a 0d |ead.... |..... :.|
|00001100| 08 de 10 20 f4 20 3e 41 | 72 6d 5f 53 6f 72 74 0d |... . >A|rm_Sort.|
|00001110| 08 e8 0f 20 dd f2 61 73 | 73 65 6d 62 6c 65 0d 08 |... ..as|semble..|
|00001120| f2 0d 20 de 20 63 25 20 | 35 30 30 0d 08 fc 21 20 |.. . c% |500...! |
|00001130| 70 6f 69 6e 74 65 72 3d | 30 3a 6c 65 66 74 3d 31 |pointer=|0:left=1|
|00001140| 3a 72 69 67 68 74 3d 32 | 3a 69 3d 33 0d 09 06 23 |:right=2|:i=3...#|
|00001150| 20 6c 61 73 74 3d 34 3a | 74 65 6d 70 31 3d 35 3a | last=4:|temp1=5:|
|00001160| 74 65 6d 70 32 3d 36 3a | 74 65 6d 70 33 3d 37 0d |temp2=6:|temp3=7.|
|00001170| 09 10 18 20 73 70 3d 31 | 33 3a 6c 69 6e 6b 3d 31 |... sp=1|3:link=1|
|00001180| 34 3a 70 63 3d 31 35 0d | 09 1a 15 20 e3 20 70 61 |4:pc=15.|... . pa|
|00001190| 73 73 25 3d 30 20 b8 20 | 32 20 88 32 0d 09 24 0a |ss%=0 . |2 .2..$.|
|000011a0| 20 50 25 3d 63 25 0d 09 | 2e 0f 20 5b 4f 50 54 20 | P%=c%..|.. [OPT |
|000011b0| 70 61 73 73 25 0d 09 38 | 0b 20 2e 71 73 6f 72 74 |pass%..8|. .qsort|
|000011c0| 0d 09 42 27 20 53 54 4d | 46 44 20 28 73 70 29 21 |..B' STM|FD (sp)!|
|000011d0| 2c 7b 6c 65 66 74 2c 72 | 69 67 68 74 2c 6c 61 73 |,{left,r|ight,las|
|000011e0| 74 2c 6c 69 6e 6b 7d 0d | 09 4c 13 20 43 4d 50 20 |t,link}.|.L. CMP |
|000011f0| 6c 65 66 74 2c 72 69 67 | 68 74 0d 09 56 27 20 4c |left,rig|ht..V' L|
|00001200| 44 4d 47 45 46 44 20 28 | 73 70 29 21 2c 7b 6c 65 |DMGEFD (|sp)!,{le|
|00001210| 66 74 2c 72 69 67 68 74 | 2c 6c 61 73 74 2c 70 63 |ft,right|,last,pc|
|00001220| 7d 0d 09 60 24 20 4c 44 | 52 20 74 65 6d 70 31 2c |}..`$ LD|R temp1,|
|00001230| 5b 70 6f 69 6e 74 65 72 | 2c 6c 65 66 74 2c 4c 53 |[pointer|,left,LS|
|00001240| 4c 20 23 33 5d 0d 09 6a | 19 20 41 44 44 20 74 65 |L #3]..j|. ADD te|
|00001250| 6d 70 33 2c 6c 65 66 74 | 2c 72 69 67 68 74 0d 09 |mp3,left|,right..|
|00001260| 74 1b 20 4d 4f 56 20 74 | 65 6d 70 33 2c 74 65 6d |t. MOV t|emp3,tem|
|00001270| 70 33 2c 4c 53 52 20 23 | 31 0d 09 7e 25 20 4c 44 |p3,LSR #|1..~% LD|
|00001280| 52 20 74 65 6d 70 32 2c | 5b 70 6f 69 6e 74 65 72 |R temp2,|[pointer|
|00001290| 2c 74 65 6d 70 33 2c 4c | 53 4c 20 23 33 5d 0d 09 |,temp3,L|SL #3]..|
|000012a0| 88 24 20 53 54 52 20 74 | 65 6d 70 32 2c 5b 70 6f |.$ STR t|emp2,[po|
|000012b0| 69 6e 74 65 72 2c 6c 65 | 66 74 2c 4c 53 4c 20 23 |inter,le|ft,LSL #|
|000012c0| 33 5d 0d 09 92 25 20 53 | 54 52 20 74 65 6d 70 31 |3]...% S|TR temp1|
|000012d0| 2c 5b 70 6f 69 6e 74 65 | 72 2c 74 65 6d 70 33 2c |,[pointe|r,temp3,|
|000012e0| 4c 53 4c 20 23 33 5d 0d | 09 9c 12 20 4d 4f 56 20 |LSL #3].|... MOV |
|000012f0| 6c 61 73 74 2c 6c 65 66 | 74 0d 09 a6 12 20 41 44 |last,lef|t.... AD|
|00001300| 44 20 69 2c 6c 65 66 74 | 2c 23 31 0d 09 b0 1b 20 |D i,left|,#1.... |
|00001310| 53 55 42 20 70 6f 69 6e | 74 65 72 2c 70 6f 69 6e |SUB poin|ter,poin|
|00001320| 74 65 72 2c 23 34 0d 09 | ba 24 20 4c 44 52 20 74 |ter,#4..|.$ LDR t|
|00001330| 65 6d 70 31 2c 5b 70 6f | 69 6e 74 65 72 2c 6c 65 |emp1,[po|inter,le|
|00001340| 66 74 2c 4c 53 4c 20 23 | 33 5d 0d 09 c4 19 20 41 |ft,LSL #|3].... A|
|00001350| 44 44 20 74 65 6d 70 33 | 2c 6c 65 66 74 2c 72 69 |DD temp3|,left,ri|
|00001360| 67 68 74 0d 09 ce 1b 20 | 4d 4f 56 20 74 65 6d 70 |ght.... |MOV temp|
|00001370| 33 2c 74 65 6d 70 33 2c | 4c 53 52 20 23 31 0d 09 |3,temp3,|LSR #1..|
|00001380| d8 25 20 4c 44 52 20 74 | 65 6d 70 32 2c 5b 70 6f |.% LDR t|emp2,[po|
|00001390| 69 6e 74 65 72 2c 74 65 | 6d 70 33 2c 4c 53 4c 20 |inter,te|mp3,LSL |
|000013a0| 23 33 5d 0d 09 e2 24 20 | 53 54 52 20 74 65 6d 70 |#3]...$ |STR temp|
|000013b0| 32 2c 5b 70 6f 69 6e 74 | 65 72 2c 6c 65 66 74 2c |2,[point|er,left,|
|000013c0| 4c 53 4c 20 23 33 5d 0d | 09 ec 25 20 53 54 52 20 |LSL #3].|..% STR |
|000013d0| 74 65 6d 70 31 2c 5b 70 | 6f 69 6e 74 65 72 2c 74 |temp1,[p|ointer,t|
|000013e0| 65 6d 70 33 2c 4c 53 4c | 20 23 33 5d 0d 09 f6 12 |emp3,LSL| #3]....|
|000013f0| 20 4d 4f 56 20 6c 61 73 | 74 2c 6c 65 66 74 0d 0a | MOV las|t,left..|
|00001400| 00 1b 20 41 44 44 20 70 | 6f 69 6e 74 65 72 2c 70 |.. ADD p|ointer,p|
|00001410| 6f 69 6e 74 65 72 2c 23 | 34 0d 0a 0a 0a 20 2e 6c |ointer,#|4.... .l|
|00001420| 6f 6f 70 0d 0a 14 21 20 | 4c 44 52 20 74 65 6d 70 |oop...! |LDR temp|
|00001430| 31 2c 5b 70 6f 69 6e 74 | 65 72 2c 69 2c 4c 53 4c |1,[point|er,i,LSL|
|00001440| 20 23 33 5d 0d 0a 1e 24 | 20 4c 44 52 20 74 65 6d | #3]...$| LDR tem|
|00001450| 70 32 2c 5b 70 6f 69 6e | 74 65 72 2c 6c 65 66 74 |p2,[poin|ter,left|
|00001460| 2c 4c 53 4c 20 23 33 5d | 0d 0a 28 14 20 43 4d 50 |,LSL #3]|..(. CMP|
|00001470| 20 74 65 6d 70 31 2c 74 | 65 6d 70 32 0d 0a 32 17 | temp1,t|emp2..2.|
|00001480| 20 42 47 45 20 67 72 65 | 61 74 65 72 6f 72 65 71 | BGE gre|ateroreq|
|00001490| 75 61 6c 0d 0a 3c 15 20 | 41 44 44 20 6c 61 73 74 |ual..<. |ADD last|
|000014a0| 2c 6c 61 73 74 2c 23 31 | 0d 0a 46 24 20 4c 44 52 |,last,#1|..F$ LDR|
|000014b0| 20 74 65 6d 70 31 2c 5b | 70 6f 69 6e 74 65 72 2c | temp1,[|pointer,|
|000014c0| 6c 61 73 74 2c 4c 53 4c | 20 23 33 5d 0d 0a 50 21 |last,LSL| #3]..P!|
|000014d0| 20 4c 44 52 20 74 65 6d | 70 32 2c 5b 70 6f 69 6e | LDR tem|p2,[poin|
|000014e0| 74 65 72 2c 69 2c 4c 53 | 4c 20 23 33 5d 0d 0a 5a |ter,i,LS|L #3]..Z|
|000014f0| 24 20 53 54 52 20 74 65 | 6d 70 32 2c 5b 70 6f 69 |$ STR te|mp2,[poi|
|00001500| 6e 74 65 72 2c 6c 61 73 | 74 2c 4c 53 4c 20 23 33 |nter,las|t,LSL #3|
|00001510| 5d 0d 0a 64 21 20 53 54 | 52 20 74 65 6d 70 31 2c |]..d! ST|R temp1,|
|00001520| 5b 70 6f 69 6e 74 65 72 | 2c 69 2c 4c 53 4c 20 23 |[pointer|,i,LSL #|
|00001530| 33 5d 0d 0a 6e 1b 20 53 | 55 42 20 70 6f 69 6e 74 |3]..n. S|UB point|
|00001540| 65 72 2c 70 6f 69 6e 74 | 65 72 2c 23 34 0d 0a 78 |er,point|er,#4..x|
|00001550| 24 20 4c 44 52 20 74 65 | 6d 70 31 2c 5b 70 6f 69 |$ LDR te|mp1,[poi|
|00001560| 6e 74 65 72 2c 6c 61 73 | 74 2c 4c 53 4c 20 23 33 |nter,las|t,LSL #3|
|00001570| 5d 0d 0a 82 21 20 4c 44 | 52 20 74 65 6d 70 32 2c |]...! LD|R temp2,|
|00001580| 5b 70 6f 69 6e 74 65 72 | 2c 69 2c 4c 53 4c 20 23 |[pointer|,i,LSL #|
|00001590| 33 5d 0d 0a 8c 24 20 53 | 54 52 20 74 65 6d 70 32 |3]...$ S|TR temp2|
|000015a0| 2c 5b 70 6f 69 6e 74 65 | 72 2c 6c 61 73 74 2c 4c |,[pointe|r,last,L|
|000015b0| 53 4c 20 23 33 5d 0d 0a | 96 21 20 53 54 52 20 74 |SL #3]..|.! STR t|
|000015c0| 65 6d 70 31 2c 5b 70 6f | 69 6e 74 65 72 2c 69 2c |emp1,[po|inter,i,|
|000015d0| 4c 53 4c 20 23 33 5d 0d | 0a a0 1b 20 41 44 44 20 |LSL #3].|... ADD |
|000015e0| 70 6f 69 6e 74 65 72 2c | 70 6f 69 6e 74 65 72 2c |pointer,|pointer,|
|000015f0| 23 34 0d 0a aa 14 20 2e | 67 72 65 61 74 65 72 6f |#4.... .|greatero|
|00001600| 72 65 71 75 61 6c 0d 0a | b4 0f 20 41 44 44 20 69 |requal..|.. ADD i|
|00001610| 2c 69 2c 23 31 0d 0a be | 10 20 43 4d 50 20 69 2c |,i,#1...|. CMP i,|
|00001620| 72 69 67 68 74 0d 0a c8 | 0d 20 42 4c 45 20 6c 6f |right...|. BLE lo|
|00001630| 6f 70 0d 0a d2 24 20 4c | 44 52 20 74 65 6d 70 31 |op...$ L|DR temp1|
|00001640| 2c 5b 70 6f 69 6e 74 65 | 72 2c 6c 65 66 74 2c 4c |,[pointe|r,left,L|
|00001650| 53 4c 20 23 33 5d 0d 0a | dc 24 20 4c 44 52 20 74 |SL #3]..|.$ LDR t|
|00001660| 65 6d 70 32 2c 5b 70 6f | 69 6e 74 65 72 2c 6c 61 |emp2,[po|inter,la|
|00001670| 73 74 2c 4c 53 4c 20 23 | 33 5d 0d 0a e6 24 20 53 |st,LSL #|3]...$ S|
|00001680| 54 52 20 74 65 6d 70 32 | 2c 5b 70 6f 69 6e 74 65 |TR temp2|,[pointe|
|00001690| 72 2c 6c 65 66 74 2c 4c | 53 4c 20 23 33 5d 0d 0a |r,left,L|SL #3]..|
|000016a0| f0 24 20 53 54 52 20 74 | 65 6d 70 31 2c 5b 70 6f |.$ STR t|emp1,[po|
|000016b0| 69 6e 74 65 72 2c 6c 61 | 73 74 2c 4c 53 4c 20 23 |inter,la|st,LSL #|
|000016c0| 33 5d 0d 0a fa 1b 20 53 | 55 42 20 70 6f 69 6e 74 |3].... S|UB point|
|000016d0| 65 72 2c 70 6f 69 6e 74 | 65 72 2c 23 34 0d 0b 04 |er,point|er,#4...|
|000016e0| 24 20 4c 44 52 20 74 65 | 6d 70 31 2c 5b 70 6f 69 |$ LDR te|mp1,[poi|
|000016f0| 6e 74 65 72 2c 6c 65 66 | 74 2c 4c 53 4c 20 23 33 |nter,lef|t,LSL #3|
|00001700| 5d 0d 0b 0e 24 20 4c 44 | 52 20 74 65 6d 70 32 2c |]...$ LD|R temp2,|
|00001710| 5b 70 6f 69 6e 74 65 72 | 2c 6c 61 73 74 2c 4c 53 |[pointer|,last,LS|
|00001720| 4c 20 23 33 5d 0d 0b 18 | 24 20 53 54 52 20 74 65 |L #3]...|$ STR te|
|00001730| 6d 70 32 2c 5b 70 6f 69 | 6e 74 65 72 2c 6c 65 66 |mp2,[poi|nter,lef|
|00001740| 74 2c 4c 53 4c 20 23 33 | 5d 0d 0b 22 24 20 53 54 |t,LSL #3|].."$ ST|
|00001750| 52 20 74 65 6d 70 31 2c | 5b 70 6f 69 6e 74 65 72 |R temp1,|[pointer|
|00001760| 2c 6c 61 73 74 2c 4c 53 | 4c 20 23 33 5d 0d 0b 2c |,last,LS|L #3]..,|
|00001770| 1b 20 41 44 44 20 70 6f | 69 6e 74 65 72 2c 70 6f |. ADD po|inter,po|
|00001780| 69 6e 74 65 72 2c 23 34 | 0d 0b 36 18 20 53 54 4d |inter,#4|..6. STM|
|00001790| 46 44 20 28 73 70 29 21 | 2c 7b 72 69 67 68 74 7d |FD (sp)!|,{right}|
|000017a0| 0d 0b 40 13 20 53 55 42 | 20 52 32 2c 6c 61 73 74 |..@. SUB| R2,last|
|000017b0| 2c 23 31 0d 0b 4a 0d 20 | 42 4c 20 71 73 6f 72 74 |,#1..J. |BL qsort|
|000017c0| 0d 0b 54 18 20 4c 44 4d | 46 44 20 28 73 70 29 21 |..T. LDM|FD (sp)!|
|000017d0| 2c 7b 72 69 67 68 74 7d | 0d 0b 5e 13 20 41 44 44 |,{right}|..^. ADD|
|000017e0| 20 72 31 2c 6c 61 73 74 | 2c 23 31 0d 0b 68 0d 20 | r1,last|,#1..h. |
|000017f0| 42 4c 20 71 73 6f 72 74 | 0d 0b 72 25 20 4c 44 4d |BL qsort|..r% LDM|
|00001800| 46 44 20 28 73 70 29 21 | 2c 7b 6c 65 66 74 2c 72 |FD (sp)!|,{left,r|
|00001810| 69 67 68 74 2c 6c 61 73 | 74 2c 70 63 7d 0d 0b 7c |ight,las|t,pc}..||
|00001820| 06 20 5d 0d 0b 86 0c 20 | ed 20 70 61 73 73 25 0d |. ].... |. pass%.|
|00001830| 0b 90 06 20 e1 0d ff    |                         |... ... |        |
+--------+-------------------------+-------------------------+--------+--------+