ENTERPRISE KLUB
2021. október 2., 1055 Budapest, Nyugati tér 9. 14-19 óráig
Belépés kizárólag klubtagok részére! (Klubkártyával vagy előfizetéssel!)
Welcome, Guest. Please login or register.


Author Topic: HiSoft Pascal (Read 52738 times)

Offline geco

  • EP addict
  • *
  • Posts: 6286
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 38.0 Firefox 38.0
    • View Profile
Re: HiSoft Pascal
« Reply #255 on: 2016.April.16. 00:42:34 »
Kezd tetszeni az attribútum üzemmód. Most, hogy már kezdem érteni... ;-)
jó lett :) ,mennyivel gyorsabb, mint a basic verzió?

Offline Lacika

  • EP addict
  • *
  • Posts: 3049
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #256 on: 2016.April.16. 07:45:00 »
Ez jó kérdés...
A 9. "sebességi fokozatot" választva fut várakozási ciklusok nélkül, abban a fokozatban lehet összemérni a BASIC változattal.

Offline Lacika

  • EP addict
  • *
  • Posts: 3049
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #257 on: 2016.April.16. 11:10:50 »
Ez már ki van egészítve néhány grafikai elemmel. "Cheat" 'A'-'E' billentyűkkel.


Offline szipucsu

  • EP addict
  • *
  • Posts: 9132
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: HiSoft Pascal
« Reply #258 on: 2016.April.16. 13:44:18 »
Ez már ki van egészítve néhány grafikai elemmel. "Cheat" 'A'-'E' billentyűkkel.
Nem rossz!
Az a két fajta repcsi/bomba változat van? Azokat te tervezted?
A csúcsos háztetődet ellopom szerintem a basic változatomba.
Illetve nem lopom ki sem a háztetőt, sem a másik repcsi/bomba alakját, mert nem tudom. Ezeknek a set character formátumát fel tudnád tenni?
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Zozosoft

  • EP addict
  • *
  • Posts: 14021
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
    • http://enterprise.iko.hu/
Re: HiSoft Pascal
« Reply #259 on: 2016.April.16. 13:53:19 »
A csúcsos háztetődet ellopom szerintem a basic változatomba.
Illetve nem lopom ki sem a háztetőt, sem a másik repcsi/bomba alakját, mert nem tudom. Ezeknek a set character formátumát fel tudnád tenni?
Ha belenézel a PAS-ba, szerintem elég egyértelmű :-)

Offline Lacika

  • EP addict
  • *
  • Posts: 3049
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #260 on: 2016.April.16. 14:08:28 »
Nem rossz!
Az a két fajta repcsi/bomba változat van? Azokat te tervezted?
A csúcsos háztetődet ellopom szerintem a basic változatomba.
Illetve nem lopom ki sem a háztetőt, sem a másik repcsi/bomba alakját, mert nem tudom. Ezeknek a set character formátumát fel tudnád tenni?

Nem csak két fajta van, hanem A, B, C, D, E. Csak egyet rajzoltam, a többi ismerős lesz Szipucsunak... :oops:
A karakterek adatait könnyű kinézni, a BASIC "SET CHARACTER char,x1,x2,x3,x4,x5,x6,x7,x8,x9" parancs szinonim a "CHARACTER(char,x1,x2,x3,x4,x5,x6,x7,x8,x9)" paranccsal. A háztetők ASCII kódjai sorban követik egymást, így nincs szükség az IF-szerkezetre a karakterek kirajzolásához. Ugyanígy a romos háztető kirajzolásához felesleges tárolni a házak színeit tömbben és újra kiválasztani a megfelelő színt, mert az a képernyőn már tárolva van. Életemben először használtam a SET ATTRIBUTES parancsot, illetve tegnap derült ki, hogy kifelejtettük a Hisoft Pascal grafikai rutingyűjteményéből... Szerencsére rövidke escape-szekvencia.
Esetleg ha megkérjük Povit, hátha berakja, illteve szükség lenne SPOKE, SPEEK-re.
« Last Edit: 2016.April.16. 14:16:08 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 3049
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 45.0 Firefox 45.0
    • View Profile
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #261 on: 2016.April.16. 14:09:58 »
Ezeknek a set character formátumát fel tudnád tenni?

