Je prázdninový čas a tak som si povedal že by bolo načase sa pozriež na nejaké tie benchmarkové testy pre Atárko. Dosť som sa testu vyhýbal, pretože originálny Basic nepatrí rozhodne k nejakým rýchlikom a tak som si to doteraz odpustil. Lenže - mimo pôvodného Basicu je teraz k dispozícii aj Altirra Basic v.1.58 - tak si pozrime výsledky porovnania týchto dvoch interpreterov jazyka Basic.

Najpr ale dodám skúšobné programy, je ich 8.

Program 1:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 FOR K=1 TO 1000
500 NEXT K
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END

Program 2:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
500 K=K+1
600 IF K<1000 THEN 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END

Program 3:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
500 K=K+1
510 LET A=K/K*K+K-K
600 IF K<1000 THEN 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END

Program 4:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
500 K=K+1
510 LET A=K/2*3+4-5
600 IF K<1000 THEN 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END

Program 5:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
500 K=K+1
510 LET A=K/2*3+4-5
520 GOSUB 820
600 IF K<1000 THEN 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END
820 RETURN

Program 6:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
430 DIM M(5)
500 K=K+1
510 LET A=K/2*3+4-5
520 GOSUB 820
530 FOR L=1 TO 5
540 NEXT L
600 IF K<1000 THEN 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/60
800 END
820 RETURN

Program 7:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
430 DIM M(5)
500 K=K+1
510 LET A=K/2*3+4-5
520 GOSUB 820
530 FOR L=1 TO 5
535   M(L)=A
540 NEXT L
600 IF K<1000 THEN 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END
820 RETURN

Program 8:

290 ST=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
300 PRINT "S"
400 K=0
500 K=K+1
530 A=K^2
540 B=LOG(K)
550 C=SIN(K)
600 IF K<100 THEN GOTO 500
700 PRINT "E"
780 ET=PEEK(18)*65536+PEEK(19)*256+PEEK(20)
790 PRINT "T=";(ET-ST)/50
800 END

Poďme na tabuľku s dosiahnutými časmi:

Výsledok je vidieť - o desaťročia neskôr vzniknutý Altirra Basic je o poznanie rýchlejší - jasný dôvod pre to aby sa naň prešlo, tieto čísla aj mňa definitívne presvedčili - i keď ak sa dá najradšej používam TurboBasic. A to tu ešte stále nehovorím o jazyku TurboBasic a použitie jeho kompilátora - výsledky s nimi sem nedávam, je to ešte rýchlejšie a popritom v týchto testoch TB nevyužíva svoje rýchle príkazy a rutiny, stále som pracoval s pôvodnými programami bez akejkoľvek úpravy. Napriek tomu jeden výsledok predsa len uvediem - program č.8 v TB dosahuje čas 5.64s ...

Malá poznámka záverom - uvedené listingy programov sú určené pre PAL počítače, majitelia NTSC počítačov musia v programoch v riadku 790 nahradiť časť /50 novou hodnotou - a to /60.

_____________________________________________________

Vaše hodnotenie, Rate post:

Často potrebujeme pri písaní programu aby sme mali pri vstupe potrebných dát do programu zaručene zapnuté veľké znaky a aby sme nemali zapnutú inverziu znakov - inak nebude program správne fungovať. Na to aby všetko zbiehalo tak ako treba nám stačia iba dva POKE príkazy:

POKE 694,0:POKE 702,64

V pôvodnom Atari Basicu ich uložíme do podprogramu ktorý potom budeme volať cez GOSUB adresa.

Príklad:

10 REM program

20 DIM A$ (10)

30 GOSUB 99:?"NAME:";:INPUT A$

40 ?A$:END

99 POKE 694,0:POKE 702,64:RETURN

V Turbo Basicu si vytvoríme napr. procedúru BIG a potom budeme v programe volať túto procedúru.

Príklad:

10 REM program

20 DIM A$ (10)

30 EXEC BIG:?"NAME:";:INPUT A$

40 ?A$:END

99 PROC BIG:POKE 694,0:POKE 702,64:ENDPROC

_____________________________________________________

Vaše hodnotenie, Rate post:

05.07.2026

Prázdninové čítanie o doplnkoch pre počítač:

Van Radecke - TFHH - zaujímavé doplnky pre Atari.

_____________________________________________________

07.07.2026

Celkom šikovná pomôcka pri písaní programu ktorý vyžaduje zadávať vstupné údaje:

