OldComp.cz

Komunitní diskuzní fórum pro fanoušky historických počítačů


Právě je 28.03.2024, 20:21

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]




Odeslat nové téma Odpovědět na téma  [ Příspěvků: 5 ] 
Autor Zpráva
 Předmět příspěvku: Vision Basic
PříspěvekNapsal: 01.02.2023, 18:34 
Offline
Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 88
Has thanked: 0 time
Been thanked: 24 times
Tak je možná vyřešeno a staré kompilery nebudou třeba, je tady nový SW Basic Vision, který kombinuje nový Basic a Assembler v jednom programu, zajímavý projekt, který prý trval 20 let od nápadu. Tohle na trhu chybělo, parádní věcička!

příklad kódu :

5 CLS
10 [LDX #0: LDA #0: STA $400]
20 KEYPRESS

NEBO čistý assembler po zadání příkazu ASSEM

5 [cls]
10 [ldx #0]
20 [lda #0]
30 [tag loop:]
40 [sta $400,x]
50 [inx]
60 [bne loop]
70 [rts]

EDIT SCjoe: doplněn odkaz


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Vision Basic
PříspěvekNapsal: 02.02.2023, 08:13 
Offline
Kecálek

Registrován: 07.05.2014, 12:10
Příspěvky: 197
Bydliště: Jbc
Has thanked: 0 time
Been thanked: 39 times
Myslenka na inline assembler neni nova. Co si vybavuju, tak byla uz driv, napr. BBC BASIC...
Poprve jsem to videl u Acorn Atom, manual napr. zde: http://81.174.146.201/acorn/Acorn%20System%20Computers/Atom/Atomic%20Theory%20and%20Practice.pdf, takze to je nejspis vic jak 40 let ;-)


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Vision Basic
PříspěvekNapsal: 02.02.2023, 20:26 
Offline
Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 88
Has thanked: 0 time
Been thanked: 24 times
Díky za info. Jak se říká, vše už bylo objeveno, ale málokdo to dotáhne ke komerčnímu použití. Jak dorazí manuál (mají jen tištěný) tak zkusím nějaké porovnání rychlostí s klasickým Basicem.

Zatím jen malý test smyčky. Basic V2 42 sekund, Vision Basic 3,5 sekundy. Druhý test Basic V2 63 sekund a Vision Basic 10 sekund.

TEST1
20 k=0
30 k=k+1
40 a=k/2*3+4-5
45 gosub 70
50 if k<2000 then goto 30
60 stop
70 return

TEST2
20 k=0
25 dim m(5)
30 k=k+1
40 a=k/2*3+4-5
45 gosub 70
46 for l=1 to 5
48 next l
50 if k<2000 then goto 30
60 stop
70 return


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Vision Basic
PříspěvekNapsal: 02.02.2023, 21:49 
Offline
Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 88
Has thanked: 0 time
Been thanked: 24 times
Následně jsem udělal Test 2 v ML kódu z kompileru Abacus Basic 64 (24 sekund) a pak z kompileru Vision Basic (9.5 sekund), oba byly spuštěny v čistě resetovaném počítači. Naprosto stejný čas jako Abacus udělal kompiler Blitz.
Opravdu znatelný rozdíl ve prospěch Vison Basic. Ten je především stavěný na návrh grafických her a tady bude ta rychlost velmi znatelná.


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Vision Basic
PříspěvekNapsal: 13.02.2023, 23:40 
Offline
Kecálek

Registrován: 13.01.2023, 09:42
Příspěvky: 88
Has thanked: 0 time
Been thanked: 24 times
Narazil jsem na program ASMBASIC, který umí podobnou věc jako Visial Basic, tedy spojit Basic a Assembler a není potřeba REU RAM. V podstatě to funguje podobně, jen se to musí propojit (zatím jsem na to nepřišel jak), ML kód se uloží na definovanou adresu a stačí jej pak zavolat obvyklým SYS... Vision Basic to celé uloží do ML. Přikládám návod, který jsem exportoval z D64.

10 a=cos(.5)
20 b=log(60)
30 print a;b;"vysledky"
90 print "start basic assembler"
100 for pass=1 to 3:print "pass"pass,
110 org $c000
120 if pass=3 then org $c000,1,8,"code"
130 start: ldx #0
140 loop: lda text,x:print text,
150 beq exit
160 jsr $ffd2
170 inx
180 bne loop
190 exit: rts
200 print *
210 text: byte "example 1",0
220 next pass:end


Přílohy:
asmbasic.pdf [26.01 KiB]
67 krát
Nahoru
 Profil  
 
Zobrazit příspěvky za předchozí:  Seřadit podle  
Odeslat nové téma Odpovědět na téma  [ Příspěvků: 5 ] 

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 6 návštevníků


Nemůžete zakládat nová témata v tomto fóru
Nemůžete odpovídat v tomto fóru
Nemůžete upravovat své příspěvky v tomto fóru
Nemůžete mazat své příspěvky v tomto fóru
Nemůžete přikládat soubory v tomto fóru

Hledat:
Přejít na:  
Založeno na phpBB® Forum Software © phpBB Group
Český překlad – phpBB.cz