Csúcsos háztető:
Character(146,0,1,3,7,14,30,63,127,255);
Character(147,0,128,192,224,112,120,252,254,255)

Repcsi, bomba:
Character(37,0,48,56,60,63,127,127,7,7);
Character(38,0,0,0,56,230,255,248,128,0);
Character(132,34,42,62,28,28,28,28,8,8)
« Last Edit: 2016.April.16. 14:29:58 by Lacika »

Offline Zozosoft

  • EP addict
  • *
  • Posts: 14021
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 49.0 Firefox 49.0
    • View Profile
    • http://enterprise.iko.hu/
Re: HiSoft Pascal
« Reply #262 on: 2016.October.12. 12:07:55 »
Povi! Az 1.2-ből nem tudnál ROM verziót csinálni?

Offline IstvanV

  • EP addict
  • *
  • Posts: 4825
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 48.0 Firefox 48.0
    • View Profile
Re: HiSoft Pascal
« Reply #263 on: 2016.October.25. 23:59:45 »
Az 1.1-es ROM és az 1.2-es .com verzió alapján:
* pascal12.rom (16 kB - downloaded 150 times.)
* pascal12.s (1.83 kB - downloaded 157 times.)
* decompress_m2_new.s (9.06 kB - downloaded 136 times.)
* pascal.bin (14.07 kB - downloaded 161 times.)

Szerk.: epcompress -m3 változat, ez néhány száz byte-al kevesebb (kihasználatlan) szabad helyet hagy a ROM végén, viszont néhány tizedmásodperccel gyorsabban indul: :)
* pascal12_m3.rom (16 kB - downloaded 157 times.)
* pascal12_m3.s (1.8 kB - downloaded 157 times.)
* decompress_m3.s (3.03 kB - downloaded 147 times.)
* pascal_m3.bin (14.52 kB - downloaded 160 times.)
A decompress_m3.s-ben található decompressProgram rutin ROM-ból fix 100h kezdőcímre való kitömörítéshez készült és csak 114 byte méretű, talán hasznos lehet más ROM-okban is.

Esetleg a :HELP HP a copyright szövegnél említhetné Povi módosításait is az 1.2 verzióban?
« Last Edit: 2016.October.26. 11:22:53 by IstvanV »

Offline RetroJátékos

  • Newbie
  • Posts: 8
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 43.0 Firefox 43.0
    • View Profile
Re: HiSoft Pascal
« Reply #264 on: 2017.January.21. 21:30:57 »
Sziasztok!
Ha nem probléma, lenne pár kezdő szintű kérdésem a Hisoft Pascallal kapcsolatban.

Elsősorban a grafikával kapcsolatban.
A GRAFON utasításnál az első paraméternek, a csatorna számának mit kell megadni? Ha jól tudom, 101-es a grafikus képernyő csatornája, de láttam programokat, amiben más csatornaszámok voltak. Olyankor ez hogy működik?
Továbbá: két csatornával megvalósítható, hogy pl. az egyik lap látszik, közben a másikra rajzolok?
Ha nem az alapértelmezett csatornát használom grafikához, akkor ezt kell külön jelezni a rendszernek? Vagy ilyenkor a szükséges memória lefoglalása, meg hasonlók automatikusan történnek?

Szintén GRAFON, a második és harmadik paraméter (mód és színmód) mely értékei mit jelentenek?
Valamint az X- és Y-méretet pixelekben kell megadni?

Más dolog: a Hisoft Pascal kézikönyvében ez áll a fordításról: "Lefordítja a forrásszöveget, de nem futtatható formában"
Hogy érti, hogy nem futtatható formában? És hogy lehet akkor rendes futtatható állományt létrehozni?

Előre is köszönöm a segítséget!

Online gflorez

  • EP addict
  • *
  • Posts: 3188
  • Country: es
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 50.0 Firefox 50.0
    • View Profile