Tipy a triky 029. Tips & tricks. Malé a invertované znaky - ich vypnutie.

_____________________________________________________

15.07.2026

Porovnanie rýchlosti interpreterov jazyka Basic - Atari Basic ver.C versus Altirrra Basic ver.1.58:

RuggFeldman benchmark - Atari Basic ver.C versus Altirra Basic v.1.58.

_____________________________________________________

12.08.2026

Pekných pár dní (viac ako 3 týždne) tu bol výpadok blogu - tvrdé vonkajšie napadnutie mojich stránok. No, niektorí jedinci sa angažujú na tento druh činností ... už som si skutočne myslel že s blogom definitívne končím a hádžem do ringu ručník.

____________________________________________________________

Vaše hodnotenie, Rate post:

Ak ste zanietený atarista tak ste určite už niekedy počuli prezývku TFHH - je to Jürgen van Radecke. Pôsobí v nemeckom ABBUC klube, poskytuje niekoľko hodne zaujímavých doplnkov pre malé (i väčšie) Atari. Rád by som ukázal niečo z toho čo už mám doma aj ja, ostatné veci spolu s popisom nájdete na konci článku v odkaze na TFHH.

Sys-Check V2.2 XL

Tento úvodný obrázok je prevzatý z materiálu ponuky zariadení od TFHH. Pretože Sys-Check V2.2 XL zásadne používam na počítačoch ktoré majú na PBI zbernici vyvedených +5V (A600XL funguje s týmto rozšírením funguje priamo, u A800XL treba na piny 47 a 48 PBI zbernice priviesť +5V a potom modrý napájací káblik už netreba).  Objednal som 3 kusy, fičia naprosto parádne. (Najprv som mal 1 kus, onedlho nasledovali ďalšie 2 ..., z toho jeden bol pre SH.) Toto rozšírenie pamäte spolu s 4x OS je priamo dodávané v slušivej krabičke. Podrobný popis zariadení ktoré sú k dispozícii je v odkaze na samom konci článku.

Kapotovaný Sys-Check V2.2 XL, modrý káblik je už odpojený.

Dodané v tomto prevedení.

Aby neprišlo k náhodnému skratu na výstupe predĺženej zbernice tak používam túto jednoduchú pomôcku.

(Ešte som pod túto kapotáž pridal 3mm gumové nožičky a teraz krabička pekne sedí na stole ako

pribitá, žiadne viklanie ...)

Tu si dovolím malú vsuvku - v manuáli pre Sys-Check V2.2 XL je tabuľka z nakresleným zapojením nastavenia prepínačov a ich významu. Prekvapilo ma že je tu prepínač v pracovnej polohe znázornený na šedo - i keď cuplík samotného prepínača je biely ... to ma naozaj miatlo. Možno som jediný kto to zaregistroval a komu to vadí - a tak som pre seba pozmenil vzhľad tabuľky z manuálu tak že skutočná poloha prepínača je teraz vyznačená bielou farbou - pripadá mi to podstatne prehľadnejšie:

Biela je skutočná poloha prepínača.

Snáď mi túto úpravu autor originálneho manuálu odpustí ...

Ale poďme ďalej - je skutočne super ak máme na stole rozobratý počítač a máme k dispozícii niečo s čím vieme spustiť test RAM pamäte počítača a pritom nemusíte pripojiť do motherboardu originálnu klávesnicu - a to je ďalšia vecička od TFHH ktorú vlastním (zobral som si 2 kusy - pri tej cene ...), funguje pre radu Atari XL (horná rada) a taktiež aj pre radu XE (dolná rada):

Kúpil som doštičky - osadené samodomo.

Dtto, osadené druhýkrát, teraz s väčšími 5mm LED rozdielnej farby.

Tak isto mám aj Mini SuperSpeedy 1050 ...

Toto ešte len čaká na nasadenie - až teraz som zohnal pôvodnú A1050 do ktorej to pôjde.

_____________________________________________________

Ešte sa patrí nechať odkaz na kompletný zoznam vecí ktoré produkuje TFHH - komunikácia s ním je výborná, rýchlosť vybavenia excelentná, kvalita materiálu a prevedenie vynikajúce, všetko potrebné pre komunikáciu s ním (e-mail) nájdete v tomto odkaze:

https://www.van-radecke.de/STUFF/tfhh_HW_info.pdf

_____________________________________________________

Vaše hodnotenie, Rate post: