/ RISCWORLD 3 / RISCWORLD_VOL3.iso / SOFTWARE / AGM / Roots

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 20 | 52 6f 6f 74 73 0d 00 14 |..... > |Roots...|
|00000010| 05 3a 0d 00 1e 08 eb 20 | 31 32 0d 00 28 0d f2 61 |.:..... |12..(..a|
|00000020| 73 73 65 6d 62 6c 65 0d | 00 32 05 3a 0d 00 3c 0b |ssemble.|.2.:..<.|
|00000030| 4d 25 3d 36 30 30 30 0d | 00 46 10 f2 74 65 73 74 |M%=6000.|.F..test|
|00000040| 28 32 35 2c 4d 25 29 0d | 00 50 12 f2 74 65 73 74 |(25,M%).|.P..test|
|00000050| 28 26 34 31 39 2c 4d 25 | 29 0d 00 5a 14 f2 74 65 |(&419,M%|)..Z..te|
|00000060| 73 74 28 26 31 30 31 33 | 33 2c 4d 25 29 0d 00 64 |st(&1013|3,M%)..d|
|00000070| 15 f2 74 65 73 74 28 26 | 46 46 46 46 46 46 2c 4d |..test(&|FFFFFF,M|
|00000080| 25 29 0d 00 6e 05 e0 0d | 00 78 05 3a 0d 00 82 12 |%)..n...|.x.:....|
|00000090| dd 20 f2 74 65 73 74 28 | 42 25 2c 4d 25 29 0d 00 |. .test(|B%,M%)..|
|000000a0| 8c 2b f1 27 27 4d 25 20 | 22 20 69 74 65 72 61 74 |.+.''M% |" iterat|
|000000b0| 69 6f 6e 73 20 66 69 6e | 64 69 6e 67 20 72 6f 6f |ions fin|ding roo|
|000000c0| 74 20 6f 66 20 22 3b 42 | 25 0d 00 96 05 3a 0d 00 |t of ";B|%....:..|
|000000d0| a0 07 d1 3d 30 0d 00 aa | 15 e3 49 25 3d 30 b8 4d |...=0...|..I%=0.M|
|000000e0| 25 3a 41 25 3d b6 42 25 | 3a ed 0d 00 b4 37 f1 20 |%:A%=.B%|:....7. |
|000000f0| 91 22 20 63 65 6e 74 69 | 2d 73 65 63 6f 6e 64 73 |." centi|-seconds|
|00000100| 20 42 61 73 69 63 20 53 | 51 52 22 20 89 31 31 20 | Basic S|QR" .11 |
|00000110| 22 52 65 73 75 6c 74 20 | 69 73 20 22 3b b6 20 42 |"Result |is ";. B|
|00000120| 25 0d 00 be 05 3a 0d 00 | c8 07 d1 3d 30 0d 00 d2 |%....:..|...=0...|
|00000130| 15 e3 49 25 3d 30 b8 4d | 25 3a 41 25 3d ba 43 25 |..I%=0.M|%:A%=.C%|
|00000140| 3a ed 0d 00 dc 3b f1 20 | 91 22 20 63 65 6e 74 69 |:....;. |." centi|
|00000150| 2d 73 65 63 6f 6e 64 73 | 20 49 74 65 72 61 74 69 |-seconds| Iterati|
|00000160| 76 65 20 6d 65 74 68 6f | 64 22 20 89 34 20 22 52 |ve metho|d" .4 "R|
|00000170| 65 73 75 6c 74 20 69 73 | 20 22 3b 41 25 0d 00 e6 |esult is| ";A%...|
|00000180| 05 3a 0d 00 f0 07 d1 3d | 30 0d 00 fa 15 e3 49 25 |.:.....=|0.....I%|
|00000190| 3d 30 b8 4d 25 3a 41 25 | 3d ba 44 25 3a ed 0d 01 |=0.M%:A%|=.D%:...|
|000001a0| 04 3a f1 20 91 22 20 63 | 65 6e 74 69 2d 73 65 63 |.:. ." c|enti-sec|
|000001b0| 6f 6e 64 73 20 41 64 64 | 69 74 69 76 65 20 6d 65 |onds Add|itive me|
|000001c0| 74 68 6f 64 22 20 89 35 | 20 22 52 65 73 75 6c 74 |thod" .5| "Result|
|000001d0| 20 69 73 20 22 3b 41 25 | 0d 01 0e 05 3a 0d 01 18 | is ";A%|....:...|
|000001e0| 07 d1 3d 30 0d 01 22 15 | e3 49 25 3d 30 b8 4d 25 |..=0..".|.I%=0.M%|
|000001f0| 3a 41 25 3d ba 45 25 3a | ed 0d 01 2c 22 f1 20 91 |:A%=.E%:|...,". .|
|00000200| 22 20 63 65 6e 74 69 2d | 73 65 63 6f 6e 64 73 20 |" centi-|seconds |
|00000210| 44 75 6d 6d 79 20 63 6f | 64 65 22 0d 01 36 05 e1 |Dummy co|de"..6..|
|00000220| 0d 01 40 05 3a 0d 01 4a | 0f dd 20 f2 61 73 73 65 |..@.:..J|.. .asse|
|00000230| 6d 62 6c 65 0d 01 54 0d | de 20 43 25 20 26 31 30 |mble..T.|. C% &10|
|00000240| 30 0d 01 5e 0a 72 6f 6f | 74 3d 30 0d 01 68 0c 6e |0..^.roo|t=0..h.n|
|00000250| 75 6d 62 65 72 3d 31 0d | 01 72 0a 74 65 73 74 3d |umber=1.|.r.test=|
|00000260| 32 0d 01 7c 0a 73 74 65 | 70 3d 33 0d 01 86 0a 63 |2..|.ste|p=3....c|
|00000270| 6f 6d 70 3d 34 0d 01 90 | 0b 73 68 69 66 74 3d 35 |omp=4...|.shift=5|
|00000280| 0d 01 9a 0a 6d 75 6c 74 | 3d 36 0d 01 a4 0b 6c 69 |....mult|=6....li|
|00000290| 6e 6b 3d 31 34 0d 01 ae | 12 e3 20 49 25 3d 30 20 |nk=14...|.. I%=0 |
|000002a0| b8 20 32 20 88 20 32 0d | 01 b8 09 50 25 3d 43 25 |. 2 . 2.|...P%=C%|
|000002b0| 0d 01 c2 0c 5b 20 4f 50 | 54 20 49 25 0d 01 cc 19 |....[ OP|T I%....|
|000002c0| 4d 4f 56 20 72 6f 6f 74 | 2c 6e 75 6d 62 65 72 2c |MOV root|,number,|
|000002d0| 4c 53 52 23 31 0d 01 d6 | 17 4d 4f 56 20 73 74 65 |LSR#1...|.MOV ste|
|000002e0| 70 2c 72 6f 6f 74 2c 4c | 53 52 23 31 0d 01 e0 30 |p,root,L|SR#1...0|
|000002f0| 43 4d 50 20 6e 75 6d 62 | 65 72 2c 23 26 31 35 30 |CMP numb|er,#&150|
|00000300| 30 30 20 20 3b 20 61 64 | 6a 75 73 74 20 66 6f 72 |00  ; ad|just for|
|00000310| 20 62 69 67 20 6e 75 6d | 62 65 72 73 0d 01 ea 12 | big num|bers....|
|00000320| 4d 4f 56 47 54 20 73 68 | 69 66 74 2c 23 31 0d 01 |MOVGT sh|ift,#1..|
|00000330| f4 12 4d 4f 56 4c 45 20 | 73 68 69 66 74 2c 23 30 |..MOVLE |shift,#0|
|00000340| 0d 01 fe 2c 43 4d 50 47 | 54 20 6e 75 6d 62 65 72 |...,CMPG|T number|
|00000350| 2c 23 26 32 44 30 30 30 | 20 20 3b 20 76 65 72 79 |,#&2D000|  ; very|
|00000360| 20 62 69 67 20 6e 75 6d | 62 65 72 73 0d 02 08 18 | big num|bers....|
|00000370| 41 44 44 47 54 20 73 68 | 69 66 74 2c 73 68 69 66 |ADDGT sh|ift,shif|
|00000380| 74 2c 23 31 0d 02 12 2c | 43 4d 50 47 54 20 6e 75 |t,#1...,|CMPGT nu|
|00000390| 6d 62 65 72 2c 23 26 35 | 41 30 30 30 20 20 3b 20 |mber,#&5|A000  ; |
|000003a0| 65 76 65 6e 20 62 69 67 | 67 65 72 20 6f 6e 65 73 |even big|ger ones|
|000003b0| 0d 02 1c 18 41 44 44 47 | 54 20 73 68 69 66 74 2c |....ADDG|T shift,|
|000003c0| 73 68 69 66 74 2c 23 31 | 0d 02 26 2c 43 4d 50 47 |shift,#1|..&,CMPG|
|000003d0| 54 20 6e 75 6d 62 65 72 | 2c 23 26 42 35 30 30 30 |T number|,#&B5000|
|000003e0| 20 20 3b 20 65 6e 6f 72 | 6d 6f 75 73 20 6e 75 6d |  ; enor|mous num|
|000003f0| 62 65 72 73 0d 02 30 18 | 41 44 44 47 54 20 73 68 |bers..0.|ADDGT sh|
|00000400| 69 66 74 2c 73 68 69 66 | 74 2c 23 31 0d 02 3a 2b |ift,shif|t,#1..:+|
|00000410| 43 4d 50 47 54 20 6e 75 | 6d 62 65 72 2c 23 26 31 |CMPGT nu|mber,#&1|
|00000420| 36 38 30 30 30 20 3b 20 | 73 74 75 70 65 6e 64 6f |68000 ; |stupendo|
|00000430| 75 73 20 6f 6e 65 73 0d | 02 44 18 41 44 44 47 54 |us ones.|.D.ADDGT|
|00000440| 20 73 68 69 66 74 2c 73 | 68 69 66 74 2c 23 31 0d | shift,s|hift,#1.|
|00000450| 02 4e 20 43 4d 50 47 54 | 20 6e 75 6d 62 65 72 2c |.N CMPGT| number,|
|00000460| 23 26 32 44 34 30 30 30 | 20 3b 20 77 6f 77 21 0d |#&2D4000| ; wow!.|
|00000470| 02 58 18 41 44 44 47 54 | 20 73 68 69 66 74 2c 73 |.X.ADDGT| shift,s|
|00000480| 68 69 66 74 2c 23 31 0d | 02 62 21 43 4d 50 47 54 |hift,#1.|.b!CMPGT|
|00000490| 20 6e 75 6d 62 65 72 2c | 23 26 35 41 30 30 30 30 | number,|#&5A0000|
|000004a0| 20 3b 20 70 68 65 77 21 | 0d 02 6c 18 41 44 44 47 | ; phew!|..l.ADDG|
|000004b0| 54 20 73 68 69 66 74 2c | 73 68 69 66 74 2c 23 31 |T shift,|shift,#1|
|000004c0| 0d 02 76 25 43 4d 50 47 | 54 20 6e 75 6d 62 65 72 |..v%CMPG|T number|
|000004d0| 2c 23 26 42 34 30 30 30 | 30 20 3b 20 74 68 65 20 |,#&B4000|0 ; the |
|000004e0| 6c 69 6d 69 74 0d 02 80 | 18 41 44 44 47 54 20 73 |limit...|.ADDGT s|
|000004f0| 68 69 66 74 2c 73 68 69 | 66 74 2c 23 31 0d 02 8a |hift,shi|ft,#1...|
|00000500| 1d 4d 4f 56 20 63 6f 6d | 70 2c 6e 75 6d 62 65 72 |.MOV com|p,number|
|00000510| 2c 4c 53 52 20 73 68 69 | 66 74 0d 02 94 1b 4d 4f |,LSR shi|ft....MO|
|00000520| 56 20 63 6f 6d 70 2c 63 | 6f 6d 70 2c 4c 53 52 20 |V comp,c|omp,LSR |
|00000530| 73 68 69 66 74 0d 02 9e | 05 3b 0d 02 a8 0d 2e 69 |shift...|.;.....i|
|00000540| 74 65 72 6c 6f 6f 70 0d | 02 b2 1b 4d 4f 56 20 6d |terloop.|...MOV m|
|00000550| 75 6c 74 2c 72 6f 6f 74 | 2c 4c 53 52 20 73 68 69 |ult,root|,LSR shi|
|00000560| 66 74 0d 02 bc 16 4d 55 | 4c 20 74 65 73 74 2c 6d |ft....MU|L test,m|
|00000570| 75 6c 74 2c 6d 75 6c 74 | 0d 02 c6 11 43 4d 50 20 |ult,mult|....CMP |
|00000580| 74 65 73 74 2c 63 6f 6d | 70 0d 02 d0 18 41 44 44 |test,com|p....ADD|
|00000590| 4c 54 20 72 6f 6f 74 2c | 72 6f 6f 74 2c 73 74 65 |LT root,|root,ste|
|000005a0| 70 0d 02 da 18 53 55 42 | 47 54 20 72 6f 6f 74 2c |p....SUB|GT root,|
|000005b0| 72 6f 6f 74 2c 73 74 65 | 70 0d 02 e4 1a 4d 4f 56 |root,ste|p....MOV|
|000005c0| 47 54 53 20 73 74 65 70 | 2c 73 74 65 70 2c 4c 53 |GTS step|,step,LS|
|000005d0| 52 23 31 0d 02 ee 10 42 | 4e 45 20 69 74 65 72 6c |R#1....B|NE iterl|
|000005e0| 6f 6f 70 0d 02 f8 0f 4d | 4f 56 20 50 43 2c 6c 69 |oop....M|OV PC,li|
|000005f0| 6e 6b 0d 03 02 05 3b 0d | 03 0c 07 2e 44 25 0d 03 |nk....;.|....D%..|
|00000600| 16 0f 4d 4f 56 20 72 6f | 6f 74 2c 23 30 0d 03 20 |..MOV ro|ot,#0.. |
|00000610| 05 3b 0d 03 2a 0c 2e 61 | 64 64 6c 6f 6f 70 0d 03 |.;..*..a|ddloop..|
|00000620| 34 14 41 44 44 20 72 6f | 6f 74 2c 72 6f 6f 74 2c |4.ADD ro|ot,root,|
|00000630| 23 31 0d 03 3e 22 53 55 | 42 53 20 6e 75 6d 62 65 |#1..>"SU|BS numbe|
|00000640| 72 2c 6e 75 6d 62 65 72 | 2c 72 6f 6f 74 2c 4c 53 |r,number|,root,LS|
|00000650| 4c 20 23 31 0d 03 48 0f | 42 47 45 20 61 64 64 6c |L #1..H.|BGE addl|
|00000660| 6f 6f 70 0d 03 52 05 3b | 0d 03 5c 07 2e 45 25 0d |oop..R.;|..\..E%.|
|00000670| 03 66 0f 4d 4f 56 20 50 | 43 2c 6c 69 6e 6b 0d 03 |.f.MOV P|C,link..|
|00000680| 70 05 5d 0d 03 7a 05 ed | 0d 03 84 05 e1 0d ff    |p.]..z..|....... |
+--------+-------------------------+-------------------------+--------+--------+