home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-07-20 | 6.0 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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 14 20 f4 20 3e | 24 2e 52 65 63 69 70 72 |.... . >|$.Recipr|
|00000010| 6f 63 61 6c 0d 00 14 1a | 20 f4 20 52 65 63 75 72 |ocal....| . Recur|
|00000020| 72 69 6e 67 20 64 65 63 | 69 6d 61 6c 73 2e 0d 00 |ring dec|imals...|
|00000030| 1e 13 20 f4 20 44 41 41 | 46 20 31 2e 31 30 2e 38 |.. . DAA|F 1.10.8|
|00000040| 39 0d 00 28 06 20 f4 0d | 00 32 06 20 3a 0d 00 3c |9..(. ..|.2. :..<|
|00000050| 06 20 db 0d 00 46 97 20 | f1 27 27 22 54 68 69 73 |. ...F. |.''"This|
|00000060| 20 70 72 6f 67 72 61 6d | 20 77 69 6c 6c 20 69 64 | program| will id|
|00000070| 65 6e 74 69 66 79 20 74 | 68 65 20 72 65 63 75 72 |entify t|he recur|
|00000080| 72 69 6e 67 20 64 65 63 | 69 6d 61 6c 73 20 61 73 |ring dec|imals as|
|00000090| 20 74 68 65 79 20 61 72 | 69 73 65 20 69 6e 20 61 | they ar|ise in a|
|000000a0| 20 73 65 72 69 65 73 20 | 6f 66 20 20 20 20 20 20 | series |of |
|000000b0| 20 20 20 20 20 20 20 20 | 72 65 63 69 70 72 6f 63 | |reciproc|
|000000c0| 61 6c 73 20 74 68 61 74 | 20 65 6e 64 73 20 77 69 |als that| ends wi|
|000000d0| 74 68 20 74 68 65 20 67 | 69 76 65 6e 20 64 65 6e |th the g|iven den|
|000000e0| 6f 6d 69 6e 61 74 6f 72 | 2e 22 0d 00 50 9e 20 f1 |ominator|."..P. .|
|000000f0| 27 27 22 20 41 73 20 72 | 65 63 75 72 72 69 6e 67 |''" As r|ecurring|
|00000100| 20 64 65 63 69 6d 61 6c | 73 20 63 61 6e 20 62 65 | decimal|s can be|
|00000110| 20 61 73 20 6c 6f 6e 67 | 20 61 73 20 74 68 65 20 | as long| as the |
|00000120| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 64 65 6e |value of| the den|
|00000130| 6f 6d 69 6e 61 74 6f 72 | 20 6d 69 6e 75 73 20 31 |ominator| minus 1|
|00000140| 2c 20 20 20 20 20 20 20 | 20 20 74 68 65 20 68 69 |, | the hi|
|00000150| 67 68 65 72 20 74 68 65 | 20 64 65 6e 6f 6d 69 6e |gher the| denomin|
|00000160| 61 74 6f 72 20 74 68 65 | 20 6c 6f 6e 67 65 72 20 |ator the| longer |
|00000170| 74 68 65 79 20 74 61 6b | 65 20 74 6f 20 63 61 6c |they tak|e to cal|
|00000180| 63 75 6c 61 74 65 2e 22 | 0d 00 5a 59 20 f1 27 27 |culate."|..ZY .''|
|00000190| 22 20 41 6c 6c 20 74 68 | 65 20 64 65 63 69 6d 61 |" All th|e decima|
|000001a0| 6c 20 65 78 70 61 6e 73 | 69 6f 6e 73 20 77 69 6c |l expans|ions wil|
|000001b0| 6c 20 62 65 20 73 61 76 | 65 64 20 75 6e 64 65 72 |l be sav|ed under|
|000001c0| 20 61 20 66 69 6c 65 20 | 6e 61 6d 65 20 73 65 74 | a file |name set|
|000001d0| 20 62 79 20 74 68 65 20 | 70 72 6f 67 72 61 6d 2e | by the |program.|
|000001e0| 22 0d 00 64 45 20 f1 27 | 27 8a 31 30 29 22 54 68 |"..dE .'|'.10)"Th|
|000001f0| 65 20 73 65 74 20 63 61 | 6e 20 6c 61 74 65 72 20 |e set ca|n later |
|00000200| 62 65 20 73 6f 72 74 65 | 64 20 62 79 20 6c 65 6e |be sorte|d by len|
|00000210| 67 74 68 20 75 73 69 6e | 67 20 53 6f 72 74 4c 65 |gth usin|g SortLe|
|00000220| 6e 67 74 68 2e 22 0d 00 | 6e 44 20 e8 27 27 22 53 |ngth."..|nD .''"S|
|00000230| 74 61 74 65 20 68 69 67 | 68 65 73 74 20 64 65 6e |tate hig|hest den|
|00000240| 6f 6d 69 6e 61 74 6f 72 | 20 72 65 71 75 69 72 65 |ominator| require|
|00000250| 64 20 6c 65 73 73 20 74 | 68 61 6e 20 32 35 36 2e |d less t|han 256.|
|00000260| 20 22 3b 64 69 67 69 74 | 73 25 0d 00 78 06 20 f5 | ";digit|s%..x. .|
|00000270| 0d 00 82 41 20 43 31 25 | 3d 64 69 67 69 74 73 25 |...A C1%|=digits%|
|00000280| 2b 31 30 3a 43 30 25 3d | 43 31 25 3a 43 32 25 3d |+10:C0%=|C1%:C2%=|
|00000290| 43 31 25 3a 43 33 25 3d | 28 a8 28 43 31 25 2f 32 |C1%:C3%=|(.(C1%/2|
|000002a0| 34 30 29 29 3a e7 43 33 | 25 3c 31 20 43 33 25 3d |40)):.C3|%<1 C3%=|
|000002b0| 31 0d 00 8c 1c 20 74 69 | 6d 65 24 3d 91 24 3a d1 |1.... ti|me$=.$:.|
|000002c0| 3d 30 3a 63 6f 75 6e 74 | 65 72 25 3d 30 0d 00 96 |=0:count|er%=0...|
|000002d0| 0f 20 de 20 61 25 20 43 | 30 25 2a 38 0d 00 a0 12 |. . a% C|0%*8....|
|000002e0| 20 de 44 63 6d 6c 24 28 | 43 33 25 2b 31 29 0d 00 | .Dcml$(|C3%+1)..|
|000002f0| aa 36 20 de 58 24 28 43 | 30 25 2b 31 29 2c 53 50 |.6 .X$(C|0%+1),SP|
|00000300| 24 28 43 30 25 2b 31 29 | 2c 53 50 28 43 30 25 2b |$(C0%+1)|,SP(C0%+|
|00000310| 31 29 2c 4e 28 43 30 25 | 2b 31 29 2c 4d 28 43 30 |1),N(C0%|+1),M(C0|
|00000320| 25 2b 31 29 0d 00 b4 13 | 20 dd a4 4c 28 57 29 3d |%+1)....| ..L(W)=|
|00000330| a9 28 c3 28 57 29 29 0d | 00 be 0e 20 f2 61 73 73 |.(.(W)).|... .ass|
|00000340| 65 6d 62 6c 65 0d 00 c8 | 1d 20 4e 61 6d 65 24 3d |emble...|. Name$=|
|00000350| 22 24 2e 52 63 70 22 2b | c3 28 64 69 67 69 74 73 |"$.Rcp"+|.(digits|
|00000360| 25 29 0d 00 d2 14 20 63 | 68 61 6e 6e 65 6c 3d ae |%).... c|hannel=.|
|00000370| 20 4e 61 6d 65 24 0d 00 | dc 17 20 f1 23 63 68 61 | Name$..|.. .#cha|
|00000380| 6e 6e 65 6c 2c 20 64 69 | 67 69 74 73 25 0d 00 e6 |nnel, di|gits%...|
|00000390| 14 20 e3 57 25 3d 32 20 | b8 20 64 69 67 69 74 73 |. .W%=2 |. digits|
|000003a0| 25 0d 00 f0 11 20 41 31 | 25 3d 31 3a 42 31 25 3d |%.... A1|%=1:B1%=|
|000003b0| 57 25 0d 00 fa 14 20 43 | 31 25 3d 43 32 25 3a 43 |W%.... C|1%=C2%:C|
|000003c0| 30 25 3d 43 31 25 0d 01 | 04 22 20 43 33 25 3d 28 |0%=C1%..|." C3%=(|
|000003d0| a8 28 43 31 25 2f 32 34 | 30 29 29 3a e7 43 33 25 |.(C1%/24|0)):.C3%|
|000003e0| 3c 31 20 43 33 25 3d 31 | 0d 01 0e 0d 20 63 6f 75 |<1 C3%=1|.... cou|
|000003f0| 6e 74 25 3d 32 0d 01 18 | 21 20 e3 4a 25 3d 31 20 |nt%=2...|! .J%=1 |
|00000400| b8 20 43 33 25 2b 31 3a | 44 63 6d 6c 24 28 4a 25 |. C3%+1:|Dcml$(J%|
|00000410| 29 3d 22 22 3a ed 0d 01 | 22 36 20 e3 4a 25 3d 31 |)="":...|"6 .J%=1|
|00000420| 20 b8 20 43 31 25 3a 58 | 24 28 4a 25 29 3d 22 22 | . C1%:X|$(J%)=""|
|00000430| 3a 61 25 21 28 4a 25 2a | 38 29 3d 30 3a 61 25 21 |:a%!(J%*|8)=0:a%!|
|00000440| 28 4a 25 2a 38 2d 34 29 | 3d 30 3a ed 0d 01 2c 12 |(J%*8-4)|=0:...,.|
|00000450| 20 44 25 3d a8 28 41 31 | 25 2f 42 31 25 29 0d 01 | D%=.(A1|%/B1%)..|
|00000460| 36 14 20 41 30 25 3d 41 | 31 25 3a 42 30 25 3d 42 |6. A0%=A|1%:B0%=B|
|00000470| 31 25 0d 01 40 0c 20 f2 | 64 69 76 69 64 65 0d 01 |1%..@. .|divide..|
|00000480| 4a 16 20 f2 73 74 72 69 | 6e 67 73 5f 6c 65 6e 67 |J. .stri|ngs_leng|
|00000490| 74 68 65 6e 0d 01 54 15 | 20 f2 73 74 72 69 6e 67 |then..T.| .string|
|000004a0| 73 5f 73 65 63 74 69 6f | 6e 0d 01 5e 12 20 e3 4a |s_sectio|n..^. .J|
|000004b0| 25 3d 32 20 b8 20 43 33 | 25 2b 31 0d 01 68 2a 20 |%=2 . C3|%+1..h* |
|000004c0| e7 a9 28 44 63 6d 6c 24 | 28 4a 25 29 29 20 83 38 |..(Dcml$|(J%)) .8|
|000004d0| 3c 3e 30 20 8c 20 43 30 | 25 2d 3d 37 20 8b 20 43 |<>0 . C0|%-=7 . C|
|000004e0| 30 25 2d 3d 38 0d 01 72 | 09 20 ed 20 4a 25 0d 01 |0%-=8..r|. . J%..|
|000004f0| 7c 06 20 3a 0d 01 86 10 | 20 e3 4a 25 3d 31 b8 43 ||. :....| .J%=1.C|
|00000500| 30 25 2b 31 0d 01 90 17 | 20 58 24 28 4a 25 29 3d |0%+1....| X$(J%)=|
|00000510| 22 31 2e 22 2b 58 24 28 | 4a 25 29 0d 01 9a 1f 20 |"1."+X$(|J%).... |
|00000520| 61 25 21 28 4a 25 2a 38 | 29 3d a8 28 bb 28 58 24 |a%!(J%*8|)=.(.(X$|
|00000530| 28 4a 25 29 29 2a 31 45 | 38 29 0d 01 a4 16 20 61 |(J%))*1E|8).... a|
|00000540| 25 21 28 4a 25 2a 38 2d | 34 29 3d 4e 28 4a 25 29 |%!(J%*8-|4)=N(J%)|
|00000550| 0d 01 ae 06 20 ed 0d 01 | b8 16 20 f2 63 61 6c 6c |.... ...|.. .call|
|00000560| 28 61 25 2c 31 2c 43 30 | 25 2b 31 29 0d 01 c2 06 |(a%,1,C0|%+1)....|
|00000570| 20 3a 0d 01 cc 2e 20 e3 | 4a 25 3d 31 20 b8 20 43 | :.... .|J%=1 . C|
|00000580| 30 25 2b 31 3a 58 24 28 | 4a 25 29 3d c2 c3 28 28 |0%+1:X$(|J%)=..((|
|00000590| 61 25 21 28 4a 25 2a 38 | 29 29 29 2c 38 29 3a ed |a%!(J%*8|))),8):.|
|000005a0| 0d 01 d6 3a 20 e3 4a 25 | 3d 31 20 b8 20 43 30 25 |...: .J%|=1 . C0%|
|000005b0| 2b 31 3a 53 50 28 4a 25 | 29 3d 4e 28 61 25 21 28 |+1:SP(J%|)=N(a%!(|
|000005c0| 4a 25 2a 38 2d 34 29 29 | 3a ed 3a 4e 28 29 3d 53 |J%*8-4))|:.:N()=S|
|000005d0| 50 28 29 3a 53 50 28 29 | 3d 30 0d 01 e0 06 20 3a |P():SP()|=0.... :|
|000005e0| 0d 01 ea 13 20 63 6f 75 | 6e 74 25 3d 30 3a 4e 30 |.... cou|nt%=0:N0|
|000005f0| 25 3d 31 0d 01 f4 12 20 | e3 4a 25 3d 31 20 b8 20 |%=1.... |.J%=1 . |
|00000600| 43 30 25 2b 31 0d 01 fe | 19 20 20 e7 20 58 24 28 |C0%+1...|. . X$(|
|00000610| 4a 25 29 3d 58 24 28 4a | 25 2b 31 29 20 8c 0d 02 |J%)=X$(J|%+1) ...|
|00000620| 08 10 20 20 20 63 6f 75 | 6e 74 25 2b 3d 31 0d 02 |.. cou|nt%+=1..|
|00000630| 12 2f 20 20 20 4d 28 63 | 6f 75 6e 74 25 29 3d 94 |./ M(c|ount%)=.|
|00000640| 28 61 25 21 28 4a 25 2a | 38 2d 34 29 2d 61 25 21 |(a%!(J%*|8-4)-a%!|
|00000650| 28 28 4a 25 2b 31 29 2a | 38 2d 34 29 29 0d 02 1c |((J%+1)*|8-4))...|
|00000660| 07 20 20 cd 0d 02 26 23 | 20 e7 20 58 24 28 4a 25 |. ...&#| . X$(J%|
|00000670| 29 3c 3e 58 24 28 4a 25 | 2b 31 29 20 8c 20 58 24 |)<>X$(J%|+1) . X$|
|00000680| 28 4a 25 29 3d 22 22 0d | 02 30 06 20 ed 0d 02 3a |(J%)="".|.0. ...:|
|00000690| 06 20 3a 0d 02 44 1c 20 | e7 20 63 6f 75 6e 74 25 |. :..D. |. count%|
|000006a0| 3d 30 20 6c 65 6e 25 3d | 30 3a e5 8d 44 66 43 0d |=0 len%=|0:..DfC.|
|000006b0| 02 4e 06 20 3a 0d 02 58 | 13 20 e3 4a 25 3d 31 20 |.N. :..X|. .J%=1 |
|000006c0| b8 20 63 6f 75 6e 74 25 | 0d 02 62 14 20 61 25 21 |. count%|..b. a%!|
|000006d0| 28 4a 25 2a 38 29 3d 4d | 28 4a 25 29 0d 02 6c 13 |(J%*8)=M|(J%)..l.|
|000006e0| 20 61 25 21 28 4a 25 2a | 38 2d 34 29 3d 4a 25 0d | a%!(J%*|8-4)=J%.|
|000006f0| 02 76 06 20 ed 0d 02 80 | 17 20 f2 63 61 6c 6c 28 |.v. ....|. .call(|
|00000700| 61 25 2c 31 2c 63 6f 75 | 6e 74 25 29 0d 02 8a 10 |a%,1,cou|nt%)....|
|00000710| 20 6c 65 6e 25 3d 61 25 | 21 28 38 29 0d 02 94 06 | len%=a%|!(8)....|
|00000720| 20 3a 0d 02 9e 12 20 e3 | 4a 25 3d 31 20 b8 20 43 | :.... .|J%=1 . C|
|00000730| 30 25 2b 31 0d 02 a8 22 | 20 4d 28 4a 25 29 3d a7 |0%+1..."| M(J%)=.|
|00000740| 44 63 6d 6c 24 28 31 29 | 2c c0 58 24 28 4a 25 29 |Dcml$(1)|,.X$(J%)|
|00000750| 2c 38 29 2c 31 29 0d 02 | b2 14 20 61 25 21 28 4a |,8),1)..|.. a%!(J|
|00000760| 25 2a 38 29 3d 4d 28 4a | 25 29 0d 02 bc 13 20 61 |%*8)=M(J|%).... a|
|00000770| 25 21 28 4a 25 2a 38 2d | 34 29 3d 4a 25 0d 02 c6 |%!(J%*8-|4)=J%...|
|00000780| 06 20 ed 0d 02 d0 16 20 | f2 63 61 6c 6c 28 61 25 |. ..... |.call(a%|
|00000790| 2c 31 2c 43 30 25 2b 31 | 29 0d 02 da 06 20 3a 0d |,1,C0%+1|).... :.|
|000007a0| 02 e4 24 20 e3 4a 25 3d | 31 20 b8 20 43 30 25 2b |..$ .J%=|1 . C0%+|
|000007b0| 31 3a 4d 28 4a 25 29 3d | 61 25 21 28 4a 25 2a 38 |1:M(J%)=|a%!(J%*8|
|000007c0| 29 3a ed 0d 02 ee 40 20 | e3 4a 25 3d 31 20 b8 20 |):....@ |.J%=1 . |
|000007d0| 43 30 25 2b 31 3a 53 50 | 24 28 4a 25 29 3d 58 24 |C0%+1:SP|$(J%)=X$|
|000007e0| 28 61 25 21 28 4a 25 2a | 38 2d 34 29 29 3a ed 3a |(a%!(J%*|8-4)):.:|
|000007f0| 58 24 28 29 3d 53 50 24 | 28 29 3a 53 50 24 28 29 |X$()=SP$|():SP$()|
|00000800| 3d 22 22 0d 02 f8 3a 20 | e3 4a 25 3d 31 20 b8 20 |=""...: |.J%=1 . |
|00000810| 43 30 25 2b 31 3a 53 50 | 28 4a 25 29 3d 4e 28 61 |C0%+1:SP|(J%)=N(a|
|00000820| 25 21 28 4a 25 2a 38 2d | 34 29 29 3a ed 3a 4e 28 |%!(J%*8-|4)):.:N(|
|00000830| 29 3d 53 50 28 29 3a 53 | 50 28 29 3d 30 0d 03 02 |)=SP():S|P()=0...|
|00000840| 06 20 3a 0d 03 0c 06 20 | f5 0d 03 16 0c 20 52 25 |. :.... |..... R%|
|00000850| 3d 52 25 2b 31 0d 03 20 | 1b 20 fd 20 52 25 3e 43 |=R%+1.. |. . R%>C|
|00000860| 30 25 20 84 20 bb 28 58 | 24 28 52 25 29 29 3e 30 |0% . .(X|$(R%))>0|
|00000870| 0d 03 2a 06 20 3a 0d 03 | 34 35 20 44 65 63 69 6d |..*. :..|45 Decim|
|00000880| 61 6c 24 3d c1 44 63 6d | 6c 24 28 31 29 2c a7 44 |al$=.Dcm|l$(1),.D|
|00000890| 63 6d 6c 24 28 31 29 2c | c0 58 24 28 52 25 29 2c |cml$(1),|.X$(R%),|
|000008a0| 37 29 2c 31 29 2c 6c 65 | 6e 25 29 0d 03 3e 36 20 |7),1),le|n%)..>6 |
|000008b0| e7 c0 58 24 28 52 25 29 | 2c 37 29 3d c2 58 24 28 |..X$(R%)|,7)=.X$(|
|000008c0| 52 25 29 2c 37 29 20 6c | 65 6e 25 3d 31 3a 44 65 |R%),7) l|en%=1:De|
|000008d0| 63 69 6d 61 6c 24 3d c2 | 58 24 28 52 25 29 2c 31 |cimal$=.|X$(R%),1|
|000008e0| 29 0d 03 48 33 20 e7 c2 | 58 24 28 52 25 29 2c 35 |)..H3 ..|X$(R%),5|
|000008f0| 29 3d 22 30 30 30 30 30 | 22 20 6c 65 6e 25 3d 30 |)="00000|" len%=0|
|00000900| 3a 44 65 63 69 6d 61 6c | 24 3d c2 58 24 28 52 25 |:Decimal|$=.X$(R%|
|00000910| 29 2c 31 29 0d 03 52 06 | 20 3a 0d 03 5c 0f 20 e7 |),1)..R.| :..\. .|
|00000920| 20 6c 65 6e 25 3e 30 20 | 8c 0d 03 66 14 20 20 f1 | len%>0 |...f. .|
|00000930| 23 20 63 68 61 6e 6e 65 | 6c 2c 41 30 25 0d 03 70 |# channe|l,A0%..p|
|00000940| 14 20 20 f1 23 20 63 68 | 61 6e 6e 65 6c 2c 42 30 |. .# ch|annel,B0|
|00000950| 25 0d 03 7a 15 20 20 f1 | 23 20 63 68 61 6e 6e 65 |%..z. .|# channe|
|00000960| 6c 2c 6c 65 6e 25 0d 03 | 84 19 20 20 f1 23 20 63 |l,len%..|.. .# c|
|00000970| 68 61 6e 6e 65 6c 2c 44 | 65 63 69 6d 61 6c 24 0d |hannel,D|ecimal$.|
|00000980| 03 8e 23 20 20 f2 70 72 | 69 6e 74 28 41 30 25 2c |..# .pr|int(A0%,|
|00000990| 42 30 25 2c 6c 65 6e 25 | 2c 44 65 63 69 6d 61 6c |B0%,len%|,Decimal|
|000009a0| 24 29 0d 03 98 11 20 20 | 63 6f 75 6e 74 65 72 25 |$).... |counter%|
|000009b0| 2b 3d 31 0d 03 a2 06 20 | cd 0d 03 ac 28 20 41 30 |+=1.... |....( A0|
|000009c0| 25 3d 30 3a 42 30 25 3d | 30 3a 6c 65 6e 25 3d 30 |%=0:B0%=|0:len%=0|
|000009d0| 3a 52 25 3d 30 3a 44 65 | 63 69 6d 61 6c 24 3d 22 |:R%=0:De|cimal$="|
|000009e0| 22 0d 03 b6 09 20 ed 20 | 57 25 0d 03 c0 09 20 f2 |".... . |W%.... .|
|000009f0| 65 6e 64 0d 03 ca 06 20 | e0 0d 03 d4 06 20 3a 0d |end.... |..... :.|
|00000a00| 03 de 0d 20 dd f2 64 69 | 76 69 64 65 0d 03 e8 18 |... ..di|vide....|
|00000a10| 20 41 31 25 3d 31 30 2a | 28 41 31 25 2d 44 25 2a | A1%=10*|(A1%-D%*|
|00000a20| 42 31 25 29 0d 03 f2 0d | 20 e7 41 31 25 3d 30 20 |B1%)....| .A1%=0 |
|00000a30| 8c 0d 03 fc 0f 20 20 e7 | 20 43 31 25 3d 30 20 e1 |..... .| C1%=0 .|
|00000a40| 0d 04 06 07 20 20 cd 0d | 04 10 06 20 cd 0d 04 1a |.... ..|... ....|
|00000a50| 12 20 44 25 3d a8 28 41 | 31 25 2f 42 31 25 29 0d |. D%=.(A|1%/B1%).|
|00000a60| 04 24 11 20 41 24 3d c2 | c3 28 44 25 29 2c 31 29 |.$. A$=.|.(D%),1)|
|00000a70| 0d 04 2e 14 20 f2 73 74 | 72 69 6e 67 73 5f 63 72 |.... .st|rings_cr|
|00000a80| 65 61 74 65 0d 04 38 0f | 20 f2 63 6f 75 6e 74 64 |eate..8.| .countd|
|00000a90| 6f 77 6e 0d 04 42 1c 20 | 44 63 6d 6c 24 28 31 29 |own..B. |Dcml$(1)|
|00000aa0| 3d c0 44 63 6d 6c 24 28 | 31 29 2c 32 34 38 29 0d |=.Dcml$(|1),248).|
|00000ab0| 04 4c 06 20 e1 0d 04 56 | 06 20 3a 0d 04 60 10 20 |.L. ...V|. :..`. |
|00000ac0| dd f2 63 6f 75 6e 74 64 | 6f 77 6e 0d 04 6a 0b 20 |..countd|own..j. |
|00000ad0| 43 31 25 2d 3d 31 0d 04 | 74 0e 20 e7 20 43 31 25 |C1%-=1..|t. . C1%|
|00000ae0| 3e 30 20 8c 0d 04 7e 0d | 20 20 f2 64 69 76 69 64 |>0 ...~.| .divid|
|00000af0| 65 0d 04 88 06 20 cd 0d | 04 92 06 20 e1 0d 04 9c |e.... ..|... ....|
|00000b00| 06 20 3a 0d 04 a6 15 20 | dd f2 73 74 72 69 6e 67 |. :.... |..string|
|00000b10| 73 5f 63 72 65 61 74 65 | 0d 04 b0 18 20 e7 20 a9 |s_create|.... . .|
|00000b20| 28 44 63 6d 6c 24 28 31 | 29 29 3c 32 34 39 20 8c |(Dcml$(1|))<249 .|
|00000b30| 0d 04 ba 12 20 20 44 63 | 6d 6c 24 28 31 29 2b 3d |.... Dc|ml$(1)+=|
|00000b40| 41 24 0d 04 c4 06 20 cd | 0d 04 ce 1d 20 e7 20 a9 |A$.... .|.... . .|
|00000b50| 28 44 63 6d 6c 24 28 63 | 6f 75 6e 74 25 29 29 3d |(Dcml$(c|ount%))=|
|00000b60| 32 34 30 20 8c 0d 04 d8 | 0f 20 20 63 6f 75 6e 74 |240 ....|. count|
|00000b70| 25 2b 3d 31 0d 04 e2 06 | 20 cd 0d 04 ec 2f 20 e7 |%+=1....| ..../ .|
|00000b80| 20 a9 28 44 63 6d 6c 24 | 28 31 29 29 3d 32 34 39 | .(Dcml$|(1))=249|
|00000b90| 20 80 20 a9 28 44 63 6d | 6c 24 28 63 6f 75 6e 74 | . .(Dcm|l$(count|
|00000ba0| 25 29 29 3c 32 34 30 20 | 8c 0d 04 f6 17 20 20 44 |%))<240 |..... D|
|00000bb0| 63 6d 6c 24 28 63 6f 75 | 6e 74 25 29 2b 3d 41 24 |cml$(cou|nt%)+=A$|
|00000bc0| 0d 05 00 06 20 cd 0d 05 | 0a 06 20 e1 0d 05 14 06 |.... ...|.. .....|
|00000bd0| 20 3a 0d 05 1e 17 20 dd | f2 73 74 72 69 6e 67 73 | :.... .|.strings|
|00000be0| 5f 6c 65 6e 67 74 68 65 | 6e 0d 05 28 18 20 e7 a9 |_lengthe|n..(. ..|
|00000bf0| 28 44 63 6d 6c 24 28 31 | 29 29 3e 3d 32 34 38 20 |(Dcml$(1|))>=248 |
|00000c00| 8c 0d 05 32 13 20 20 e3 | 4a 25 3d 32 20 b8 20 43 |...2. .|J%=2 . C|
|00000c10| 33 25 2b 31 0d 05 3c 3e | 20 20 20 e7 20 a9 28 44 |3%+1..<>| . .(D|
|00000c20| 63 6d 6c 24 28 4a 25 29 | 29 3e 3d 31 20 8c 20 44 |cml$(J%)|)>=1 . D|
|00000c30| 63 6d 6c 24 28 4a 25 29 | 3d c2 44 63 6d 6c 24 28 |cml$(J%)|=.Dcml$(|
|00000c40| 4a 25 2d 31 29 2c 38 29 | 2b 44 63 6d 6c 24 28 4a |J%-1),8)|+Dcml$(J|
|00000c50| 25 29 0d 05 46 07 20 20 | ed 0d 05 50 06 20 cd 0d |%)..F. |...P. ..|
|00000c60| 05 5a 3a 20 20 e3 4a 25 | 3d 32 20 b8 20 43 33 25 |.Z: .J%|=2 . C3%|
|00000c70| 2b 31 3a 44 63 6d 6c 24 | 28 4a 25 29 3d c2 44 63 |+1:Dcml$|(J%)=.Dc|
|00000c80| 6d 6c 24 28 4a 25 29 2c | a9 28 44 63 6d 6c 24 28 |ml$(J%),|.(Dcml$(|
|00000c90| 4a 25 29 29 2d 31 29 3a | ed 0d 05 64 06 20 e1 0d |J%))-1):|...d. ..|
|00000ca0| 05 6e 06 20 3a 0d 05 78 | 16 20 dd f2 73 74 72 69 |.n. :..x|. ..stri|
|00000cb0| 6e 67 73 5f 73 65 63 74 | 69 6f 6e 0d 05 82 0d 20 |ngs_sect|ion.... |
|00000cc0| 63 6f 75 6e 74 25 3d 31 | 0d 05 8c 12 20 e3 4a 25 |count%=1|.... .J%|
|00000cd0| 3d 31 20 b8 20 43 33 25 | 2b 31 0d 05 96 1a 20 20 |=1 . C3%|+1.... |
|00000ce0| e3 4b 25 3d 31 20 b8 20 | a9 28 44 63 6d 6c 24 28 |.K%=1 . |.(Dcml$(|
|00000cf0| 4a 25 29 29 0d 05 a0 20 | 20 20 20 e7 20 a9 28 c1 |J%))... | . .(.|
|00000d00| 44 63 6d 6c 24 28 4a 25 | 29 2c 4b 25 2c 38 29 29 |Dcml$(J%|),K%,8))|
|00000d10| 3d 38 20 8c 0d 05 aa 44 | 20 20 20 20 58 24 28 63 |=8 ....D| X$(c|
|00000d20| 6f 75 6e 74 25 29 3d c1 | 44 63 6d 6c 24 28 4a 25 |ount%)=.|Dcml$(J%|
|00000d30| 29 2c 4b 25 2c 31 30 29 | 3a f4 20 31 30 20 74 6f |),K%,10)|:. 10 to|
|00000d40| 20 61 76 6f 69 64 20 6c | 6f 73 73 20 6f 66 20 61 | avoid l|oss of a|
|00000d50| 63 63 75 72 61 63 79 2e | 0d 05 b4 18 20 20 20 20 |ccuracy.|.... |
|00000d60| 4e 28 63 6f 75 6e 74 25 | 29 3d 63 6f 75 6e 74 25 |N(count%|)=count%|
|00000d70| 0d 05 be 17 20 20 20 20 | 20 e7 20 63 6f 75 6e 74 |.... | . count|
|00000d80| 25 3c 43 30 25 20 8c 0d | 05 c8 13 20 20 20 20 20 |%<C0% ..|... |
|00000d90| 20 63 6f 75 6e 74 25 2b | 3d 31 0d 05 d2 0a 20 20 | count%+|=1.... |
|00000da0| 20 20 20 cd 0d 05 dc 08 | 20 20 20 cd 0d 05 e6 0a | .....| .....|
|00000db0| 20 20 ed 20 4b 25 0d 05 | f0 09 20 ed 20 4a 25 0d | . K%..|.. . J%.|
|00000dc0| 05 fa 06 20 e1 0d 06 04 | 06 20 3a 0d 06 0e 0b 20 |... ....|. :.... |
|00000dd0| dd f2 72 65 61 64 0d 06 | 18 0f 20 63 6f 75 6e 74 |..read..|.. count|
|00000de0| 65 72 25 3d 30 0d 06 22 | 14 20 63 68 61 6e 6e 65 |er%=0.."|. channe|
|00000df0| 6c 3d 8e 20 4e 61 6d 65 | 24 0d 06 2c 16 20 e8 23 |l=. Name|$..,. .#|
|00000e00| 63 68 61 6e 6e 65 6c 2c | 64 69 67 69 74 73 25 0d |channel,|digits%.|
|00000e10| 06 36 06 20 f5 0d 06 40 | 13 20 20 e8 23 63 68 61 |.6. ...@|. .#cha|
|00000e20| 6e 6e 65 6c 2c 4e 31 25 | 0d 06 4a 13 20 20 e8 23 |nnel,N1%|..J. .#|
|00000e30| 63 68 61 6e 6e 65 6c 2c | 4e 32 25 0d 06 54 13 20 |channel,|N2%..T. |
|00000e40| 20 e8 23 63 68 61 6e 6e | 65 6c 2c 4e 33 25 0d 06 | .#chann|el,N3%..|
|00000e50| 5e 18 20 20 e8 23 63 68 | 61 6e 6e 65 6c 2c 44 65 |^. .#ch|annel,De|
|00000e60| 63 69 6d 61 6c 24 0d 06 | 68 21 20 f2 70 72 69 6e |cimal$..|h! .prin|
|00000e70| 74 28 4e 31 25 2c 4e 32 | 25 2c 4e 33 25 2c 44 65 |t(N1%,N2|%,N3%,De|
|00000e80| 63 69 6d 61 6c 24 29 0d | 06 72 10 20 63 6f 75 6e |cimal$).|.r. coun|
|00000e90| 74 65 72 25 2b 3d 31 0d | 06 7c 10 20 fd 20 c5 23 |ter%+=1.|.|. . .#|
|00000ea0| 63 68 61 6e 6e 65 6c 0d | 06 86 06 20 f1 0d 06 90 |channel.|... ....|
|00000eb0| 0e 20 d9 23 63 68 61 6e | 6e 65 6c 0d 06 9a 06 20 |. .#chan|nel.... |
|00000ec0| e1 0d 06 a4 06 20 3a 0d | 06 ae 1f 20 dd f2 70 72 |..... :.|... ..pr|
|00000ed0| 69 6e 74 28 70 25 2c 71 | 25 2c 72 25 2c 44 65 63 |int(p%,q|%,r%,Dec|
|00000ee0| 69 6d 61 6c 24 29 0d 06 | b8 06 20 f1 0d 06 c2 25 |imal$)..|.. ....%|
|00000ef0| 20 f1 70 25 3b 89 28 34 | 2d a4 4c 28 71 25 29 29 | .p%;.(4|-.L(q%))|
|00000f00| 71 25 3b 89 28 34 2d a4 | 4c 28 72 25 29 29 72 25 |q%;.(4-.|L(r%))r%|
|00000f10| 3b 0d 06 cc 18 20 f1 89 | 28 34 29 c0 44 65 63 69 |;.... ..|(4).Deci|
|00000f20| 6d 61 6c 24 2c 35 38 29 | 3b 0d 06 d6 2d 20 e7 a9 |mal$,58)|;...- ..|
|00000f30| 28 44 65 63 69 6d 61 6c | 24 29 3e 35 38 20 20 f1 |(Decimal|$)>58 .|
|00000f40| 89 28 32 32 29 c1 44 65 | 63 69 6d 61 6c 24 2c 35 |.(22).De|cimal$,5|
|00000f50| 39 2c 35 38 29 3b 0d 06 | e0 2e 20 e7 a9 28 44 65 |9,58);..|.. ..(De|
|00000f60| 63 69 6d 61 6c 24 29 3e | 31 31 36 20 f1 89 28 32 |cimal$)>|116 ..(2|
|00000f70| 32 29 c1 44 65 63 69 6d | 61 6c 24 2c 31 31 37 2c |2).Decim|al$,117,|
|00000f80| 35 38 29 3b 0d 06 ea 2e | 20 e7 a9 28 44 65 63 69 |58);....| ..(Deci|
|00000f90| 6d 61 6c 24 29 3e 31 37 | 34 20 f1 89 28 32 32 29 |mal$)>17|4 ..(22)|
|00000fa0| c1 44 65 63 69 6d 61 6c | 24 2c 31 37 35 2c 35 38 |.Decimal|$,175,58|
|00000fb0| 29 3b 0d 06 f4 2e 20 e7 | a9 28 44 65 63 69 6d 61 |);.... .|.(Decima|
|00000fc0| 6c 24 29 3e 32 33 32 20 | f1 89 28 32 32 29 c1 44 |l$)>232 |..(22).D|
|00000fd0| 65 63 69 6d 61 6c 24 2c | 32 33 33 2c 32 33 29 3b |ecimal$,|233,23);|
|00000fe0| 0d 06 fe 06 20 e1 0d 07 | 08 06 20 3a 0d 07 12 0a |.... ...|.. :....|
|00000ff0| 20 dd f2 65 6e 64 0d 07 | 1c 07 20 f1 27 0d 07 26 | ..end..|.. .'..&|
|00001000| 0c 20 f1 20 74 69 6d 65 | 24 0d 07 30 09 20 f1 20 |. . time|$..0. . |
|00001010| 91 24 0d 07 3a 18 20 f1 | 20 a8 28 91 2f 31 30 30 |.$..:. .| .(./100|
|00001020| 29 3b 22 20 73 65 63 73 | 20 22 0d 07 44 1d 20 f1 |);" secs| "..D. .|
|00001030| 22 49 6e 74 65 67 65 72 | 73 20 74 6f 20 20 22 3b |"Integer|s to ";|
|00001040| 64 69 67 69 74 73 25 0d | 07 4e 30 20 f1 27 3b 63 |digits%.|.N0 .';c|
|00001050| 6f 75 6e 74 65 72 25 3b | 22 20 44 61 74 61 20 66 |ounter%;|" Data f|
|00001060| 69 6c 65 20 69 74 65 6d | 73 20 6e 6f 77 20 6f 6e |ile item|s now on|
|00001070| 20 64 69 73 63 2e 22 0d | 07 58 0e 20 d9 23 63 68 | disc.".|.X. .#ch|
|00001080| 61 6e 6e 65 6c 0d 07 62 | 1f 20 e8 22 52 65 76 69 |annel..b|. ."Revi|
|00001090| 65 77 20 64 61 74 61 20 | 28 59 2f 4e 29 20 22 3b |ew data |(Y/N) ";|
|000010a0| 61 6e 73 24 0d 07 6c 15 | 20 e7 20 61 6e 73 24 3d |ans$..l.| . ans$=|
|000010b0| 22 59 22 20 f2 72 65 61 | 64 0d 07 76 06 20 e1 0d |"Y" .rea|d..v. ..|
|000010c0| 07 80 06 20 3a 0d 07 8a | 15 20 dd f2 63 61 6c 6c |... :...|. ..call|
|000010d0| 28 41 25 2c 42 25 2c 43 | 25 29 0d 07 94 0c 20 d6 |(A%,B%,C|%).... .|
|000010e0| 20 71 73 6f 72 74 0d 07 | 9e 06 20 e1 0d 07 a8 06 | qsort..|.. .....|
|000010f0| 20 3a 0d 07 b2 0f 20 dd | f2 61 73 73 65 6d 62 6c | :.... .|.assembl|
|00001100| 65 0d 07 bc 0d 20 de 20 | 63 25 20 35 30 30 0d 07 |e.... . |c% 500..|
|00001110| c6 21 20 70 6f 69 6e 74 | 65 72 3d 30 3a 6c 65 66 |.! point|er=0:lef|
|00001120| 74 3d 31 3a 72 69 67 68 | 74 3d 32 3a 69 3d 33 0d |t=1:righ|t=2:i=3.|
|00001130| 07 d0 23 20 6c 61 73 74 | 3d 34 3a 74 65 6d 70 31 |..# last|=4:temp1|
|00001140| 3d 35 3a 74 65 6d 70 32 | 3d 36 3a 74 65 6d 70 33 |=5:temp2|=6:temp3|
|00001150| 3d 37 0d 07 da 18 20 73 | 70 3d 31 33 3a 6c 69 6e |=7.... s|p=13:lin|
|00001160| 6b 3d 31 34 3a 70 63 3d | 31 35 0d 07 e4 15 20 e3 |k=14:pc=|15.... .|
|00001170| 20 70 61 73 73 25 3d 30 | 20 b8 20 32 20 88 32 0d | pass%=0| . 2 .2.|
|00001180| 07 ee 0a 20 50 25 3d 63 | 25 0d 07 f8 0f 20 5b 4f |... P%=c|%.... [O|
|00001190| 50 54 20 70 61 73 73 25 | 0d 08 02 0b 20 2e 71 73 |PT pass%|.... .qs|
|000011a0| 6f 72 74 0d 08 0c 27 20 | 53 54 4d 46 44 20 28 73 |ort...' |STMFD (s|
|000011b0| 70 29 21 2c 7b 6c 65 66 | 74 2c 72 69 67 68 74 2c |p)!,{lef|t,right,|
|000011c0| 6c 61 73 74 2c 6c 69 6e | 6b 7d 0d 08 16 13 20 43 |last,lin|k}.... C|
|000011d0| 4d 50 20 6c 65 66 74 2c | 72 69 67 68 74 0d 08 20 |MP left,|right.. |
|000011e0| 27 20 4c 44 4d 47 45 46 | 44 20 28 73 70 29 21 2c |' LDMGEF|D (sp)!,|
|000011f0| 7b 6c 65 66 74 2c 72 69 | 67 68 74 2c 6c 61 73 74 |{left,ri|ght,last|
|00001200| 2c 70 63 7d 0d 08 2a 24 | 20 4c 44 52 20 74 65 6d |,pc}..*$| LDR tem|
|00001210| 70 31 2c 5b 70 6f 69 6e | 74 65 72 2c 6c 65 66 74 |p1,[poin|ter,left|
|00001220| 2c 4c 53 4c 20 23 33 5d | 0d 08 34 19 20 41 44 44 |,LSL #3]|..4. ADD|
|00001230| 20 74 65 6d 70 33 2c 6c | 65 66 74 2c 72 69 67 68 | temp3,l|eft,righ|
|00001240| 74 0d 08 3e 1b 20 4d 4f | 56 20 74 65 6d 70 33 2c |t..>. MO|V temp3,|
|00001250| 74 65 6d 70 33 2c 4c 53 | 52 20 23 31 0d 08 48 25 |temp3,LS|R #1..H%|
|00001260| 20 4c 44 52 20 74 65 6d | 70 32 2c 5b 70 6f 69 6e | LDR tem|p2,[poin|
|00001270| 74 65 72 2c 74 65 6d 70 | 33 2c 4c 53 4c 20 23 33 |ter,temp|3,LSL #3|
|00001280| 5d 0d 08 52 24 20 53 54 | 52 20 74 65 6d 70 32 2c |]..R$ ST|R temp2,|
|00001290| 5b 70 6f 69 6e 74 65 72 | 2c 6c 65 66 74 2c 4c 53 |[pointer|,left,LS|
|000012a0| 4c 20 23 33 5d 0d 08 5c | 25 20 53 54 52 20 74 65 |L #3]..\|% STR te|
|000012b0| 6d 70 31 2c 5b 70 6f 69 | 6e 74 65 72 2c 74 65 6d |mp1,[poi|nter,tem|
|000012c0| 70 33 2c 4c 53 4c 20 23 | 33 5d 0d 08 66 12 20 4d |p3,LSL #|3]..f. M|
|000012d0| 4f 56 20 6c 61 73 74 2c | 6c 65 66 74 0d 08 70 12 |OV last,|left..p.|
|000012e0| 20 41 44 44 20 69 2c 6c | 65 66 74 2c 23 31 0d 08 | ADD i,l|eft,#1..|
|000012f0| 7a 1b 20 53 55 42 20 70 | 6f 69 6e 74 65 72 2c 70 |z. SUB p|ointer,p|
|00001300| 6f 69 6e 74 65 72 2c 23 | 34 0d 08 84 24 20 4c 44 |ointer,#|4...$ LD|
|00001310| 52 20 74 65 6d 70 31 2c | 5b 70 6f 69 6e 74 65 72 |R temp1,|[pointer|
|00001320| 2c 6c 65 66 74 2c 4c 53 | 4c 20 23 33 5d 0d 08 8e |,left,LS|L #3]...|
|00001330| 19 20 41 44 44 20 74 65 | 6d 70 33 2c 6c 65 66 74 |. ADD te|mp3,left|
|00001340| 2c 72 69 67 68 74 0d 08 | 98 1b 20 4d 4f 56 20 74 |,right..|.. MOV t|
|00001350| 65 6d 70 33 2c 74 65 6d | 70 33 2c 4c 53 52 20 23 |emp3,tem|p3,LSR #|
|00001360| 31 0d 08 a2 25 20 4c 44 | 52 20 74 65 6d 70 32 2c |1...% LD|R temp2,|
|00001370| 5b 70 6f 69 6e 74 65 72 | 2c 74 65 6d 70 33 2c 4c |[pointer|,temp3,L|
|00001380| 53 4c 20 23 33 5d 0d 08 | ac 24 20 53 54 52 20 74 |SL #3]..|.$ STR t|
|00001390| 65 6d 70 32 2c 5b 70 6f | 69 6e 74 65 72 2c 6c 65 |emp2,[po|inter,le|
|000013a0| 66 74 2c 4c 53 4c 20 23 | 33 5d 0d 08 b6 25 20 53 |ft,LSL #|3]...% S|
|000013b0| 54 52 20 74 65 6d 70 31 | 2c 5b 70 6f 69 6e 74 65 |TR temp1|,[pointe|
|000013c0| 72 2c 74 65 6d 70 33 2c | 4c 53 4c 20 23 33 5d 0d |r,temp3,|LSL #3].|
|000013d0| 08 c0 12 20 4d 4f 56 20 | 6c 61 73 74 2c 6c 65 66 |... MOV |last,lef|
|000013e0| 74 0d 08 ca 1b 20 41 44 | 44 20 70 6f 69 6e 74 65 |t.... AD|D pointe|
|000013f0| 72 2c 70 6f 69 6e 74 65 | 72 2c 23 34 0d 08 d4 0a |r,pointe|r,#4....|
|00001400| 20 2e 6c 6f 6f 70 0d 08 | de 21 20 4c 44 52 20 74 | .loop..|.! LDR t|
|00001410| 65 6d 70 31 2c 5b 70 6f | 69 6e 74 65 72 2c 69 2c |emp1,[po|inter,i,|
|00001420| 4c 53 4c 20 23 33 5d 0d | 08 e8 24 20 4c 44 52 20 |LSL #3].|..$ LDR |
|00001430| 74 65 6d 70 32 2c 5b 70 | 6f 69 6e 74 65 72 2c 6c |temp2,[p|ointer,l|
|00001440| 65 66 74 2c 4c 53 4c 20 | 23 33 5d 0d 08 f2 14 20 |eft,LSL |#3].... |
|00001450| 43 4d 50 20 74 65 6d 70 | 31 2c 74 65 6d 70 32 0d |CMP temp|1,temp2.|
|00001460| 08 fc 17 20 42 47 45 20 | 67 72 65 61 74 65 72 6f |... BGE |greatero|
|00001470| 72 65 71 75 61 6c 0d 09 | 06 15 20 41 44 44 20 6c |requal..|.. ADD l|
|00001480| 61 73 74 2c 6c 61 73 74 | 2c 23 31 0d 09 10 24 20 |ast,last|,#1...$ |
|00001490| 4c 44 52 20 74 65 6d 70 | 31 2c 5b 70 6f 69 6e 74 |LDR temp|1,[point|
|000014a0| 65 72 2c 6c 61 73 74 2c | 4c 53 4c 20 23 33 5d 0d |er,last,|LSL #3].|
|000014b0| 09 1a 21 20 4c 44 52 20 | 74 65 6d 70 32 2c 5b 70 |..! LDR |temp2,[p|
|000014c0| 6f 69 6e 74 65 72 2c 69 | 2c 4c 53 4c 20 23 33 5d |ointer,i|,LSL #3]|
|000014d0| 0d 09 24 24 20 53 54 52 | 20 74 65 6d 70 32 2c 5b |..$$ STR| temp2,[|
|000014e0| 70 6f 69 6e 74 65 72 2c | 6c 61 73 74 2c 4c 53 4c |pointer,|last,LSL|
|000014f0| 20 23 33 5d 0d 09 2e 21 | 20 53 54 52 20 74 65 6d | #3]...!| STR tem|
|00001500| 70 31 2c 5b 70 6f 69 6e | 74 65 72 2c 69 2c 4c 53 |p1,[poin|ter,i,LS|
|00001510| 4c 20 23 33 5d 0d 09 38 | 1b 20 53 55 42 20 70 6f |L #3]..8|. SUB po|
|00001520| 69 6e 74 65 72 2c 70 6f | 69 6e 74 65 72 2c 23 34 |inter,po|inter,#4|
|00001530| 0d 09 42 24 20 4c 44 52 | 20 74 65 6d 70 31 2c 5b |..B$ LDR| temp1,[|
|00001540| 70 6f 69 6e 74 65 72 2c | 6c 61 73 74 2c 4c 53 4c |pointer,|last,LSL|
|00001550| 20 23 33 5d 0d 09 4c 21 | 20 4c 44 52 20 74 65 6d | #3]..L!| LDR tem|
|00001560| 70 32 2c 5b 70 6f 69 6e | 74 65 72 2c 69 2c 4c 53 |p2,[poin|ter,i,LS|
|00001570| 4c 20 23 33 5d 0d 09 56 | 24 20 53 54 52 20 74 65 |L #3]..V|$ STR te|
|00001580| 6d 70 32 2c 5b 70 6f 69 | 6e 74 65 72 2c 6c 61 73 |mp2,[poi|nter,las|
|00001590| 74 2c 4c 53 4c 20 23 33 | 5d 0d 09 60 21 20 53 54 |t,LSL #3|]..`! ST|
|000015a0| 52 20 74 65 6d 70 31 2c | 5b 70 6f 69 6e 74 65 72 |R temp1,|[pointer|
|000015b0| 2c 69 2c 4c 53 4c 20 23 | 33 5d 0d 09 6a 1b 20 41 |,i,LSL #|3]..j. A|
|000015c0| 44 44 20 70 6f 69 6e 74 | 65 72 2c 70 6f 69 6e 74 |DD point|er,point|
|000015d0| 65 72 2c 23 34 0d 09 74 | 14 20 2e 67 72 65 61 74 |er,#4..t|. .great|
|000015e0| 65 72 6f 72 65 71 75 61 | 6c 0d 09 7e 0f 20 41 44 |erorequa|l..~. AD|
|000015f0| 44 20 69 2c 69 2c 23 31 | 0d 09 88 10 20 43 4d 50 |D i,i,#1|.... CMP|
|00001600| 20 69 2c 72 69 67 68 74 | 0d 09 92 0d 20 42 4c 45 | i,right|.... BLE|
|00001610| 20 6c 6f 6f 70 0d 09 9c | 24 20 4c 44 52 20 74 65 | loop...|$ LDR te|
|00001620| 6d 70 31 2c 5b 70 6f 69 | 6e 74 65 72 2c 6c 65 66 |mp1,[poi|nter,lef|
|00001630| 74 2c 4c 53 4c 20 23 33 | 5d 0d 09 a6 24 20 4c 44 |t,LSL #3|]...$ LD|
|00001640| 52 20 74 65 6d 70 32 2c | 5b 70 6f 69 6e 74 65 72 |R temp2,|[pointer|
|00001650| 2c 6c 61 73 74 2c 4c 53 | 4c 20 23 33 5d 0d 09 b0 |,last,LS|L #3]...|
|00001660| 24 20 53 54 52 20 74 65 | 6d 70 32 2c 5b 70 6f 69 |$ STR te|mp2,[poi|
|00001670| 6e 74 65 72 2c 6c 65 66 | 74 2c 4c 53 4c 20 23 33 |nter,lef|t,LSL #3|
|00001680| 5d 0d 09 ba 24 20 53 54 | 52 20 74 65 6d 70 31 2c |]...$ ST|R temp1,|
|00001690| 5b 70 6f 69 6e 74 65 72 | 2c 6c 61 73 74 2c 4c 53 |[pointer|,last,LS|
|000016a0| 4c 20 23 33 5d 0d 09 c4 | 1b 20 53 55 42 20 70 6f |L #3]...|. SUB po|
|000016b0| 69 6e 74 65 72 2c 70 6f | 69 6e 74 65 72 2c 23 34 |inter,po|inter,#4|
|000016c0| 0d 09 ce 24 20 4c 44 52 | 20 74 65 6d 70 31 2c 5b |...$ LDR| temp1,[|
|000016d0| 70 6f 69 6e 74 65 72 2c | 6c 65 66 74 2c 4c 53 4c |pointer,|left,LSL|
|000016e0| 20 23 33 5d 0d 09 d8 24 | 20 4c 44 52 20 74 65 6d | #3]...$| LDR tem|
|000016f0| 70 32 2c 5b 70 6f 69 6e | 74 65 72 2c 6c 61 73 74 |p2,[poin|ter,last|
|00001700| 2c 4c 53 4c 20 23 33 5d | 0d 09 e2 24 20 53 54 52 |,LSL #3]|...$ STR|
|00001710| 20 74 65 6d 70 32 2c 5b | 70 6f 69 6e 74 65 72 2c | temp2,[|pointer,|
|00001720| 6c 65 66 74 2c 4c 53 4c | 20 23 33 5d 0d 09 ec 24 |left,LSL| #3]...$|
|00001730| 20 53 54 52 20 74 65 6d | 70 31 2c 5b 70 6f 69 6e | STR tem|p1,[poin|
|00001740| 74 65 72 2c 6c 61 73 74 | 2c 4c 53 4c 20 23 33 5d |ter,last|,LSL #3]|
|00001750| 0d 09 f6 1b 20 41 44 44 | 20 70 6f 69 6e 74 65 72 |.... ADD| pointer|
|00001760| 2c 70 6f 69 6e 74 65 72 | 2c 23 34 0d 0a 00 18 20 |,pointer|,#4.... |
|00001770| 53 54 4d 46 44 20 28 73 | 70 29 21 2c 7b 72 69 67 |STMFD (s|p)!,{rig|
|00001780| 68 74 7d 0d 0a 0a 13 20 | 53 55 42 20 52 32 2c 6c |ht}.... |SUB R2,l|
|00001790| 61 73 74 2c 23 31 0d 0a | 14 0d 20 42 4c 20 71 73 |ast,#1..|.. BL qs|
|000017a0| 6f 72 74 0d 0a 1e 18 20 | 4c 44 4d 46 44 20 28 73 |ort.... |LDMFD (s|
|000017b0| 70 29 21 2c 7b 72 69 67 | 68 74 7d 0d 0a 28 13 20 |p)!,{rig|ht}..(. |
|000017c0| 41 44 44 20 72 31 2c 6c | 61 73 74 2c 23 31 0d 0a |ADD r1,l|ast,#1..|
|000017d0| 32 0d 20 42 4c 20 71 73 | 6f 72 74 0d 0a 3c 25 20 |2. BL qs|ort..<% |
|000017e0| 4c 44 4d 46 44 20 28 73 | 70 29 21 2c 7b 6c 65 66 |LDMFD (s|p)!,{lef|
|000017f0| 74 2c 72 69 67 68 74 2c | 6c 61 73 74 2c 70 63 7d |t,right,|last,pc}|
|00001800| 0d 0a 46 06 20 5d 0d 0a | 50 0c 20 ed 20 70 61 73 |..F. ]..|P. . pas|
|00001810| 73 25 0d 0a 5a 06 20 e1 | 0d 0a 64 06 20 3a 0d 0a |s%..Z. .|..d. :..|
|00001820| 6e 13 20 dd a4 4c 28 57 | 29 3d a9 28 c3 28 57 29 |n. ..L(W|)=.(.(W)|
|00001830| 29 0d ff | |).. | |
+--------+-------------------------+-------------------------+--------+--------+
