Welcome, Guest. Please login or register.


Author Topic: HiSoft Pascal (Read 87826 times)

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14723
  • Country: hu
    • http://enterprise.iko.hu/
Re: HiSoft Pascal
« Reply #165 on: 2013.December.17. 10:30:03 »
Quote from: Povi
közben megcsináltam, majdnem 3,5-szer gyorsabb :-)
Mennyi PUSH van a ciklusban? Minél több annál gyorsabb :-) persze annál több helyet foglal.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #166 on: 2013.December.17. 11:55:26 »
Quote from: Zozosoft
Mennyi PUSH van a ciklusban? Minél több annál gyorsabb :-) persze annál több helyet foglal.
40 :-)
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #167 on: 2013.December.17. 12:02:06 »
közben csináltam egy CopyMem(Destination, ByteCount : integer) eljárást, az eljárást követő ByteCount mennyiségű bájtot másolja a Destination címre.
Code: [Select]
CopyMem(#c000,10);
{a következő 10 byte-ot másolja a 0c00h címre}
inline(0,1,2,3,4,5,6,7,8,9);
{itt folytatódik a program}
writeln('Sikerült!');
így már elegánsan be lehet POKE-olni bármilyen adatot...
az az egy gond, hogy annyira buta a HP inline-ja, hogy csak konstansokat enged írni, és annak is csak az alsó bájtját (ha pl. címről van szó).

a nagy dolog még az lenne, hogy lenne egy olyan fordítási direktíva, amivel be lehetne include-olni egy bináris fájlt :-) ezt még majd szeretném (egyszer) megcsinálni :-) és akkor nem kéne inline-olni se adatot, se gépi kódú rutint...
*** Speicherplatz zu klein

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14723
  • Country: hu
    • http://enterprise.iko.hu/
Re: HiSoft Pascal
« Reply #168 on: 2013.December.17. 12:05:59 »
Vagy az ASMON-t megtanítani, hogy tudjon HP-ba fordítani :-) (BASIC-be tud)

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #169 on: 2013.December.17. 18:03:07 »
kicsit letisztáztam a forráskódot, feltöltöm, hátha érdekel valakit :-)
meg a hp-t, amivel le lehet fordítani :-)
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #170 on: 2013.December.19. 11:48:24 »
Quote from: Povi
meg a hp-t, amivel le lehet fordítani :-)
Ez már késznek számít, kirakható?

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #171 on: 2013.December.19. 11:50:03 »
Újabb összehasonlító program. 1.1-hez van, tehát van forrásprogram is.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #172 on: 2013.December.19. 12:16:41 »
Quote from: Lacika
Újabb összehasonlító program. 1.1-hez van, tehát van forrásprogram is.
Messze van ez még az 50 FPS-től!!! :mrgreen:
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #173 on: 2013.December.19. 12:18:28 »
Quote from: Lacika
Ez már késznek számít, kirakható?
Egy program sosincs kész... :-)
De persze, kirakhatod, legfeljebb ha belenyúlok még, akkor azt majd v1.3-nak hívjuk :-) (vannak még terveim vele...)
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #174 on: 2013.December.19. 13:07:37 »
Quote from: Povi
Messze van ez még az 50 FPS-től!!! :mrgreen:
A tendencia viszont afelé halad... :)

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #175 on: 2013.December.19. 13:08:49 »
Quote from: Povi
De persze, kirakhatod, legfeljebb ha belenyúlok még, akkor azt majd v1.3-nak hívjuk :-)
A SetVar benne van? Ha még az nincs, azt rakd bele légy szíves, az azért hiányzik bele.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #176 on: 2013.December.19. 15:34:51 »
Quote from: Lacika
A SetVar benne van? Ha még az nincs, azt rakd bele légy szíves, az azért hiányzik bele.
ebben, amit innét lehet letölteni, már benne van
a LOCK_KEY változót nem állítja induláskor, helyette a keretet állítja feketére
« Last Edit: 2013.December.19. 15:48:45 by Povi »
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #177 on: 2013.December.19. 16:47:57 »
.ROM verzió majd lesz belőle? Cartridge-be kellene rakni. :oops:
Tényleg, az kiderült, miért akad össze a HEASS-al? Mással remélem nem.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #178 on: 2013.December.19. 17:26:19 »
Quote from: Lacika
.ROM verzió majd lesz belőle? Cartridge-be kellene rakni. :oops:
Tényleg, az kiderült, miért akad össze a HEASS-al? Mással remélem nem.
megpróbálom...
egyébként azon kívül, hogy nem kell tölteni, ugyanúgy elfoglal ugyanannyi memóriát, mintha lemezről (kazettáról :-) ) lenne betöltve, a ROM-ban lévő kód átmásolódik ugyanúgy a RAM-ba, a 100h címtől kezdődően, mintha be lett volna töltve fájlból.
Nem tudom, miért akad össze a HEASS-szal, elvileg teljesen EXOS kompatibilis a HP. Viszont használ nem dokumentált Z80 utasítást is egy helyen (IXH és IXL regiszter töltése a D-be és E-be - simán lehetne helyette egy PUSH IX, majd POP DE), szóval nem Z180 kompatibilis :-) Amit megfigyeltem, hogy HP után, némi ASMON-ozás után már elindul a HEASS, szóval nem tudom, mi lehet a baja... (tudom, az egy város)
*** Speicherplatz zu klein

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14723
  • Country: hu
    • http://enterprise.iko.hu/
Re: HiSoft Pascal
« Reply #179 on: 2013.December.19. 17:31:33 »
Lehet HEASS hiba is, mondjuk egy 0-ás lapon használt terület nincs kitörölve, így valami változója rosszul inicializálódik.

Quote
simán lehetne helyette egy PUSH IX, majd POP DE
Akkor esetleg át is írhatnád :-)