Enterprise Forever
:HUN => Programozás => Topic started by: Lacika on 2013.July.27. 15:17:38
-
Topicnyitó video (https://www.youtube.com/watch?v=JTdi85D1X7Y).
-
Mostanában elkezdtem felfrissíteni gimis emlékeimet. Különös tekintettel a grafikára (PC-n az teljesen másképp működött).
A letölthető csomagba (http://www.ep128.hu/Ep_Util/Prg/Turbo_Pascal_3.rar) bekerült egy kibővített GRAFCS.TPU (ez volt a három alternatíva közül a legszimpatikusabb), ez már majdnem teljes értékű (csak a SET CHARACTER hiányzik belőle).
-
Az oldalra (http://www.ep128.hu/Ep_Util/Ep_Util.htm) kikerült - a rend kedvéért - Turbo Pascal 1 és 2 is. Mindegyik verzió rendesen be van állítva. A lowvideo és highvideo is működik. Anno színtelen volt a TP, pedig csak be kellett azt is állítani a setup-ban. Valószínűleg a GmbH azért nem állította be anno, mert míg CP/M-ben normál és fényes szín van, addig IS-DOS-ban zöld és piros. Normál esetben a szövegszerkesztőben a piros forráskód elég vadító lenne, ezért inkább nem kapcsolták be a színeket.
Most úgy van beállítva, hogy a lowvideo a piros a normvideo a zöld szín.
A TP-s csomagba példaprogramok is kerültek, és itt (http://www.ep128.hu/Ep_Konyv/Szamitastechnika_Kozepfokon.htm) és itt (http://www.ep128.hu/Ep_Konyv/Szamitastechnika_Kozepfokon.rar) is vannak példaprogramok. (Van Pascal-os prímszámteszt - ez már elkészült BASIC-ben Forth-ban is).
Az ismertető (http://www.ep128.hu/Ep_Util/TurboPascal3.htm) is kiegészült, többek között a grafikai.tpu rutinjainak ismertetésével.
-
A grapfcs.tpu escape szekvenciákat használ, ez alapján egy "hangos" tpu-t is össze elehetne eszkábálni, aki ért hozzá... Gondolom hangcsatorna nyitva van, IS-DOS-ból, ha van click, meg bell (aztán lehet, hogy tévedek?)
-
Érdemes összehasonlítani a vezerek.bas és vezérek.pas vagy a prim.bas és prim.pas sebességét. Nagy potenciál maradt a Turbo Pascal-ban anno, az Ep tökéletes pkatform lett volna hozzá.
-
Topicnyitó video (https://www.youtube.com/watch?v=JTdi85D1X7Y).
A témához nem nagyon értek, de nagyon kellett már ilyen videó, ami bemutatja az IS-DOS-t és egyebeket.
-
ez jó, bár nem a legjobb példa, mert itt a vonalhúzogatás, fillezésés meg az exos rutinok hívogatása viszi az időt
valami sprite kirakás vagy ilyesmi teszt kéne, de abban meg szerintem az asmmal nem tudja felvenni a versenyt
-
ez jó, bár nem a legjobb példa, mert itt a vonalhúzogatás, fillezésés meg az exos rutinok hívogatása viszi az időt
Nem a sebességet akartam bemutatni, hanem valami egyszerű, de látványos algoritmust, amit nem strukturált nyelvben büntetés megvalósítani. Amúgy az Ep grafikai rutinjait is érdemes bemutatni, mert nagyon gyorsak a többi 8 bites géphez képest.
A sebességet esetleg a prímszámteszt vagy a 8 vezér feladványt megoldó programmal lehetne bemutatni.
-
Újabb összehasonlító video (http://www.youtube.com/watch?v=U15I5a12fyA).
-
Emlékszem annak idején a z80 és EP basic tudásommal 2 nap alatt áttértem pascalra pc-n. Azaz 2 nap után már folyékonyan írtam a játékaimat pc-re. :)
Vajon hogy alakult volna ha már EP-n pascalban programozok?
-
Vajon hogy alakult volna ha már EP-n pascalban programozok?
Spóroltál volna 2 napot! :D
Amúgy jók ezek a videók!
-
Újabb összehasonlító video (http://www.youtube.com/watch?v=U15I5a12fyA).
Látom, a Star Sabre-t is feltetted. Hogy az milyen nehéz játék... és milyen jó a grafikája és a zenéje! Ez most OFF volt.
-
Emlékszem annak idején a z80 és EP basic tudásommal 2 nap alatt áttértem pascalra pc-n. Azaz 2 nap után már folyékonyan írtam a játékaimat pc-re. :)
Tényleg, valakinek nincsenek meg a régi Pascal-os programjai (vagy akármilyen Pacal-program)?
-
egy elég komoly játékom forrása megvan, csak azt képtelenség lenne ep-re átírni
itt egy videó belőle: https://vimeo.com/21230836
-
rákerestem, talán valamelyik átírható ep-re
http://www.wieringsoftware.nl/mario/
http://www.gladir.com/CODER/TPASCAL7/tetris.htm
freepascal, ami elvileg tp kompatibilis
http://wiki.freepascal.org/Castle_Game_Engine
-
http://www.wieringsoftware.nl/mario/
Poén lenne a Mario EP-re. Vajon a grafika mennyire különbözne az eredetitől, ill. a nintendóstól?
-
Újabb összehasonlítani való:
-
Ha valaki nem akar fordítgatni:
-
itt van pár pascal game forrással:
http://cgi.di.uoa.gr/~geotz/dos/
-
itt is pár
http://istvanszalontai.atw.hu/games.html
-
Újabb összehasonlító teszt.
A Basic program a Tippek-Trükkök könyvben volt azt írták órákig fut. Pascal-ban azért kicsit megszaladnak a pontocskák...
-
Azzal sok újat gondolom nem mondok, hogy az interpreteres BASIC verhetetlen hibakeresésben, nyomon követésben. Az IS-BASIC pláne verhetetlen a hozzá képest "elavultnak" számító Turbo Pascal 7-hez képest is... :ds_icon_cheesygrin:
Erre ékes példa, hogy a Rosetta Code-on (http://rosettacode.org/wiki/Sorting_algorithms/Shell_sort#Pascal) a Shell rendezése megoldására hibás algoritmust adnak, ami viszont nem okoz futás idejű hibát (viszont a rendezett sorban lévő utolsó elem néha rossz lesz)! 10 perc "hibakeresés" után inkább tükörfordítással beírtam IS-BASIC-be és a hiba azonnal (1 "azonnal"= a START megnyomásától számítva 0,5 mp) kibukott. Egy hibás vizsgálat miatt a tömb alsó inexhatára alá nyúl. Ezek után itt (http://www.ep128.hu/Ep_Konyv/Szamitastechnika_Kozepfokon.htm#7_3) már a jó megoldás szerepel.
-
Összehasonlító bemutató, hogy az EP rajzolórutinjai milyen gyorsak.
Ez az algoritmusban nem használ sem szögfüggvényeket, sem real típusú kifejezéseket. A TP ilyenkor mintha "vért inna" programfuttatás előtt... :ds_icon_cheesygrin:
-
Ezen program kapcsán újabb kiegészítésre került a GRAFCS.TPU.
Most már van benne relatív elmozdulással működő PLOTREL és MOVEREL. A teknőc grafika már csak egyetlen lépés lenne... Egy jó matekos tudna segíteni ebben? (Konkrétan az elmozdulások pozíciójának kiszámítására gondolok.) :oops:
-
Így azért gyorsabban megy a fraktálrajzolás...
-
Ezen program kapcsán újabb kiegészítésre került a GRAFCS.TPU.
A kiegészítések leírását folyamatosan berakod a leírásba?
-
A kiegészítések leírását folyamatosan berakod a leírásba?
Igen, ez (http://www.ep128.hu/Ep_Util/TurboPascal3.htm#78) naprakész.
-
Fraktálgyűjtemény:
-
Szerintem ez a végleges változat:
-
Mai gyakorlat:
-
ööö ezeket hogy lehet betölteni? azt írja nekem hogy "not understood"
-
ja ez olyan cpm dolog
-
ja ez olyan cpm dolog
:ds_icon_cheesygrin:
Amúgy Ep-re natív Turbo Pascal fordító tetszene!
-
ezért kell snapshotokat felrakni inkább
-
:ds_icon_cheesygrin:
Amúgy Ep-re natív Turbo Pascal fordító tetszene!
Nekem is!
-
ezért kell snapshotokat felrakni inkább
Snapshotokat IS. Mert ha valakinek a fájl kell, akkor a snapshotból bányássza ki? :D
-
itt is pár
http://istvanszalontai.atw.hu/games.html
Ismerős a neve... Ő nem ENTERPRISE-os eredetileg? Rémlik, mintha olvastam volna a nevét egy ENTERPRESS-es játékfejlesztős pályázaton, de lehet, hogy tévedek...
-
Nekem is!
Ott a hisoft Pascal is... igaz, az nem ismeri a STRING típust. Viszont TPU-hoz hasonló dolgokat ott is lehet művelni vele, és akkor menne a grafika is. Majd lehet, hogy összedobok rá egyet.
-
Újabb összehasonlító video (http://www.youtube.com/watch?v=U15I5a12fyA).
HiSoft Pascal-os változata a primszám-kiírónak.
Sebessége hasonló a TP-hez.
http://www.youtube.com/watch?v=k_qzN8IaLfI&feature=youtu.be
-
Szalontai Andrea volt (egyetlen ismert hölgy aki EP-n programozott), aki több részes cikksorozatban (Programozási fogások és melléfogások) cincálta szét a korábban nyertes programot :-)
-
arra gondoltam, hogy az Turbo Pascal-t nem lehetne-e EXOS-osítani??? (persze mindent lehet, ha elég elszánt valaki...).
Vagyis arra gondolok, hogy nem CP/M-es COM fájl legyen, hanem 5-ös fejlécű NAP (eddig még egyszerű lenne, csak elé kell csapni egy 16 byte-os fejlécet, (hiszen itt is 100H-n kezdődik a kód) csak az első CP/M rendszerhívásnál, vagy memóriaírásnál elszállna). Na, szóval ezeket a rendszerhívásokat kéne lecserélni EXOS kompatibilisre, azt' kész! :-) Persze nem kis munka, meg eléggé fargani kéne a dolgot, ha lenne forráskód, sokkal egyszerűbb lenne minden... Aztán lehet, hogy kiderülne, sokkal egyszerűbb lenne nulláról megírni az egészet. Vagy használni valami TP cross-compiler-t (biztos van ilyen is).
-
arra gondoltam, hogy az Turbo Pascal-t nem lehetne-e EXOS-osítani??? (persze mindent lehet, ha elég elszánt valaki...).
Vagyis arra gondolok, hogy nem CP/M-es COM fájl legyen, hanem 5-ös fejlécű NAP (eddig még egyszerű lenne, csak elé kell csapni egy 16 byte-os fejlécet, (hiszen itt is 100H-n kezdődik a kód) csak az első CP/M rendszerhívásnál, vagy memóriaírásnál elszállna). Na, szóval ezeket a rendszerhívásokat kéne lecserélni EXOS kompatibilisre, azt' kész! :-) Persze nem kis munka, meg eléggé fargani kéne a dolgot, ha lenne forráskód, sokkal egyszerűbb lenne minden... Aztán lehet, hogy kiderülne, sokkal egyszerűbb lenne nulláról megírni az egészet. Vagy használni valami TP cross-compiler-t (biztos van ilyen is).
Jo kerdes, ezen mar gondolkodtam minap eppen ... Elvileg fejlec ele, es pl a CALL 5-el vannak CP/M BDOS hivasok, azt "emulalni" kene valahogy EXOS hivasokra atforditva. Kerdes, hogy mi kellene meg :)
http://www.seasip.demon.co.uk/Cpm/bdos.html (http://www.seasip.demon.co.uk/Cpm/bdos.html)
Arra gondoltam (idom nem volt tesztelni) hogy nemi lehetoleg kicsit meretu stuff-ot egy CP/M program ele masolva nativ EXOS vegrehajthato lenne: egyreszt az 5-os fejlec, masreszt aztan az "emulator" kod pl a BDOS hivasok emulalasara, es persze az eredeti kod relokacioja ujra 0x100-ra, vagy hasonlo. Bar tartok tole, hogy a reszletekbe belemenve tuti kiderulne, hogy ez biza, nem ilyen egyszeru.
-
Ilyesmin már én is gondolkodtam. PC-s TP 3-ból elvileg van disassemblált változat de Z80-asból nem találtam :-(
Egy ilyenbe botlottam bele (http://sourceforge.net/projects/z80-pascal/), nem tudom lehetne-e kezdeni valamit ezzel.
-
Jo kerdes, ezen mar gondolkodtam minap eppen ... Elvileg fejlec ele, es pl a CALL 5-el vannak CP/M BDOS hivasok, azt "emulalni" kene valahogy EXOS hivasokra atforditva. Kerdes, hogy mi kellene meg :)
http://www.seasip.demon.co.uk/Cpm/bdos.html (http://www.seasip.demon.co.uk/Cpm/bdos.html)
Arra gondoltam (idom nem volt tesztelni) hogy nemi lehetoleg kicsit meretu stuff-ot egy CP/M program ele masolva nativ EXOS vegrehajthato lenne: egyreszt az 5-os fejlec, masreszt aztan az "emulator" kod pl a BDOS hivasok emulalasara, es persze az eredeti kod relokacioja ujra 0x100-ra, vagy hasonlo. Bar tartok tole, hogy a reszletekbe belemenve tuti kiderulne, hogy ez biza, nem ilyen egyszeru.
persze valószínűbb sokkal egyszerűbb lenne a már TP-vel lefordított futtatható állományokat EXOS-osítani, a TP-hez nagyon bele kéne nyúlni a fordító lelkivilágába is (szerintem).
Ez a "réteg" amit írsz, is izgalmasan hangzik. :-) Annó csináltam olyat saját programommal (egy SOKOBAN klónnal), ami eredetileg 5-ös fejlécű volt, hogy levettem a fejlécet, és kész is lett az IS-DOS változat :-) (persze fordítva bonyolutlabb lenne). Meg még annyit módosítottam rajta, a poén kedvéért, hogy futott PC-n is, DOS alatt, de ott csak kiírt valami hasonló üzenetet, hogy "This program requires ENTERPRISE 128 with IS-DOS." .-D
-
Én valami effélét találtam, de shareware (30 nap limit, meg valami fordított kód méretkorlátozás vagy mi, de azt lehet hogy rosszul értettem)
http://users.iafrica.com/r/ra/rainier/ (http://users.iafrica.com/r/ra/rainier/)
-
Az új "Orksoft Demo" "átírva" :ds_icon_cheesygrin:
-
Az új "Orksoft Demo" "átírva" :ds_icon_cheesygrin:
snapshot nem lehetne?
-
snapshot nem lehetne?
-
köszi
és mennyi idő alatt rajzolja ki?
hogy lehet újraindítani?
-
space vagy tetszőleges billentyűvel kilép, indítás:
orkscr
-
indítás:
orkscr
Ehhez RAMDISK-be kéne rakni, mert a lemezkép nem jön át a snapshottal.
-
Bocs, hiba történt a mátrixban...
-
Bocs, hiba történt a mátrixban...
Most is, mert nem ROM ISDOS van a konfigban :oops:
-
Most is, mert nem ROM ISDOS van a konfigban :oops:
:roll:
Igen, mert most "félkész" emu van feltelepítve az e-mail kapcsán, amit küldtem ma és még nem válaszoltál... :oops:
-
Véglegesnek szánt változat:
-
Véglegesnek szánt változat:
Egy kis raszterezéssel tök jól fel lehetne dobni a napot, és a repülőt :)
-
érdekesnek tűnik...
Turbo Pascal dissassembling:
http://www.cirsovius.de/CPM/Projekte/Disassembler/TURBO-en.html (http://www.cirsovius.de/CPM/Projekte/Disassembler/TURBO-en.html)
-
érdekesnek tűnik...
Turbo Pascal dissassembling:
http://www.cirsovius.de/CPM/Projekte/Disassembler/TURBO-en.html (http://www.cirsovius.de/CPM/Projekte/Disassembler/TURBO-en.html)
Izgalmas! Optimális esetben ha lenne használható forrás hozzá, akkor lehetne EXOS-ra tanítani CP/M helyett.
-
találtam egy másikat is:
http://www.memotech.franken.de/CPM80/ (http://www.memotech.franken.de/CPM80/)
-
még nincs egy hónapja:
http://prog.hu/hirek/3372/30+eve+jelent+meg+az+elso+Turbo+Pascal+fordito.html
-
ez érdekes:
http://prog.hu/hirek/3347/JavaScript-ben+irtak+ujra+a+Borland+Turbo+Pascal+forditojat.html
Javascript-ben megírták a 3-as TP-t, vannak példaprogramok (köztük egy Mandelbrot rajzoló is), azokat át lehetne hozni EP-re is :-)
kíváncsi vagyok, az mennyi idő alatt rajzolná ki, elvileg valami optimalizált algoritmus alapján rajzol, de még csak futtában néztem rá, egyedül egy Bar() eljárást kéne még csinálni, hogy fusson de azt meg lehet vízszintesen egymás alá rajzolt vonalakkal is :-)
azért a Floodfill számomra még elég misztikus dolog... :-)
-
A BASIC topic-ba becsatolt, Logo-ból konvertált programokat Pascal-ba már kicsit nyögvenyelősebb "átírni" (típuskonverzió, szögfüggvények csak radiánban) de legalább gyorsabb...
-
Egy adag Turbo Pascal leírás.
-
Valaki volt olyan elszánt, hogy visszafejtette a CP/M Turbo Pascal-t!
Érdekes projekt lenne átírni CP/M-ről EXOS-ra, vagy legalább azt, hogy rendes EP programot fordítson.
-
Sziasztok!
Kicsit felkavarom az állóvizet. ;-)
Jól sejtem, hogy a TP3 a lefordított programot a fordítást végző gép memóriakonfigurációjához igazítja?
Egyelőre pusztán csak tesztelési céllal kipróbáltam, hogy az Enterprise-on, IS-DOS alatt TP3-mal lefordított programok futnak-e TVC-n, VT-DOS alatt. Az eredmény pedig "Not enough memory/Program aborted" lett. Ha 96k-ra csökkentettem az EP emulátor RAM-ját, és úgy fordítotam le ugyanazt a forrást, az viszont lefutott TVC/VT-DOS alatt. Illetve ugyanazt a forrást VT-DOS alatt, ugyanazzal a TP3-mal lefordítva működött EP-n is.
Erre nincs esetleg valami bevett megoldás, ha már a CP/M-es világnak épp az lenne az egyik előnye, hogy egyszer lefordítva a program minden más CP/M-es gépen fusson?
-
Sziasztok!
Kicsit felkavarom az állóvizet. ;-)
Jól sejtem, hogy a TP3 a lefordított programot a fordítást végző gép memóriakonfigurációjához igazítja?
Egyelőre pusztán csak tesztelési céllal kipróbáltam, hogy az Enterprise-on, IS-DOS alatt TP3-mal lefordított programok futnak-e TVC-n, VT-DOS alatt. Az eredmény pedig "Not enough memory/Program aborted" lett. Ha 96k-ra csökkentettem az EP emulátor RAM-ját, és úgy fordítotam le ugyanazt a forrást, az viszont lefutott TVC/VT-DOS alatt. Illetve ugyanazt a forrást VT-DOS alatt, ugyanazzal a TP3-mal lefordítva működött EP-n is.
Erre nincs esetleg valami bevett megoldás, ha már a CP/M-es világnak épp az lenne az egyik előnye, hogy egyszer lefordítva a program minden más CP/M-es gépen fusson?
Ez érdekes, én úgy tudtam, hogy a CP/M nem kezel 64K-nál nagyobb memóriát...
-
Nem tűnik úgy, hogy többet használna... lehet, hogy pl. TVC-n valami miatt kevesebbet ér el?
Lefordítottam egy egyetlen writeln-t tartalmazó forrást, 128k-s konfiguráció esetén fordításkor a következő adatokat kaptam:
Code: 46 bytes
Free: 48297 bytes
Data: 135 bytes.
Ugyanezt kaptam 128k-nál nagyobb (konkrétan 3,5M) RAM esetén.
96k RAM-nál viszont ez a következőként alakult:
Code: 46 bytes
Free: 31913 bytes
Data: 135 bytes.
64k-val el sem indult a fordító.
TVC-n (VT-DOS) pedig ezeket az adatokat kaptam:
Code: 46 bytes
Free: 45993 bytes
Data: 135 bytes.
FC-vel ellenőriztem, az egyes .com-ok is különbözőek lettek, méretre ugyanakkorák, de van bennük pár eltérő bájt.
-
Nem tűnik úgy, hogy többet használna... lehet, hogy pl. TVC-n valami miatt kevesebbet ér el?
Lefordítottam egy egyetlen writeln-t tartalmazó forrást, 128k-s konfiguráció esetén fordításkor a következő adatokat kaptam:
Code: 46 bytes
Free: 48297 bytes
Data: 135 bytes.
Ugyanezt kaptam 128k-nál nagyobb (konkrétan 3,5M) RAM esetén.
96k RAM-nál viszont ez a következőként alakult:
Code: 46 bytes
Free: 31913 bytes
Data: 135 bytes.
64k-val el sem indult a fordító.
TVC-n (VT-DOS) pedig ezeket az adatokat kaptam:
Code: 46 bytes
Free: 45993 bytes
Data: 135 bytes.
FC-vel ellenőriztem, az egyes .com-ok is különbözőek lettek, méretre ugyanakkorák, de van bennük pár eltérő bájt.
Akkor itt inkább olyasmi lehet a probléma, hogy az EP-n a ISDOS több szabad memóriát hagy a Pascal számára, mint a VT-DOS.
Magyarul az IS-DOS is "csak" 64k-t "lát", de abból több marad szabad, mint a VT-DOS-on.