/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / UBAS821.ZIP / SQRT_MOD.UB

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 10 00 0a 00 03 98 00 00 | 73 71 72 74 6d 6f 64 0d |........|sqrtmod.|
|00000010| 3e 00 14 00 03 98 00 00 | 20 73 61 6d 70 6c 65 20 |>.......| sample |
|00000020| 6f 66 20 73 71 75 61 72 | 65 20 72 6f 6f 74 20 6d |of squar|e root m|
|00000030| 6f 64 75 6c 6f 20 61 20 | 70 72 69 6d 65 0d 47 00 |odulo a |prime.G.|
|00000040| 1e 00 03 98 00 00 0d 59 | 00 28 00 03 83 03 50 72 |.......Y|.(....Pr|
|00000050| 6d d1 80 ce f1 32 23 29 | 0d 6a 00 32 00 03 83 05 |m....2#)|.j.2....|
|00000060| 4e 75 6d 41 30 d1 f1 ea | 00 0d 88 00 3c 00 03 83 |NumA0...|....<...|
|00000070| 04 4e 75 6d 41 d1 83 05 | 4e 75 6d 41 30 ef f1 02 |.NumA...|NumA0...|
|00000080| 00 e7 83 03 50 72 6d 0d | b1 00 46 00 03 83 05 53 |....Prm.|..F....S|
|00000090| 71 72 74 41 d1 b3 f5 08 | 53 71 72 74 5f 6d 6f 64 |qrtA....|Sqrt_mod|
|000000a0| 81 f3 28 83 04 4e 75 6d | 41 c2 83 03 50 72 6d 29 |..(..Num|A...Prm)|
|000000b0| 0d d6 00 50 00 03 99 83 | 04 4e 75 6d 41 e7 83 03 |...P....|.NumA...|
|000000c0| 50 72 6d c2 83 05 53 71 | 72 74 41 ef f1 02 00 e7 |Prm...Sq|rtA.....|
|000000d0| 83 03 50 72 6d 0d dd 00 | 5a 00 03 bf 0d e6 00 64 |..Prm...|Z......d|
|000000e0| 00 03 98 00 00 0d 0f 01 | 6e 00 03 98 00 00 2a 20 |........|n.....* |
|000000f0| 66 6e 53 71 72 74 5f 6d | 6f 64 28 41 2c 50 29 20 |fnSqrt_m|od(A,P) |
|00000100| 20 20 20 20 20 20 20 76 | 65 72 20 31 2e 31 0d 2e |       v|er 1.1..|
|00000110| 01 78 00 03 98 00 00 20 | 20 69 6e 70 75 74 20 20 |.x..... | input  |
|00000120| 20 3a 20 50 20 70 72 69 | 6d 65 20 3e 32 0d 4c 01 | : P pri|me >2.L.|
|00000130| 82 00 03 98 00 00 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|00000140| 3a 20 41 20 69 6e 74 65 | 67 65 72 0d 86 01 8c 00 |: A inte|ger.....|
|00000150| 03 98 00 00 20 20 6f 75 | 74 70 75 74 20 20 3a 20 |....  ou|tput  : |
|00000160| 6f 6e 65 20 6f 66 20 74 | 68 65 20 73 71 75 61 72 |one of t|he squar|
|00000170| 65 20 72 6f 6f 74 73 20 | 6f 66 20 41 20 6d 6f 64 |e roots |of A mod|
|00000180| 75 6c 6f 20 50 0d a2 01 | 96 00 03 98 00 00 20 20 |ulo P...|......  |
|00000190| 64 65 73 74 72 6f 79 20 | 3a 20 6e 6f 74 68 69 6e |destroy |: nothin|
|000001a0| 67 0d cb 01 a0 00 03 98 | 00 00 20 20 72 65 6d 61 |g.......|..  rema|
|000001b0| 72 6b 20 20 3a 20 57 4f | 52 44 20 61 6e 64 20 50 |rk  : WO|RD and P|
|000001c0| 4f 49 4e 54 20 3d 20 61 | 6e 79 0d d4 01 aa 00 03 |OINT = a|ny......|
|000001d0| 98 00 00 0d f2 01 b4 00 | 03 b3 f5 08 53 71 72 74 |........|....Sqrt|
|000001e0| 5f 6d 6f 64 00 00 28 83 | 02 41 00 c2 83 02 50 00 |_mod..(.|.A....P.|
|000001f0| 29 0d 17 02 be 00 05 ba | 81 02 49 00 c2 83 02 58 |).......|..I....X|
|00000200| 00 c2 83 02 5a 00 c2 81 | 02 45 00 c2 83 02 51 00 |....Z...|.E....Q.|
|00000210| c2 83 03 41 6e 73 0d 53 | 02 c8 00 05 8d 00 00 83 |...Ans.S|........|
|00000220| 02 50 00 e7 f1 04 00 d1 | f1 03 00 8e 83 03 41 6e |.P......|......An|
|00000230| 73 d1 80 da 83 02 41 00 | c2 28 83 02 50 00 dd f1 |s.....A.|.(..P...|
|00000240| 01 00 29 e8 f1 04 00 c2 | 83 02 50 00 29 c0 87 f1 |..).....|..P.)...|
|00000250| 4a 01 0d 70 02 d2 00 05 | 83 02 58 00 d1 83 02 50 |J..p....|..X....P|
|00000260| 00 de f1 01 00 c0 81 02 | 45 00 d1 de f1 01 00 0d |........|E.......|
|00000270| 92 02 dc 00 05 92 00 00 | c0 a0 81 02 45 00 c0 83 |........|....E...|
|00000280| 02 58 00 d1 83 02 58 00 | e8 f1 02 00 c0 93 00 00 |.X....X.|........|
|00000290| a3 0d a9 02 e6 00 05 83 | 02 51 00 d1 f1 02 00 e5 |........|.Q......|
|000002a0| 83 02 58 00 dd f1 01 00 | 0d d6 02 f0 00 05 83 02 |..X.....|........|
|000002b0| 5a 00 d1 f1 01 00 c0 92 | 00 00 c0 a0 83 02 5a 00 |Z.......|......Z.|
|000002c0| c0 93 00 00 80 c8 83 02 | 5a 00 c2 83 02 50 00 29 |........|Z....P.)|
|000002d0| d1 de f1 01 00 0d fa 02 | fa 00 05 83 02 5a 00 d1 |........|.....Z..|
|000002e0| 80 db 80 da 83 02 5a 00 | c2 83 02 51 00 c2 83 02 |......Z.|...Q....|
|000002f0| 50 00 29 c2 83 02 50 00 | 29 0d 38 03 04 01 05 83 |P.)...P.|).8.....|
|00000300| 02 58 00 d1 80 da 83 02 | 41 00 c2 83 02 51 00 c2 |.X......|A....Q..|
|00000310| 83 02 50 00 29 c0 83 03 | 41 6e 73 d1 80 da 83 02 |..P.)...|Ans.....|
|00000320| 41 00 c2 28 83 02 51 00 | dd f1 01 00 29 e8 f1 02 |A..(..Q.|....)...|
|00000330| 00 c2 83 02 50 00 29 0d | 58 03 0e 01 05 83 02 4b |....P.).|X......K|
|00000340| 00 d1 28 83 02 50 00 de | f1 01 00 29 e8 28 f1 04 |..(..P..|...).(..|
|00000350| 00 e5 83 02 51 00 29 0d | 73 03 18 01 05 89 81 02 |....Q.).|s.......|
|00000360| 49 00 d1 81 02 45 00 de | f1 02 00 8a f0 8b de f1 |I....E..|........|
|00000370| 01 00 0d d8 03 22 01 07 | 8d 00 00 80 da 83 02 58 |....."..|.......X|
|00000380| 00 c2 83 02 4b 00 c2 83 | 02 50 00 29 d6 f1 01 00 |....K...|.P.)....|
|00000390| 8e 83 03 41 6e 73 d1 83 | 03 41 6e 73 e5 83 02 5a |...Ans..|.Ans...Z|
|000003a0| 00 e7 83 02 50 00 c0 83 | 02 5a 00 d1 83 02 5a 00 |....P...|.Z....Z.|
|000003b0| ef f1 02 00 e7 83 02 50 | 00 c0 83 02 58 00 d1 83 |.......P|....X...|
|000003c0| 02 58 00 e5 83 02 5a 00 | e7 83 02 50 00 c0 83 02 |.X....Z.|...P....|
|000003d0| 4b 00 e8 d1 f1 02 00 0d | fe 03 36 01 07 c0 8f 00 |K.......|..6.....|
|000003e0| 00 83 02 5a 00 d1 83 02 | 5a 00 ef f1 02 00 e7 83 |...Z....|Z.......|
|000003f0| 02 50 00 c0 83 02 4b 00 | e8 d1 f1 02 00 0d 05 04 |.P....K.|........|
|00000400| 40 01 05 8c 0d 3e 04 4a | 01 05 8d 00 00 28 83 03 |@....>.J|.....(..|
|00000410| 41 6e 73 ef f1 02 00 de | 83 02 41 00 29 e7 83 02 |Ans.....|..A.)...|
|00000420| 50 00 d6 f0 8e 99 22 69 | 6c 6c 65 67 61 6c 20 70 |P....."i|llegal p|
|00000430| 61 72 61 6d 65 74 65 72 | 22 c0 96 c0 bf 0d 4c 04 |arameter|".....L.|
|00000440| 54 01 03 95 28 83 03 41 | 6e 73 29 0d 00 00       |T...(..A|ns)...  |
+--------+-------------------------+-------------------------+--------+--------+