Author Topic: HiSoft Pascal (Read 180324 times)

Povi · « **on:** 2013.October.29. 15:16:33 »

na, megcsináltam a Sierpinski háromszög-rajzoló progit Pascal-on is.
a Turbo Pascal-on 17 mp, itt 10 mp alatt lefut...
http://www.youtube.com/watch?v=GXBMkGNDceI&feature=youtu.be

Zozosoft · « **Reply #1 on:** 2013.October.29. 15:24:52 »

Programfájlt lehet kérni?

Povi · « **Reply #2 on:** 2013.October.29. 15:26:43 »

Quote from: Zozosoft

Programfájlt lehet kérni?

Code: [Select]

PROGRAM EXOSBOVITO;

VAR
  STRTEMP : ARRAY[1..255] OF CHAR;
  
PROCEDURE XSET(VALTOZO,ERTEK:INTEGER);
BEGIN
  INLINE(#06,#01) {LD B,1};
  INLINE(#DD,#4E,#04) {LD C,(IX+04)};
  INLINE(#DD,#56,#02) {LD D,(IX+02)};
  INLINE(#F7,#10) {EXOS 16};
END;

PROCEDURE GRAFON(CH,MODE,COLOR,XSIZE,YSIZE:INTEGER);
BEGIN
  XSET(22,MODE);
  XSET(23,COLOR);
  XSET(24,XSIZE);
  XSET(25,YSIZE);
  INLINE(#DD,#7E,#0A) {LD A,(IX+10H)};
  INLINE(#11,#8A,#14) {LD DE,148AH)};
  INLINE(#F7,#01) {EXOS 1};
 END;

PROCEDURE GRAFOFF(CH:INTEGER);
BEGIN
 INLINE(#DD,#7E,#02) {LD A,(IX+2)};
 INLINE(#F7,#03) {EXOS 3};
END;
 
PROCEDURE DISPLAY(CH,SAT,SFROM,STO:INTEGER);
BEGIN
  INLINE(#DD,#7E,#08) {LD A,(IX+8)};
  INLINE(#06,#01) {LD B,1};
  INLINE(#DD,#4E,#04) {LD C,(IX+4)};
  INLINE(#DD,#56,#02) {LD D,(IX+2)};
  INLINE(#DD,#5E,#06) {LD E,(IX+6)};
  INLINE(#F7,#0B) {EXOS 11};
END;

PROCEDURE PALETTE(CH,C0,C1,C2,C3,C4,C5,C6,C7:INTEGER);
BEGIN
  POKE(ADDR(STRTEMP),CHR(27));
  POKE(ADDR(STRTEMP)+1,'C');
  POKE(ADDR(STRTEMP)+2,CHR(C0));
  POKE(ADDR(STRTEMP)+3,CHR(C1));
  POKE(ADDR(STRTEMP)+4,CHR(C2));
  POKE(ADDR(STRTEMP)+5,CHR(C3));
  POKE(ADDR(STRTEMP)+6,CHR(C4));
  POKE(ADDR(STRTEMP)+7,CHR(C5));
  POKE(ADDR(STRTEMP)+8,CHR(C6));
  POKE(ADDR(STRTEMP)+9,CHR(C7));
  INLINE(#DD,#7E,#12) {LD A,(IX+18)};
  INLINE(#01,#0A,#00) {LD BC,10};
  INLINE(#11,#01,#FF)  {LD DE,FF01H};
  INLINE(#F7,#08) {EXOS 8};
END;

PROCEDURE PLOT(CH,X,Y:INTEGER);
BEGIN
  POKE(ADDR(STRTEMP),CHR(27));
  POKE(ADDR(STRTEMP)+1,'A');
  POKE(ADDR(STRTEMP)+2,X);
  POKE(ADDR(STRTEMP)+4,Y);
  INLINE(#DD,#7E,#06) {LD A,(IX+6)};
  INLINE(#01,#06,#00) {LD BC,6};
  INLINE(#11,#01,#FF)  {LD DE,FF01H};
  INLINE(#F7,#08) {EXOS 8};
END;
  
PROCEDURE BEAM(CH,ONOFF:INTEGER);
BEGIN
  POKE(ADDR(STRTEMP),CHR(27));
  POKE(ADDR(STRTEMP)+1,CHR(ORD('s')-(ONOFF*32)));
  INLINE(#DD,#7E,#04) {LD A,(IX+4)};
  INLINE(#01,#02,#00) {LD BC,2};
  INLINE(#11,#01,#FF)  {LD DE,FF01H};
  INLINE(#F7,#08) {EXOS 8};
END;

PROCEDURE FILL(CH:INTEGER);
BEGIN
  POKE(ADDR(STRTEMP),CHR(27));
  POKE(ADDR(STRTEMP)+1,'F');
  INLINE(#DD,#7E,#02) {LD A,(IX+2)};
  INLINE(#01,#02,#00) {LD BC,2};
  INLINE(#11,#01,#FF)  {LD DE,FF01H};
  INLINE(#F7,#08) {EXOS 8};
END;
PROCEDURE MOVETO(CH,X,Y:INTEGER);
BEGIN
  BEAM(CH,0);
  PLOT(CH,X,Y);
END;

PROCEDURE SIERP(W,X,Y:INTEGER);
BEGIN
  IF W>28 THEN BEGIN
    SIERP(W DIV 2,X,Y);
    SIERP(W DIV 2,X+W DIV 4,Y-W DIV 2);
    SIERP(W DIV 2,X+W DIV 2,Y)
  END
  ELSE BEGIN
    PLOT(101,X,Y);BEAM(101,1);
    PLOT(101,X+W DIV 2,Y-W);
    PLOT(101,X+W,Y);PLOT(101,X,Y);
    MOVETO(101,X+4,Y-4);FILL(101);
  END
END;

BEGIN
  GRAFON(101,1,0,40,27);
  PALETTE(101,32,142,0,0,0,0,0,0);
  DISPLAY(101,1,1,27);
  SIERP(896,180,950);
  READLN;
  GRAFOFF(101);
END.

Povi · « **Reply #3 on:** 2013.October.29. 15:36:26 »

érdekességek a HiSoft Pascal-ból:
annyira régi implementáció, hogy pl. nincs benne STRING, BYTE és WORD típus se. csak NAGYBETŰS utasításokat fogad el (a writeln nem jó, csak a WRITELN)
a változókban nem lehet aláhúzás jel, ezért lett lecserélve pl. a GRAF_ON procedúra neve GRAFON-ra
csak INTEGER (előjeles)
így kicsit trükközni kellett: a procedúrák paramétereit az IX+2 helytől tárolja a fordító, ha pl. van egy ilyen sorunk:

Code: [Select]

PROCEDURE VALAMI(A,B,C:INTEGER);

akkor a C paraméter értéke az IX+2 és IX+3 helyen, a B = IX+4 és IX+5, A = IX+6 és IX+7 címen lesz eltárolva.

Z80System · « **Reply #4 on:** 2013.October.29. 15:45:13 »

Szerettem a pascal -ban, hogy kicsit olyan assembly -re emlékeztető a szintaxisa ...

Ugyan magával a nyelvvel tán egy iskolai év keretein belül foglalkoztam csak, de mindíg olyan jó volt ránézni a forrásaira ... olyan otthonos volt az assembly után ...

endi · « **Reply #5 on:** 2013.October.29. 16:21:33 »

Quote from: Z80System

Szerettem a pascal -ban, hogy kicsit olyan assembly -re emlékeztető a szintaxisa ...

Ugyan magával a nyelvvel tán egy iskolai év keretein belül foglalkoztam csak, de mindíg olyan jó volt ránézni a forrásaira ... olyan otthonos volt az assembly után ...

meg főleg az EP basicre

IstvanV · « **Reply #6 on:** 2013.October.29. 16:36:17 »

Quote from: Povi

na, megcsináltam a Sierpinski háromszög-rajzoló progit Pascal-on is.
a Turbo Pascal-on 17 mp, itt 10 mp alatt lefut...

Ez az assembler verzió is ~10 másodperc alatt fut le, tehát a futásidő nagy részét valójában az EXOS rajzoló rutinok teszik ki:
[ Guests cannot view attachments ]

Povi · « **Reply #7 on:** 2013.October.29. 16:37:28 »

Zozo, escape szekvenciákat küldeni lehet karakterenként is küldeni, vagy csak egyben, stringként? Pl. esc "F" a Fill-re...

Povi · « **Reply #8 on:** 2013.October.29. 17:59:37 »

az létezhet, hogy a 2.3-as EXOS valamiért összeveszik a Pascal-lal?
2.32-vel már működik rendesen

Povi · « **Reply #9 on:** 2013.October.29. 18:33:05 »

Globális változók:
10000H címtől lefelé:

Code: [Select]

VAR
  I  : INTEGER;
  CH : CHAR;
  R  : REAL;

esetén a változók az alábbi memóriacímeken lesznek eltárolva:
I : 2 byte, 0FFFH és 0FFFEH
CH : 1 byte, 0FFFDH
R : 4 byte, 0FFF9H, 0FFFAH, 0FFFBH, 0FFFCH

Lacika · « **Reply #10 on:** 2013.October.29. 18:54:37 »

Quote from: Povi

na, megcsináltam a Sierpinski háromszög-rajzoló progit Pascal-on is.
a Turbo Pascal-on 17 mp, itt 10 mp alatt lefut...
http://www.youtube.com/watch?v=GXBMkGNDceI&feature=youtu.be

Hoppá! Ez igen!
Includ file-t nem lehet használni Hisoft Pascal-ban? Enterpress alapján próbálkoztam ezzel (lásd csatolmány), de nem tudtam életet lehelni belé.
Bár, ha jól sejtem, a tied amúgy gyorsabb megoldás. Esetleg ki lehetne egészíteni a Graphh.tpu összes eljárására?

Utána a TURTLE.TPU szerintem már menne egyedül is

Povi · « **Reply #11 on:** 2013.October.29. 19:30:26 »

Quote from: Lacika

Hoppá! Ez igen!
Includ file-t nem lehet használni Hisoft Pascal-ban? Enterpress alapján próbálkoztam ezzel (lásd csatolmány), de nem tudtam életet lehelni belé.
Bár, ha jól sejtem, a tied amúgy gyorsabb megoldás. Esetleg ki lehetne egészíteni a Graphh.tpu összes eljárására? Utána a TURTLE.TPU szerintem már menne egyedül is

pedig ez működik!!!!

akkor ezek szerint lehet include fájlt csinálni
akkor így meg tudnám csinálni a tpu-kat

Povi · « **Reply #12 on:** 2013.October.29. 19:54:03 »

na, ez érdekes!
úgy tűnik, az enterprise-os HiSoft Pascal-ban működik a WRITE(EXOS(xx)); parancs
és a regiszter értékadás is működik. Persze nem közvetlenül a BC regiszternek ad értéket pl. az RBC:=1000 utasítás, hanem elmenti egy memóriacímre, amit majd a WRITE(EXOS(xx)) utasítás kiolvas. Szóval, az INLINE-os módszer azért egy kicsit gyorsabb.
Pl. egy EXOS 11 hívás így történik:

Code: [Select]

      LD HL,11
      CALL 04D7H


04D7H LD A,L ;A-ban az EXOS funkcióhívás száma
      LD (04E7H),A ;az RST 30h autasítás mögé bemásolásra kerül a funkcióhívás száma
      LD A,(04F4H)
      LD BC,(04F5H)
      LD DE,(04F7H)
04E6H EXOS xx
      LD (04F7H),DE
      LD (04F5H),BC
      LD (04F4H),A
      RET

Lacika · « **Reply #13 on:** 2013.October.29. 20:03:39 »

Quote from: Povi

akkor ezek szerint lehet include fájlt csinálni
akkor így meg tudnám csinálni a tpu-kat

Lacika · « **Reply #14 on:** 2013.October.29. 20:06:38 »

Text 80-ba hogy kell programból átlépni?

Author Topic: HiSoft Pascal (Read 180324 times)

Povi

HiSoft Pascal

Zozosoft

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Z80System

Re: HiSoft Pascal

endi

Re: HiSoft Pascal

IstvanV

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Lacika

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Povi

Re: HiSoft Pascal

Lacika

Re: HiSoft Pascal

Lacika

Re: HiSoft Pascal