Az LDIR-nél arra azért figyelj, hogy mi van akkor, ha átfedésben van a célterület a forrással, az nincs lekezelve

Ez hasznos is lehet tömb feltöltésére, akár ismétlődő sorozattal vagy nem 1 byte méretű típussal. De ha valóban mozgatás a cél, akkor arra egyszerűen készíthető LDDR-es változat is.

A memória egy adott területéről (hossz-byte-tal az elején) egy szövegfüzért kiírni van valami egyszerűbb módszer ehelyett:

Code: [Select]

PROGRAM HIBA;
VAR TMP,RA: CHAR;
    I:INTEGER;
BEGIN
  RA:=CHR(101);
  TMP:=EXOS(3);
  IF RA<>CHR(0) THEN BEGIN
    RDE:=#14AE;
    TMP:=EXOS(28);
    FOR I:=#14AE+1 TO #14AE+ORD(PEEK(#14AE,CHAR)) DO
      WRITE(PEEK(I,CHAR));
    WRITELN('.')
  END
END.
A PEEK hiába rugalmas, típusmegadásnál csak konstans fogad el...

A 0x0231 címen lévő rutin lefuttat egy EXOS 28-at, és kiírja a hibaüzenetet. Ha az adott hibához nincs string, akkor a "Pascal can't cope!" szöveget ír ki.
Sajnos ezután kilép a programból.

Ahhoz, hogy ne lépjen ki, a 0x023f címen lévő JP 0x010c helyett egy RET kell.

Vagyis

POKE(£023F,CHR(£C9));
aztán lehet a

USER(£0231);
aztán állítsd vissza a RET utasítást JP-re (0xc3)

Jól értem, így kellene működnie:

Ez "csatorna nincs nyitva" hibaüzenetre is a fentit adja.

nem lesz jó a megoldásom, mert előbb az A regiszternek át kéne adni a hibaüzenet kódját, mielőtt meghívjuk a 0231-en lévő rutint...

A te megoldásod majdnem jó.

PROGRAM HIBA;
VAR TMP: CHAR;
    I:INTEGER;
BEGIN
  RA:=CHR(101);
  EXOS(3);
  IF RA<>CHR(0) THEN BEGIN
    RDE:=#14AE;
    EXOS(28);
    RA:=CHR(121);RDE:=#14AF;RBC:=ORD(PEEK(#14AE,CHAR));
    EXOS(8);
    WRITELN('.')
  END;
  WRITELN('Vege.')
END.

Valami bugot találhattunk...
A program lefut, de pl a W parancsra lefagy a PASCAL.

hááát
az 14AE területre nem szerencsés írni
fölül lett írva egy csomó dolog, amit nem kellett volna

az 15ae területre kéne írni

Valaki feltöltene nekem egy rövid videót, hogy hogyan kell használni a hisoft pascal-t?
 Egy példaprogram elég lenne. Mondjuk egy adatbekérés billentyűzetről és egy videolap nyitás és egy-két vonal megrajzolása elég lenne.
 Nagyon megköszönném!