Daten komprimieren — Sparen Sie Speicherplatz und Ladezeit!

Schreiben Sie öfter Programme, bei denen Sie größere Datenmengen verwalten müssen? Mit dem »Daten-Packer« wird der Aufwand an Ladezeit und Speicherplatz auf Diskette um 25 Prozent reduziert.

Dieses Programm kürzt Strings auf % der normalen Länge. Wenn man zum Beispiel einen String mit 12 Zeichen Inhalt hat, und den »Daten-Packer« darauf losläßt, ist der String nur noch neun Zeichen lang, bei gleichem Inhalt!

Um ihn sich änsehen zu können, muß er natürlich erstwieder in eine lesbare Form gebracht, also »entpackt« werden.

Bei selbstgeschriebenen Adressenverwaltungen läßt sich das gut anwenden:

Bevor man die Adressen, die ja meist in Strings enthalten sind, auf der Diskette abspeichert, »packt« man sie mit dem Daten-Packer, und speichert sie dann. So spart man eine Menge wertvollen Diskettenplatz und Ladezeit.

Nach dem Einladen müssen die Adressen wieder »entpackt« werden, bevor man mit ihnen weiterarbeiten kann.

Das Programm (siehe Listing) wird mit dem MSE eingegeben und ist dann sofort einsatzbereit.

Umgang mit dem Daten-Packer

Packen: SYS 49152, A$, B$

In A$ muß der zu packende String stehen. Danach enthält B$ die gepackte Version.

Entpacken: SYS 49339, C$, D$

In C$ muß der gepackte String stehen. In D$ ist dann der entpackte String zur Weiterverarbeitung bereit.

Natürlich kann an Stelle von A$, B$, und D$ jede andere Stringvariable stehen.

Das geht doch nicht mit rechten Dingen zu, wird der eine oder andere Leser jetzt vielleicht denken.

Nun, dieses Programm kürzt 4 Byte auf 3 Byte. Ein Byte hat bekannterweise 8 Bit, gebraucht werden aber nur 6 Bit, um die ASCII-Werte darzustellen, aus denen Datenstrings ja bestehen.

Mit diesen 6 Bit kann man alle alphanumerischen Zeichen und einige Sonderzeichen darstellen. Der Alogrithmus des Programms besteht nun darin, vom ASCII-Wert des zu packenden Byte 32 abzuziehen, um eine Darstellung mit 6 Bit zu ermöglichen. Dann wird jedes vierte Byte auf die vorhergehenden 3 Byte verteilt, bei denen die letzten 2 Bit nach unserer Subtraktion nun nicht mehr gebraucht werden. »Überhang-Bytes«, also die letzten Zeichen eines Strings, die keine vollen 4 Byte mehr ergeben, werden nicht gepackt, sondern nur an den gepackten String angehängt.

Beim Entpacken läuft der Vorgang in umgekehrter Reihenfolge ab.

PROGRAMM : PACKROUTOBJ    C000 C1EC
-----------------------------------
C000 : 20 9C C0 20 6D C1 A0 00   0A
C008 : A2 00 B1 22 38 E9 20 0A   C2
C010 : 0A 9D EE C1 E8 C8 E0 03   3B
C018 : D0 F0 B1 22 38 E9 20 8D   7F
C020 : F1 C1 AC F3 C1 18 6E F1   16
C028 : C1 6E EE C1 6E F1 C1 6E   6E
C030 : EE C1 6E F1 C1 6E EF C1   AB
C038 : 6E F1 C1 6E EF C1 6E F1   88
C040 : C1 6E F0 C1 6E F1 C1 6E   07
C048 : F0 C1 AD EE C1 99 F5 C1   A6
C050 : C8 AD EF C1 99 F5 C1 C8   05
C058 : AD F0 C1 99 F5 C1 C8 8C   CA
C060 : F3 C1 AD F4 C1 18 69 04   C8
C068 : 8D F4 C1 CD F2 C1 F0 28   EB
C070 : 18 69 04 CD F2 C1 F0 02   FD
C078 : B0 06 AC F4 C1 4C 08 C0   15
C080 : AE F3 C1 AC F4 C1 B1 22   96
C088 : 38 E9 20 9D F5 C1 C8 E8   D3
C090 : CC F2 C1 D0 F1 8E F3 C1   47
C098 : 20 BB C1 60 20 FD AE 20   FF
C0A0 : 8B B0 85 64 84 65 20 A3   AC
C0A8 : B6 A0 00 B1 47 8D F2 C1   15
C0B0 : C8 B1 47 85 22 C8 B1 47   91
C0B8 : 85 23 60 20 9C C0 20 6D   16
C0C0 : C1 A8 A2 00 B1 22 9D EE   FE
C0C8 : C1 C8 E8 E0 03 D0 F5 20   12
C0D0 : 76 C1 AC F3 C1 A2 00 BD   7D
C0D8 : EE C1 99 F5 C1 E8 C8 E0   14
C0E0 : 04 D0 F4 8C F3 C1 AD F4   09
C0E8 : C1 18 69 03 8D F4 C1 CD   93
C0F0 : F2 C1 F0 52 69 03 CD F2   15
C0F8 : C1 F0 23 B0 06 AC F4 C1   2D
C100 : 4C C2 C0 AC F4 C1 AE F3   73
C108 : C1 B1 22 18 69 20 9D F5   27
C110 : C1 C8 E8 CC F2 C1 D0 F1   6D
C118 : 8E F3 C1 4C 69 C1 A2 00   C9
C120 : AC F4 C1 B1 22 9D EE C1   3B
C128 : C8 E8 E0 03 D0 F5 2C EE   48
C130 : C1 30 19 70 17 2C EF C1   74
C138 : 30 12 70 10 2C F0 C1 30   41
C140 : 0B 70 09 4C 03 C1 AD F3   2C
C148 : C1 4C 69 C1 20 76 C1 AC   D8
C150 : F3 C1 A2 00 BD EE C1 99   5A
C158 : F5 C1 E8 C8 E0 04 D0 F4   DC
C160 : AD F3 C1 18 69 04 8D F3   4F
C168 : C1 20 BB C1 60 A9 00 8D   CF
C170 : F4 C1 8D F3 C1 60 A9 00   EC
C178 : 8D F1 C1 AA 18 2E F0 C1   FE
C180 : 2E F1 C1 2E F0 C1 2E F1   97
C188 : C1 2E EF C1 2E F1 C1 2E   6A
C190 : EF C1 2E F1 C1 2E EE C1   F6
C198 : 2E F1 C1 2E EE C1 2E F1   8F
C1A0 : C1 BD EE C1 4A 4A 18 69   5E
C1A8 : 20 9D EE C1 E8 E0 03 D0   CE
C1B0 : F0 AD F1 C1 18 69 20 8D   94
C1B8 : F1 C1 60 20 FD AE 20 8B   93
C1C0 : B0 85 49 84 4A 85 64 84   81
C1C8 : 65 20 A3 B6 AD F3 C1 20   BF
C1D0 : 75 B4 A0 00 B9 61 00 91   91
C1D8 : 49 C8 C0 03 D0 F6 A0 00   5D
C1E0 : B9 F5 C1 91 62 C8 C4 61   79
C1E8 : D0 F6 60 00               D5