PACKER.SRC-GIGA
FILE INFORMATION
FILENAME(S): PACKER.SRC-GIGA
FILE TYPE(S): PRG
FILE SIZE: 14.7K
FIRST SEEN: 2025-11-30 01:13:13
APPEARS ON: 1 disk(s)
FILE HASH
e6c282bfb201481c74c1ade4098330c82795f271fd42802eb19ecc9ab54e5aa0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15724 SEITE B | PACKER.SRC-GIGA | PRG | C64er, DuncanTwain | 26 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 3B 20 50 52 4F 47 52 41 4D 4D |..&...; PROGRAMM|
00000010: 20 5A 55 52 20 44 45 4D 4F 4E 53 54 52 41 54 49 | ZUR DEMONSTRATI|
00000020: 4F 4E 20 44 45 52 00 47 08 14 00 3B 20 46 55 4E |ON DER.G...; FUN|
00000030: 4B 54 49 4F 4E 53 57 45 49 53 45 20 56 4F 4E 20 |KTIONSWEISE VON |
00000040: 50 41 43 4B 45 52 4E 00 4D 08 1E 00 3B 00 6A 08 |PACKERN.M...;.j.|
00000050: 28 00 3B 20 20 20 20 20 42 59 20 44 49 52 4B 20 |(.; BY DIRK |
00000060: 4E 45 55 4D 45 49 53 54 45 52 00 87 08 32 00 3B |NEUMEISTER...2.;|
00000070: 20 20 20 20 20 20 20 20 49 4D 20 20 54 52 49 45 | IM TRIE|
00000080: 53 43 48 20 20 32 38 00 A4 08 3C 00 3B 20 20 20 |SCH 28...<.; |
00000090: 20 20 20 20 20 33 35 30 33 20 20 4C 4F 48 46 45 | 3503 LOHFE|
000000A0: 4C 44 45 4E 00 C1 08 46 00 3B 20 20 20 20 20 20 |LDEN...F.; |
000000B0: 20 20 54 45 4C 2E 3A 20 4B 53 2F 35 31 38 34 37 | TEL.: KS/51847|
000000C0: 35 00 C7 08 50 00 3B 00 CD 08 78 00 3B 00 D3 08 |5...P.;...x.;...|
000000D0: 82 00 3B 00 D9 08 8C 00 3B 00 DF 08 96 00 3B 00 |..;.....;.....;.|
000000E0: 05 09 A0 00 3B 20 50 52 4F 47 52 41 4D 4D 53 54 |....; PROGRAMMST|
000000F0: 41 52 54 20 41 55 46 20 24 43 30 30 30 20 3D 20 |ART AUF $C000 = |
00000100: 34 39 31 35 32 00 0B 09 AA 00 3B 00 17 09 B4 00 |49152.....;.....|
00000110: 20 AA 24 43 30 30 30 00 1D 09 BE 00 3B 00 3F 09 | .$C000.....;.?.|
00000120: C8 00 3B 20 44 45 46 49 4E 49 54 49 4F 4E 20 56 |..; DEFINITION V|
00000130: 4F 4E 20 52 4F 4D 2D 52 4F 55 54 49 4E 45 4E 00 |ON ROM-ROUTINEN.|
00000140: 45 09 D2 00 3B 00 59 09 DC 00 20 A4 53 54 52 41 |E...;.Y... .STRA|
00000150: 55 53 47 3D 24 41 42 31 45 00 6D 09 E6 00 20 A4 |USG=$AB1E.m... .|
00000160: 47 45 54 42 59 54 45 3D 24 42 37 39 45 00 82 09 |GETBYTE=$B79E...|
00000170: F0 00 20 A4 50 52 49 4E 54 46 41 43 3D 24 42 44 |.. .PRINTFAC=$BD|
00000180: 44 37 00 94 09 FA 00 20 A4 4B 4F 4D 4D 41 3D 24 |D7..... .KOMMA=$|
00000190: 41 45 46 44 00 A9 09 04 01 20 A4 49 4E 54 48 4F |AEFD..... .INTHO|
000001A0: 4C 45 4E 3D 24 41 44 38 41 00 BD 09 0E 01 20 A4 |LEN=$AD8A..... .|
000001B0: 57 41 4E 44 45 4C 4E 3D 24 42 37 46 37 00 D2 09 |WANDELN=$B7F7...|
000001C0: 18 01 20 A4 46 41 43 4D 41 4C 31 30 3D 24 42 41 |.. .FACMAL10=$BA|
000001D0: 45 32 00 E4 09 22 01 20 A4 49 4E 46 41 43 3D 24 |E2...". .INFAC=$|
000001E0: 42 33 39 35 00 FA 09 2C 01 20 A4 43 4F 50 59 46 |B395...,. .COPYF|
000001F0: 41 43 49 49 3D 24 42 43 30 43 00 0D 0A 36 01 20 |ACII=$BC0C...6. |
00000200: A4 46 41 43 44 49 56 3D 24 42 42 31 34 00 13 0A |.FACDIV=$BB14...|
00000210: E8 03 3B 00 35 0A F2 03 3B 20 41 4C 4C 47 45 4D |..;.5...; ALLGEM|
00000220: 45 49 4E 45 52 20 43 4F 4D 50 41 43 54 4F 52 20 |EINER COMPACTOR |
00000230: 53 54 41 52 54 00 3B 0A FC 03 3B 00 63 0A 06 04 |START.;...;.c...|
00000240: 3B 20 53 59 53 20 34 39 31 35 32 2C 20 41 44 52 |; SYS 49152, ADR|
00000250: 32 2C 20 41 44 52 33 2C 20 41 44 52 34 2C 20 4D |2, ADR3, ADR4, M|
00000260: 4F 44 45 00 98 0A 10 04 3B 20 4D 49 54 20 41 55 |ODE.....; MIT AU|
00000270: 53 47 41 47 45 20 44 45 52 20 4C 41 45 4E 47 45 |SGAGE DER LAENGE|
00000280: 20 49 4E 20 25 20 55 4E 44 20 44 45 52 20 45 4E | IN % UND DER EN|
00000290: 44 41 44 52 45 53 53 45 00 9E 0A 1A 04 3B 00 D1 |DADRESSE.....;..|
000002A0: 0A 24 04 20 CA 23 3C 28 52 45 53 54 29 3B 20 5A |.$. .#<(REST); Z|
000002B0: 45 49 47 45 52 20 46 55 45 52 20 44 45 4E 20 54 |EIGER FUER DEN T|
000002C0: 45 58 54 20 4C 41 44 45 4E 2C 20 55 4D 20 44 45 |EXT LADEN, UM DE|
000002D0: 4E 00 07 0B 2E 04 20 C3 23 3E 28 52 45 53 54 29 |N..... .#>(REST)|
000002E0: 3B 20 48 49 4E 57 45 49 53 20 41 55 46 20 44 49 |; HINWEIS AUF DI|
000002F0: 45 20 52 45 53 54 4C 41 45 4E 47 45 20 41 55 53 |E RESTLAENGE AUS|
00000300: 5A 55 47 45 42 45 4E 00 24 0B 38 04 20 D6 53 54 |ZUGEBEN.$.8. .ST|
00000310: 52 41 55 53 47 3B 20 54 45 58 54 20 41 55 53 47 |RAUSG; TEXT AUSG|
00000320: 45 42 45 4E 00 5A 0B 42 04 20 D6 48 4F 4C 45 4E |EBEN.Z.B. .HOLEN|
00000330: 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 20 44 |; STARTADRESSE D|
00000340: 45 52 20 55 4E 47 45 50 41 43 4B 54 45 4E 20 44 |ER UNGEPACKTEN D|
00000350: 41 54 45 4E 20 48 4F 4C 45 4E 00 65 0B 4C 04 20 |ATEN HOLEN.e.L. |
00000360: CA 23 24 46 42 00 91 0B 56 04 20 D6 43 4F 50 59 |.#$FB...V. .COPY|
00000370: 3B 20 55 4E 44 20 44 49 45 53 45 20 4E 41 43 48 |; UND DIESE NACH|
00000380: 20 24 46 42 2F 24 46 43 20 43 4F 50 49 45 52 45 | $FB/$FC COPIERE|
00000390: 4E 00 C5 0B 60 04 20 D6 48 4F 4C 45 4E 3B 20 45 |N...`. .HOLEN; E|
000003A0: 4E 44 41 44 52 45 53 53 45 20 44 45 52 20 55 4E |NDADRESSE DER UN|
000003B0: 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 20 |GEPACKTEN DATEN |
000003C0: 48 4F 4C 45 4E 00 F0 0B 6A 04 20 C9 24 31 34 3B |HOLEN...j. .$14;|
000003D0: 20 44 49 45 20 45 4E 44 41 44 52 45 53 53 45 20 | DIE ENDADRESSE |
000003E0: 55 4D 20 45 49 4E 53 20 45 52 48 4F 45 48 45 4E |UM EINS ERHOEHEN|
000003F0: 00 FD 0B 74 04 20 F6 43 4F 4D 50 33 3B 00 08 0C |...t. .COMP3;...|
00000400: 7E 04 20 C9 24 31 35 3B 00 18 0C 88 04 43 4F 4D |~. .$15;.....COM|
00000410: 50 33 20 CA 23 24 46 44 00 3E 0C 92 04 20 D6 43 |P3 .#$FD.>... .C|
00000420: 4F 50 59 3B 20 55 4E 44 20 4E 41 43 48 20 24 46 |OPY; UND NACH $F|
00000430: 44 2F 24 46 45 20 43 4F 50 49 45 52 45 4E 00 7B |D/$FE COPIEREN.{|
00000440: 0C 9C 04 20 D6 48 4F 4C 45 4E 3B 20 53 54 41 52 |... .HOLEN; STAR|
00000450: 54 41 44 52 2E 20 44 45 52 20 47 45 50 41 43 4B |TADR. DER GEPACK|
00000460: 54 45 4E 20 44 41 54 45 4E 20 4E 41 43 48 20 24 |TEN DATEN NACH $|
00000470: 31 34 2F 31 35 20 4C 41 44 45 4E 00 B2 0C A6 04 |14/15 LADEN.....|
00000480: 20 D6 4B 4F 4D 4D 41 3B 20 44 45 4E 20 52 45 53 | .KOMMA; DEN RES|
00000490: 54 4C 49 43 48 45 4E 20 41 55 53 44 52 55 43 4B |TLICHEN AUSDRUCK|
000004A0: 20 41 55 46 20 4B 4F 4D 4D 41 20 50 52 55 45 46 | AUF KOMMA PRUEF|
000004B0: 45 4E 00 EF 0C B0 04 20 D6 47 45 54 42 59 54 45 |EN..... .GETBYTE|
000004C0: 3B 20 45 49 4E 20 57 45 49 54 45 52 45 53 20 42 |; EIN WEITERES B|
000004D0: 59 54 45 20 49 4E 20 58 2D 52 45 47 49 53 54 45 |YTE IN X-REGISTE|
000004E0: 52 20 48 4F 4C 45 4E 20 28 4D 4F 44 55 53 29 00 |R HOLEN (MODUS).|
000004F0: 20 0D BA 04 20 CA 23 24 46 37 3B 20 44 49 45 20 | ... .#$F7; DIE |
00000500: 53 54 41 52 54 41 44 52 45 53 53 45 20 44 45 52 |STARTADRESSE DER|
00000510: 20 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E | GEPACKTEN DATEN|
00000520: 00 42 0D C4 04 20 D6 43 4F 50 59 3B 20 4E 41 43 |.B... .COPY; NAC|
00000530: 48 20 24 46 37 2F 24 46 38 20 43 4F 50 49 45 52 |H $F7/$F8 COPIER|
00000540: 45 4E 00 7E 0D CE 04 20 D6 50 52 4F 5A 45 4E 54 |EN.~... .PROZENT|
00000550: 3B 20 50 52 4F 5A 45 4E 54 52 4F 55 54 49 4E 45 |; PROZENTROUTINE|
00000560: 20 31 20 41 55 46 52 55 46 45 4E 20 28 45 52 53 | 1 AUFRUFEN (ERS|
00000570: 54 45 20 42 45 52 45 43 48 4E 55 4E 47 29 00 A1 |TE BERECHNUNG)..|
00000580: 0D D8 04 20 D7 3B 20 4D 4F 44 55 53 42 59 54 45 |... .; MODUSBYTE|
00000590: 20 49 4E 20 41 4B 4B 55 20 43 4F 50 49 45 52 45 | IN AKKU COPIERE|
000005A0: 4E 00 CB 0D E2 04 20 C8 23 24 41 38 3B 20 4D 49 |N..... .#$A8; MI|
000005B0: 54 20 45 58 4F 52 20 31 30 31 30 31 30 30 30 20 |T EXOR 10101000 |
000005C0: 56 45 52 4B 4E 55 45 50 46 45 4E 00 EE 0D EC 04 |VERKNUEPFEN.....|
000005D0: 20 D6 41 55 53 47 41 42 45 3B 20 4D 4F 44 55 53 | .AUSGABE; MODUS|
000005E0: 42 59 54 45 20 53 50 45 49 43 48 45 52 4E 00 1A |BYTE SPEICHERN..|
000005F0: 0E F6 04 20 D6 41 55 53 47 41 42 45 3B 20 44 55 |... .AUSGABE; DU|
00000600: 4D 4D 59 20 46 55 45 52 20 45 4E 44 41 44 52 45 |MMY FUER ENDADRE|
00000610: 53 53 45 20 53 45 54 5A 45 4E 00 46 0E 00 05 20 |SSE SETZEN.F... |
00000620: D6 41 55 53 47 41 42 45 3B 20 44 55 4D 4D 59 20 |.AUSGABE; DUMMY |
00000630: 46 55 45 52 20 45 4E 44 41 44 52 45 53 53 45 20 |FUER ENDADRESSE |
00000640: 53 45 54 5A 45 4E 00 78 0E 0A 05 20 D7 3B 20 58 |SETZEN.x... .; X|
00000650: 2D 52 45 47 49 53 54 45 52 20 43 4F 50 49 45 52 |-REGISTER COPIER|
00000660: 45 4E 2C 20 46 4C 41 47 53 20 57 45 52 44 45 4E |EN, FLAGS WERDEN|
00000670: 20 47 45 53 45 54 5A 54 00 AA 0E 14 05 20 F6 43 | GESETZT..... .C|
00000680: 4F 4D 50 31 3B 20 57 45 4E 4E 20 3C 3E 20 30 2C |OMP1; WENN <> 0,|
00000690: 20 44 41 4E 4E 20 4D 49 54 20 4E 49 42 42 4C 45 | DANN MIT NIBBLE|
000006A0: 52 20 41 52 42 45 49 54 45 4E 00 D2 0E 1E 05 20 |R ARBEITEN..... |
000006B0: D6 50 41 43 4B 45 4E 3B 20 53 4F 4E 53 54 20 4D |.PACKEN; SONST M|
000006C0: 49 54 20 50 41 43 4B 45 52 20 41 52 42 45 49 54 |IT PACKER ARBEIT|
000006D0: 45 4E 00 DE 0E 28 05 20 D5 43 4F 4D 50 32 00 03 |EN...(. .COMP2..|
000006E0: 0F 32 05 43 4F 4D 50 31 20 D6 4E 49 42 42 4C 45 |.2.COMP1 .NIBBLE|
000006F0: 52 3B 20 4E 49 42 42 4C 45 52 20 41 55 46 52 55 |R; NIBBLER AUFRU|
00000700: 46 45 4E 00 3E 0F 3C 05 20 CA 23 24 45 45 3B 20 |FEN.>.<. .#$EE; |
00000710: 41 4B 4B 55 20 4D 49 54 20 24 45 45 20 4C 41 44 |AKKU MIT $EE LAD|
00000720: 45 4E 20 55 4E 44 20 4E 49 42 42 4C 45 52 20 45 |EN UND NIBBLER E|
00000730: 52 4E 45 55 54 20 41 55 46 52 55 46 45 4E 00 7A |RNEUT AUFRUFEN.z|
00000740: 0F 46 05 20 D6 4E 49 42 42 4C 45 52 33 3B 20 44 |.F. .NIBBLER3; D|
00000750: 41 4D 49 54 20 44 41 53 20 4C 45 54 5A 54 45 20 |AMIT DAS LETZTE |
00000760: 42 59 54 45 20 41 55 43 48 20 47 45 53 50 45 49 |BYTE AUCH GESPEI|
00000770: 43 48 45 52 54 20 57 49 52 44 00 8A 0F 50 05 43 |CHERT WIRD...P.C|
00000780: 4F 4D 50 32 20 C3 23 24 30 31 00 C1 0F 5A 05 20 |OMP2 .#$01...Z. |
00000790: CA 24 46 37 3B 20 45 4E 44 41 44 52 45 53 53 45 |.$F7; ENDADRESSE|
000007A0: 20 53 50 45 49 43 48 45 52 4E 2C 20 57 4F 20 56 | SPEICHERN, WO V|
000007B0: 4F 52 48 45 52 20 44 49 45 20 44 55 4D 4D 49 45 |ORHER DIE DUMMIE|
000007C0: 53 00 E0 0F 64 05 20 D2 28 24 36 31 29 2C 59 3B |S...d. .($61),Y;|
000007D0: 20 47 45 53 54 41 4E 44 45 4E 20 48 41 42 45 4E | GESTANDEN HABEN|
000007E0: 00 E7 0F 6E 05 20 ED 00 F1 0F 78 05 20 CA 24 46 |...n. ....x. .$F|
000007F0: 38 00 FF 0F 82 05 20 D2 28 24 36 31 29 2C 59 00 |8..... .($61),Y.|
00000800: 29 10 8C 05 20 D6 50 52 4F 5A 45 4E 54 32 3B 20 |)... .PROZENT2; |
00000810: 50 52 4F 5A 45 4E 54 52 4F 55 54 49 4E 45 20 32 |PROZENTROUTINE 2|
00000820: 20 41 55 46 52 55 46 45 4E 00 5B 10 96 05 20 D6 | AUFRUFEN.[... .|
00000830: 50 52 49 4E 54 46 41 43 3B 20 52 45 53 54 4C 41 |PRINTFAC; RESTLA|
00000840: 45 4E 47 45 20 44 45 53 20 50 52 4F 47 52 41 4D |ENGE DES PROGRAM|
00000850: 4D 53 20 41 55 53 47 45 42 45 4E 00 7E 10 A0 05 |MS AUSGEBEN.~...|
00000860: 20 D6 24 41 41 44 37 3B 20 32 20 4D 41 4C 20 52 | .$AAD7; 2 MAL R|
00000870: 45 54 55 52 4E 20 41 55 53 47 45 42 45 4E 00 8A |ETURN AUSGEBEN..|
00000880: 10 AA 05 20 D6 24 41 41 44 37 00 BA 10 B4 05 20 |... .$AAD7..... |
00000890: CA 24 46 38 3B 20 45 4E 44 41 44 52 45 53 53 45 |.$F8; ENDADRESSE|
000008A0: 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E 20 44 | DER GEPACKTEN D|
000008B0: 41 54 45 4E 20 4C 41 44 45 4E 00 C4 10 BE 05 20 |ATEN LADEN..... |
000008C0: C2 24 46 37 00 E8 10 C8 05 20 D6 24 42 44 43 44 |.$F7..... .$BDCD|
000008D0: 3B 20 55 4E 44 20 45 42 45 4E 46 41 4C 4C 53 20 |; UND EBENFALLS |
000008E0: 41 55 53 47 45 42 45 4E 00 24 11 D2 05 20 CA 23 |AUSGEBEN.$... .#|
000008F0: 3C 28 45 4E 44 41 44 52 29 3B 20 5A 45 49 47 45 |<(ENDADR); ZEIGE|
00000900: 52 20 46 55 45 52 20 44 45 4E 20 54 45 58 54 20 |R FUER DEN TEXT |
00000910: 44 45 52 20 45 4E 44 41 44 52 45 53 53 45 20 4C |DER ENDADRESSE L|
00000920: 41 44 45 4E 00 35 11 DC 05 20 C3 23 3E 28 45 4E |ADEN.5... .#>(EN|
00000930: 44 41 44 52 29 00 5A 11 E6 05 20 D6 53 54 52 41 |DADR).Z... .STRA|
00000940: 55 53 47 3B 20 55 4E 44 20 44 45 4E 20 54 45 58 |USG; UND DEN TEX|
00000950: 54 20 41 55 53 47 45 42 45 4E 00 61 11 F0 05 20 |T AUSGEBEN.a... |
00000960: E3 00 67 11 D0 07 3B 00 8B 11 DA 07 3B 20 41 4C |..g...;.....; AL|
00000970: 4C 47 45 4D 45 49 4E 45 52 20 44 45 43 4F 4D 50 |LGEMEINER DECOMP|
00000980: 41 43 54 4F 52 20 53 54 41 52 54 00 A7 11 E4 07 |ACTOR START.....|
00000990: 3B 20 53 59 53 20 34 39 32 36 35 2C 20 41 44 52 |; SYS 49265, ADR|
000009A0: 32 2C 20 41 44 52 33 00 AD 11 EE 07 3B 00 E7 11 |2, ADR3.....;...|
000009B0: F8 07 44 45 43 4F 4D 50 20 D6 48 4F 4C 45 4E 3B |..DECOMP .HOLEN;|
000009C0: 20 53 54 41 52 54 41 44 52 45 53 53 45 20 44 45 | STARTADRESSE DE|
000009D0: 52 20 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 |R GEPACKTEN DATE|
000009E0: 4E 20 48 4F 4C 45 4E 00 F2 11 02 08 20 CA 23 24 |N HOLEN..... .#$|
000009F0: 46 42 00 18 12 0C 08 20 D6 43 4F 50 59 3B 20 55 |FB..... .COPY; U|
00000A00: 4E 44 20 4E 41 43 48 20 24 46 42 2F 24 46 43 20 |ND NACH $FB/$FC |
00000A10: 43 4F 50 49 45 52 45 4E 00 38 12 16 08 20 D6 4E |COPIEREN.8... .N|
00000A20: 45 58 54 42 59 54 45 3B 20 4D 4F 44 55 53 42 59 |EXTBYTE; MODUSBY|
00000A30: 54 45 20 48 4F 4C 45 4E 00 55 12 20 08 20 DF 3B |TE HOLEN.U. . .;|
00000A40: 20 55 4E 44 20 41 55 46 20 53 54 41 50 45 4C 20 | UND AUF STAPEL |
00000A50: 4C 45 47 45 4E 00 8C 12 2A 08 20 D6 4E 45 58 54 |LEGEN...*. .NEXT|
00000A60: 42 59 54 45 3B 20 45 4E 44 41 44 52 45 53 53 45 |BYTE; ENDADRESSE|
00000A70: 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E 20 44 | DER GEPACKTEN D|
00000A80: 41 54 45 4E 20 41 55 53 20 44 45 4D 00 C1 12 34 |ATEN AUS DEM...4|
00000A90: 08 20 D2 24 33 35 3B 20 53 50 45 49 43 48 45 52 |. .$35; SPEICHER|
00000AA0: 20 4C 45 53 45 4E 20 55 4E 44 20 4E 41 43 48 20 | LESEN UND NACH |
00000AB0: 24 33 35 2F 24 33 36 20 53 50 45 49 43 48 45 52 |$35/$36 SPEICHER|
00000AC0: 4E 00 D0 12 3E 08 20 D6 4E 45 58 54 42 59 54 45 |N...>. .NEXTBYTE|
00000AD0: 00 DA 12 48 08 20 D2 24 33 36 00 10 13 52 08 20 |...H. .$36...R. |
00000AE0: D6 48 4F 4C 45 4E 3B 20 53 54 41 52 54 41 44 52 |.HOLEN; STARTADR|
00000AF0: 45 53 53 45 20 44 45 52 20 55 4E 47 45 50 41 43 |ESSE DER UNGEPAC|
00000B00: 4B 54 45 4E 20 44 41 54 45 4E 20 48 4F 4C 45 4E |KTEN DATEN HOLEN|
00000B10: 00 1E 13 5C 08 20 CA 23 24 46 37 3B 20 A0 00 40 |...\. .#$F7; ..@|
00000B20: 13 66 08 20 D6 43 4F 50 59 3B 20 4E 41 43 48 20 |.f. .COPY; NACH |
00000B30: 24 46 37 2F 24 46 38 20 43 4F 50 49 45 52 45 4E |$F7/$F8 COPIEREN|
00000B40: 00 6B 13 70 08 20 E0 3B 20 53 54 41 50 45 4C 20 |.k.p. .; STAPEL |
00000B50: 4C 45 53 45 4E 20 55 4E 44 20 49 4E 20 41 4B 4B |LESEN UND IN AKK|
00000B60: 55 20 53 50 45 49 43 48 45 52 4E 00 8A 13 7A 08 |U SPEICHERN...z.|
00000B70: 20 C8 23 24 41 38 3B 20 43 4F 44 49 45 52 55 4E | .#$A8; CODIERUN|
00000B80: 47 20 41 55 46 48 45 42 45 4E 00 BF 13 84 08 20 |G AUFHEBEN..... |
00000B90: F6 44 45 43 4F 4D 50 31 3B 20 57 45 4E 4E 20 41 |.DECOMP1; WENN A|
00000BA0: 4B 4B 55 20 3C 3E 20 30 2C 20 44 41 4E 4E 20 4E |KKU <> 0, DANN N|
00000BB0: 49 42 42 4C 45 52 20 41 55 46 52 55 46 45 4E 00 |IBBLER AUFRUFEN.|
00000BC0: E6 13 8E 08 20 D6 45 4E 54 50 41 43 4B 45 4E 3B |.... .ENTPACKEN;|
00000BD0: 20 53 4F 4E 53 54 20 50 41 43 4B 45 52 20 41 55 | SONST PACKER AU|
00000BE0: 46 52 55 46 45 4E 00 ED 13 98 08 20 E3 00 18 14 |FRUFEN..... ....|
00000BF0: A2 08 44 45 43 4F 4D 50 31 20 D8 3B 20 41 4B 4B |..DECOMP1 .; AKK|
00000C00: 55 20 49 4E 20 58 2D 52 45 47 49 53 54 45 52 20 |U IN X-REGISTER |
00000C10: 43 4F 50 49 45 52 45 4E 00 3E 14 AC 08 20 EE 3B |COPIEREN.>... .;|
00000C20: 20 58 2D 52 45 47 49 53 54 45 52 20 55 4D 20 45 | X-REGISTER UM E|
00000C30: 49 4E 53 20 56 45 52 52 49 4E 47 45 52 4E 00 78 |INS VERRINGERN.x|
00000C40: 14 B6 08 20 F6 44 45 43 4F 4D 50 32 3B 20 57 45 |... .DECOMP2; WE|
00000C50: 4E 4E 20 58 20 3C 3E 20 30 20 28 46 45 48 4C 45 |NN X <> 0 (FEHLE|
00000C60: 52 29 2C 20 46 41 4C 53 43 48 45 20 53 54 41 52 |R), FALSCHE STAR|
00000C70: 54 41 44 52 45 53 53 45 00 9B 14 C0 08 20 D6 44 |TADRESSE..... .D|
00000C80: 45 4E 49 3B 20 53 4F 4E 53 54 20 4E 49 42 42 4C |ENI; SONST NIBBL|
00000C90: 45 52 20 41 55 46 52 55 46 45 4E 00 A2 14 CA 08 |ER AUFRUFEN.....|
00000CA0: 20 E3 00 EA 14 D4 08 44 45 43 4F 4D 50 32 20 CA | ......DECOMP2 .|
00000CB0: 23 3C 28 46 45 48 4C 45 52 29 3B 20 41 55 53 47 |#<(FEHLER); AUSG|
00000CC0: 41 42 45 20 45 49 4E 45 52 20 46 45 48 4C 45 52 |ABE EINER FEHLER|
00000CD0: 4D 45 4C 44 55 4E 47 2C 20 44 41 20 44 41 53 20 |MELDUNG, DA DAS |
00000CE0: 44 45 43 4F 44 49 45 52 54 45 00 23 15 DE 08 20 |DECODIERTE.#... |
00000CF0: C3 23 3E 28 46 45 48 4C 45 52 29 3B 20 4D 4F 44 |.#>(FEHLER); MOD|
00000D00: 55 53 42 59 54 45 20 57 45 44 45 52 20 4E 55 4C |USBYTE WEDER NUL|
00000D10: 4C 20 4E 4F 43 48 20 45 49 4E 53 20 57 41 52 20 |L NOCH EINS WAR |
00000D20: 3D 3D 3E 00 51 15 E8 08 20 D6 53 54 52 41 55 53 |==>.Q... .STRAUS|
00000D30: 47 3B 20 46 41 4C 53 43 48 45 20 53 54 41 52 54 |G; FALSCHE START|
00000D40: 41 44 52 45 53 53 45 20 41 4E 47 45 47 45 42 45 |ADRESSE ANGEGEBE|
00000D50: 4E 00 58 15 F2 08 20 E3 00 5E 15 B8 0B 3B 00 7B |N.X... ..^...;.{|
00000D60: 15 C2 0B 3B 20 55 4E 54 45 52 52 4F 55 54 49 4E |...; UNTERROUTIN|
00000D70: 45 4E 20 46 55 45 52 20 44 49 45 00 9F 15 CC 0B |EN FUER DIE.....|
00000D80: 3B 20 41 4C 4C 47 45 4D 45 49 4E 45 4E 20 45 49 |; ALLGEMEINEN EI|
00000D90: 4E 53 50 52 55 4E 47 41 44 52 45 53 53 45 4E 00 |NSPRUNGADRESSEN.|
00000DA0: A5 15 D6 0B 3B 00 C8 15 E0 0B 48 4F 4C 45 4E 20 |....;.....HOLEN |
00000DB0: D6 4B 4F 4D 4D 41 3B 20 50 52 55 45 46 54 20 41 |.KOMMA; PRUEFT A|
00000DC0: 55 46 20 4B 4F 4D 4D 41 00 F1 15 EA 0B 20 D6 49 |UF KOMMA..... .I|
00000DD0: 4E 54 48 4F 4C 45 4E 3B 20 31 36 2D 42 49 54 20 |NTHOLEN; 16-BIT |
00000DE0: 5A 41 48 4C 20 49 4E 20 46 41 43 20 48 4F 4C 45 |ZAHL IN FAC HOLE|
00000DF0: 4E 00 1F 16 F4 0B 20 D6 57 41 4E 44 45 4C 4E 3B |N..... .WANDELN;|
00000E00: 20 46 41 43 20 57 41 4E 44 45 4C 4E 20 49 4E 20 | FAC WANDELN IN |
00000E10: 49 4E 54 45 47 45 52 20 24 31 34 2F 24 31 35 00 |INTEGER $14/$15.|
00000E20: 2F 16 FE 0B 20 E3 3B 20 5A 55 52 55 45 43 4B 00 |/... .; ZURUECK.|
00000E30: 35 16 08 0C 3B 00 68 16 12 0C 43 4F 50 59 20 C3 |5...;.h...COPY .|
00000E40: 23 24 30 31 3B 20 5A 41 48 4C 45 4E 20 44 45 52 |#$01; ZAHLEN DER|
00000E50: 20 53 50 45 49 43 48 45 52 53 54 45 4C 4C 45 4E | SPEICHERSTELLEN|
00000E60: 20 24 31 34 2F 24 31 35 00 9E 16 1C 0C 20 D2 43 | $14/$15..... .C|
00000E70: 4F 50 59 31 2B 31 3B 20 49 4E 20 44 49 45 20 53 |OPY1+1; IN DIE S|
00000E80: 50 45 49 43 48 45 52 53 54 45 4C 4C 45 20 43 4F |PEICHERSTELLE CO|
00000E90: 50 49 45 52 45 4E 2C 20 44 49 45 20 49 4D 00 C0 |PIEREN, DIE IM..|
00000EA0: 16 26 0C 43 4F 50 59 32 20 CA 24 31 34 2C 59 3B |.&.COPY2 .$14,Y;|
00000EB0: 20 41 4B 4B 55 20 28 2B 31 29 20 53 54 45 48 54 | AKKU (+1) STEHT|
00000EC0: 00 D1 16 30 0C 43 4F 50 59 31 20 D2 24 30 30 2C |...0.COPY1 .$00,|
00000ED0: 59 00 D8 16 3A 0C 20 EC 00 E4 16 44 0C 20 F7 43 |Y...:. ....D. .C|
00000EE0: 4F 50 59 32 00 FF 16 4E 0C 20 E3 3B 20 55 4E 44 |OPY2...N. .; UND|
00000EF0: 20 57 49 45 44 45 52 20 5A 55 52 55 45 43 4B 00 | WIEDER ZURUECK.|
00000F00: 05 17 A0 0F 3B 00 13 17 AA 0F 3B 20 20 50 41 43 |....;.....; PAC|
00000F10: 4B 45 52 00 41 17 B4 0F 3B 20 20 24 46 42 2F 24 |KER.A...; $FB/$|
00000F20: 46 43 20 3D 20 42 45 47 49 4E 4E 20 44 45 52 20 |FC = BEGINN DER |
00000F30: 55 4E 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 |UNGEPACKTEN DATE|
00000F40: 4E 00 6D 17 BE 0F 3B 20 20 24 46 44 2F 24 46 45 |N.m...; $FD/$FE|
00000F50: 20 3D 20 45 4E 44 45 20 44 45 52 20 55 4E 47 45 | = ENDE DER UNGE|
00000F60: 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 99 17 |PACKTEN DATEN...|
00000F70: C8 0F 3B 20 20 24 46 37 2F 24 46 38 20 3D 20 42 |..; $F7/$F8 = B|
00000F80: 45 47 49 4E 4E 20 44 45 52 20 47 45 50 41 43 4B |EGINN DER GEPACK|
00000F90: 54 45 4E 20 44 41 54 45 4E 00 9F 17 D2 0F 3B 00 |TEN DATEN.....;.|
00000FA0: D2 17 DC 0F 50 41 43 4B 45 4E 20 D6 4E 45 58 54 |....PACKEN .NEXT|
00000FB0: 42 59 54 45 3B 20 4E 41 45 43 48 53 54 45 53 20 |BYTE; NAECHSTES |
00000FC0: 42 59 54 45 20 49 4E 20 41 4B 4B 55 20 48 4F 4C |BYTE IN AKKU HOL|
00000FD0: 45 4E 00 F8 17 E6 0F 20 D8 3B 20 42 59 54 45 20 |EN..... .; BYTE |
00000FE0: 56 4F 4D 20 41 4B 4B 55 20 4E 41 43 48 20 58 20 |VOM AKKU NACH X |
00000FF0: 4B 4F 50 49 45 52 45 4E 00 37 18 F0 0F 20 D6 56 |KOPIEREN.7... .V|
00001000: 45 52 47 4C 45 49 43 48 45 3B 20 42 59 54 45 20 |ERGLEICHE; BYTE |
00001010: 49 4D 20 41 4B 4B 55 20 4D 49 54 20 46 4F 4C 47 |IM AKKU MIT FOLG|
00001020: 45 4E 44 45 4E 20 42 59 54 45 53 20 56 45 52 47 |ENDEN BYTES VERG|
00001030: 4C 45 49 43 48 45 4E 00 6B 18 FA 0F 20 D4 24 41 |LEICHEN.k... .$A|
00001040: 35 3B 20 41 4E 5A 41 48 4C 2D 31 20 44 45 52 20 |5; ANZAHL-1 DER |
00001050: 47 4C 45 49 43 48 45 4E 20 42 59 54 45 53 20 49 |GLEICHEN BYTES I|
00001060: 4E 20 59 20 55 4E 44 20 24 41 35 00 9D 18 04 10 |N Y UND $A5.....|
00001070: 20 C1 23 30 33 3B 20 41 4E 5A 41 48 4C 2D 31 20 | .#03; ANZAHL-1 |
00001080: 44 45 52 20 42 59 54 45 53 20 4D 49 54 20 23 30 |DER BYTES MIT #0|
00001090: 33 20 56 45 52 47 4C 45 49 43 48 45 4E 00 D1 18 |3 VERGLEICHEN...|
000010A0: 0E 10 20 F4 50 41 43 4B 45 4E 31 3B 20 57 45 4E |.. .PACKEN1; WEN|
000010B0: 4E 20 41 4E 5A 41 48 4C 2D 31 20 3C 20 33 2C 20 |N ANZAHL-1 < 3, |
000010C0: 44 41 4E 4E 20 4E 49 43 48 54 20 50 41 43 4B 45 |DANN NICHT PACKE|
000010D0: 4E 00 F7 18 18 10 20 D9 3B 20 41 4E 5A 41 48 4C |N..... .; ANZAHL|
000010E0: 2D 31 20 49 4E 20 44 45 4E 20 41 4B 4B 55 20 4B |-1 IN DEN AKKU K|
000010F0: 4F 50 49 45 52 45 4E 00 14 19 22 10 20 E5 3B 20 |OPIEREN...". .; |
00001100: 41 44 44 49 54 49 4F 4E 20 56 4F 52 42 45 52 45 |ADDITION VORBERE|
00001110: 49 54 45 4E 00 42 19 2C 10 20 C5 24 46 42 3B 20 |ITEN.B.,. .$FB; |
00001120: 55 4D 20 41 4E 5A 41 48 4C 2D 31 20 44 45 52 20 |UM ANZAHL-1 DER |
00001130: 47 4C 45 49 43 48 45 4E 20 42 59 54 45 53 20 44 |GLEICHEN BYTES D|
00001140: 45 4E 00 7B 19 36 10 20 D2 24 46 42 3B 20 5A 45 |EN.{.6. .$FB; ZE|
00001150: 49 47 45 52 20 46 55 45 52 20 55 4E 47 45 50 41 |IGER FUER UNGEPA|
00001160: 43 4B 54 45 20 44 41 54 45 4E 20 4E 41 43 48 20 |CKTE DATEN NACH |
00001170: 56 4F 52 4E 45 2C 20 56 45 52 2D 00 B2 19 40 10 |VORNE, VER-...@.|
00001180: 20 F4 50 41 43 4B 45 4E 32 3B 20 53 43 48 49 45 | .PACKEN2; SCHIE|
00001190: 42 45 4E 2C 20 44 41 4D 49 54 20 4E 49 43 48 54 |BEN, DAMIT NICHT|
000011A0: 20 44 4F 50 50 45 4C 54 20 5A 55 53 41 4D 4D 45 | DOPPELT ZUSAMME|
000011B0: 4E 2D 00 CA 19 4A 10 20 C9 24 46 43 3B 20 47 45 |N-...J. .$FC; GE|
000011C0: 46 41 53 53 54 20 57 49 52 44 00 FA 19 54 10 50 |FASST WIRD...T.P|
000011D0: 41 43 4B 45 4E 32 20 C0 23 30 30 3B 20 56 45 52 |ACKEN2 .#00; VER|
000011E0: 47 4C 45 49 43 48 45 4E 20 44 45 52 20 42 59 54 |GLEICHEN DER BYT|
000011F0: 45 53 20 4D 49 54 20 24 30 30 00 28 1A 5E 10 20 |ES MIT $00.(.^. |
00001200: F7 50 41 43 4B 45 4E 33 3B 20 57 45 4E 4E 20 4A |.PACKEN3; WENN J|
00001210: 41 2C 20 44 41 4E 4E 20 4D 49 54 20 24 44 42 20 |A, DANN MIT $DB |
00001220: 43 4F 44 49 45 52 45 4E 00 4B 1A 68 10 20 CA 23 |CODIEREN.K.h. .#|
00001230: 24 44 41 3B 20 53 4F 4E 53 54 20 4D 49 54 20 24 |$DA; SONST MIT $|
00001240: 44 41 20 42 45 47 49 4E 4E 45 4E 00 68 1A 72 10 |DA BEGINNEN.h.r.|
00001250: 20 D6 41 55 53 47 41 42 45 3B 20 24 44 41 20 53 | .AUSGABE; $DA S|
00001260: 50 45 49 43 48 45 52 4E 00 97 1A 7C 10 20 CA 24 |PEICHERN...|. .$|
00001270: 41 35 3B 20 41 4E 5A 41 48 4C 2D 31 20 44 45 52 |A5; ANZAHL-1 DER|
00001280: 20 47 4C 45 49 43 48 45 4E 20 42 59 54 45 53 20 | GLEICHEN BYTES |
00001290: 49 4E 20 41 4B 4B 55 00 B6 1A 86 10 20 D6 41 55 |IN AKKU..... .AU|
000012A0: 53 47 41 42 45 3B 20 55 4E 44 20 41 42 53 50 45 |SGABE; UND ABSPE|
000012B0: 49 43 48 45 52 4E 00 DE 1A 90 10 20 D7 3B 20 43 |ICHERN..... .; C|
000012C0: 4F 44 45 20 44 45 52 20 47 4C 45 49 43 48 45 4E |ODE DER GLEICHEN|
000012D0: 20 42 59 54 45 53 20 49 4E 20 41 4B 4B 55 00 05 | BYTES IN AKKU..|
000012E0: 1B 9A 10 20 D6 41 55 53 47 41 42 45 3B 20 55 4E |... .AUSGABE; UN|
000012F0: 44 20 45 42 45 4E 46 41 4C 4C 53 20 53 50 45 49 |D EBENFALLS SPEI|
00001300: 43 48 45 52 4E 00 37 1B A4 10 20 F6 50 41 43 4B |CHERN.7... .PACK|
00001310: 45 4E 34 3B 20 55 4E 42 45 44 49 4E 47 54 45 52 |EN4; UNBEDINGTER|
00001320: 20 53 50 52 55 4E 47 2C 20 44 41 20 41 4B 4B 55 | SPRUNG, DA AKKU|
00001330: 20 3D 20 23 24 46 46 00 6E 1B AE 10 50 41 43 4B | = #$FF.n...PACK|
00001340: 45 4E 33 20 CA 23 24 44 42 3B 20 23 24 44 42 20 |EN3 .#$DB; #$DB |
00001350: 41 4C 53 20 43 4F 44 45 20 46 55 45 52 20 30 30 |ALS CODE FUER 00|
00001360: 20 49 4E 20 41 4B 4B 55 20 4C 41 44 45 4E 00 95 | IN AKKU LADEN..|
00001370: 1B B8 10 20 D6 41 55 53 47 41 42 45 3B 20 55 4E |... .AUSGABE; UN|
00001380: 44 20 49 4D 20 53 50 45 49 43 48 45 52 20 41 42 |D IM SPEICHER AB|
00001390: 4C 45 47 45 4E 00 BF 1B C2 10 20 CA 24 41 35 3B |LEGEN..... .$A5;|
000013A0: 20 41 4E 5A 41 48 4C 2D 31 20 44 45 52 20 24 30 | ANZAHL-1 DER $0|
000013B0: 30 2D 42 59 54 45 53 20 49 4E 20 41 4B 4B 55 00 |0-BYTES IN AKKU.|
000013C0: E6 1B CC 10 20 D6 41 55 53 47 41 42 45 3B 20 55 |.... .AUSGABE; U|
000013D0: 4E 44 20 45 42 45 4E 46 41 4C 4C 53 20 53 50 45 |ND EBENFALLS SPE|
000013E0: 49 43 48 45 52 4E 00 08 1C D6 10 20 F6 50 41 43 |ICHERN..... .PAC|
000013F0: 4B 45 4E 34 3B 20 55 4E 42 45 44 49 4E 47 54 45 |KEN4; UNBEDINGTE|
00001400: 52 20 53 50 52 55 4E 47 00 3D 1C E0 10 50 41 43 |R SPRUNG.=...PAC|
00001410: 4B 45 4E 31 20 C0 23 24 44 41 3B 20 56 45 52 47 |KEN1 .#$DA; VERG|
00001420: 4C 45 49 43 48 45 4E 20 4F 42 20 42 59 54 45 20 |LEICHEN OB BYTE |
00001430: 5A 55 46 41 45 4C 4C 49 47 20 24 44 41 00 4B 1C |ZUFAELLIG $DA.K.|
00001440: EA 10 20 F7 50 41 43 4B 45 4E 35 00 64 1C F4 10 |.. .PACKEN5.d...|
00001450: 20 C0 23 24 44 42 3B 20 4F 44 45 52 20 24 44 42 | .#$DB; ODER $DB|
00001460: 20 49 53 54 00 9B 1C FE 10 20 F6 50 41 43 4B 45 | IST..... .PACKE|
00001470: 4E 36 3B 20 57 45 4E 4E 20 4E 49 43 48 54 2C 20 |N6; WENN NICHT, |
00001480: 56 45 52 5A 57 45 49 47 45 4E 20 28 45 49 4E 46 |VERZWEIGEN (EINF|
00001490: 41 43 48 45 20 41 55 53 47 2E 29 00 D7 1C 08 11 |ACHE AUSG.).....|
000014A0: 50 41 43 4B 45 4E 35 20 D7 3B 20 24 44 41 20 4F |PACKEN5 .; $DA O|
000014B0: 44 45 52 20 24 44 42 20 56 4F 4D 20 58 2D 52 45 |DER $DB VOM X-RE|
000014C0: 47 49 53 54 45 52 20 49 4E 20 41 4B 4B 55 20 43 |GISTER IN AKKU C|
000014D0: 4F 50 49 45 52 45 4E 00 F3 1C 12 11 20 D6 41 55 |OPIEREN..... .AU|
000014E0: 53 47 41 42 45 3B 20 55 4E 44 20 41 55 53 47 45 |SGABE; UND AUSGE|
000014F0: 42 45 4E 00 0D 1D 1C 11 20 CA 23 30 30 3B 20 41 |BEN..... .#00; A|
00001500: 4E 5A 41 48 4C 2D 31 20 4C 41 44 45 4E 00 36 1D |NZAHL-1 LADEN.6.|
00001510: 26 11 20 D6 41 55 53 47 41 42 45 3B 20 55 4E 44 |&. .AUSGABE; UND|
00001520: 20 45 42 45 4E 46 41 4C 4C 53 20 41 42 53 50 45 | EBENFALLS ABSPE|
00001530: 49 43 48 45 52 4E 00 58 1D 30 11 20 F6 50 41 43 |ICHERN.X.0. .PAC|
00001540: 4B 45 4E 34 3B 20 55 4E 42 45 44 49 4E 47 54 45 |KEN4; UNBEDINGTE|
00001550: 52 20 53 50 52 55 4E 47 00 8B 1D 3A 11 50 41 43 |R SPRUNG...:.PAC|
00001560: 4B 45 4E 36 20 D7 3B 20 45 49 4E 46 41 43 48 45 |KEN6 .; EINFACHE|
00001570: 20 41 55 53 47 41 42 45 2C 20 44 2E 48 2E 20 43 | AUSGABE, D.H. C|
00001580: 4F 44 45 20 49 4E 20 41 4B 4B 55 00 B3 1D 44 11 |ODE IN AKKU...D.|
00001590: 20 D6 41 55 53 47 41 42 45 3B 20 55 4E 44 20 49 | .AUSGABE; UND I|
000015A0: 4D 20 53 50 45 49 43 48 45 52 4E 20 41 42 4C 45 |M SPEICHERN ABLE|
000015B0: 47 45 4E 00 C4 1D 4E 11 50 41 43 4B 45 4E 34 20 |GEN...N.PACKEN4 |
000015C0: CA 24 46 42 00 F4 1D 58 11 20 C2 24 46 43 3B 20 |.$FB...X. .$FC; |
000015D0: 56 45 52 47 4C 45 49 43 48 45 4E 20 4F 42 20 45 |VERGLEICHEN OB E|
000015E0: 4E 44 45 2C 20 57 45 4E 4E 20 4E 45 49 4E 2C 20 |NDE, WENN NEIN, |
000015F0: 44 41 4E 4E 00 FE 1D 62 11 20 C0 24 46 45 00 0C |DANN...b. .$FE..|
00001600: 1E 6C 11 20 F6 50 41 43 4B 45 4E 37 00 16 1E 76 |.l. .PACKEN7...v|
00001610: 11 20 C4 24 46 44 00 45 1E 80 11 50 41 43 4B 45 |. .$FD.E...PACKE|
00001620: 4E 37 20 F4 50 41 43 4B 45 4E 3B 20 56 4F 4E 20 |N7 .PACKEN; VON |
00001630: 56 4F 52 4E 45 20 57 49 45 44 45 52 20 42 45 47 |VORNE WIEDER BEG|
00001640: 49 4E 4E 45 4E 00 74 1E 8A 11 20 E3 3B 20 53 4F |INNEN.t... .; SO|
00001650: 4E 53 54 20 52 55 45 43 4B 53 50 52 55 4E 47 20 |NST RUECKSPRUNG |
00001660: 41 55 53 20 44 45 52 20 55 4E 54 45 52 52 4F 55 |AUS DER UNTERROU|
00001670: 54 49 4E 45 00 7A 1E 88 13 3B 00 8B 1E 92 13 3B |TINE.z...;.....;|
00001680: 20 20 45 4E 54 50 41 43 4B 45 4E 00 B9 1E 9C 13 | ENTPACKEN.....|
00001690: 3B 20 20 24 46 37 2F 24 46 38 20 3D 20 42 45 47 |; $F7/$F8 = BEG|
000016A0: 49 4E 4E 20 44 45 52 20 55 4E 47 45 50 41 43 4B |INN DER UNGEPACK|
000016B0: 54 45 4E 20 44 41 54 45 4E 00 E5 1E A6 13 3B 20 |TEN DATEN.....; |
000016C0: 20 24 46 42 2F 24 46 43 20 3D 20 42 45 47 49 4E | $FB/$FC = BEGIN|
000016D0: 4E 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E 20 |N DER GEPACKTEN |
000016E0: 44 41 54 45 4E 00 0F 1F B0 13 3B 20 20 24 33 35 |DATEN.....; $35|
000016F0: 2F 24 33 36 20 3D 20 45 4E 44 45 20 44 45 52 20 |/$36 = ENDE DER |
00001700: 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 |GEPACKTEN DATEN.|
00001710: 15 1F BA 13 3B 00 4F 1F C4 13 45 4E 54 50 41 43 |....;.O...ENTPAC|
00001720: 4B 45 4E 20 D6 4E 45 58 54 42 59 54 45 3B 20 4E |KEN .NEXTBYTE; N|
00001730: 41 45 43 48 53 54 45 53 20 42 59 54 45 20 49 4E |AECHSTES BYTE IN|
00001740: 20 44 45 4E 20 41 4B 4B 55 20 4C 41 44 45 4E 00 | DEN AKKU LADEN.|
00001750: 82 1F CE 13 20 C4 23 24 44 42 3B 20 4D 49 54 20 |.... .#$DB; MIT |
00001760: 44 45 4D 20 45 52 4B 45 4E 4E 55 4E 47 53 43 4F |DEM ERKENNUNGSCO|
00001770: 44 45 20 24 44 42 20 56 45 52 47 4C 45 49 43 48 |DE $DB VERGLEICH|
00001780: 45 4E 00 B6 1F D8 13 20 F6 45 4E 54 50 41 43 4B |EN..... .ENTPACK|
00001790: 45 4E 31 3B 20 57 45 4E 4E 20 41 4B 4B 55 20 3C |EN1; WENN AKKU <|
000017A0: 3E 20 23 24 44 42 20 44 41 4E 4E 20 56 45 52 5A |> #$DB DANN VERZ|
000017B0: 57 45 49 47 45 4E 00 E1 1F E2 13 20 D6 4E 45 58 |WEIGEN..... .NEX|
000017C0: 54 42 59 54 45 3B 20 53 4F 4E 53 54 20 4E 41 45 |TBYTE; SONST NAE|
000017D0: 43 48 53 54 45 53 20 42 59 54 45 20 48 4F 4C 45 |CHSTES BYTE HOLE|
000017E0: 4E 00 14 20 EC 13 20 C4 23 30 30 3B 20 54 45 53 |N.. .. .#00; TES|
000017F0: 54 2C 20 4F 42 20 41 4E 5A 41 48 4C 2D 31 20 44 |T, OB ANZAHL-1 D|
00001800: 45 52 20 47 4C 45 49 43 48 45 4E 20 42 59 54 45 |ER GLEICHEN BYTE|
00001810: 20 3E 20 30 00 40 20 F6 13 20 F6 45 4E 54 50 41 | > 0.@ .. .ENTPA|
00001820: 43 4B 45 4E 32 3B 20 57 45 4E 4E 20 4E 45 49 4E |CKEN2; WENN NEIN|
00001830: 2C 20 44 41 4E 4E 20 56 45 52 5A 57 45 49 47 45 |, DANN VERZWEIGE|
00001840: 00 76 20 00 14 20 CA 23 24 44 42 3B 20 45 53 20 |.v .. .#$DB; ES |
00001850: 57 41 52 20 41 4C 53 4F 20 49 4D 20 4F 52 49 47 |WAR ALSO IM ORIG|
00001860: 49 4E 41 4C 20 45 49 4E 20 24 44 42 2C 20 41 4B |INAL EIN $DB, AK|
00001870: 4B 55 3D 24 44 42 00 AB 20 0A 14 20 F6 45 4E 54 |KU=$DB.. .. .ENT|
00001880: 50 41 43 4B 45 4E 33 3B 20 55 4E 44 20 56 45 52 |PACKEN3; UND VER|
00001890: 5A 57 45 49 47 45 4E 20 55 4D 20 44 49 52 45 4B |ZWEIGEN UM DIREK|
000018A0: 54 20 53 50 45 49 43 48 45 52 4E 00 E8 20 14 14 |T SPEICHERN.. ..|
000018B0: 45 4E 54 50 41 43 4B 45 4E 32 20 D8 3B 20 41 4E |ENTPACKEN2 .; AN|
000018C0: 5A 41 48 4C 2D 31 20 44 45 52 02 24 30 30 20 49 |ZAHL-1 DER.$00 I|
000018D0: 4E 20 44 2E 20 58 2D 52 45 47 49 53 54 45 52 20 |N D. X-REGISTER |
000018E0: 43 4F 50 49 45 52 45 4E 00 17 21 1E 14 20 CA 23 |COPIEREN..!.. .#|
000018F0: 30 30 3B 20 41 4B 4B 55 20 4D 49 54 20 44 45 4D |00; AKKU MIT DEM|
00001900: 20 43 4F 44 45 20 28 48 49 45 52 20 23 24 30 30 | CODE (HIER #$00|
00001910: 29 20 4C 41 44 45 4E 00 37 21 28 14 20 D5 45 4E |) LADEN.7!(. .EN|
00001920: 54 50 41 43 4B 45 4E 38 3B 20 55 4E 44 20 45 4E |TPACKEN8; UND EN|
00001930: 54 50 41 43 4B 45 4E 00 7A 21 32 14 45 4E 54 50 |TPACKEN.z!2.ENTP|
00001940: 41 43 4B 45 4E 31 20 C4 23 24 44 41 3B 20 56 45 |ACKEN1 .#$DA; VE|
00001950: 52 47 4C 45 49 43 48 45 4E 20 4F 42 20 42 59 54 |RGLEICHEN OB BYT|
00001960: 45 20 3D 20 45 52 4B 45 4E 4E 55 4E 47 53 43 4F |E = ERKENNUNGSCO|
00001970: 44 45 20 24 44 41 20 49 53 54 00 B4 21 3C 14 20 |DE $DA IST..!<. |
00001980: F6 45 4E 54 50 41 43 4B 45 4E 33 3B 20 57 45 4E |.ENTPACKEN3; WEN|
00001990: 4E 20 4E 45 49 4E 2C 20 56 45 52 5A 57 45 49 47 |N NEIN, VERZWEIG|
000019A0: 45 4E 20 55 4E 44 20 42 59 54 45 20 41 55 53 47 |EN UND BYTE AUSG|
000019B0: 45 42 45 4E 00 D9 21 46 14 20 D6 4E 45 58 54 42 |EBEN..!F. .NEXTB|
000019C0: 59 54 45 3B 20 4E 41 45 43 48 53 54 45 53 20 42 |YTE; NAECHSTES B|
000019D0: 59 54 45 20 48 4F 4C 45 4E 00 0A 22 50 14 20 C4 |YTE HOLEN.."P. .|
000019E0: 23 30 30 3B 20 54 45 53 54 2C 20 43 4F 44 45 20 |#00; TEST, CODE |
000019F0: 46 55 45 52 20 47 45 50 41 43 4B 54 20 4F 44 45 |FUER GEPACKT ODE|
00001A00: 52 20 46 55 45 52 20 24 44 41 00 43 22 5A 14 20 |R FUER $DA.C"Z. |
00001A10: F6 45 4E 54 50 41 43 4B 45 4E 34 3B 20 57 45 4E |.ENTPACKEN4; WEN|
00001A20: 4E 20 43 4F 44 45 20 46 55 45 52 20 47 45 50 41 |N CODE FUER GEPA|
00001A30: 43 4B 54 2C 20 44 41 4E 4E 20 56 45 52 5A 57 45 |CKT, DANN VERZWE|
00001A40: 49 47 45 00 67 22 64 14 20 CA 23 24 44 41 3B 20 |IGE.g"d. .#$DA; |
00001A50: 53 4F 4E 53 54 20 4C 41 44 45 20 41 4B 4B 55 20 |SONST LADE AKKU |
00001A60: 4D 49 54 20 24 44 41 00 9C 22 6E 14 20 F6 45 4E |MIT $DA.."n. .EN|
00001A70: 54 50 41 43 4B 45 4E 33 3B 20 55 4E 44 20 56 45 |TPACKEN3; UND VE|
00001A80: 52 5A 57 45 49 47 45 20 5A 55 52 20 44 49 52 45 |RZWEIGE ZUR DIRE|
00001A90: 4B 54 45 4E 20 41 55 53 47 41 42 45 00 D6 22 78 |KTEN AUSGABE.."x|
00001AA0: 14 45 4E 54 50 41 43 4B 45 4E 34 20 D8 3B 20 5A |.ENTPACKEN4 .; Z|
00001AB0: 41 48 4C 20 44 45 52 20 47 4C 45 49 43 48 45 4E |AHL DER GLEICHEN|
00001AC0: 20 42 59 54 45 20 2D 31 20 49 4E 20 58 2D 52 45 | BYTE -1 IN X-RE|
00001AD0: 49 47 53 54 45 52 00 0F 23 82 14 20 D6 4E 45 58 |IGSTER..#.. .NEX|
00001AE0: 54 42 59 54 45 3B 20 4E 4F 43 48 20 45 49 4E 20 |TBYTE; NOCH EIN |
00001AF0: 42 59 54 45 20 48 4F 4C 45 4E 2C 20 28 43 4F 44 |BYTE HOLEN, (COD|
00001B00: 45 20 44 45 52 20 47 4C 2E 20 42 59 54 45 29 00 |E DER GL. BYTE).|
00001B10: 46 23 8C 14 45 4E 54 50 41 43 4B 45 4E 38 20 EF |F#..ENTPACKEN8 .|
00001B20: 3B 20 58 20 4D 41 4C 20 44 45 4E 20 49 4E 48 41 |; X MAL DEN INHA|
00001B30: 4C 54 20 44 45 53 20 41 4B 4B 55 53 20 53 50 45 |LT DES AKKUS SPE|
00001B40: 49 43 48 45 52 4E 00 50 23 96 14 20 C3 23 30 30 |ICHERN.P#.. .#00|
00001B50: 00 68 23 A0 14 45 4E 54 50 41 43 4B 45 4E 36 20 |.h#..ENTPACKEN6 |
00001B60: D2 28 24 46 37 29 2C 59 00 6F 23 AA 14 20 ED 00 |.($F7),Y.o#.. ..|
00001B70: 76 23 B4 14 20 EE 00 AD 23 BE 14 20 F6 45 4E 54 |v#.. ...#.. .ENT|
00001B80: 50 41 43 4B 45 4E 36 3B 20 4E 4F 43 48 20 4E 49 |PACKEN6; NOCH NI|
00001B90: 43 48 54 20 46 45 52 54 49 47 2C 20 44 41 4E 4E |CHT FERTIG, DANN|
00001BA0: 20 57 45 49 54 45 52 4D 41 43 48 45 4E 00 B4 23 | WEITERMACHEN..#|
00001BB0: C8 14 20 EC 00 BB 23 D2 14 20 D9 00 C2 23 DC 14 |.. ...#.. ...#..|
00001BC0: 20 E6 00 F1 23 E6 14 20 C5 24 46 37 3B 20 53 50 | ...#.. .$F7; SP|
00001BD0: 45 49 43 48 45 52 5A 45 49 47 45 52 20 57 45 49 |EICHERZEIGER WEI|
00001BE0: 54 45 52 53 54 45 4C 4C 45 4E 2C 20 44 41 4D 49 |TERSTELLEN, DAMI|
00001BF0: 54 00 1E 24 F0 14 20 D2 24 46 37 3B 20 4D 41 4E |T..$.. .$F7; MAN|
00001C00: 20 4E 49 43 48 54 20 44 4F 50 50 45 4C 54 20 49 | NICHT DOPPELT I|
00001C10: 4E 20 44 45 4E 20 53 50 45 49 43 48 45 52 00 41 |N DEN SPEICHER.A|
00001C20: 24 FA 14 20 F4 45 4E 54 50 41 43 4B 45 4E 39 3B |$.. .ENTPACKEN9;|
00001C30: 20 47 45 53 43 48 52 49 45 42 45 4E 20 57 49 52 | GESCHRIEBEN WIR|
00001C40: 44 00 4B 24 04 15 20 C9 24 46 38 00 5C 24 0E 15 |D.K$.. .$F8.\$..|
00001C50: 20 F7 45 4E 54 50 41 43 4B 45 4E 39 00 94 24 18 | .ENTPACKEN9..$.|
00001C60: 15 45 4E 54 50 41 43 4B 45 4E 33 20 D6 41 55 53 |.ENTPACKEN3 .AUS|
00001C70: 47 41 42 45 3B 20 42 59 54 45 20 49 4E 20 44 45 |GABE; BYTE IN DE|
00001C80: 4E 20 53 50 45 49 43 48 45 52 20 53 43 48 52 45 |N SPEICHER SCHRE|
00001C90: 49 42 45 4E 00 D3 24 22 15 45 4E 54 50 41 43 4B |IBEN..$".ENTPACK|
00001CA0: 45 4E 39 20 CA 24 33 35 3B 20 54 45 53 54 2C 20 |EN9 .$35; TEST, |
00001CB0: 4F 42 20 53 43 48 4F 4E 20 41 4C 4C 45 20 42 59 |OB SCHON ALLE BY|
00001CC0: 54 45 53 20 45 4E 54 50 41 43 4B 54 20 57 55 52 |TES ENTPACKT WUR|
00001CD0: 44 45 4E 00 DD 24 2C 15 20 C2 24 33 36 00 E7 24 |DEN..$,. .$36..$|
00001CE0: 36 15 20 C0 24 46 43 00 10 25 40 15 20 F6 45 4E |6. .$FC..%@. .EN|
00001CF0: 54 50 41 43 4B 45 4E 3B 20 57 45 4E 4E 20 4E 45 |TPACKEN; WENN NE|
00001D00: 49 4E 2C 20 57 45 49 54 45 52 4D 41 43 48 45 4E |IN, WEITERMACHEN|
00001D10: 00 1A 25 4A 15 20 C4 24 46 42 00 2A 25 54 15 20 |..%J. .$FB.*%T. |
00001D20: F6 45 4E 54 50 41 43 4B 45 4E 00 51 25 5E 15 20 |.ENTPACKEN.Q%^. |
00001D30: E3 3B 20 53 4F 4E 53 54 20 46 45 52 54 49 47 2C |.; SONST FERTIG,|
00001D40: 20 44 2E 48 2E 20 52 55 45 43 4B 53 50 52 55 4E | D.H. RUECKSPRUN|
00001D50: 47 00 57 25 70 17 3B 00 7B 25 7A 17 3B 20 55 4E |G.W%p.;.{%z.; UN|
00001D60: 54 45 52 52 4F 55 54 49 4E 45 4E 20 46 55 45 52 |TERROUTINEN FUER|
00001D70: 20 44 45 4E 20 50 41 43 4B 45 52 00 91 25 84 17 | DEN PACKER..%..|
00001D80: 3B 20 55 4E 44 20 44 45 4E 20 4E 49 42 42 4C 45 |; UND DEN NIBBLE|
00001D90: 52 00 97 25 8E 17 3B 00 9D 25 98 17 3B 00 B7 25 |R..%..;..%..;..%|
00001DA0: A2 17 3B 4E 41 45 43 48 53 54 45 53 20 42 59 54 |..;NAECHSTES BYT|
00001DB0: 45 20 48 4F 4C 45 4E 00 BD 25 AC 17 3B 00 CC 25 |E HOLEN..%..;..%|
00001DC0: B6 17 4E 45 58 54 42 59 54 45 20 E8 00 E8 25 C0 |..NEXTBYTE ...%.|
00001DD0: 17 20 C3 23 24 33 34 3B 20 52 4F 4D 20 41 55 53 |. .#$34; ROM AUS|
00001DE0: 53 43 48 41 4C 54 45 4E 00 F2 25 CA 17 20 D4 24 |SCHALTEN..%.. .$|
00001DF0: 30 31 00 0B 26 D4 17 20 C3 23 30 30 3B 20 59 3D |01..&.. .#00; Y=|
00001E00: 4E 55 4C 4C 20 53 45 54 5A 45 4E 00 49 26 DE 17 |NULL SETZEN.I&..|
00001E10: 20 CA 28 24 46 42 29 2C 59 3B 20 44 45 4E 20 41 | .($FB),Y; DEN A|
00001E20: 4B 4B 55 20 4D 49 54 20 44 45 4D 20 57 45 52 54 |KKU MIT DEM WERT|
00001E30: 20 44 45 52 20 53 50 45 49 43 48 45 52 53 54 45 | DER SPEICHERSTE|
00001E40: 4C 4C 45 20 4C 41 44 45 4E 00 6B 26 E8 17 20 C3 |LLE LADEN.k&.. .|
00001E50: 23 24 33 37 3B 20 52 4F 4D 20 57 49 45 44 45 52 |#$37; ROM WIEDER|
00001E60: 20 41 4E 53 43 48 41 4C 54 45 4E 00 75 26 F2 17 | ANSCHALTEN.u&..|
00001E70: 20 D4 24 30 31 00 7C 26 FC 17 20 E7 00 AA 26 06 | .$01.|&.. ...&.|
00001E80: 18 20 C9 24 46 42 3B 20 5A 45 49 47 45 52 20 46 |. .$FB; ZEIGER F|
00001E90: 55 45 52 20 42 59 54 45 20 48 4F 4C 45 4E 20 24 |UER BYTE HOLEN $|
00001EA0: 28 46 42 2F 46 43 29 20 55 4D 00 C8 26 10 18 20 |(FB/FC) UM..&.. |
00001EB0: F6 4E 45 58 54 42 45 4E 44 3B 20 45 49 4E 53 20 |.NEXTBEND; EINS |
00001EC0: 45 52 48 4F 45 48 45 4E 00 D2 26 1A 18 20 C9 24 |ERHOEHEN..&.. .$|
00001ED0: 46 43 00 FD 26 24 18 4E 45 58 54 42 45 4E 44 20 |FC..&$.NEXTBEND |
00001EE0: E3 3B 20 55 4E 44 20 57 49 45 44 45 52 20 5A 55 |.; UND WIEDER ZU|
00001EF0: 52 55 45 43 4B 53 50 52 49 4E 47 45 4E 00 03 27 |RUECKSPRINGEN..'|
00001F00: 2E 18 3B 00 10 27 38 18 3B 41 55 53 47 41 42 45 |..;..'8.;AUSGABE|
00001F10: 00 16 27 42 18 3B 00 38 27 4C 18 41 55 53 47 41 |..'B.;.8'L.AUSGA|
00001F20: 42 45 20 C3 23 30 30 3B 20 4C 41 44 45 20 59 20 |BE .#00; LADE Y |
00001F30: 4D 49 54 20 4E 55 4C 4C 00 6D 27 56 18 20 D2 28 |MIT NULL.m'V. .(|
00001F40: 24 46 37 29 2C 59 3B 20 53 50 45 49 43 48 45 52 |$F7),Y; SPEICHER|
00001F50: 45 20 41 4B 4B 55 20 49 4E 20 44 49 45 20 53 50 |E AKKU IN DIE SP|
00001F60: 45 49 43 48 45 52 53 54 45 4C 4C 45 2C 00 9A 27 |EICHERSTELLE,..'|
00001F70: 60 18 20 C9 24 46 37 3B 20 41 55 46 20 44 49 45 |`. .$F7; AUF DIE|
00001F80: 20 44 45 52 20 5A 45 49 47 45 52 20 24 28 46 37 | DER ZEIGER $(F7|
00001F90: 2F 46 38 29 20 5A 45 49 47 54 00 CB 27 6A 18 20 |/F8) ZEIGT..'j. |
00001FA0: F6 41 55 53 47 41 42 45 4E 44 3B 20 45 52 48 4F |.AUSGABEND; ERHO|
00001FB0: 45 48 45 20 44 45 4E 20 5A 45 49 47 45 52 20 44 |EHE DEN ZEIGER D|
00001FC0: 41 4E 4E 20 55 4D 20 45 49 4E 53 00 D5 27 74 18 |ANN UM EINS..'t.|
00001FD0: 20 C9 24 46 38 00 13 28 7E 18 41 55 53 47 41 42 | .$F8..(~.AUSGAB|
00001FE0: 45 4E 44 20 CA 23 24 46 46 3B 20 4C 41 44 45 20 |END .#$FF; LADE |
00001FF0: 41 4B 4B 55 3D 24 46 46 20 28 46 4C 41 47 53 20 |AKKU=$FF (FLAGS |
00002000: 57 45 52 44 45 4E 20 42 45 45 49 4E 46 4C 55 53 |WERDEN BEEINFLUS|
00002010: 53 54 29 00 3E 28 88 18 20 E3 3B 20 56 45 52 4C |ST).>(.. .; VERL|
00002020: 41 53 53 45 20 44 49 45 53 45 20 55 4E 54 45 52 |ASSE DIESE UNTER|
00002030: 52 4F 55 54 49 4E 45 20 57 49 45 44 45 52 00 44 |ROUTINE WIEDER.D|
00002040: 28 92 18 3B 00 55 28 9C 18 3B 56 45 52 4C 47 45 |(..;.U(..;VERLGE|
00002050: 49 43 48 45 4E 00 5B 28 A6 18 3B 00 96 28 B0 18 |ICHEN.[(..;..(..|
00002060: 56 45 52 47 4C 45 49 43 48 45 20 C3 23 30 30 3B |VERGLEICHE .#00;|
00002070: 20 48 49 45 52 20 57 49 52 44 20 44 41 53 20 59 | HIER WIRD DAS Y|
00002080: 2D 52 45 47 49 53 54 45 52 20 4E 55 4C 4C 20 47 |-REGISTER NULL G|
00002090: 45 53 45 54 5A 54 00 D3 28 BA 18 56 45 52 47 4C |ESETZT..(..VERGL|
000020A0: 31 20 C4 28 24 46 42 29 2C 59 3B 20 56 45 52 47 |1 .($FB),Y; VERG|
000020B0: 4C 45 49 43 48 45 20 44 45 4E 20 49 4E 48 41 4C |LEICHE DEN INHAL|
000020C0: 54 20 44 45 53 20 41 4B 4B 55 53 20 4D 49 54 20 |T DES AKKUS MIT |
000020D0: 44 45 52 00 0C 29 C4 18 20 F6 56 45 52 47 4C 45 |DER..).. .VERGLE|
000020E0: 4E 44 3B 20 53 50 45 49 43 48 45 52 53 54 45 4C |ND; SPEICHERSTEL|
000020F0: 4C 45 2C 20 41 55 46 20 44 49 45 20 44 45 52 20 |LE, AUF DIE DER |
00002100: 5A 45 49 47 45 52 20 5A 45 49 47 54 00 3C 29 CE |ZEIGER ZEIGT.<).|
00002110: 18 20 ED 3B 20 5A 41 45 48 4C 45 2C 20 57 49 45 |. .; ZAEHLE, WIE|
00002120: 20 4F 46 54 20 53 49 43 48 20 44 49 45 20 42 59 | OFT SICH DIE BY|
00002130: 54 45 53 20 47 4C 45 49 43 48 45 4E 00 69 29 D8 |TES GLEICHEN.i).|
00002140: 18 20 F6 56 45 52 47 4C 31 3B 20 4D 41 58 2E 20 |. .VERGL1; MAX. |
00002150: 41 4E 5A 41 48 4C 20 49 53 54 20 44 41 42 45 49 |ANZAHL IST DABEI|
00002160: 20 32 35 35 20 28 46 46 29 00 70 29 E2 18 20 EC | 255 (FF).p).. .|
00002170: 00 A7 29 EC 18 56 45 52 47 4C 45 4E 44 20 E3 3B |..)..VERGLEND .;|
00002180: 20 52 55 45 43 4B 53 50 52 55 4E 47 20 57 45 4E | RUECKSPRUNG WEN|
00002190: 4E 20 44 49 45 20 42 59 54 45 53 20 56 45 52 53 |N DIE BYTES VERS|
000021A0: 43 48 49 45 44 45 4E 00 D9 29 F6 18 20 E4 3B 20 |CHIEDEN..).. .; |
000021B0: 53 49 4E 44 20 4F 44 45 52 20 44 49 45 20 41 4E |SIND ODER DIE AN|
000021C0: 5A 41 48 4C 20 47 52 4F 45 53 53 45 52 20 41 4C |ZAHL GROESSER AL|
000021D0: 53 20 32 35 35 20 49 53 54 00 DF 29 00 19 3B 00 |S 255 IST..)..;.|
000021E0: FC 29 0A 19 3B 20 4E 49 42 42 4C 45 52 20 5A 55 |.)..; NIBBLER ZU|
000021F0: 53 41 4D 4D 45 4E 46 41 53 53 45 4E 00 02 2A 14 |SAMMENFASSEN..*.|
00002200: 19 3B 00 3B 2A 1E 19 5A 55 53 41 4D 20 DA 3B 20 |.;.;*..ZUSAM .; |
00002210: 57 45 52 54 20 44 45 53 20 4E 49 42 42 4C 45 53 |WERT DES NIBBLES|
00002220: 20 49 4E 20 44 41 53 20 59 2D 52 45 47 49 53 54 | IN DAS Y-REGIST|
00002230: 45 52 20 4B 4F 50 49 45 52 45 4E 00 78 2A 28 19 |ER KOPIEREN.x*(.|
00002240: 20 CA 42 49 54 4C 41 45 4E 47 45 2C 59 3B 20 44 | .BITLAENGE,Y; D|
00002250: 49 45 20 42 49 54 4C 41 45 4E 47 45 20 44 45 53 |IE BITLAENGE DES|
00002260: 20 4E 45 55 45 4E 20 43 4F 44 45 53 20 49 4E 20 | NEUEN CODES IN |
00002270: 44 45 4E 20 41 4B 4B 55 00 9F 2A 32 19 20 D8 3B |DEN AKKU..*2. .;|
00002280: 20 4C 41 44 45 4E 20 55 4E 44 20 44 41 4E 4E 20 | LADEN UND DANN |
00002290: 4E 41 43 48 20 58 20 4B 4F 50 49 45 52 45 4E 00 |NACH X KOPIEREN.|
000022A0: D9 2A 3C 19 20 CA 43 4F 44 45 2C 59 3B 20 44 45 |.*<. .CODE,Y; DE|
000022B0: 4E 20 4E 49 42 42 4C 45 43 4F 44 45 20 41 55 46 |N NIBBLECODE AUF|
000022C0: 47 52 55 4E 44 20 53 45 49 4E 45 53 20 57 45 52 |GRUND SEINES WER|
000022D0: 54 45 53 20 4C 41 44 45 4E 00 07 2B 46 19 20 C3 |TES LADEN..+F. .|
000022E0: 24 46 39 3B 20 46 52 45 49 45 20 42 49 54 53 20 |$F9; FREIE BITS |
000022F0: 49 4E 20 44 41 53 20 59 2D 52 45 47 49 53 54 45 |IN DAS Y-REGISTE|
00002300: 52 20 4C 41 44 45 4E 00 14 2B 50 19 5A 55 53 41 |R LADEN..+P.ZUSA|
00002310: 4D 32 20 CB 00 47 2B 5A 19 20 CF 24 46 41 3B 20 |M2 ..G+Z. .$FA; |
00002320: 42 49 54 53 20 41 55 53 54 41 55 53 43 48 45 4E |BITS AUSTAUSCHEN|
00002330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002340: 20 20 20 20 20 20 A0 00 4E 2B 64 19 20 EC 00 86 | ..N+d. ...|
00002350: 2B 6E 19 20 F6 5A 55 53 41 4D 31 3B 20 57 45 4E |+n. .ZUSAM1; WEN|
00002360: 4E 20 42 59 54 45 20 4E 4F 43 48 20 4E 49 43 48 |N BYTE NOCH NICH|
00002370: 54 20 56 4F 4C 4C 2C 20 44 41 4E 4E 20 56 45 52 |T VOLL, DANN VER|
00002380: 5A 57 45 49 47 45 00 A8 2B 78 19 20 DF 3B 20 41 |ZWEIGE..+x. .; A|
00002390: 4B 4B 55 20 41 55 46 20 44 45 4E 20 53 54 41 50 |KKU AUF DEN STAP|
000023A0: 45 4C 20 4C 45 47 45 4E 00 D9 2B 82 19 20 CA 24 |EL LEGEN..+.. .$|
000023B0: 46 41 3B 20 44 45 4E 20 4E 45 55 20 5A 55 53 41 |FA; DEN NEU ZUSA|
000023C0: 4D 4D 45 4E 47 45 53 54 45 4C 4C 54 45 4E 20 57 |MMENGESTELLTEN W|
000023D0: 45 52 54 20 4C 41 44 45 4E 00 F5 2B 8C 19 20 D6 |ERT LADEN..+.. .|
000023E0: 41 55 53 47 41 42 45 3B 20 55 4E 44 20 41 55 53 |AUSGABE; UND AUS|
000023F0: 47 45 42 45 4E 00 1F 2C 96 19 20 C3 23 24 30 38 |GEBEN..,.. .#$08|
00002400: 3B 20 45 53 20 53 49 4E 44 20 57 49 45 44 45 52 |; ES SIND WIEDER|
00002410: 20 41 43 48 54 20 42 49 54 53 20 46 52 45 49 00 | ACHT BITS FREI.|
00002420: 44 2C A0 19 20 E0 3B 20 41 4B 4B 55 20 57 49 45 |D,.. .; AKKU WIE|
00002430: 44 45 52 20 56 4F 4D 20 53 54 41 50 45 4C 20 48 |DER VOM STAPEL H|
00002440: 4F 4C 45 4E 00 82 2C AA 19 5A 55 53 41 4D 31 20 |OLEN..,..ZUSAM1 |
00002450: EE 3B 20 4E 4F 43 48 20 56 45 52 42 4C 45 49 42 |.; NOCH VERBLEIB|
00002460: 45 4E 44 45 20 43 4F 44 45 4C 41 45 4E 47 45 20 |ENDE CODELAENGE |
00002470: 55 4D 20 45 49 4E 53 20 56 45 52 4D 49 4E 44 45 |UM EINS VERMINDE|
00002480: 52 4E 00 BD 2C B4 19 20 F6 5A 55 53 41 4D 32 3B |RN..,.. .ZUSAM2;|
00002490: 20 55 4E 44 20 57 45 49 54 45 52 4D 41 43 48 45 | UND WEITERMACHE|
000024A0: 4E 2C 20 42 49 53 20 44 45 52 20 43 4F 44 45 20 |N, BIS DER CODE |
000024B0: 43 4F 50 49 45 52 54 20 57 55 52 44 45 00 F4 2C |COPIERT WURDE..,|
000024C0: BE 19 20 D4 24 46 39 3B 20 5A 41 48 4C 20 44 45 |.. .$F9; ZAHL DE|
000024D0: 52 20 4E 4F 43 48 20 46 52 45 49 45 4E 20 42 49 |R NOCH FREIEN BI|
000024E0: 54 53 20 5A 57 49 53 43 48 45 4E 53 50 45 49 43 |TS ZWISCHENSPEIC|
000024F0: 48 45 52 4E 00 10 2D C8 19 20 E3 3B 20 55 4E 44 |HERN..-.. .; UND|
00002500: 20 5A 55 52 55 45 43 4B 53 50 52 49 4E 47 45 4E | ZURUECKSPRINGEN|
00002510: 00 16 2D D2 19 3B 00 3E 2D DC 19 3B 20 4E 49 42 |..-..;.>-..; NIB|
00002520: 42 4C 45 52 20 57 49 45 44 45 52 20 41 55 53 45 |BLER WIEDER AUSE|
00002530: 49 4E 41 4E 44 45 52 20 5A 49 45 48 45 4E 00 44 |INANDER ZIEHEN.D|
00002540: 2D E6 19 3B 00 80 2D F0 19 45 4E 54 4E 49 20 C2 |-..;..-..ENTNI .|
00002550: 23 24 30 46 3B 20 53 43 48 4C 45 49 46 45 4E 5A |#$0F; SCHLEIFENZ|
00002560: 41 45 48 4C 45 52 20 28 58 2D 52 45 47 49 53 54 |AEHLER (X-REGIST|
00002570: 45 52 29 20 4D 49 54 20 31 36 20 4C 41 44 45 4E |ER) MIT 16 LADEN|
00002580: 00 90 2D FA 19 45 4E 54 4E 49 32 20 CA 24 46 44 |..-..ENTNI2 .$FD|
00002590: 00 C2 2D 04 1A 20 C6 4D 41 53 4B 45 2C 58 3B 20 |..-.. .MASKE,X; |
000025A0: 44 41 53 20 42 59 54 45 20 4D 49 54 20 44 45 52 |DAS BYTE MIT DER|
000025B0: 20 4D 41 53 4B 45 20 56 45 52 4B 4E 55 45 50 46 | MASKE VERKNUEPF|
000025C0: 45 4E 00 FE 2D 0E 1A 20 C4 43 4F 44 45 2C 58 3B |EN..-.. .CODE,X;|
000025D0: 20 5A 41 48 4C 20 44 45 52 20 4E 4F 43 48 20 46 | ZAHL DER NOCH F|
000025E0: 52 45 49 45 4E 20 42 59 54 45 53 20 55 4D 20 45 |REIEN BYTES UM E|
000025F0: 49 4E 53 20 56 45 52 52 49 4E 47 45 52 4E 00 33 |INS VERRINGERN.3|
00002600: 2E 18 1A 20 F7 45 4E 54 4E 49 31 3B 20 57 45 4E |... .ENTNI1; WEN|
00002610: 4E 20 55 45 42 45 52 45 49 4E 53 54 49 4D 4D 55 |N UEBEREINSTIMMU|
00002620: 4E 47 2C 20 44 41 4E 4E 20 56 45 52 5A 57 45 49 |NG, DANN VERZWEI|
00002630: 47 45 4E 00 5D 2E 22 1A 20 EE 3B 20 53 4F 4E 53 |GEN.].". .; SONS|
00002640: 54 20 5A 41 45 48 4C 45 52 20 55 4D 20 45 49 4E |T ZAEHLER UM EIN|
00002650: 53 20 45 52 4E 49 45 44 52 49 47 45 4E 00 7D 2E |S ERNIEDRIGEN.}.|
00002660: 2C 1A 20 F6 45 4E 54 4E 49 32 3B 20 55 4E 44 20 |,. .ENTNI2; UND |
00002670: 57 45 49 54 45 52 20 53 55 43 48 45 4E 00 AB 2E |WEITER SUCHEN...|
00002680: 36 1A 45 4E 54 4E 49 31 20 D3 24 46 41 3B 20 43 |6.ENTNI1 .$FA; C|
00002690: 4F 44 45 4E 55 4D 4D 45 52 20 5A 57 49 53 43 48 |ODENUMMER ZWISCH|
000026A0: 45 4E 53 50 45 49 43 48 45 52 4E 00 CE 2E 40 1A |ENSPEICHERN...@.|
000026B0: 20 CA 42 49 54 4C 41 45 4E 47 45 2C 58 3B 20 42 | .BITLAENGE,X; B|
000026C0: 49 54 4C 41 45 4E 47 45 20 4C 41 44 45 4E 00 F5 |ITLAENGE LADEN..|
000026D0: 2E 4A 1A 20 D8 3B 20 55 4E 44 20 49 4E 20 44 41 |.J. .; UND IN DA|
000026E0: 53 20 58 2D 52 45 47 49 53 54 45 52 20 4B 4F 50 |S X-REGISTER KOP|
000026F0: 49 45 52 45 4E 00 26 2F 54 1A 20 C3 24 46 39 3B |IEREN.&/T. .$F9;|
00002700: 20 41 4E 5A 41 48 4C 20 44 45 52 20 52 45 53 54 | ANZAHL DER REST|
00002710: 4C 49 43 48 45 4E 20 42 49 54 53 20 49 4E 20 59 |LICHEN BITS IN Y|
00002720: 20 4C 41 44 45 4E 00 47 2F 5E 1A 45 4E 54 4E 49 | LADEN.G/^.ENTNI|
00002730: 34 20 CB 24 46 45 3B 20 55 4E 44 20 41 55 53 54 |4 .$FE; UND AUST|
00002740: 41 55 53 43 48 45 4E 00 51 2F 68 1A 20 CF 24 46 |AUSCHEN.Q/h. .$F|
00002750: 44 00 88 2F 72 1A 20 EC 3B 20 41 4E 5A 41 48 4C |D../r. .; ANZAHL|
00002760: 20 44 45 52 20 42 49 54 53 2C 20 44 49 45 20 4E | DER BITS, DIE N|
00002770: 4F 43 48 20 5A 55 20 56 45 52 46 55 45 47 55 4E |OCH ZU VERFUEGUN|
00002780: 47 20 53 54 45 48 45 4E 00 C3 2F 7C 1A 20 F6 45 |G STEHEN../|. .E|
00002790: 4E 54 4E 49 33 3B 20 57 45 4E 4E 20 44 49 45 53 |NTNI3; WENN DIES|
000027A0: 45 20 47 4C 45 49 43 48 20 4E 55 4C 4C 20 49 53 |E GLEICH NULL IS|
000027B0: 54 2C 20 4E 49 43 48 54 20 56 45 52 5A 57 45 49 |T, NICHT VERZWEI|
000027C0: 47 45 4E 00 CB 2F 86 1A 20 D9 3B 00 F9 2F 90 1A |GEN../.. .;../..|
000027D0: 20 DF 3B 20 59 2D 52 45 47 49 53 54 45 52 20 55 | .; Y-REGISTER U|
000027E0: 4E 44 20 41 4B 4B 55 20 41 55 46 20 53 54 41 50 |ND AKKU AUF STAP|
000027F0: 45 4C 20 52 45 54 54 45 4E 00 00 30 9A 1A 20 D7 |EL RETTEN..0.. .|
00002800: 00 07 30 A4 1A 20 DF 00 3D 30 AE 1A 20 D6 45 4E |..0.. ..=0.. .EN|
00002810: 44 45 3B 20 54 45 53 54 2C 20 4F 42 20 42 45 52 |DE; TEST, OB BER|
00002820: 45 49 54 53 20 41 4C 4C 45 20 42 59 54 45 53 20 |EITS ALLE BYTES |
00002830: 44 45 43 4F 4D 50 52 45 4D 49 45 52 54 00 6A 30 |DECOMPREMIERT.j0|
00002840: B8 1A 20 C1 23 24 46 38 3B 20 57 55 52 44 45 4E |.. .#$F8; WURDEN|
00002850: 2C 20 57 45 4E 4E 20 4A 41 2C 20 49 53 54 20 59 |, WENN JA, IST Y|
00002860: 20 3D 20 24 46 38 20 55 4E 44 00 88 30 C2 1A 20 | = $F8 UND..0.. |
00002870: F7 45 4E 54 4E 49 36 3B 20 44 41 4E 4E 20 56 45 |.ENTNI6; DANN VE|
00002880: 52 5A 57 45 49 47 45 4E 00 AF 30 CC 1A 20 D6 4E |RZWEIGEN..0.. .N|
00002890: 45 58 54 42 59 54 45 3B 20 53 4F 4E 53 54 20 4E |EXTBYTE; SONST N|
000028A0: 45 55 45 53 20 42 59 54 45 20 48 4F 4C 45 4E 00 |EUES BYTE HOLEN.|
000028B0: D0 30 D6 1A 20 D2 24 46 45 3B 20 55 4E 44 20 41 |.0.. .$FE; UND A|
000028C0: 55 46 20 24 46 45 20 53 50 45 49 43 48 45 52 4E |UF $FE SPEICHERN|
000028D0: 00 0A 31 E0 1A 45 4E 54 4E 49 36 20 E0 3B 20 41 |..1..ENTNI6 .; A|
000028E0: 4B 4B 55 20 55 4E 44 20 58 2D 52 45 47 49 53 54 |KKU UND X-REGIST|
000028F0: 45 52 20 57 49 45 44 45 52 20 56 4F 4D 20 53 54 |ER WIEDER VOM ST|
00002900: 41 50 45 4C 20 48 4F 4C 45 4E 00 11 31 EA 1A 20 |APEL HOLEN..1.. |
00002910: D8 00 18 31 F4 1A 20 E0 00 4E 31 FE 1A 20 C1 23 |...1.. ..N1.. .#|
00002920: 24 46 38 3B 20 57 45 4E 4E 20 41 4C 4C 45 20 42 |$F8; WENN ALLE B|
00002930: 59 54 45 53 20 44 45 43 4F 44 49 45 52 54 20 57 |YTES DECODIERT W|
00002940: 55 52 44 45 4E 2C 20 28 59 3D 24 46 38 29 00 7C |URDEN, (Y=$F8).||
00002950: 31 08 1B 20 F7 45 4E 54 4E 49 35 3B 20 44 41 4E |1.. .ENTNI5; DAN|
00002960: 4E 20 56 45 52 5A 57 45 49 47 45 4E 20 5A 55 4D |N VERZWEIGEN ZUM|
00002970: 20 52 55 45 43 4B 53 50 52 55 4E 47 00 A1 31 12 | RUECKSPRUNG..1.|
00002980: 1B 20 C3 23 24 30 38 3B 20 45 53 20 53 49 4E 44 |. .#$08; ES SIND|
00002990: 20 57 49 45 44 45 52 20 38 20 42 49 54 53 20 44 | WIEDER 8 BITS D|
000029A0: 41 00 D6 31 1C 1B 45 4E 54 4E 49 33 20 EE 3B 20 |A..1..ENTNI3 .; |
000029B0: 42 49 54 4C 41 45 4E 47 45 20 44 45 52 20 43 4F |BITLAENGE DER CO|
000029C0: 44 45 20 55 4D 20 45 49 4E 53 20 45 52 4E 49 45 |DE UM EINS ERNIE|
000029D0: 44 52 49 47 45 4E 00 0B 32 26 1B 20 F6 45 4E 54 |DRIGEN..2&. .ENT|
000029E0: 4E 49 34 3B 20 57 45 4E 4E 20 4E 4F 43 48 20 4E |NI4; WENN NOCH N|
000029F0: 49 43 48 54 20 4E 55 4C 4C 2C 20 57 49 45 44 45 |ICHT NULL, WIEDE|
00002A00: 52 20 56 4F 4E 20 56 4F 52 4E 45 00 3C 32 30 1B |R VON VORNE.<20.|
00002A10: 20 D4 24 46 39 3B 20 41 4E 5A 41 48 4C 20 44 45 | .$F9; ANZAHL DE|
00002A20: 52 20 4E 4F 43 48 20 46 52 45 49 45 4E 20 42 49 |R NOCH FREIEN BI|
00002A30: 54 53 20 53 50 45 49 43 48 45 52 4E 00 6C 32 3A |TS SPEICHERN.l2:|
00002A40: 1B 20 CA 24 46 41 3B 20 43 4F 44 45 57 45 52 54 |. .$FA; CODEWERT|
00002A50: 20 4C 41 44 45 4E 20 28 44 49 45 53 20 49 53 54 | LADEN (DIES IST|
00002A60: 20 45 49 4E 20 4E 49 42 42 4C 45 29 00 86 32 44 | EIN NIBBLE)..2D|
00002A70: 1B 45 4E 54 4E 49 35 20 E3 3B 20 55 4E 44 20 5A |.ENTNI5 .; UND Z|
00002A80: 55 52 55 45 43 4B 00 8C 32 4E 1B 3B 00 A0 32 58 |URUECK..2N.;..2X|
00002A90: 1B 3B 20 54 45 53 54 20 41 55 46 20 45 4E 44 45 |.; TEST AUF ENDE|
00002AA0: 00 A6 32 62 1B 3B 00 DD 32 6C 1B 45 4E 44 45 20 |..2b.;..2l.ENDE |
00002AB0: CA 24 33 35 3B 20 45 4E 44 41 44 52 45 53 53 45 |.$35; ENDADRESSE|
00002AC0: 20 49 4E 20 41 4B 4B 55 20 55 4E 44 20 58 2D 52 | IN AKKU UND X-R|
00002AD0: 45 47 49 53 54 45 52 20 4C 41 44 45 4E 00 E7 32 |EGISTER LADEN..2|
00002AE0: 76 1B 20 C2 24 33 36 00 1C 33 80 1B 20 C0 24 46 |v. .$36..3.. .$F|
00002AF0: 43 3B 20 4D 49 54 20 44 45 52 20 41 4B 54 55 45 |C; MIT DER AKTUE|
00002B00: 4C 4C 45 4E 20 4C 41 44 45 41 44 52 45 53 53 45 |LLEN LADEADRESSE|
00002B10: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 28 33 8A | VERGLEICHEN.(3.|
00002B20: 1B 20 F6 45 4E 44 45 31 00 32 33 94 1B 20 C4 24 |. .ENDE1.23.. .$|
00002B30: 46 42 00 59 33 9E 1B 20 F6 45 4E 44 45 31 3B 20 |FB.Y3.. .ENDE1; |
00002B40: 57 45 4E 4E 20 4B 4C 45 49 4E 45 52 2C 20 44 41 |WENN KLEINER, DA|
00002B50: 4E 4E 20 57 45 49 54 45 52 00 8F 33 A8 1B 20 C3 |NN WEITER..3.. .|
00002B60: 23 24 46 38 3B 20 57 45 4E 4E 20 47 4C 45 49 43 |#$F8; WENN GLEIC|
00002B70: 48 2C 20 59 2D 43 4F 44 45 20 46 55 45 52 20 45 |H, Y-CODE FUER E|
00002B80: 4E 44 45 20 28 24 46 38 29 20 4C 41 44 45 4E 00 |NDE ($F8) LADEN.|
00002B90: B1 33 B2 1B 45 4E 44 45 31 20 E3 3B 20 55 4E 44 |.3..ENDE1 .; UND|
00002BA0: 20 5A 55 52 55 45 43 4B 20 53 50 52 49 4E 47 45 | ZURUECK SPRINGE|
00002BB0: 4E 00 B7 33 40 1F 3B 00 CE 33 4A 1F 3B 20 20 4E |N..3@.;..3J.; N|
00002BC0: 49 42 42 4C 45 20 2D 20 50 41 43 4B 45 52 00 FC |IBBLE - PACKER..|
00002BD0: 33 54 1F 3B 20 20 24 46 42 2F 24 46 43 20 3D 20 |3T.; $FB/$FC = |
00002BE0: 42 45 47 49 4E 4E 20 44 45 52 20 55 4E 47 45 50 |BEGINN DER UNGEP|
00002BF0: 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 28 34 5E |ACKTEN DATEN.(4^|
00002C00: 1F 3B 20 20 24 46 44 2F 24 46 45 20 3D 20 45 4E |.; $FD/$FE = EN|
00002C10: 44 45 20 44 45 52 20 55 4E 47 45 50 41 43 4B 54 |DE DER UNGEPACKT|
00002C20: 45 4E 20 44 41 54 45 4E 00 54 34 68 1F 3B 20 20 |EN DATEN.T4h.; |
00002C30: 24 46 37 2F 24 46 38 20 3D 20 42 45 47 49 4E 4E |$F7/$F8 = BEGINN|
00002C40: 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E 20 44 | DER GEPACKTEN D|
00002C50: 41 54 45 4E 00 5A 34 72 1F 3B 00 98 34 7C 1F 4E |ATEN.Z4r.;..4|.N|
00002C60: 49 42 42 4C 45 52 20 CA 23 24 30 38 3B 20 41 4E |IBBLER .#$08; AN|
00002C70: 5A 41 48 4C 20 44 45 52 20 46 52 45 49 45 4E 20 |ZAHL DER FREIEN |
00002C80: 42 49 54 53 20 49 4E 20 45 49 4E 45 4D 20 42 59 |BITS IN EINEM BY|
00002C90: 54 45 20 4C 41 44 45 4E 00 BA 34 86 1F 20 D2 24 |TE LADEN..4.. .$|
00002CA0: 46 39 3B 20 55 4E 44 20 4E 41 43 48 20 24 46 39 |F9; UND NACH $F9|
00002CB0: 20 53 50 45 49 43 48 45 52 4E 00 E3 34 90 1F 4E | SPEICHERN..4..N|
00002CC0: 49 42 42 4C 45 52 31 20 D6 4E 45 58 54 42 59 54 |IBBLER1 .NEXTBYT|
00002CD0: 45 3B 20 4E 45 55 45 53 20 42 59 54 45 20 48 4F |E; NEUES BYTE HO|
00002CE0: 4C 45 4E 00 15 35 9A 1F 4E 49 42 42 4C 45 52 33 |LEN..5..NIBBLER3|
00002CF0: 20 DF 3B 20 42 59 54 45 20 41 55 46 20 53 54 41 | .; BYTE AUF STA|
00002D00: 50 45 4C 20 5A 57 49 53 43 48 45 4E 53 50 45 49 |PEL ZWISCHENSPEI|
00002D10: 43 48 45 52 4E 00 3C 35 A4 1F 20 CD 3B 20 48 49 |CHERN.<5.. .; HI|
00002D20: 2D 4E 49 42 42 4C 45 20 4E 41 43 48 20 52 45 43 |-NIBBLE NACH REC|
00002D30: 48 54 53 20 53 43 48 49 45 42 45 4E 00 58 35 AE |HTS SCHIEBEN.X5.|
00002D40: 1F 20 CD 3B 20 4C 4F 57 2D 4E 49 42 42 4C 45 20 |. .; LOW-NIBBLE |
00002D50: 4C 4F 45 53 43 48 45 4E 00 5F 35 B8 1F 20 CD 00 |LOESCHEN._5.. ..|
00002D60: 66 35 C2 1F 20 CD 00 80 35 CC 1F 20 D6 5A 55 53 |f5.. ...5.. .ZUS|
00002D70: 41 4D 3B 20 55 4E 44 20 43 4F 44 49 45 52 45 4E |AM; UND CODIEREN|
00002D80: 00 A5 35 D6 1F 20 E0 3B 20 42 59 54 45 20 57 49 |..5.. .; BYTE WI|
00002D90: 45 44 45 52 20 56 4F 4D 20 53 54 41 50 45 4C 20 |EDER VOM STAPEL |
00002DA0: 48 4F 4C 45 4E 00 E0 35 E0 1F 20 C6 23 24 30 46 |HOLEN..5.. .#$0F|
00002DB0: 3B 20 48 49 47 48 2D 4E 49 42 42 4C 45 20 4C 4F |; HIGH-NIBBLE LO|
00002DC0: 45 53 43 48 45 4E 2C 20 4C 4F 57 20 4E 49 42 42 |ESCHEN, LOW NIBB|
00002DD0: 4C 45 20 42 4C 45 49 42 54 20 55 45 42 52 49 47 |LE BLEIBT UEBRIG|
00002DE0: 00 06 36 EA 1F 20 D6 5A 55 53 41 4D 3B 20 55 4E |..6.. .ZUSAM; UN|
00002DF0: 44 20 41 55 43 48 20 44 49 45 53 45 53 20 43 4F |D AUCH DIESES CO|
00002E00: 44 49 45 52 45 4E 00 10 36 F4 1F 20 CA 24 46 42 |DIEREN..6.. .$FB|
00002E10: 00 48 36 FE 1F 20 C2 24 46 43 3B 20 54 45 53 54 |.H6.. .$FC; TEST|
00002E20: 45 4E 2C 20 4F 42 20 42 45 52 45 49 54 53 20 41 |EN, OB BEREITS A|
00002E30: 4C 4C 45 20 42 59 54 45 53 20 43 4F 44 49 45 52 |LLE BYTES CODIER|
00002E40: 54 20 57 55 52 44 45 4E 00 52 36 08 20 20 C0 24 |T WURDEN.R6. .$|
00002E50: 46 45 00 7A 36 12 20 20 F6 4E 49 42 42 4C 45 52 |FE.z6. .NIBBLER|
00002E60: 32 3B 20 57 45 4E 4E 20 4E 45 49 4E 2C 20 57 45 |2; WENN NEIN, WE|
00002E70: 49 54 45 52 4D 41 43 48 45 4E 00 84 36 1C 20 20 |ITERMACHEN..6. |
00002E80: C4 24 46 44 00 9B 36 26 20 4E 49 42 42 4C 45 52 |.$FD..6& NIBBLER|
00002E90: 32 20 F4 4E 49 42 42 4C 45 52 31 00 B5 36 30 20 |2 .NIBBLER1..60 |
00002EA0: 20 E3 3B 20 53 4F 4E 53 54 20 52 55 45 43 4B 53 | .; SONST RUECKS|
00002EB0: 50 52 55 4E 47 00 BB 36 28 23 3B 00 CC 36 32 23 |PRUNG..6(#;..62#|
00002EC0: 3B 20 20 45 4E 54 50 41 43 4B 45 4E 00 FA 36 3C |; ENTPACKEN..6<|
00002ED0: 23 3B 20 20 24 46 37 2F 24 46 38 20 3D 20 42 45 |#; $F7/$F8 = BE|
00002EE0: 47 49 4E 4E 20 44 45 52 20 55 4E 47 45 50 41 43 |GINN DER UNGEPAC|
00002EF0: 4B 54 45 4E 20 44 41 54 45 4E 00 26 37 46 23 3B |KTEN DATEN.&7F#;|
00002F00: 20 20 24 46 42 2F 24 46 43 20 3D 20 42 45 47 49 | $FB/$FC = BEGI|
00002F10: 4E 4E 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E |NN DER GEPACKTEN|
00002F20: 20 44 41 54 45 4E 00 50 37 50 23 3B 20 20 24 33 | DATEN.P7P#; $3|
00002F30: 35 2F 24 33 36 20 3D 20 45 4E 44 45 20 44 45 52 |5/$36 = ENDE DER|
00002F40: 20 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E | GEPACKTEN DATEN|
00002F50: 00 56 37 5A 23 3B 00 81 37 64 23 44 45 4E 49 20 |.V7Z#;..7d#DENI |
00002F60: C9 24 33 35 3B 20 45 4E 44 41 44 52 45 53 53 45 |.$35; ENDADRESSE|
00002F70: 20 55 4D 20 45 49 4E 53 20 45 52 48 4F 45 48 45 | UM EINS ERHOEHE|
00002F80: 4E 00 8D 37 6E 23 20 F6 44 45 4E 49 33 00 97 37 |N..7n# .DENI3..7|
00002F90: 78 23 20 C9 24 33 36 00 BB 37 82 23 44 45 4E 49 |x# .$36..7.#DENI|
00002FA0: 33 20 D6 4E 45 58 54 42 59 54 45 3B 20 45 49 4E |3 .NEXTBYTE; EIN|
00002FB0: 20 42 59 54 45 20 48 4F 4C 45 4E 00 DC 37 8C 23 | BYTE HOLEN..7.#|
00002FC0: 20 D2 24 46 44 3B 20 55 4E 44 20 5A 57 49 53 43 | .$FD; UND ZWISC|
00002FD0: 48 45 4E 53 50 45 49 43 48 45 52 4E 00 04 38 96 |HENSPEICHERN..8.|
00002FE0: 23 20 D6 4E 45 58 54 42 59 54 45 3B 20 45 49 4E |# .NEXTBYTE; EIN|
00002FF0: 20 57 45 49 54 45 52 45 53 20 42 59 54 45 20 48 | WEITERES BYTE H|
00003000: 4F 4C 45 4E 00 2B 38 A0 23 20 D2 24 46 45 3B 20 |OLEN.+8.# .$FE; |
00003010: 45 42 45 4E 46 41 4C 4C 53 20 5A 57 49 53 43 48 |EBENFALLS ZWISCH|
00003020: 45 4E 53 50 45 49 43 48 45 52 4E 00 63 38 AA 23 |ENSPEICHERN.c8.#|
00003030: 20 CA 23 24 30 38 3B 20 41 4E 5A 41 48 4C 20 44 | .#$08; ANZAHL D|
00003040: 45 52 20 46 52 45 49 45 4E 20 42 49 54 53 20 49 |ER FREIEN BITS I|
00003050: 4E 20 45 49 4E 45 4D 20 42 59 54 45 20 49 53 54 |N EINEM BYTE IST|
00003060: 20 30 38 00 88 38 B4 23 20 D2 24 46 39 3B 20 44 | 08..8.# .$F9; D|
00003070: 49 45 53 45 20 45 42 45 4E 46 41 4C 4C 53 20 53 |IESE EBENFALLS S|
00003080: 50 45 49 43 48 45 52 4E 00 AF 38 BE 23 44 45 4E |PEICHERN..8.#DEN|
00003090: 49 31 20 D6 45 4E 54 4E 49 3B 20 48 49 2D 4E 49 |I1 .ENTNI; HI-NI|
000030A0: 42 42 4C 45 20 44 45 43 4F 44 49 45 52 45 4E 00 |BBLE DECODIEREN.|
000030B0: D3 38 C8 23 20 C1 23 24 46 38 3B 20 54 45 53 54 |.8.# .#$F8; TEST|
000030C0: 20 41 55 46 20 45 4E 44 45 20 28 59 20 3D 20 24 | AUF ENDE (Y = $|
000030D0: 46 38 29 00 04 39 D2 23 20 F7 44 45 4E 49 32 3B |F8)..9.# .DENI2;|
000030E0: 20 57 45 4E 4E 20 4A 41 2C 20 56 45 52 5A 57 45 | WENN JA, VERZWE|
000030F0: 49 47 45 4E 20 5A 55 4D 20 52 55 45 43 4B 53 50 |IGEN ZUM RUECKSP|
00003100: 52 55 4E 47 00 33 39 DC 23 20 CB 3B 20 53 4F 4E |RUNG.39.# .; SON|
00003110: 53 54 20 48 49 2D 4E 49 42 42 4C 45 20 4E 41 43 |ST HI-NIBBLE NAC|
00003120: 48 20 4C 49 4E 4B 53 20 56 45 52 53 43 48 49 45 |H LINKS VERSCHIE|
00003130: 42 45 4E 00 3A 39 E6 23 20 CB 00 41 39 F0 23 20 |BEN.:9.# ..A9.# |
00003140: CB 00 48 39 FA 23 20 CB 00 61 39 04 24 20 DF 3B |..H9.# ..a9.$ .;|
00003150: 20 41 55 46 20 53 54 41 50 45 4C 20 4C 45 47 45 | AUF STAPEL LEGE|
00003160: 4E 00 84 39 0E 24 20 D6 45 4E 54 4E 49 3B 20 4C |N..9.$ .ENTNI; L|
00003170: 4F 57 2D 4E 49 42 42 4C 45 20 44 45 43 4F 44 49 |OW-NIBBLE DECODI|
00003180: 45 52 45 4E 00 A9 39 18 24 20 E0 3B 20 41 4B 4B |EREN..9.$ .; AKK|
00003190: 55 20 57 49 45 44 45 52 20 56 4F 4D 20 53 54 41 |U WIEDER VOM STA|
000031A0: 50 45 4C 20 4C 41 44 45 4E 00 D3 39 22 24 20 C1 |PEL LADEN..9"$ .|
000031B0: 23 24 46 38 3B 20 57 45 4E 4E 20 45 4E 44 45 20 |#$F8; WENN ENDE |
000031C0: 44 45 52 20 44 41 54 45 4E 20 28 59 20 3D 20 24 |DER DATEN (Y = $|
000031D0: 46 38 29 00 FF 39 2C 24 20 F7 44 45 4E 49 32 3B |F8)..9,$ .DENI2;|
000031E0: 20 44 41 4E 4E 20 56 45 52 5A 57 45 49 47 45 20 | DANN VERZWEIGE |
000031F0: 5A 55 4D 20 52 55 45 43 4B 53 50 52 55 4E 47 00 |ZUM RUECKSPRUNG.|
00003200: 2B 3A 36 24 20 CE 24 46 41 3B 20 4C 4F 57 2D 20 |+:6$ .$FA; LOW- |
00003210: 55 4E 44 20 48 49 47 48 2D 4E 49 42 42 4C 45 20 |UND HIGH-NIBBLE |
00003220: 56 45 52 4B 4E 55 45 50 46 45 4E 00 47 3A 40 24 |VERKNUEPFEN.G:@$|
00003230: 20 D6 41 55 53 47 41 42 45 3B 20 55 4E 44 20 41 | .AUSGABE; UND A|
00003240: 55 53 47 45 42 45 4E 00 61 3A 4A 24 20 D5 44 45 |USGEBEN.a:J$ .DE|
00003250: 4E 49 31 3B 20 57 45 49 54 45 52 4D 41 43 48 45 |NI1; WEITERMACHE|
00003260: 4E 00 7A 3A 54 24 44 45 4E 49 32 20 E3 3B 20 52 |N.z:T$DENI2 .; R|
00003270: 55 45 43 4B 53 50 52 55 4E 47 00 80 3A 10 27 3B |UECKSPRUNG..:.';|
00003280: 00 A4 3A 1A 27 3B 20 50 52 4F 5A 45 4E 54 53 41 |..:.'; PROZENTSA|
00003290: 54 5A 20 44 45 52 20 43 4F 4D 50 52 45 4D 49 45 |TZ DER COMPREMIE|
000032A0: 52 55 4E 47 00 C6 3A 24 27 3B 20 42 45 52 45 43 |RUNG..:$'; BEREC|
000032B0: 48 4E 45 4E 20 20 20 28 45 52 53 54 45 52 20 41 |HNEN (ERSTER A|
000032C0: 55 46 52 55 46 29 00 F3 3A 2E 27 3B 20 24 46 42 |UFRUF)..:.'; $FB|
000032D0: 2F 24 46 43 20 3D 20 42 45 47 49 4E 4E 20 44 45 |/$FC = BEGINN DE|
000032E0: 52 20 55 4E 47 45 50 41 43 4B 54 45 4E 20 44 41 |R UNGEPACKTEN DA|
000032F0: 54 45 4E 00 1E 3B 38 27 3B 20 24 46 44 2F 24 46 |TEN..;8'; $FD/$F|
00003300: 45 20 3D 20 45 4E 44 45 20 44 45 52 20 55 4E 47 |E = ENDE DER UNG|
00003310: 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 49 |EPACKTEN DATEN.I|
00003320: 3B 42 27 3B 20 3D 3D 3E 20 24 33 35 2F 24 33 36 |;B'; ==> $35/$36|
00003330: 20 3D 20 45 52 47 45 42 4E 49 53 20 44 45 52 20 | = ERGEBNIS DER |
00003340: 44 49 46 46 45 52 45 4E 5A 00 91 3B 4C 27 3B 20 |DIFFERENZ..;L'; |
00003350: 24 46 37 2F 24 46 38 20 28 42 45 47 49 4E 4E 20 |$F7/$F8 (BEGINN |
00003360: 44 45 52 20 47 45 50 41 43 4B 54 45 4E 20 44 41 |DER GEPACKTEN DA|
00003370: 54 45 4E 29 20 49 4E 20 24 36 31 2F 24 36 32 20 |TEN) IN $61/$62 |
00003380: 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 |ZWISCHENSPEICHER|
00003390: 4E 00 97 3B 56 27 3B 00 BD 3B 60 27 50 52 4F 5A |N..;V';..;`'PROZ|
000033A0: 45 4E 54 20 EA 3B 53 55 42 54 52 41 4B 54 49 4F |ENT .;SUBTRAKTIO|
000033B0: 4E 20 56 4F 52 42 45 52 45 49 54 45 4E 00 C4 3B |N VORBEREITEN..;|
000033C0: 6A 27 20 E6 00 E6 3B 74 27 20 CA 24 46 44 3B 20 |j' ...;t' .$FD; |
000033D0: 4C 41 45 4E 47 45 20 44 45 52 20 55 4E 47 45 50 |LAENGE DER UNGEP|
000033E0: 41 43 4B 54 45 4E 00 08 3C 7E 27 20 D1 24 46 42 |ACKTEN..<~' .$FB|
000033F0: 3B 20 44 41 54 45 4E 20 42 45 52 45 43 48 4E 45 |; DATEN BERECHNE|
00003400: 4E 20 55 4E 44 20 49 4E 00 2D 3C 88 27 20 D2 24 |N UND IN.-<.' .$|
00003410: 33 35 3B 20 24 33 35 2F 24 33 36 20 5A 57 49 53 |35; $35/$36 ZWIS|
00003420: 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 37 3C |CHENSPEICHERN.7<|
00003430: 92 27 20 CA 24 46 45 00 41 3C 9C 27 20 D1 24 46 |.' .$FE.A<.' .$F|
00003440: 43 00 4B 3C A6 27 20 D2 24 33 36 00 78 3C B0 27 |C.K<.' .$36.x<.'|
00003450: 20 CA 24 46 37 3B 20 42 45 47 49 4E 4E 20 44 45 | .$F7; BEGINN DE|
00003460: 52 20 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 |R GEPACKTEN DATE|
00003470: 4E 20 52 45 54 54 45 4E 00 AE 3C BA 27 20 D2 24 |N RETTEN..<.' .$|
00003480: 36 31 3B 20 49 4E 44 45 4D 20 4D 41 4E 20 53 49 |61; INDEM MAN SI|
00003490: 45 20 49 4E 20 24 36 31 2F 24 36 32 20 5A 57 49 |E IN $61/$62 ZWI|
000034A0: 53 43 48 45 4E 53 50 45 49 43 48 45 52 54 00 B8 |SCHENSPEICHERT..|
000034B0: 3C C4 27 20 CA 24 46 38 00 C2 3C CE 27 20 D2 24 |<.' .$F8..<.' .$|
000034C0: 36 32 00 DE 3C D8 27 20 E3 3B 20 55 4E 44 20 5A |62..<.' .; UND Z|
000034D0: 55 52 55 45 43 4B 53 50 52 49 4E 47 45 4E 00 E4 |URUECKSPRINGEN..|
000034E0: 3C E2 27 3B 00 08 3D EC 27 3B 20 50 52 4F 5A 45 |<.';..=.'; PROZE|
000034F0: 4E 54 53 41 54 5A 20 44 45 52 20 43 4F 4D 50 52 |NTSATZ DER COMPR|
00003500: 45 4D 49 45 52 55 4E 47 00 2B 3D F6 27 3B 20 42 |EMIERUNG.+=.'; B|
00003510: 45 52 45 43 48 4E 45 4E 20 20 20 28 5A 57 45 49 |ERECHNEN (ZWEI|
00003520: 54 45 52 20 41 55 46 52 55 46 29 00 54 3D 00 28 |TER AUFRUF).T=.(|
00003530: 3B 20 24 46 37 2F 24 46 38 20 3D 20 45 4E 44 45 |; $F7/$F8 = ENDE|
00003540: 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E 20 44 | DER GEPACKTEN D|
00003550: 41 54 45 4E 00 7F 3D 0A 28 3B 20 24 36 31 2F 24 |ATEN..=.(; $61/$|
00003560: 36 32 20 3D 20 42 45 47 49 4E 4E 20 44 45 52 20 |62 = BEGINN DER |
00003570: 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 |GEPACKTEN DATEN.|
00003580: AC 3D 14 28 3B 20 24 33 35 2F 24 33 36 20 3D 20 |.=.(; $35/$36 = |
00003590: 4C 41 45 4E 47 45 20 44 45 52 20 55 4E 47 45 50 |LAENGE DER UNGEP|
000035A0: 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 E4 3D 1E |ACKTEN DATEN..=.|
000035B0: 28 3B 20 42 45 49 4D 20 52 55 45 43 4B 53 50 52 |(; BEIM RUECKSPR|
000035C0: 55 4E 47 20 45 4E 54 48 41 45 4C 54 20 46 41 43 |UNG ENTHAELT FAC|
000035D0: 20 49 20 44 45 4E 20 50 52 4F 5A 45 4E 54 41 4E | I DEN PROZENTAN|
000035E0: 54 45 49 4C 00 EA 3D 28 28 3B 00 12 3E 32 28 50 |TEIL..=((;..>2(P|
000035F0: 52 4F 5A 45 4E 54 32 20 EA 3B 20 53 55 42 54 52 |ROZENT2 .; SUBTR|
00003600: 41 4B 54 49 4F 4E 20 56 4F 52 42 45 52 45 49 54 |AKTION VORBEREIT|
00003610: 45 4E 00 19 3E 3C 28 20 E6 00 49 3E 46 28 20 CA |EN..><( ..I>F( .|
00003620: 24 46 37 3B 20 4C 41 45 4E 47 45 20 44 45 52 20 |$F7; LAENGE DER |
00003630: 47 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 20 |GEPACKTEN DATEN |
00003640: 42 45 52 45 43 48 4E 45 4E 00 53 3E 50 28 20 D1 |BERECHNEN.S>P( .|
00003650: 24 36 31 00 5A 3E 5A 28 20 DA 00 64 3E 64 28 20 |$61.Z>Z( ..d>d( |
00003660: CA 24 46 38 00 6E 3E 6E 28 20 D1 24 36 32 00 A4 |.$F8.n>n( .$62..|
00003670: 3E 78 28 20 D6 49 4E 46 41 43 3B 20 55 4E 44 20 |>x( .INFAC; UND |
00003680: 49 4E 20 46 4C 49 45 53 53 4B 4F 4D 4D 41 41 4B |IN FLIESSKOMMAAK|
00003690: 4B 55 20 49 20 28 46 41 43 20 49 29 20 57 41 4E |KU I (FAC I) WAN|
000036A0: 44 45 4C 4E 00 D0 3E 82 28 20 D6 43 4F 50 59 46 |DELN..>.( .COPYF|
000036B0: 41 43 49 49 3B 20 55 4E 44 20 49 4E 20 44 45 4E |ACII; UND IN DEN|
000036C0: 20 46 41 43 20 49 49 20 43 4F 50 49 45 52 45 4E | FAC II COPIEREN|
000036D0: 00 DA 3E 8C 28 20 C3 24 33 35 00 08 3F 96 28 20 |..>.( .$35..?.( |
000036E0: CA 24 33 36 3B 20 4C 41 45 4E 47 45 20 44 45 52 |.$36; LAENGE DER|
000036F0: 20 55 4E 47 45 50 41 43 4B 54 45 4E 20 44 41 54 | UNGEPACKTEN DAT|
00003700: 45 4E 20 4C 41 44 45 4E 00 34 3F A0 28 20 D6 49 |EN LADEN.4?.( .I|
00003710: 4E 46 41 43 3B 20 55 4E 44 20 45 42 45 4E 46 41 |NFAC; UND EBENFA|
00003720: 4C 4C 53 20 49 4E 20 46 41 43 20 53 50 45 49 43 |LLS IN FAC SPEIC|
00003730: 48 45 52 4E 00 5E 3F AA 28 20 D6 46 41 43 44 49 |HERN.^?.( .FACDI|
00003740: 56 3B 20 44 49 56 49 53 49 4F 4E 20 56 4F 4E 20 |V; DIVISION VON |
00003750: 46 41 43 20 55 4E 44 20 46 41 43 20 49 49 00 7C |FAC UND FAC II.||
00003760: 3F B4 28 20 D6 46 41 43 4D 41 4C 31 30 3B 20 46 |?.( .FACMAL10; F|
00003770: 41 43 20 3D 20 46 41 43 20 2A 31 30 00 B7 3F BE |AC = FAC *10..?.|
00003780: 28 20 D6 46 41 43 4D 41 4C 31 30 3B 20 55 4E 44 |( .FACMAL10; UND|
00003790: 20 4E 4F 43 48 4D 41 4C 20 28 3D 3D 3E 20 50 52 | NOCHMAL (==> PR|
000037A0: 4F 5A 45 4E 54 41 4E 54 45 49 4C 20 41 55 53 52 |OZENTANTEIL AUSR|
000037B0: 45 43 48 4E 45 4E 29 00 D2 3F C8 28 20 E3 3B 20 |ECHNEN)..?.( .; |
000037C0: 55 4E 44 20 57 49 45 44 45 52 20 5A 55 52 55 45 |UND WIEDER ZURUE|
000037D0: 43 4B 00 D8 3F F8 2A 3B 00 FE 3F 02 2B 3B 20 44 |CK..?.*;..?.+; D|
000037E0: 41 54 45 4E 2C 20 54 45 58 54 20 55 4E 44 20 46 |ATEN, TEXT UND F|
000037F0: 45 48 4C 45 52 4D 45 4C 44 55 4E 47 45 4E 00 16 |EHLERMELDUNGEN..|
00003800: 40 0C 2B 3B 20 46 55 45 52 20 44 41 53 20 50 52 |@.+; FUER DAS PR|
00003810: 4F 47 52 41 4D 4D 00 1C 40 16 2B 3B 00 57 40 20 |OGRAMM..@.+;.W@ |
00003820: 2B 43 4F 44 45 20 A5 24 30 30 2C 24 41 30 2C 24 |+CODE .$00,$A0,$|
00003830: 41 38 3B 20 4E 45 55 45 20 43 4F 44 45 53 2C 20 |A8; NEUE CODES, |
00003840: 44 49 45 20 53 54 41 54 54 20 45 49 4E 45 53 20 |DIE STATT EINES |
00003850: 4E 49 42 42 4C 45 53 00 7D 40 2A 2B 20 A5 24 42 |NIBBLES.}@*+ .$B|
00003860: 30 2C 24 42 38 2C 24 43 30 3B 20 47 45 53 50 45 |0,$B8,$C0; GESPE|
00003870: 49 43 48 45 52 54 20 57 45 52 44 45 4E 00 8F 40 |ICHERT WERDEN..@|
00003880: 34 2B 20 A5 24 43 38 2C 24 46 30 2C 24 44 30 00 |4+ .$C8,$F0,$D0.|
00003890: A1 40 3E 2B 20 A5 24 44 38 2C 24 45 30 2C 24 46 |.@>+ .$D8,$E0,$F|
000038A0: 34 00 B3 40 48 2B 20 A5 24 45 38 2C 24 46 38 2C |4..@H+ .$E8,$F8,|
000038B0: 24 46 43 00 BD 40 52 2B 20 A5 24 38 30 00 FF 40 |$FC..@R+ .$80..@|
000038C0: 5C 2B 4D 41 53 4B 45 20 A5 24 38 30 2C 24 46 38 |\+MASKE .$80,$F8|
000038D0: 2C 24 46 38 3B 20 4D 41 53 4B 45 2C 20 55 4D 20 |,$F8; MASKE, UM |
000038E0: 44 49 45 20 55 4E 4E 4F 45 54 49 47 45 4E 20 42 |DIE UNNOETIGEN B|
000038F0: 49 54 53 20 5A 55 20 4C 4F 45 53 43 48 45 4E 00 |ITS ZU LOESCHEN.|
00003900: 32 41 66 2B 20 A5 24 46 38 2C 24 46 38 2C 24 46 |2Af+ .$F8,$F8,$F|
00003910: 38 3B 20 55 4E 44 20 44 49 45 20 43 4F 44 45 53 |8; UND DIE CODES|
00003920: 20 5A 55 20 49 44 45 4E 54 49 46 49 5A 49 45 52 | ZU IDENTIFIZIER|
00003930: 45 4E 00 44 41 70 2B 20 A5 24 46 38 2C 24 46 43 |EN.DAp+ .$F8,$FC|
00003940: 2C 24 46 38 00 56 41 7A 2B 20 A5 24 46 38 2C 24 |,$F8.VAz+ .$F8,$|
00003950: 46 38 2C 24 46 43 00 68 41 84 2B 20 A5 24 46 38 |F8,$FC.hA.+ .$F8|
00003960: 2C 24 46 43 2C 24 46 43 00 72 41 8E 2B 20 A5 24 |,$FC,$FC.rA.+ .$|
00003970: 45 30 00 A5 41 98 2B 42 49 54 4C 41 45 4E 47 45 |E0..A.+BITLAENGE|
00003980: 20 A5 24 30 31 2C 24 30 35 2C 24 30 35 3B 20 4C | .$01,$05,$05; L|
00003990: 41 45 4E 47 45 20 44 45 52 20 4E 45 55 45 4E 20 |AENGE DER NEUEN |
000039A0: 43 4F 44 45 53 00 B7 41 A2 2B 20 A5 24 30 35 2C |CODES..A.+ .$05,|
000039B0: 24 30 35 2C 24 30 35 00 C9 41 AC 2B 20 A5 24 30 |$05,$05..A.+ .$0|
000039C0: 35 2C 24 30 36 2C 24 30 35 00 DB 41 B6 2B 20 A5 |5,$06,$05..A.+ .|
000039D0: 24 30 35 2C 24 30 35 2C 24 30 36 00 ED 41 C0 2B |$05,$05,$06..A.+|
000039E0: 20 A5 24 30 35 2C 24 30 36 2C 24 30 36 00 F7 41 | .$05,$06,$06..A|
000039F0: CA 2B 20 A5 24 30 33 00 04 42 D4 2B 52 45 53 54 |.+ .$03..B.+REST|
00003A00: 20 A5 31 33 00 33 42 DE 2B 20 A8 22 41 4E 5A 41 | .13.3B.+ ."ANZA|
00003A10: 48 4C 20 44 45 52 20 47 45 50 41 43 4B 54 45 4E |HL DER GEPACKTEN|
00003A20: 20 44 41 54 45 4E 20 49 4D 20 56 45 52 48 41 45 | DATEN IM VERHAE|
00003A30: 4C 54 2D 00 3C 42 E8 2B 20 A5 31 33 00 77 42 F2 |LT-.<B.+ .13.wB.|
00003A40: 2B 20 A8 22 4E 49 53 20 5A 55 4D 20 4F 52 49 47 |+ ."NIS ZUM ORIG|
00003A50: 49 4E 41 4C 20 49 4E 20 25 3A 20 20 20 20 20 20 |INAL IN %: |
00003A60: 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D | .......|
00003A70: 9D 9D 9D 9D 9D 9D 9D 00 7F 42 FC 2B 20 A5 30 00 |.........B.+ .0.|
00003A80: AE 42 06 2C 45 4E 44 41 44 52 20 A8 22 20 3D 20 |.B.,ENDADR ." = |
00003A90: 45 4E 44 41 44 52 45 53 53 45 20 44 45 52 20 47 |ENDADRESSE DER G|
00003AA0: 45 50 41 43 4B 54 45 4E 20 44 41 54 45 4E 00 B6 |EPACKTEN DATEN..|
00003AB0: 42 10 2C 20 A5 30 00 EB 42 1A 2C 46 45 48 4C 45 |B., .0..B.,FEHLE|
00003AC0: 52 20 A8 22 57 49 45 20 42 49 54 54 45 3F 20 44 |R ."WIE BITTE? D|
00003AD0: 49 45 20 53 54 41 52 54 41 44 52 45 53 53 45 20 |IE STARTADRESSE |
00003AE0: 49 53 54 20 46 41 4C 53 43 48 21 00 F9 42 24 2C |IST FALSCH!..B$,|
00003AF0: 20 A5 31 33 2C 31 33 2C 30 00 00 00 | .13,13,0... |
..&...; PROGRAMM ZUR DEMONSTRATION DER.G
...; FUNKTIONSWEISE VON PACKERN.M...;.J.
(.; BY DIRK NEUMEISTER...2.;
IM TRIESCH 28...<.; 3503 LOHFE
LDEN.A.F.; TEL.: KS/518475.G.P.;.
M.X.;.S...;.Y...;.....;... .; PROGRAMMST
ART AUF $C000 = 49152.....;..... .$C000.
....;.?.H.; DEFINITION VON ROM-ROUTINEN.
E.R.;.Y... .STRAUSG=$AB1E.M... .GETBYTE=
$B79E..... .PRINTFAC=$BDD7..... .KOMMA=$
AEFD..... .INTHOLEN=$AD8A..... .WANDELN=
$B7F7.R... .FACMAL10=$BAE2...". .INFAC=$
B395...,. .COPYFACII=$BC0C...6. .FACDIV=
$BB14.....;.5...; ALLGEMEINER COMPACTOR
START.;...;.C...; SYS 49152, ADR2, ADR3,
ADR4, MODE.....; MIT AUSGAGE DER LAENGE
IN % UND DER ENDADRESSE.....;.Q.$. J#<(
REST); ZEIGER FUER DEN TEXT LADEN, UM DE
N..... C#>(REST); HINWEIS AUF DIE RESTLA
ENGE AUSZUGEBEN.$.8. VSTRAUSG; TEXT AUSG
EBEN.Z.B. VHOLEN; STARTADRESSE DER UNGEP
ACKTEN DATEN HOLEN.E.L. J#$FB...V. VCOPY
; UND DIESE NACH $FB/$FC COPIEREN.E.`. V
HOLEN; ENDADRESSE DER UNGEPACKTEN DATEN
HOLEN...J. I$14; DIE ENDADRESSE UM EINS
ERHOEHEN...T. .COMP3;...~. I$15;.....COM
P3 J#$FD.>... VCOPY; UND NACH $FD/$FE CO
PIEREN.{... VHOLEN; STARTADR. DER GEPACK
TEN DATEN NACH $14/15 LADEN..... VKOMMA;
DEN RESTLICHEN AUSDRUCK AUF KOMMA PRUEF
EN..... VGETBYTE; EIN WEITERES BYTE IN X
-REGISTER HOLEN (MODUS). ... J#$F7; DIE
STARTADRESSE DER GEPACKTEN DATEN.B.D. VC
OPY; NACH $F7/$F8 COPIEREN.~.N. VPROZENT
; PROZENTROUTINE 1 AUFRUFEN (ERSTE BEREC
HNUNG)...X. W; MODUSBYTE IN AKKU COPIERE
N.K... H#$A8; MIT EXOR 10101000 VERKNUEP
FEN..... VAUSGABE; MODUSBYTE SPEICHERN..
... VAUSGABE; DUMMY FUER ENDADRESSE SETZ
EN.F... VAUSGABE; DUMMY FUER ENDADRESSE
SETZEN.X... W; X-REGISTER COPIEREN, FLAG
S WERDEN GESETZT..... .COMP1; WENN <> 0,
DANN MIT NIBBLER ARBEITEN.R... VPACKEN;
SONST MIT PACKER ARBEITEN...(. UCOMP2..
.2.COMP1 VNIBBLER; NIBBLER AUFRUFEN.>.<.
J#$EE; AKKU MIT $EE LADEN UND NIBBLER E
RNEUT AUFRUFEN.Z.F. VNIBBLER3; DAMIT DAS
LETZTE BYTE AUCH GESPEICHERT WIRD...P.C
OMP2 C#$01.A.Z. J$F7; ENDADRESSE SPEICHE
RN, WO VORHER DIE DUMMIES...D. R($61),Y;
GESTANDEN HABEN...N. ....X. J$F8..... R
($61),Y.)... VPROZENT2; PROZENTROUTINE 2
AUFRUFEN.[... VPRINTFAC; RESTLAENGE DES
PROGRAMMS AUSGEBEN.~. . V$AAD7; 2 MAL R
ETURN AUSGEBEN..... V$AAD7..... J$F8; EN
DADRESSE DER GEPACKTEN DATEN LADEN.D...
B$F7...H. V$BDCD; UND EBENFALLS AUSGEBEN
.$.R. J#<(ENDADR); ZEIGER FUER DEN TEXT
DER ENDADRESSE LADEN.5... C#>(ENDADR).Z.
.. VSTRAUSG; UND DEN TEXT AUSGEBEN.A...
..G.P.;...Z.; ALLGEMEINER DECOMPACTOR ST
ART.....; SYS 49265, ADR2, ADR3.....;...
..DECOMP VHOLEN; STARTADRESSE DER GEPACK
TEN DATEN HOLEN..... J#$FB..... VCOPY; U
ND NACH $FB/$FC COPIEREN.8... VNEXTBYTE;
MODUSBYTE HOLEN.U. . .; UND AUF STAPEL
LEGEN...*. VNEXTBYTE; ENDADRESSE DER GEP
ACKTEN DATEN AUS DEM.A.4. R$35; SPEICHER
LESEN UND NACH $35/$36 SPEICHERN.P.>. V
NEXTBYTE.Z.H. R$36...R. VHOLEN; STARTADR
ESSE DER UNGEPACKTEN DATEN HOLEN...\. J#
$F7; .@.F. VCOPY; NACH $F7/$F8 COPIEREN
.K.P. .; STAPEL LESEN UND IN AKKU SPEICH
ERN...Z. H#$A8; CODIERUNG AUFHEBEN.....
.DECOMP1; WENN AKKU <> 0, DANN NIBBLER A
UFRUFEN..... VENTPACKEN; SONST PACKER AU
FRUFEN..... ......DECOMP1 X; AKKU IN X-R
EGISTER COPIEREN.>... .; X-REGISTER UM E
INS VERRINGERN.X... .DECOMP2; WENN X <>
0 (FEHLER), FALSCHE STARTADRESSE..... VD
ENI; SONST NIBBLER AUFRUFEN...J. ....T.D
ECOMP2 J#<(FEHLER); AUSGABE EINER FEHLER
MELDUNG, DA DAS DECODIERTE.#... C#>(FEHL
ER); MODUSBYTE WEDER NULL NOCH EINS WAR
==>.Q... VSTRAUSG; FALSCHE STARTADRESSE
ANGEGEBEN.X... ..^...;.{.B.; UNTERROUTIN
EN FUER DIE...L.; ALLGEMEINEN EINSPRUNGA
DRESSEN...V.;.H...HOLEN VKOMMA; PRUEFT A
UF KOMMA..... VINTHOLEN; 16-BIT ZAHL IN
FAC HOLEN..... VWANDELN; FAC WANDELN IN
INTEGER $14/$15./... .; ZURUECK.5...;.H.
..COPY C#$01; ZAHLEN DER SPEICHERSTELLEN
$14/$15..... RCOPY1+1; IN DIE SPEICHERS
TELLE COPIEREN, DIE IM...&.COPY2 J$14,Y;
AKKU (+1) STEHT.Q.0.COPY1 R$00,Y.X.:. .
...D. .COPY2...N. .; UND WIEDER ZURUECK.
.. .;.....; PACKER.A...; $FB/$FC = BEG
INN DER UNGEPACKTEN DATEN.M...; $FD/$FE
= ENDE DER UNGEPACKTEN DATEN...H.; $F7
/$F8 = BEGINN DER GEPACKTEN DATEN...R.;.
R...PACKEN VNEXTBYTE; NAECHSTES BYTE IN
AKKU HOLEN..... X; BYTE VOM AKKU NACH X
KOPIEREN.7... VVERGLEICHE; BYTE IM AKKU
MIT FOLGENDEN BYTES VERGLEICHEN.K... T$A
5; ANZAHL-1 DER GLEICHEN BYTES IN Y UND
$A5..... A#03; ANZAHL-1 DER BYTES MIT #0
3 VERGLEICHEN.Q... .PACKEN1; WENN ANZAHL
-1 < 3, DANN NICHT PACKEN..... Y; ANZAHL
-1 IN DEN AKKU KOPIEREN...". .; ADDITION
VORBEREITEN.B.,. E$FB; UM ANZAHL-1 DER
GLEICHEN BYTES DEN.{.6. R$FB; ZEIGER FUE
R UNGEPACKTE DATEN NACH VORNE, VER-...@.
.PACKEN2; SCHIEBEN, DAMIT NICHT DOPPELT
ZUSAMMEN-.J.J. I$FC; GEFASST WIRD...T.P
ACKEN2 .#00; VERGLEICHEN DER BYTES MIT $
00.(.^. .PACKEN3; WENN JA, DANN MIT $DB
CODIEREN.K.H. J#$DA; SONST MIT $DA BEGIN
NEN.H.R. VAUSGABE; $DA SPEICHERN...|. J$
A5; ANZAHL-1 DER GLEICHEN BYTES IN AKKU.
.... VAUSGABE; UND ABSPEICHERN..... W; C
ODE DER GLEICHEN BYTES IN AKKU..... VAUS
GABE; UND EBENFALLS SPEICHERN.7... .PACK
EN4; UNBEDINGTER SPRUNG, DA AKKU = #$FF.
N...PACKEN3 J#$DB; #$DB ALS CODE FUER 00
IN AKKU LADEN..... VAUSGABE; UND IM SPE
ICHER ABLEGEN...B. J$A5; ANZAHL-1 DER $0
0-BYTES IN AKKU...L. VAUSGABE; UND EBENF
ALLS SPEICHERN...V. .PACKEN4; UNBEDINGTE
R SPRUNG.=...PACKEN1 .#$DA; VERGLEICHEN
OB BYTE ZUFAELLIG $DA.K... .PACKEN5.D...
.#$DB; ODER $DB IST..... .PACKEN6; WENN
NICHT, VERZWEIGEN (EINFACHE AUSG.).W...
PACKEN5 W; $DA ODER $DB VOM X-REGISTER I
N AKKU COPIEREN..... VAUSGABE; UND AUSGE
BEN..... J#00; ANZAHL-1 LADEN.6.&. VAUSG
ABE; UND EBENFALLS ABSPEICHERN.X.0. .PAC
KEN4; UNBEDINGTER SPRUNG...:.PACKEN6 W;
EINFACHE AUSGABE, D.H. CODE IN AKKU...D.
VAUSGABE; UND IM SPEICHERN ABLEGEN.D.N.
PACKEN4 J$FB...X. B$FC; VERGLEICHEN OB E
NDE, WENN NEIN, DANN...B. .$FE...L. .PAC
KEN7...V. D$FD.E...PACKEN7 .PACKEN; VON
VORNE WIEDER BEGINNEN.T... .; SONST RUEC
KSPRUNG AUS DER UNTERROUTINE.Z...;.....;
ENTPACKEN.....; $F7/$F8 = BEGINN DER
UNGEPACKTEN DATEN.....; $FB/$FC = BEGIN
N DER GEPACKTEN DATEN.....; $35/$36 = E
NDE DER GEPACKTEN DATEN.....;.O.D.ENTPAC
KEN VNEXTBYTE; NAECHSTES BYTE IN DEN AKK
U LADEN...N. D#$DB; MIT DEM ERKENNUNGSCO
DE $DB VERGLEICHEN...X. .ENTPACKEN1; WEN
N AKKU <> #$DB DANN VERZWEIGEN..... VNEX
TBYTE; SONST NAECHSTES BYTE HOLEN.. .. D
#00; TEST, OB ANZAHL-1 DER GLEICHEN BYTE
> 0.@ .. .ENTPACKEN2; WENN NEIN, DANN V
ERZWEIGE.V .. J#$DB; ES WAR ALSO IM ORIG
INAL EIN $DB, AKKU=$DB.. .. .ENTPACKEN3;
UND VERZWEIGEN UM DIREKT SPEICHERN.. ..
ENTPACKEN2 X; ANZAHL-1 DER.$00 IN D. X-R
EGISTER COPIEREN..!.. J#00; AKKU MIT DEM
CODE (HIER #$00) LADEN.7!(. UENTPACKEN8
; UND ENTPACKEN.Z!2.ENTPACKEN1 D#$DA; VE
RGLEICHEN OB BYTE = ERKENNUNGSCODE $DA I
ST..!<. .ENTPACKEN3; WENN NEIN, VERZWEIG
EN UND BYTE AUSGEBEN.Y!F. VNEXTBYTE; NAE
CHSTES BYTE HOLEN.."P. D#00; TEST, CODE
FUER GEPACKT ODER FUER $DA.C"Z. .ENTPACK
EN4; WENN CODE FUER GEPACKT, DANN VERZWE
IGE.G"D. J#$DA; SONST LADE AKKU MIT $DA.
."N. .ENTPACKEN3; UND VERZWEIGE ZUR DIRE
KTEN AUSGABE.V"X.ENTPACKEN4 X; ZAHL DER
GLEICHEN BYTE -1 IN X-REIGSTER..#.. VNEX
TBYTE; NOCH EIN BYTE HOLEN, (CODE DER GL
. BYTE).F#..ENTPACKEN8 .; X MAL DEN INHA
LT DES AKKUS SPEICHERN.P#.. C#00.H# .ENT
PACKEN6 R($F7),Y.O#.. ..V#.. ...#.. .ENT
PACKEN6; NOCH NICHT FERTIG, DANN WEITERM
ACHEN..#H. ...#R. Y.B#.. ...#.. E$F7; SP
EICHERZEIGER WEITERSTELLEN, DAMIT..$.. R
$F7; MAN NICHT DOPPELT IN DEN SPEICHER.A
$.. .ENTPACKEN9; GESCHRIEBEN WIRD.K$.. I
$F8.\$.. .ENTPACKEN9..$..ENTPACKEN3 VAUS
GABE; BYTE IN DEN SPEICHER SCHREIBEN.S$"
.ENTPACKEN9 J$35; TEST, OB SCHON ALLE BY
TES ENTPACKT WURDEN..$,. B$36..$6. .$FC.
.%@. .ENTPACKEN; WENN NEIN, WEITERMACHEN
..%J. D$FB.*%T. .ENTPACKEN.Q%^. .; SONST
FERTIG, D.H. RUECKSPRUNG.W%P.;.{%Z.; UN
TERROUTINEN FUER DEN PACKER..%..; UND DE
N NIBBLER..%..;..%..;..%..;NAECHSTES BYT
E HOLEN..%..;.L%..NEXTBYTE ...%.. C#$34;
ROM AUSSCHALTEN..%J. T$01..&T. C#00; Y=
NULL SETZEN.I&.. J($FB),Y; DEN AKKU MIT
DEM WERT DER SPEICHERSTELLE LADEN.K&.. C
#$37; ROM WIEDER ANSCHALTEN.U&.. T$01.|&
.. ...&.. I$FB; ZEIGER FUER BYTE HOLEN $
(FB/FC) UM.H&.. .NEXTBEND; EINS ERHOEHEN
.R&.. I$FC..&$.NEXTBEND .; UND WIEDER ZU
RUECKSPRINGEN..'..;..'8.;AUSGABE..'B.;.8
'L.AUSGABE C#00; LADE Y MIT NULL.M'V. R(
$F7),Y; SPEICHERE AKKU IN DIE SPEICHERST
ELLE,..'`. I$F7; AUF DIE DER ZEIGER $(F7
/F8) ZEIGT.K'J. .AUSGABEND; ERHOEHE DEN
ZEIGER DANN UM EINS.U'T. I$F8..(~.AUSGAB
END J#$FF; LADE AKKU=$FF (FLAGS WERDEN B
EEINFLUSST).>(.. .; VERLASSE DIESE UNTER
ROUTINE WIEDER.D(..;.U(..;VERLGEICHEN.[(
..;..(..VERGLEICHE C#00; HIER WIRD DAS Y
-REGISTER NULL GESETZT.S(..VERGL1 D($FB)
,Y; VERGLEICHE DEN INHALT DES AKKUS MIT
DER..)D. .VERGLEND; SPEICHERSTELLE, AUF
DIE DER ZEIGER ZEIGT.<)N. .; ZAEHLE, WIE
OFT SICH DIE BYTES GLEICHEN.I)X. .VERGL
1; MAX. ANZAHL IST DABEI 255 (FF).P).. .
..)..VERGLEND .; RUECKSPRUNG WENN DIE BY
TES VERSCHIEDEN.Y).. .; SIND ODER DIE AN
ZAHL GROESSER ALS 255 IST..)..;..)..; NI
BBLER ZUSAMMENFASSEN..*..;.;*..ZUSAM Z;
WERT DES NIBBLES IN DAS Y-REGISTER KOPIE
REN.X*(. JBITLAENGE,Y; DIE BITLAENGE DES
NEUEN CODES IN DEN AKKU..*2. X; LADEN U
ND DANN NACH X KOPIEREN.Y*<. JCODE,Y; DE
N NIBBLECODE AUFGRUND SEINES WERTES LADE
N..+F. C$F9; FREIE BITS IN DAS Y-REGISTE
R LADEN..+P.ZUSAM2 K.G+Z. O$FA; BITS AUS
TAUSCHEN .N+D. ...
+N. .ZUSAM1; WENN BYTE NOCH NICHT VOLL,
DANN VERZWEIGE..+X. .; AKKU AUF DEN STAP
EL LEGEN.Y+.. J$FA; DEN NEU ZUSAMMENGEST
ELLTEN WERT LADEN..+.. VAUSGABE; UND AUS
GEBEN..,.. C#$08; ES SIND WIEDER ACHT BI
TS FREI.D, . .; AKKU WIEDER VOM STAPEL H
OLEN..,..ZUSAM1 .; NOCH VERBLEIBENDE COD
ELAENGE UM EINS VERMINDERN..,.. .ZUSAM2;
UND WEITERMACHEN, BIS DER CODE COPIERT
WURDE..,.. T$F9; ZAHL DER NOCH FREIEN BI
TS ZWISCHENSPEICHERN..-H. .; UND ZURUECK
SPRINGEN..-R.;.>-..; NIBBLER WIEDER AUSE
INANDER ZIEHEN.D-..;..-..ENTNI B#$0F; SC
HLEIFENZAEHLER (X-REGISTER) MIT 16 LADEN
..-..ENTNI2 J$FD.B-.. FMASKE,X; DAS BYTE
MIT DER MASKE VERKNUEPFEN..-.. DCODE,X;
ZAHL DER NOCH FREIEN BYTES UM EINS VERR
INGERN.3... .ENTNI1; WENN UEBEREINSTIMMU
NG, DANN VERZWEIGEN.].". .; SONST ZAEHLE
R UM EINS ERNIEDRIGEN.}.,. .ENTNI2; UND
WEITER SUCHEN...6.ENTNI1 S$FA; CODENUMME
R ZWISCHENSPEICHERN.N.@. JBITLAENGE,X; B
ITLAENGE LADEN...J. X; UND IN DAS X-REGI
STER KOPIEREN.&/T. C$F9; ANZAHL DER REST
LICHEN BITS IN Y LADEN.G/^.ENTNI4 K$FE;
UND AUSTAUSCHEN.Q/H. O$FD../R. .; ANZAHL
DER BITS, DIE NOCH ZU VERFUEGUNG STEHEN
.C/|. .ENTNI3; WENN DIESE GLEICH NULL IS
T, NICHT VERZWEIGEN.K/.. Y;../.. .; Y-RE
GISTER UND AKKU AUF STAPEL RETTEN..0.. W
..0.. ..=0.. VENDE; TEST, OB BEREITS ALL
E BYTES DECOMPREMIERT.J0.. A#$F8; WURDEN
, WENN JA, IST Y = $F8 UND..0B. .ENTNI6;
DANN VERZWEIGEN..0L. VNEXTBYTE; SONST N
EUES BYTE HOLEN.P0V. R$FE; UND AUF $FE S
PEICHERN..1..ENTNI6 .; AKKU UND X-REGIST
ER WIEDER VOM STAPEL HOLEN..1.. X..1.. .
.N1.. A#$F8; WENN ALLE BYTES DECODIERT W
URDEN, (Y=$F8).|1.. .ENTNI5; DANN VERZWE
IGEN ZUM RUECKSPRUNG..1.. C#$08; ES SIND
WIEDER 8 BITS DA.V1..ENTNI3 .; BITLAENG
E DER CODE UM EINS ERNIEDRIGEN..2&. .ENT
NI4; WENN NOCH NICHT NULL, WIEDER VON VO
RNE.<20. T$F9; ANZAHL DER NOCH FREIEN BI
TS SPEICHERN.L2:. J$FA; CODEWERT LADEN (
DIES IST EIN NIBBLE)..2D.ENTNI5 .; UND Z
URUECK..2N.;. 2X.; TEST AUF ENDE..2B.;..
2L.ENDE J$35; ENDADRESSE IN AKKU UND X-R
EGISTER LADEN..2V. B$36..3.. .$FC; MIT D
ER AKTUELLEN LADEADRESSE VERGLEICHEN.(3.
. .ENDE1.23.. D$FB.Y3.. .ENDE1; WENN KLE
INER, DANN WEITER..3.. C#$F8; WENN GLEIC
H, Y-CODE FUER ENDE ($F8) LADEN..3..ENDE
1 .; UND ZURUECK SPRINGEN..3@.;.N3J.; N
IBBLE - PACKER..3T.; $FB/$FC = BEGINN D
ER UNGEPACKTEN DATEN.(4^.; $FD/$FE = EN
DE DER UNGEPACKTEN DATEN.T4H.; $F7/$F8
= BEGINN DER GEPACKTEN DATEN.Z4R.;..4|.N
IBBLER J#$08; ANZAHL DER FREIEN BITS IN
EINEM BYTE LADEN..4.. R$F9; UND NACH $F9
SPEICHERN..4..NIBBLER1 VNEXTBYTE; NEUES
BYTE HOLEN..5..NIBBLER3 .; BYTE AUF STA
PEL ZWISCHENSPEICHERN.<5.. M; HI-NIBBLE
NACH RECHTS SCHIEBEN.X5.. M; LOW-NIBBLE
LOESCHEN._5.. M.F5B. M..5L. VZUSAM; UND
CODIEREN..5V. .; BYTE WIEDER VOM STAPEL
HOLEN..5.. F#$0F; HIGH-NIBBLE LOESCHEN,
LOW NIBBLE BLEIBT UEBRIG..6.. VZUSAM; UN
D AUCH DIESES CODIEREN..6.. J$FB.H6.. B$
FC; TESTEN, OB BEREITS ALLE BYTES CODIER
T WURDEN.R6. .$FE.Z6. .NIBBLER2; WENN
NEIN, WEITERMACHEN..6. D$FD..6& NIBBLER
2 .NIBBLER1..60 .; SONST RUECKSPRUNG..6
(#;.L62#; ENTPACKEN..6<#; $F7/$F8 = BE
GINN DER UNGEPACKTEN DATEN.&7F#; $FB/$F
C = BEGINN DER GEPACKTEN DATEN.P7P#; $3
5/$36 = ENDE DER GEPACKTEN DATEN.V7Z#;..
7D#DENI I$35; ENDADRESSE UM EINS ERHOEHE
N..7N# .DENI3..7X# I$36..7.#DENI3 VNEXTB
YTE; EIN BYTE HOLEN..7.# R$FD; UND ZWISC
HENSPEICHERN..8.# VNEXTBYTE; EIN WEITERE
S BYTE HOLEN.+8 # R$FE; EBENFALLS ZWISCH
ENSPEICHERN.C8.# J#$08; ANZAHL DER FREIE
N BITS IN EINEM BYTE IST 08..8.# R$F9; D
IESE EBENFALLS SPEICHERN..8.#DENI1 VENTN
I; HI-NIBBLE DECODIEREN.S8H# A#$F8; TEST
AUF ENDE (Y = $F8)..9R# .DENI2; WENN JA
, VERZWEIGEN ZUM RUECKSPRUNG.39.# K; SON
ST HI-NIBBLE NACH LINKS VERSCHIEBEN.:9.#
K.A9.# K.H9.# K.A9.$ .; AUF STAPEL LEGE
N..9.$ VENTNI; LOW-NIBBLE DECODIEREN..9.
$ .; AKKU WIEDER VOM STAPEL LADEN.S9"$ A
#$F8; WENN ENDE DER DATEN (Y = $F8)..9,$
.DENI2; DANN VERZWEIGE ZUM RUECKSPRUNG.
+:6$ N$FA; LOW- UND HIGH-NIBBLE VERKNUEP
FEN.G:@$ VAUSGABE; UND AUSGEBEN.A:J$ UDE
NI1; WEITERMACHEN.Z:T$DENI2 .; RUECKSPRU
NG..:.';..:.'; PROZENTSATZ DER COMPREMIE
RUNG.F:$'; BERECHNEN (ERSTER AUFRUF)..
:.'; $FB/$FC = BEGINN DER UNGEPACKTEN DA
TEN..;8'; $FD/$FE = ENDE DER UNGEPACKTEN
DATEN.I;B'; ==> $35/$36 = ERGEBNIS DER
DIFFERENZ..;L'; $F7/$F8 (BEGINN DER GEPA
CKTEN DATEN) IN $61/$62 ZWISCHENSPEICHER
N..;V';..;`'PROZENT .;SUBTRAKTION VORBER
EITEN.D;J' ...;T' J$FD; LAENGE DER UNGEP
ACKTEN..<~' Q$FB; DATEN BERECHNEN UND IN
.-<.' R$35; $35/$36 ZWISCHENSPEICHERN.7<
.' J$FE.A<.' Q$FC.K<.' R$36.X<.' J$F7; B
EGINN DER GEPACKTEN DATEN RETTEN..<.' R$
61; INDEM MAN SIE IN $61/$62 ZWISCHENSPE
ICHERT..<D' J$F8.B<N' R$62..<X' .; UND Z
URUECKSPRINGEN..<.';..=.'; PROZENTSATZ D
ER COMPREMIERUNG.+=.'; BERECHNEN (ZWEI
TER AUFRUF).T=.(; $F7/$F8 = ENDE DER GEP
ACKTEN DATEN.=.(; $61/$62 = BEGINN DER
GEPACKTEN DATEN..=.(; $35/$36 = LAENGE D
ER UNGEPACKTEN DATEN..=.(; BEIM RUECKSPR
UNG ENTHAELT FAC I DEN PROZENTANTEIL..=(
(;..>2(PROZENT2 .; SUBTRAKTION VORBEREIT
EN..><( ..I>F( J$F7; LAENGE DER GEPACKTE
N DATEN BERECHNEN.S>P( Q$61.Z>Z( Z.D>D(
J$F8.N>N( Q$62..>X( VINFAC; UND IN FLIES
SKOMMAAKKU I (FAC I) WANDELN.P>.( VCOPYF
ACII; UND IN DEN FAC II COPIEREN.Z>.( C$
35..?.( J$36; LAENGE DER UNGEPACKTEN DAT
EN LADEN.4? ( VINFAC; UND EBENFALLS IN F
AC SPEICHERN.^?.( VFACDIV; DIVISION VON
FAC UND FAC II.|?.( VFACMAL10; FAC = FAC
*10..?.( VFACMAL10; UND NOCHMAL (==> PR
OZENTANTEIL AUSRECHNEN).R?H( .; UND WIED
ER ZURUECK.X?.*;..?.+; DATEN, TEXT UND F
EHLERMELDUNGEN..@.+; FUER DAS PROGRAMM..
@.+;.W@ +CODE .$00,$A0,$A8; NEUE CODES,
DIE STATT EINES NIBBLES.}@*+ .$B0,$B8,$C
0; GESPEICHERT WERDEN..@4+ .$C8,$F0,$D0.
.@>+ .$D8,$E0,$F4..@H+ .$E8,$F8,$FC..@R+
.$80..@\+MASKE .$80,$F8,$F8; MASKE, UM
DIE UNNOETIGEN BITS ZU LOESCHEN.2AF+ .$F
8,$F8,$F8; UND DIE CODES ZU IDENTIFIZIER
EN.DAP+ .$F8,$FC,$F8.VAZ+ .$F8,$F8,$FC.H
A.+ .$F8,$FC,$FC.RA.+ .$E0..A.+BITLAENGE
.$01,$05,$05; LAENGE DER NEUEN CODES..A
.+ .$05,$05,$05.IA.+ .$05,$06,$05..A.+ .
$05,$05,$06..A.+ .$05,$06,$06..AJ+ .$03.
.BT+REST .13.3B.+ ."ANZAHL DER GEPACKTEN
DATEN IM VERHAELT-.<B.+ .13.WB.+ ."NIS
ZUM ORIGINAL IN %: .......
........B.+ .0..B.,ENDADR ." = ENDADRES
SE DER GEPACKTEN DATEN..B., .0..B.,FEHLE
R ."WIE BITTE? DIE STARTADRESSE IST FALS
CH!..B$, .13,13,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL