10 LET W=500:DIM F(W):LET P=1:LET A=3 20 LET F(P)=A:LET P=P+1:IF P>W THEN STOP 30 LET A=A+2:LET X=1 40 LET S=A/F(X):IF S=INT(S) THEN 30 50 LET X=X+1:IF X<P AND F(X)*F(X)<=A THEN 40 60 GOTO 20
Here are the results from a few of the machines I have to hand:
| System | CPU | Time |
|---|---|---|
| Acorn Electron | 2.0MHz 6502 | 138 |
| Amstrad CPC464 | 4.0MHz Z80A | 140 |
| Commodore C64 | 1.0MHz 6510 | 254 |
| Commodore Plus/4 | 1.0 MHz 8501 | 267 |
| Tandy 64K CoCo 2 | 0.895MHz 6809E | 271 |
| Atari 800XL | 1.8MHz 6502 | 316 |
| Sinclair Spectrum +3 | 3.55MHz Z80A | 388 |
Let me know how long it takes to run on your favourite classic computer. :-)
One caveat: BBC Basic, as used by the Electron, was pretty fast generally, but exceptionally fast if you happened to use single-letter variable names...
ReplyDeleteI get 101 seconds on a BBC Model B running BBC BASIC 2.
ReplyDeleteMy Tandy 102 runs it in 367 seconds.
ReplyDeleteI get 76 seconds on a BBC Master running BBC BASIC 4.
ReplyDeleteThe good old times as we talked about MHz and not GHz or 4 MB RAM and not 1 GB RAM :)
ReplyDeleteYou had 4MB of RAM? I only had 64K!
Delete4MB?!? My first box had 16k, second had 64k, 3rd 512k, fourth 8MB, fifth 64MB..256MB (upgrades) 6th 512MB, 7th 2GB.
ReplyDeleteI only counted desktops that were primary. (Not that a TI-99/4A was a desktop, per se - primary storage was a casette)
Commodore 128 @ 1 MHz: 319
ReplyDeleteCommodore 128 @ 2 MHz: 152
I would also love to see how fast Woz's Integer BASIC would run this.
ReplyDeleteForget I said that.
ReplyDelete16k, we dreamed of 16k, first machine I built had 1k, you tell young folks that now-a-days and they wont believe you (imaging the Yorkshire accesnt for yourselves).
ReplyDeleteMallard Basic on PCW8256 (4 Mhz Z80):
ReplyDelete58 sec
Locomotive Basic 1.1 on CPC 6128 (4 Mhz Z80):
113 sec
- BASIC Sinclair on ZX Spectrum +3: 316 seconds (measured using FRAMES sysvar, so it's rather accurate). How did you measure 388 seconds??
ReplyDelete- Mallard BASIC on ZX Spectrum +3 using CP/M: 115 seconds.
- Mallard BASIC on ZX Spectrum +3 using CP/M adding this line to the program:
5 DEFINT A-Z: DEFSNG S
105 segundos.
Sinclair BASIC on Spectrum +2: 387 seconds. So I think 388 seconds on a +3 is more than right. Maybe the method you used is not that accurate... Face it: built-in BASIC on Spectrum machines is definetely not fast.
DeleteAtari 130XE (Atari BASIC Rev. C) (1.7898 MHz 6502C) 338 seconds
ReplyDeleteTandy Color Computer 3 (Color BASIC 2.0) (1.7896 MHz 6809) 295 seconds
Sony F1XV MSX2+ (MSX Microsoft BASIC 3.0) (3.5795 MHz Z80A) 260.0667 seconds
Commodore VIC-20 (Microsoft BASIC 2a) (1 MHz 6502) 234 seconds
Apple IIe Enhanced (Applesoft II) (1.02272714286 MHz 65C02) 211 seconds
Apple IIe Enhanced (Integer BASIC) (1.02272714286 MHz 65C02) 134 seconds
To get the Integer BASIC time I changed the 'STOP' in line 20 to 'END' and line 40 to:
40 LET S=A MOD F(X):IF S=0 THEN 30
There is an error in my last post. The Tandy Color Computer 3 time shown was run at 0.8948 MHz. Also, it was "Extended" Color BASIC 2.0.
ReplyDeleteTandy Color Computer 3 (Extended Color BASIC 2.0) (0.8948 MHz MC68B09E) 295 seconds
Tandy Color Computer 3 (Extended Color BASIC 2.0) (1.7896 MHz MC68B09E) 147 seconds
Tandy Color Computer 3 (Disk Extended Color BASIC 2.1) (0.8948 MHz MC68B09E) 300 seconds
Tandy Color Computer 3 (Disk Extended Color BASIC 2.1) (1.7896 MHz MC68B09E) 149 seconds
220 seconds on a TRS-80 Micro Colour Computer (MC-10). The MC-10 was the little brother of the TRS-80 Colour Computer 2. In general its Basic runs somewhere between 10-15% faster than the Coco's.
ReplyDeleteOr you could write it like this.
ReplyDelete10 LET W=500:DIM F(W):LET P=1:LET A=3:LET F(P)=A
20 FOR P=2 TO W
30 LET A=A+2:LET X=1
40 LET S=A/F(X):IF S=INT(S) THEN 30
50 LET X=X+1:IF X<P AND F(X)*F(X)<=A THEN 40
60 LET F(P)=A
70 NEXT P
For machines that support DEFINT and DEFSNG you can add this:
0 DEFINT X,P,A,F,W:DEFSNG S
For some reason I couldn't define W as an integer in the original code on the VZ/Laser, it didn't exit properly.
A VZ200 emulator said just under 205 for this version. FOR NEXT is sure to have different results though and the emulator I used probably doesn't have exact timing yet.
I'm using a patched ROM that re-enables some of the Level II BASIC commands so don't assume it works on a standard VZ/Laser either.
Commodore +4 has 1.8 MHz CPU. 50 bad lines and other 153 lines for screen area where CPU has to be slower make average CPU frequency equal to 1.15 MHz. Commodore Basic is old and slow. AMSTRAD LOCOMOTIVE BASIC is much newer and faster. So it is not only the hardware benchmarks but BASICs benchmarks...
ReplyDeleteI've tested this code on CP/M 2.2 using BBCBASIC.
ReplyDeleteMy N8-2312 : Z180 @24.576MHz.
It does the test in 33.53s.
Coleco ADAM 3.58 MHz Z80A 174
ReplyDeleteSchneider CPC464 - Z80A @ 4Mhz - 141s
ReplyDeleteTRS 80 model I with Level II Basic Z80 @ 1.774MHz - 421s
ReplyDeleteRaspberry Pi V2 FUZE - 1 second! (Checked by displaying all 500 prime numbers generated).
ReplyDeleteCommodore CBM 2001 (European version of PET 2001) - 106 s
ReplyDeleteSharp MZ-731 (4 MHz Z80) 182s
ReplyDelete6802 running at 1.87 Mhz that I built (serial IO only): 110 seconds.
ReplyDeleteI forgot to say the 6802 is running MITS BASIC (Microsoft circa 1977)
ReplyDeleteApple I (Apple cassette BASIC) (1.023 MHz 6502) 135 seconds
ReplyDeleteThis Apple I is actually an emulation under MAME 0.184, running at original speed. Apple's cassette BASIC was also written by Steve Wozniak and was the predecessor to Integer BASIC; it is very similar in most respects, except for the latter's added graphics features. However, the program did need an added loop at the start to initialize the sieve array F():
11 FOR I=1 TO W:F(I)=0:NEXT I
since this version of Apple BASIC did not initialize arrays automatically.
The time is almost identical to Tim Locke's for Integer BASIC. Given that the two versions of BASIC are closely related, this isn't surprising. As long as the program doesn't do much I/O and fits within memory, an Apple I is almost identical to an Apple II in computing speed.
Apple-I... Holy bejezus...
DeleteNice-$$$$$ ;-)
Heh, read more carefully. I'm not exactly made of money. :)
DeleteI think I can vouch for the emulation accuracy, though, both because MAME offers a pretty solid platform for accurate machine emulation if the driver for the specific system is written properly, and since I did a fair amount of research some years back in making sure the Apple I's emulation actually worked according to the machine's circuitry.
Just to illustrate how far we've come, A Core i7 @ 3.6 GHz running Decimal BASIC (ANSI Full BASIC compatible interpreter) runs in .07 seconds. The Decimal BASIC compiled version runs in .0133 seconds. Decimal BASIC compiler automatically creates Lazarus Pascal source code that is then compiled into true machine language. No messing with P-Code interpreters or the like.
ReplyDeleteI made a spreadsheet.
ReplyDeletehttps://docs.google.com/spreadsheets/d/1J_ZKDCw_acPxsWOWhfFx7H1AM5SuZ6iW-Yojx1Q59cA/edit?usp=sharing
The fast way to find primes.
ReplyDelete10 X=0:J=0:I=0
100 CLS
110 PRINT "Welcome to the prime number generator."
115 N = 32767
120 INPUT "Upper limit (32767)";N
130 FOR I=3 TO N STEP 2:FOR J=2 TO SQR(I):X=I/J:IF X<>INT(X) THEN NEXTJ:PRINTI;:NEXTI:ELSE PRINT".";:NEXTI
230 PRINT
240 PRINT "Finished"
260 END
Yeah yours is a faster way to do this particular problem but that's irrelevant to a benchmark. The purpose isn't to find the fastest way to solve a problem, it's to find a program that will run unmodified (or as close as possible to being unmodified) on every system in the list. Some people don't get it when they say, "Hey, I can use such-and-such a feature of my particular compiler to run even faster!" This isn't what benchmarks are about. To compare system X with system Y, both need to run the same program, not taking advantage of quirks or extensions in either system.
DeleteUpdated Results on Atari 800 (prior to XL & XE series), on unmodified CPU + Chipset, 1982/1983 manufacture-date:
ReplyDelete1. On SDX Dos, + Altirra 1.55 Basic (interpreted) => 1m:33s
2. On CP/M 2.2 (Rev.1.1) + Microsoft Basic 5.29 (on Atari's Z80-powered Indus-GT disk drive) => 2m:08s
Original benchmark code is essentially untouched / unmodified, with the addition of automatically turning off ANTIC's (graphics chipset) DMA cycling, thus granting full processing power to 6502 central processor (during benchmark execution).
Do you have an inkjet printer in your home, office, or school? If so, you are probably familiar with the challenge of finding quality https://qualityinkjetrefills.ca cartridges for a reasonable price. There are some general guidelines that can help you to make the best possible choice in an inkjet cartridge.
ReplyDeleteZX SPECTRUM 48kb 309 seconds
ReplyDelete5 PAUSE 1: POKE 23672,0: POKE 23673,0: POKE 23674,0
10 LET W=500:DIM F(W):LET P=1:LET A=3
20 LET F(P)=A:LET P=P+1:IF P>W THEN GOTO 70
30 LET A=A+2:LET X=1
40 LET S=A/F(X):IF S=INT(S) THEN GOTO 30
50 LET X=X+1:IF X<P AND F(X)*F(X)<=A THEN GOTO 40
60 GOTO 20
70 PAUSE 1: LET s=PEEK 23672+256*PEEK 23673+65536*PEEK 23674:LET s=s/50: LET m=INT (INT s/60): LET h=INT (m/60): PRINT "Time: ";h;"h ";m-60*h;"min ";INT ((s-60*m)*100)/100;"s": STOP
As an odd comparison, I made an account on the CDC6500 at the living computer museum and ran the same benchmark code - it took approx 1.1 seconds to run, not bad for a 1967 dinosaur.
ReplyDeleteBeginners Lab Assignments Samples about c++ programming
ReplyDeleteTechnology-enabled solutions are intangible sales. People don't buy the machine; they buy what it enables. Average sales people tend to perceive technology as a tangible, so they focus on the functionality. Exceptional sales people understand that customers only care about the results the technology enables, which is intangible. This difference in perception about the nature of technology is the Spend Management Software factor in determining a sales person's success.
ReplyDeleteIn the last half of the 20th century it was President Kennedy who took up the gauntlet of outlining a national directive focusing on science and compliance. The course that the United States chartered then propelled America into the space age. No longer was man confined to this planet alone.
ReplyDeleteI have discovered that smart real estate agents all over the place are getting set to FSBO Advertising and marketing. They are acknowledging that it’s more than merely placing a sign post in the front area. It’s really regarding building relationships with these retailers who later will become consumers. So, when you give your time and energy to encouraging these retailers go it alone – the “Law associated with Reciprocity” kicks in. Good blog post. Anti Termite Abu Dhabi
ReplyDeleteSTM32F411 Nucleo board (100MHz Cortex M4) running RunCPM: 43.3 seconds.
ReplyDeleteAtari 800 w/Newell Fastchip, OSS Basic XL using FAST, Antic disabled during run: 89 seconds.
ReplyDeleteMattel Aquarius won't dimension F to 500 (RAM limitation) so I DIMed it to 350. For 350 primes: 106 seconds, rough guess to 500 primes would be about 150 seconds?
You really should experience a tournament for starters of the finest blogs online. Let me recommend this great site! android app
ReplyDeleteBusiness is a tough https://adesk.cheapsoftwaredownload.net/autodesk-alias-autostudio.html. Continually we need to operate in three areas to ensure we produce consistent outcomes. The businesses we work with are challenged to:
ReplyDeleteLabeling machines can apply labels to a variety of products and packages. Labeling machines are machines that dispense, apply or print-and-apply labels to various items, products, containers or packages. Different types of label are able to adhere to a variety of surfaces such as fiber drums, aluminum https://roxwellwaterhouse.com/ glass, steel, plastic. Label dispensers are used for various purposes. There are various types of labeling machines available in the market.
ReplyDeleteIn a world of constantly changing technology, educators are working to bring that technology to students. Textbooks are just not able to keep up with technological advances. Teachers are able how to hack cod mobile help prepare their students for technology and information they will encounter in life after they finish school by using integrated technology in the classrooms.
ReplyDeleteRecruitment Technology has for a long time fallen behind the developments in other professional industries such as accounting, legal, insurance etc. with a number of excellent technology tools and software products being developed in these areas. Recently though their has been a surge of development within recruitment technology with some truly fantastic products being developed to take us out of the dark youtube premium for free of recruitment methodologies. But if recruiters don't embrace this development we will hinder our progress into the future.
ReplyDeleteImmigration… [...]the time to read or visit the content or sites we have linked to below the[...]… Dragon City Cheats
ReplyDeleteThis comment has been removed by the author.
ReplyDeleteAtari 800XL + TurboBasic 1.5 = 92 seconds in graphics mode 5 (80x48 res. light DMA contention), 119 seconds in graphics 8 (320x192 res. heavy DMA contention)
ReplyDeleteOh my goodness! an incredible article dude. Thanks Nonetheless I am experiencing concern with ur rss . Don’t know why Unable to subscribe to it. Is there anybody getting equivalent rss drawback? Anyone who knows kindly respond. Thnkx thetechnologyvision
ReplyDeleteIt seems you are getting quite a lof of unwanted comments. Maybe you should look into a solution for that. Have a nice day! gettechskill
ReplyDeleteUseful info. Fortunate me I discovered your website accidentally, and I am surprised why this coincidence didn’t happened earlier! I bookmarked it. getandroidemulator
ReplyDeleteMany technology vendors and service providers consistently make common mistakes that can expose them to unnecessary liability, and cost them revenue. This article can help your technology company address and resolve these mistakes and increase your success. hack mobile legends
ReplyDeleteYou should take part in a contest for one of the best blogs on the web. I will recommend this site! custom electronics
ReplyDeleteCredit bureaus want to keep you in the dark ages about the mechanics of your credit score. But, clearing the misconceptions about credit scoring and credit reporting will keep you from being a subprime credit victim. Knowing these facts will also increase the vitality of your credit score. long term bad credit loans
ReplyDeleteMost businesses think that business funding is something that you need when your business is short on cash or times are hard. A lot of businesses go out looking for business funding when the business is not good. The time to get business funding is not when your business is doing horrible or you are strapped for cash. Touch Up Paint
ReplyDeleteAre you fond of uploading your pictures in your computer? Do you want to learn the basics of graphic design? Have ever wondered how these graphic artists change the entire look of their models? These can be done through the Adobe software application. This program helps you create and edit pictures or images. When you see those stunning models on the glossy magazines, do not be amazed if you do not find any flaws on their faces. buy lumion 8 pro
ReplyDeleteWe would like to thank you just as before for the stunning ideas you offered Jesse when preparing her own post-graduate research and, most importantly, regarding providing every one of the ideas in one blog post. In case we had been aware of your web page a year ago, we might have been saved the unwanted measures we were implementing. Thank you very much. How To Get Free Deezer Premium
ReplyDeleteGood post. I learn something tougher on different blogs everyday. It'll at all times be stimulating to learn content from other writers and observe somewhat one thing from their store. I’d choose to use some with the content on my blog whether or not you don’t mind. Natually I’ll offer you a link in your internet blog. Thanks for sharing. panda helper vip free
ReplyDeleteThanks for making the honest attempt to speak about this. I believe very robust approximately it and want to read more. If it’s OK, as you gain more in depth wisdom, would you thoughts adding extra articles similar to this one with additional information? It might be extremely useful and useful for me and my friends. kim kardashian hollywood free K Stars
ReplyDelete