/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsp / prime / Prime_MC

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 50 | 72 69 6d 65 5f 4d 43 0d |..... >P|rime_MC.|
|00000010| 00 14 2a f4 20 20 43 6f | 70 79 72 69 67 68 74 20 |..*.  Co|pyright |
|00000020| 2a 2a 2a 20 4a 61 73 6f | 6e 20 57 6f 6c 66 65 20 |*** Jaso|n Wolfe |
|00000030| 20 31 39 39 33 20 2a 2a | 2a 0d 00 1e 4d f4 20 20 | 1993 **|*...M.  |
|00000040| 41 20 70 72 6f 67 72 61 | 6d 20 77 68 69 63 68 20 |A progra|m which |
|00000050| 75 73 65 73 20 6d 61 63 | 68 69 6e 65 20 63 6f 64 |uses mac|hine cod|
|00000060| 65 20 74 6f 20 63 61 6c | 63 75 6c 61 74 65 20 61 |e to cal|culate a|
|00000070| 20 6c 69 73 74 20 6f 66 | 20 70 72 69 6d 65 20 6e | list of| prime n|
|00000080| 75 6d 62 65 72 73 0d 00 | 28 5a f4 20 20 49 74 20 |umbers..|(Z.  It |
|00000090| 69 73 20 66 61 73 74 2e | 20 20 49 20 70 65 72 73 |is fast.|  I pers|
|000000a0| 6f 6e 61 6c 6c 79 20 63 | 61 6e 27 74 20 74 68 69 |onally c|an't thi|
|000000b0| 6e 6b 20 6f 66 20 61 6e | 79 20 77 61 79 20 74 6f |nk of an|y way to|
|000000c0| 20 69 6e 63 72 65 61 73 | 65 20 74 68 65 20 73 70 | increas|e the sp|
|000000d0| 65 65 64 20 61 6e 79 20 | 66 75 72 74 68 65 72 2e |eed any |further.|
|000000e0| 0d 00 32 53 f4 20 20 49 | 20 68 61 76 65 20 6c 65 |..2S.  I| have le|
|000000f0| 66 74 20 74 68 65 20 63 | 6f 64 65 20 64 69 73 61 |ft the c|ode disa|
|00000100| 73 73 65 6d 62 6c 65 64 | 20 66 6f 72 20 74 68 6f |ssembled| for tho|
|00000110| 73 65 20 77 68 6f 20 6d | 61 79 20 62 65 20 69 6e |se who m|ay be in|
|00000120| 74 65 72 65 73 74 65 64 | 20 69 6e 20 68 6f 77 20 |terested| in how |
|00000130| 74 68 65 0d 00 3c 15 f4 | 20 20 70 72 6f 67 72 61 |the..<..|  progra|
|00000140| 6d 20 77 6f 72 6b 73 2e | 0d 00 46 0a ef 32 36 2c |m works.|..F..26,|
|00000150| 31 32 0d 00 50 09 e5 8d | 74 7e 40 0d 00 5a 0f de |12..P...|t~@..Z..|
|00000160| 20 41 25 28 32 30 30 30 | 30 29 0d 00 64 1d 40 25 | A%(2000|0)..d.@%|
|00000170| 3d 38 3a 41 25 28 31 29 | 3d 33 3a 63 6f 75 6e 74 |=8:A%(1)|=3:count|
|00000180| 25 3d 32 3a d1 3d 30 0d | 00 6e 16 e3 20 4e 25 3d |%=2:.=0.|.n.. N%=|
|00000190| 20 35 20 b8 20 31 30 30 | 30 30 20 88 32 0d 00 78 | 5 . 100|00 .2..x|
|000001a0| 16 73 71 72 25 3d b6 28 | 4e 25 29 3a 6c 6f 6f 70 |.sqr%=.(|N%):loop|
|000001b0| 25 3d 31 0d 00 82 3b e7 | 20 41 25 28 6c 6f 6f 70 |%=1...;.| A%(loop|
|000001c0| 25 29 20 3e 20 73 71 72 | 25 20 8c 20 41 25 28 63 |%) > sqr|% . A%(c|
|000001d0| 6f 75 6e 74 25 29 3d 4e | 25 3a f1 4e 25 3b 3a 63 |ount%)=N|%:.N%;:c|
|000001e0| 6f 75 6e 74 25 2b 3d 31 | 3a e5 8d 74 60 40 0d 00 |ount%+=1|:..t`@..|
|000001f0| 8c 20 e7 20 4e 25 20 83 | 20 41 25 28 6c 6f 6f 70 |. . N% .| A%(loop|
|00000200| 25 29 20 3d 20 30 20 8c | 20 e5 8d 74 60 40 0d 00 |%) = 0 .| ..t`@..|
|00000210| 96 12 6c 6f 6f 70 25 2b | 3d 31 3a e5 8d 74 42 40 |..loop%+|=1:..tB@|
|00000220| 0d 00 a0 05 ed 0d 00 aa | 0c f1 20 27 91 2f 31 30 |........|.. './10|
|00000230| 30 0d 00 b4 04 0d 00 be | 21 f4 20 4d 61 63 68 69 |0.......|!. Machi|
|00000240| 6e 65 20 43 6f 64 65 20 | 50 72 69 6d 65 20 4e 75 |ne Code |Prime Nu|
|00000250| 6d 62 65 72 73 2e 0d 00 | c8 04 0d 00 d2 08 40 25 |mbers...|......@%|
|00000260| 3d 38 0d 00 dc 0d f2 61 | 73 73 65 6d 62 6c 65 0d |=8.....a|ssemble.|
|00000270| 00 e6 09 f2 63 61 6c 6c | 0d 00 f0 05 e0 0d 00 fa |....call|........|
|00000280| 04 0d 01 04 0a dd f2 63 | 61 6c 6c 0d 01 0e 0e 21 |.......c|all....!|
|00000290| 73 72 3d b6 28 21 6e 6d | 29 0d 01 18 0a d6 20 63 |sr=.(!nm|)..... c|
|000002a0| 6f 64 65 0d 01 22 09 e5 | 8d 54 4e 41 0d 01 2c 05 |ode.."..|.TNA..,.|
|000002b0| e1 0d 01 36 04 0d 01 40 | 0e dd f2 61 73 73 65 6d |...6...@|...assem|
|000002c0| 62 6c 65 0d 01 4a 07 61 | 3d 30 0d 01 54 07 62 3d |ble..J.a|=0..T.b=|
|000002d0| 31 0d 01 5e 07 63 3d 32 | 0d 01 68 07 64 3d 33 0d |1..^.c=2|..h.d=3.|
|000002e0| 01 72 09 6e 75 6d 3d 34 | 0d 01 7c 0b 63 6f 75 6e |.r.num=4|..|.coun|
|000002f0| 74 3d 35 0d 01 86 0a 62 | 61 73 65 3d 36 0d 01 90 |t=5....b|ase=6...|
|00000300| 0a 6c 6f 6f 70 3d 37 0d | 01 9a 09 73 71 72 3d 38 |.loop=7.|...sqr=8|
|00000310| 0d 01 a4 0a 74 65 73 74 | 3d 39 0d 01 ae 04 0d 01 |....test|=9......|
|00000320| b8 0b de 20 73 72 20 33 | 32 0d 01 c2 0b de 20 6e |... sr 3|2..... n|
|00000330| 6d 20 33 32 0d 01 cc 0c | de 20 63 6e 74 20 33 32 |m 32....|. cnt 32|
|00000340| 0d 01 d6 0f de 20 63 6f | 64 65 20 31 30 30 30 0d |..... co|de 1000.|
|00000350| 01 e0 04 0d 01 ea 0b 76 | 64 75 3d 32 35 36 0d 01 |.......v|du=256..|
|00000360| f4 0e 62 73 65 3d 26 31 | 30 30 30 30 0d 01 fe 0a |..bse=&1|0000....|
|00000370| 21 62 73 65 3d 33 0d 02 | 08 0a 21 63 6e 74 3d 31 |!bse=3..|..!cnt=1|
|00000380| 0d 02 12 09 21 6e 6d 3d | 35 0d 02 1c 04 0d 02 26 |....!nm=|5......&|
|00000390| 14 e3 20 70 61 73 73 3d | 20 30 20 b8 20 33 20 88 |.. pass=| 0 . 3 .|
|000003a0| 33 0d 02 30 0b 50 25 3d | 63 6f 64 65 0d 02 3a 05 |3..0.P%=|code..:.|
|000003b0| 5b 0d 02 44 0c 4f 50 54 | 20 70 61 73 73 0d 02 4e |[..D.OPT| pass..N|
|000003c0| 04 0d 02 58 0b 2e 73 74 | 72 69 6e 67 0d 02 62 1b |...X..st|ring..b.|
|000003d0| 45 51 55 53 20 22 20 20 | 20 20 20 20 20 20 20 20 |EQUS "  |        |
|000003e0| 20 20 20 20 20 20 22 0d | 02 6c 09 41 4c 49 47 4e |      ".|.l.ALIGN|
|000003f0| 0d 02 76 04 0d 02 80 0f | 4d 4f 56 20 6c 6f 6f 70 |..v.....|MOV loop|
|00000400| 2c 23 30 0d 02 8a 11 4c | 44 52 20 63 6f 75 6e 74 |,#0....L|DR count|
|00000410| 2c 63 6e 74 0d 02 94 0e | 4c 44 52 20 6e 75 6d 2c |,cnt....|LDR num,|
|00000420| 6e 6d 0d 02 9e 0e 4c 44 | 52 20 73 71 72 2c 73 72 |nm....LD|R sqr,sr|
|00000430| 0d 02 a8 04 0d 02 b2 0a | 2e 74 65 73 74 31 0d 02 |........|.test1..|
|00000440| bc 11 4d 4f 56 20 62 61 | 73 65 2c 23 62 73 65 0d |..MOV ba|se,#bse.|
|00000450| 02 c6 1c 41 44 44 20 62 | 61 73 65 2c 62 61 73 65 |...ADD b|ase,base|
|00000460| 2c 6c 6f 6f 70 2c 4c 53 | 4c 23 32 0d 02 d0 13 4c |,loop,LS|L#2....L|
|00000470| 44 52 20 74 65 73 74 2c | 5b 62 61 73 65 5d 0d 02 |DR test,|[base]..|
|00000480| da 10 43 4d 50 20 74 65 | 73 74 2c 73 71 72 0d 02 |..CMP te|st,sqr..|
|00000490| e4 0d 42 4c 45 20 74 65 | 73 74 32 0d 02 ee 13 43 |..BLE te|st2....C|
|000004a0| 4d 50 20 6e 75 6d 2c 23 | 26 35 30 30 30 30 0d 02 |MP num,#|&50000..|
|000004b0| f8 0e 42 47 54 20 70 72 | 69 6e 74 4e 0d 03 02 11 |..BGT pr|intN....|
|000004c0| 4d 4f 56 20 62 61 73 65 | 2c 23 62 73 65 0d 03 0c |MOV base|,#bse...|
|000004d0| 1d 41 44 44 20 62 61 73 | 65 2c 62 61 73 65 2c 63 |.ADD bas|e,base,c|
|000004e0| 6f 75 6e 74 2c 4c 53 4c | 23 32 0d 03 16 12 53 54 |ount,LSL|#2....ST|
|000004f0| 52 20 6e 75 6d 2c 5b 62 | 61 73 65 5d 0d 03 20 16 |R num,[b|ase].. .|
|00000500| 41 44 44 20 63 6f 75 6e | 74 2c 63 6f 75 6e 74 2c |ADD coun|t,count,|
|00000510| 23 31 0d 03 2a 11 53 54 | 52 20 63 6f 75 6e 74 2c |#1..*.ST|R count,|
|00000520| 63 6e 74 0d 03 34 0b 2e | 70 72 69 6e 74 4e 0d 03 |cnt..4..|printN..|
|00000530| 3e 0e 4d 4f 56 20 52 30 | 2c 6e 75 6d 0d 03 48 11 |>.MOV R0|,num..H.|
|00000540| 41 44 52 20 52 31 2c 73 | 74 72 69 6e 67 0d 03 52 |ADR R1,s|tring..R|
|00000550| 0e 4d 4f 56 20 52 32 2c | 23 31 36 0d 03 5c 1d 53 |.MOV R2,|#16..\.S|
|00000560| 57 49 20 22 4f 53 5f 43 | 6f 6e 76 65 72 74 43 61 |WI "OS_C|onvertCa|
|00000570| 72 64 69 6e 61 6c 34 22 | 0d 03 66 18 53 57 49 20 |rdinal4"|..f.SWI |
|00000580| 22 4f 53 5f 50 72 65 74 | 74 79 50 72 69 6e 74 22 |"OS_Pret|tyPrint"|
|00000590| 0d 03 70 0e 53 57 49 20 | 76 64 75 2b 33 32 0d 03 |..p.SWI |vdu+32..|
|000005a0| 7a 0b 42 41 4c 20 6f 75 | 74 0d 03 84 04 0d 03 8e |z.BAL ou|t.......|
|000005b0| 0a 2e 74 65 73 74 32 0d | 03 98 0d 4d 4f 56 20 61 |..test2.|...MOV a|
|000005c0| 2c 6e 75 6d 0d 03 a2 0c | 4d 4f 56 20 62 2c 23 30 |,num....|MOV b,#0|
|000005d0| 0d 03 ac 0c 4d 4f 56 20 | 63 2c 23 30 0d 03 b6 10 |....MOV |c,#0....|
|000005e0| 4d 4f 56 20 64 2c 23 31 | 3c 3c 33 31 0d 03 c0 05 |MOV d,#1|<<31....|
|000005f0| 20 0d 03 ca 0d 2e 6d 6f | 64 5f 6c 6f 6f 70 0d 03 | .....mo|d_loop..|
|00000600| d4 12 4d 4f 56 53 20 61 | 2c 61 2c 41 53 4c 23 31 |..MOVS a|,a,ASL#1|
|00000610| 0d 03 de 0d 41 44 43 20 | 62 2c 62 2c 62 0d 03 e8 |....ADC |b,b,b...|
|00000620| 0e 43 4d 50 20 62 2c 74 | 65 73 74 0d 03 f2 12 53 |.CMP b,t|est....S|
|00000630| 55 42 47 45 20 62 2c 62 | 2c 74 65 73 74 0d 03 fc |UBGE b,b|,test...|
|00000640| 0e 84 52 47 45 20 63 2c | 63 2c 64 0d 04 06 12 4d |..RGE c,|c,d....M|
|00000650| 4f 56 53 20 64 2c 64 2c | 4c 53 52 23 31 0d 04 10 |OVS d,d,|LSR#1...|
|00000660| 10 42 4e 45 20 6d 6f 64 | 5f 6c 6f 6f 70 0d 04 1a |.BNE mod|_loop...|
|00000670| 04 0d 04 24 0f 2e 6d 6f | 64 5f 66 69 6e 69 73 68 |...$..mo|d_finish|
|00000680| 0d 04 2e 0c 43 4d 50 20 | 62 2c 23 30 0d 04 38 0b |....CMP |b,#0..8.|
|00000690| 42 45 51 20 6f 75 74 0d | 04 42 04 0d 04 4c 0d 2e |BEQ out.|.B...L..|
|000006a0| 69 6e 63 5f 6c 6f 6f 70 | 0d 04 56 14 41 44 44 20 |inc_loop|..V.ADD |
|000006b0| 6c 6f 6f 70 2c 6c 6f 6f | 70 2c 23 31 0d 04 60 0d |loop,loo|p,#1..`.|
|000006c0| 42 41 4c 20 74 65 73 74 | 31 0d 04 6a 04 0d 04 74 |BAL test|1..j...t|
|000006d0| 08 2e 6f 75 74 0d 04 7e | 12 41 44 44 20 6e 75 6d |..out..~|.ADD num|
|000006e0| 2c 6e 75 6d 2c 23 32 0d | 04 88 0e 53 54 52 20 6e |,num,#2.|...STR n|
|000006f0| 75 6d 2c 6e 6d 0d 04 92 | 0e 4d 4f 56 20 50 43 2c |um,nm...|.MOV PC,|
|00000700| 52 31 34 0d 04 9c 05 5d | 0d 04 a6 05 ed 0d 04 b0 |R14....]|........|
|00000710| 06 f1 27 0d 04 ba 08 41 | 24 3d be 0d 04 c4 05 e1 |..'....A|$=......|
|00000720| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+