Re: HiSoft Pascal
« Reply #265 on: 2017.January.21. 22:19:25 »
Az emulátor, ha betölti a EPDOS.Rom, akkor használja a ":CHANS" parancsot Basic, Pascal tudni, hogy melyik a csatornákat.

Csak azt, hogy meg kell fordítani őket decimális. 255, FF az alapértelmezett csatorna, amely általában arra utal, hogy az editor csatorna.

A Basic az alapértelmezett szöveg csatorna 102, grafikák a 101, de Pascal az alapértelmezett szöveg csatorna 120.

Szintén EXDOS, ISDOS, LISP vagy negyedik különböző alapértelmezett csatornát a szöveg vagy grafika.

------------------------

On the emulator, if you load the EPDOS.Rom, you can use the ":CHANS" command on Basic or Pascal to know which are the channels.

Only that you must translate them to decimal. 255, FF is the default channel that usually points to the editor channel.

On Basic the default video text channel is 102, graphics the 101, but on Pascal the default video text channel is 120.

Also EXDOS, ISDOS, LISP or FORTH use different default channels for text or graphics.
« Last Edit: 2017.January.21. 23:38:57 by gflorez »

Offline Povi

  • EP addict
  • *
  • Posts: 2094
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Chrome 55.0.2883.87 Chrome 55.0.2883.87
    • View Profile
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #266 on: 2017.January.22. 21:24:34 »
Szintén GRAFON, a második és harmadik paraméter (mód és színmód) mely értékei mit jelentenek?
Valamint az X- és Y-méretet pixelekben kell megadni?

A GRAFON-nal hozod létre a grafikus videolapot. A csatorna szám bármi lehet (amennyiben nem foglalt), teljesen jó a 101-es is.
A mód lehet 1, 5, vagy 15. Az 1 = nagyfelbontású, 5 = kisfelbontású, 15 = attribútum mód.
A színmód:
0 : 2 szín
1 : 4 szín
2 : 16 szín
3 : 256 szín
az attribútum módot  a 0 színmóddal (2 szín) kell megnyitni, annak ellenére, hogy valójában 16 színed lesz

az x és az y a kép szélessége és magassága karakterben megadott mértékegységben

tehán a BASIC GRAPHICS parancshoz (ami ugye alapból 4 színű mód lesz) hasonló módot így tudsz létrehozni:
Code: [Select]
GRAFON(101,1,3,40,20);
DISPLAY(101,1,1,20);
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2094
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Chrome 55.0.2883.87 Chrome 55.0.2883.87
    • View Profile
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #267 on: 2017.January.22. 21:29:59 »
Más dolog: a Hisoft Pascal kézikönyvében ez áll a fordításról: "Lefordítja a forrásszöveget, de nem futtatható formában"
Hogy érti, hogy nem futtatható formában? És hogy lehet akkor rendes futtatható állományt létrehozni?

A Translate paranccsal tudsz önnálóat futtatható fájlba fordítani a programot:
pl.:
T,,valami.com

*** Speicherplatz zu klein

Offline RetroJátékos

  • Newbie
  • Posts: 8
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 51.0 Firefox 51.0
    • View Profile
Re: HiSoft Pascal
« Reply #268 on: 2017.February.14. 12:22:19 »
Köszönöm a segítséget! :-)

Offline Povi

  • EP addict
  • *
  • Posts: 2094
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 57.0.2987.133 Chrome 57.0.2987.133
    • View Profile
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #269 on: 2017.April.25. 13:30:14 »
Találtam egy súlyos bug-ot a HiSoft Pascalban.

Az < összehasonlító operátor hibás eredményt ad, ha a két oldal különbsége nagyobb, mint 32768.

Tehát:
-1 < 32767 = TRUE
-2 < 32767 = FALSE

Az > összehasonlító operátor hibás eredményt ad, ha a két oldal különbsége nagyobb, mint 32767.

Tehát:
0 > 32767 = FALSE
-1 > 32767 = TRUE
*** Speicherplatz zu klein