hehe...
Erre varjatok gombot:

PROGRAM PROBA;
VAR NAME:ARRAY[1..20] OF CHAR;
BEGIN
  WRITE('Name: ');
  READLN;READ(NAME);
  WRITELN(NAME);
END.

Mi a búbánatot csinál a READLN...?

rájöttem, mire jó a titokzatos MAKESTR függvény...
használata:
MAKESTR(string) : integer;
példa:
PROGRAM PROBA;
VAR A : INTEGER;
BEGIN
  A := MAKESTR('Hello');
  WRITE(A);
END.
A függvény visszatérési értéke mindig 1012 lesz (03F4H), ez egy memóriacím, ide másolja az idézőjelek közötti szöveget, egy hosszbájttal együtt. Sajnos az első szóközig, vagy chr(13)-ig nézi, tehát a 'Hello world!'-re is csak 5-ös hosszbájtot ad (persze ezt a kis hibát ki lehet javítani).

egy nagy hibája van, max. 32 byte hosszú lehet a string (hosszbyte-tal együtt 33), különben a futtatható kódot fölülírja, és nincs erre semmilyen ellenőrzés...

ja, de így pl. akkor lehet file-t nyitni (még nem nagyon látom, mire lehetne használni ezt a parancsot):
RA:=1;
RDE:=MAKESTR('PROBA.TXT');
EXOS(1);
és változóval is működik

ABS számítása HP-ban:
l07b0:  ld      a,h   ;4
        or      a     ;4
        ret     p     ;11/5
l07b3:  xor     a     ;4
        sub     l     ;4
        ld      l,a   ;4
        ld      a,0   ;7
        sbc     a,h   ;4
        ld      h,a   ;4
        ret           ;10
összesen 50 cikus

TP-n:
ABSint:
bit 7,h 8 ; Test sign bit
ret z 11/5 ; .. already >0
ComplINT:
ld a,h 4 ; .. one's complement
cpl             4
ld h,a     4
ld a,l     4
cpl             4
ld l,a     4
inc hl 6 ; Fix for two's complement
ret             10

összesn 53 ciklus, vagyis 6%-kal gyorsabb a Hisoft Pascal

ABS számítása HP-ban:

Code: [Select]

l07b0:  ld      a,h   ;4
        or      a     ;4
        ret     p     ;11/5
l07b3:  xor     a     ;4
        sub     l     ;4
        ld      l,a   ;4
        ld      a,0   ;7
        sbc     a,h   ;4
        ld      h,a   ;4
        ret           ;10
összesen 50 cikus

Egy keveset még lehetett volna gyorsítani:

van egy 15 byte-os rutin a 03c4h-tól kezdve, amire nincs ugrás sehonnét...
vajon miért maradt benne? ráadásul nem Spectrum átiratból maradt töredék, vagy ilyesmi, hanem kifejezetten EP128 kód:
l03c4:  call    l03df
l03c7:  ld      a,123
        exos    2
        call    l0458
        or      a
        jp      nz,ErrorEXOS
        ret     
a címkéket már én írtam hozzá (nem a disassembler), hogy rájuk kereshessek
az előző utasításról nem lehet ide jutni, mert az egy RET

jaj, azt mindig elfelejtem...
persze, lehet, hogy valahogy ráugrik, csak nem tudom, honnét... (és miért)
mert az előtte lévő pár sor ugyanez azzal az eltéréssel, hogy 122-es csatornát hoz létre
viszont a 123-ast a printer: eszköz szokta használni...

érdekes, hogy futtatható fájl fordításakor (Translate parancs) is byte-onként írja a fájlt, ahelyett, hogy blokkműveletekkel csinálná. De ez a "hiba" legalább könnyen javítható, így gyorsabb lesz egy kicsit