Nachbrenner für Save/Load von Feldern in GFA-Basic

Entstanden sind diese Routinen zum Speichern und Laden von Feldern, weil sich mein sonst so schneller Computer beim Speichern des Feldes Feld% (249,249) wohl in eine Schildkröte verwandelt haben mußte.

Für Schreiben über PRINT# und Lesen über INPUT# brauchte er sage und schreibe:

speichern : 586,715 s = 9,47 min
laden : 514,665 s = 8,35 min

Was für meinen Geschmack deutlich zu lange war.

Doch da sollte sich etwas ändern. Beschäftigt man sich mit der Speicherverwaltung des ST, so erkennt man, daß die Felder sozusagen am Stück im Speicher vorliegen. Daraufhin meine Idee, das ganze Feld als Ganzes abzuspeichern und genauso wieder zu laden.

Zum Abspeichem benötigt man also die Startadresse (Start%) im Speicher und die Länge des Feldes (Lange%). Beides ist nicht all zu schwierig.

Die Startadresse läßt sich mit der Funktion Arrptr() feststellen, danach folgen nur noch die Tiefen der einzelnen Dimensionen, und direkt danach fängt das Feld an.

Die Länge ergibt sich, indem man die Tiefen der einzelnen Dimensionen und die Länge einer einzelnen Variablen miteinander multipliziert.

Das Laden vereinfacht sich durch das ganze noch mehr. Einfach mit Varptr(Feld%(0,0)) den Pointer auf die Startadresse des Feldes holen und dann das vorher gespeicherte Feld wieder direkt an die richtige Stelle im Speicher laden.

Messungen auf einer leeren Diskette ergaben für das obige Feld

speichern : 62,4 s ==> 9,4so schnell
laden : 27,2 s ==> 18,9so schnell

Ganz beachtlich, oder etwa nicht?

Ein ganz netter Nebeneffekt trat auch noch auf. denn das Ganze braucht auf der Diskette auch nur noch 250kB statt der satten 4 lOkB mit denen das File vorher zu Buche schlug. Das entspricht einer Reduktion auf 60%.

Anpassung

Was muß ich jetzt jeweils für meine eigenen Bedürfnisse anpassen? Die Routine erkennt fast alles von selbst, man muß nur die Länge der jeweiligen Variablen anpassen. In der Routine ist dies schon vorgesehen. Man muß nur die richtige Zeile verwenden. Und sonst einfach den Variablennamen FELD% durch den eigenen Feldnamen ersetzen.

Und sonst: Ein Problem gab es bei der Sache doch noch, denn mit String Feldern funktioniert das ganze nämlich nicht. Der Grund liegt darin, daß die Strings nicht mit einer festgegebenen Länge abgelegt werden, sondern abhängig von der Länge der Strings.

' (c) MAXON Computer GmbH 1989
'
DIM feld%(249,249)
'
FOR i%=0 TO 249
  FOR j%=0 TO 249
    feld%(j%,i%)=j%*100+i%
  NEXT j%
NEXT i%
'
ti1=TIMER
GOSUB speichern
ti2=TIMER
'
ti3=TIMER
GOSUB laden
ti4=TIMER
'
PRINT "           ZEIT :    NEU           ALT"
PRINT "Speichern       : ";(ti2-ti1)/200;" s       586.715 s"
PRINT "Laden           : ";(ti4-ti3)/200;" s       514.665 s"
'
'
PROCEDURE speichern
  LOCAL byte%,feldadr%,anzahl%,start%,lange%,i%
  '
  ' Byte%=2   ! fr X!
  byte%=4     ! fr X%
  ' Byte%=6   ! fr X
  '
  feldadr%=LPEEK(ARRPTR(feld%()))
  anzahl%=DPEEK(ARRPTR(feld%())+4)
  start%=feldadr%+4*anzahl%
  '
  lange%=1
  FOR i%=1 TO anzahl%
    MUL lange%,LPEEK(feldadr%+4*anzahl%-4*i%)
  NEXT i%
  MUL lange%,byte%
  '
  BSAVE "DATEN.DAT",start%,lange%
  '
RETURN
'
PROCEDURE laden
  '
  BLOAD "DATEN.DAT",VARPTR(feld%(0,0))
  '
RETURN

• FASTSAVE.PRG
• FASTSAVE.BAS