Welcome, Guest. Please login or register.


Author Topic: HiSoft Pascal (Read 184888 times)

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #210 on: 2013.December.20. 20:39:35 »
Ja és eddig kihagytam az S direktívát. Az, ha jól tévedek az eljáráshívásoknál történő verem túlcsorulás-ellenőrzést kapcsolja ki?

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #211 on: 2013.December.20. 21:15:02 »
Quote from: Lacika
Ja és eddig kihagytam az S direktívát. Az, ha jól tévedek az eljáráshívásoknál történő verem túlcsorulás-ellenőrzést kapcsolja ki?
igen
ha be van kapcsolva (az az alapeset), akkor ezt még bemásolja az eljárások és függvények kezdéséhez:
Code: [Select]
;if {$S+ } then this part is copied
; to the beginning of PROCEDURE or FUNCTION
; to check stack overflow       
l408c:  db      8
        ld      de,(l1501)
        add     hl,de
        call    nc,l0693        ;error: "Out of RAM"
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #212 on: 2013.December.20. 21:16:50 »
Quote from: Lacika
Amit most letöltöttem, abban nem működnek. :oops:
öööö, tényleg
akkor azt ezek szerint nem állítottam még vissza... :oops:
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #213 on: 2013.December.20. 21:29:37 »
ebben már benne van:
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #214 on: 2013.December.20. 21:54:02 »
Quote from: Povi
igen
ha be van kapcsolva (az az alapeset), akkor ezt még bemásolja az eljárások és függvények kezdéséhez:
Code: [Select]
;if {$S+ } then this part is copied
; to the beginning of PROCEDURE or FUNCTION
; to check stack overflow        
l408c:  db      8
        ld      de,(l1501)
        add     hl,de
        call    nc,l0693        ;error: "Out of RAM"
Akkor ez a direktíva még gyorsít elvileg a FRACTALS.PAS programon. :twisted:
A kódban, amit bemásoltál, vannak L betűk. Az elírás, vagy ez jó így? Én hexa számnak nézném...

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #215 on: 2013.December.20. 21:59:53 »
Quote from: Lacika
Akkor ez a direktíva még gyorsít elvileg a FRACTALS.PAS programon. :twisted:
A kódban, amit bemásoltál, vannak L betűk. Az elírás, vagy ez jó így? Én hexa számnak nézném...
ha ki van kapcsolva, akkor gyorsít.
az L betűk azért vannak, mert a disassembláló így címkézi fel a címeket, de egyébként, igen hexa számok, az L408c címke a 408ch címre mutat.
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #216 on: 2013.December.28. 10:13:04 »
Zozo órajelmérő programját hogy lehet HiSoft Pascal alá elkészíteni?
Animációkhoz praktikus lenne az időzítések miatt.

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #217 on: 2013.December.28. 13:06:20 »
István írt egyet az assembly fórumba, de még nem volt időm foglalkozni vele... :oops:
Zozóét nem ismerem. Egy Delay() eljárást akartam volna csinálni a TP alapján, de ahhoz kéne tudni előtte, hány MHz-es a gép, amin fut (mennyivel egyszerűbb lenne, ha nem lenne Turbo EP! :-) )
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #218 on: 2013.December.28. 14:28:51 »
Quote from: Povi
Zozóét nem ismerem.
Itt letölthető (ORAJEL.BAS)

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #219 on: 2014.January.09. 14:54:05 »
egy kép, ami jól mutatja a 4 byte-os lebegőpontos számábrázolás határait:

100 000-szeres nagyítás a Mandelbrot-halmaz mellett valahol...

jó "zajos" a kép, már olyan kicsi a lépésköz a két pixel között, hogy nem tud pontosan számolni

1 000 000-szoros nagyításnál már egyszínű lesz a kép
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #220 on: 2014.January.16. 21:53:45 »
HiSoft Pascal-ban, a negyedik és hatodik rajz, valamiért nem jó. Pedig csak integer számokat használ...
« Last Edit: 2014.January.16. 22:00:47 by Lacika »

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #221 on: 2014.January.17. 11:25:01 »
A turtle.hpu-ban a TRUNC függvényeket cseréld le ROUND-ra. Akkor jól fog működni.
*** Speicherplatz zu klein

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: HiSoft Pascal
« Reply #222 on: 2014.January.17. 18:19:45 »
Érdekes, úgy jó... Ez csak azért meglepő, mert amikor még TP alatt próbálgattam, TRUNC függvénnyel adta ugyanaz az eredményt, mint az IS-BASIC. A FRACTALS.PAS-ban pl. a Gosper-görbe meg a ROUND függvénnyel rossz...:roll:

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14779
  • Country: hu
    • http://enterprise.iko.hu/
Re: HiSoft Pascal
« Reply #223 on: 2014.February.05. 09:09:53 »
Rom verzió a legfrissebből? Spanyol srác ROM csomagjába már azt tenném be.

Offline Povi

  • EP addict
  • *
  • Posts: 2322
  • Country: hu
    • http://povi.fw.hu
Re: HiSoft Pascal
« Reply #224 on: 2014.February.05. 11:59:39 »
hűha...

mostanában nem ezzel foglalkoztam

te nem tudod megcsinálni a régi rom alapján? gyakorlatilag a ROM-ból egy LDIR-rel két részletben (szegmensenként) át van másolva a RAM-ba a 0100h címre, majd egy JP 0100 és indul az egész...
*** Speicherplatz zu klein