Multiple names: SWAP, LISTING 26

FILE INFORMATION

FILENAME(S):
• SWAP<br>• LISTING&nbsp26

FILE TYPE(S): PRG

FILE SIZE: 2.8K

FIRST SEEN: 2025-11-02 16:39:34

APPEARS ON: 6 disk(s)

FILE HASH

9deeb24346e152367c4db39e30cd224a5bc2145c2dcbaa2e3823b1fcc354fde6

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COM	SWAP	PRG	Treasure Chest - Plattfuss	7	4	DOWNLOAD FILE
AUSGABE 6 86	SWAP	PRG	C64er	12	0	DOWNLOAD FILE
15721 SEITE B	LISTING 26	PRG	C64er	17	0	DOWNLOAD FILE
AUSGABE 6 86	SWAP	PRG	DuncanTwain	12	0	DOWNLOAD FILE
AUSGABE 6 86	SWAP	PRG	hedning, Austria	12	0	DOWNLOAD FILE
64 ER 6 86 13B	SWAP	PRG	earthshaker	11	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: FF 59 05 5A 0A 00 3B 00  0B 5A 14 00 3B 00 2F 5A  |.Y.Z..;..Z..;./Z|
00000010: 1E 00 2E 90 24 31 33 30  30 3B 49 4E 20 48 59 50  |....$1300;IN HYP|
00000020: 52 41 2D 41 53 53 3A 20  2E 42 41 20 24 43 30 30  |RA-ASS: .BA $C00|
00000030: 30 00 61 5A 28 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |0.aZ(.;*********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000060: 2A 2A 2A 00 92 5A 32 00  3B 20 56 45 52 54 41 55  |***..Z2.; VERTAU|
00000070: 53 43 48 45 4E 20 5A 57  45 49 45 52 20 53 50 45  |SCHEN ZWEIER SPE|
00000080: 49 43 48 45 52 42 45 52  45 49 43 48 45 20 28 53  |ICHERBEREICHE (S|
00000090: 57 41 50 29 00 C4 5A 3C  00 3B 2A 2A 2A 2A 2A 2A  |WAP)..Z<.;******|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000C0: 2A 2A 2A 2A 2A 2A 00 F1  5A 46 00 2E 8F 4D 56 45  |******..ZF...MVE|
000000D0: 4C 45 4E 3D 24 46 41 3B  49 4E 20 48 59 50 52 41  |LEN=$FA;IN HYPRA|
000000E0: 2D 41 53 53 20 57 49 52  44 20 53 54 41 54 54 20  |-ASS WIRD STATT |
000000F0: 44 45 52 00 26 5B 50 00  2E 8F 4D 56 44 45 53 54  |DER.&[P...MVDEST|
00000100: 3D 24 46 43 3B 20 2E 44  45 46 49 4E 45 20 42 45  |=$FC; .DEFINE BE|
00000110: 46 45 48 4C 45 20 4A 45  57 45 49 4C 53 20 44 45  |FEHLE JEWEILS DE|
00000120: 52 20 42 45 46 45 48 4C  00 4D 5B 5A 00 2E 8F 4D  |R BEFEHL.M[Z...M|
00000130: 56 53 52 43 45 3D 24 46  45 3B 20 2E 45 51 20 3D  |VSRCE=$FE; .EQ =|
00000140: 20 24 2E 2E 2E 20 56 45  52 57 45 4E 44 45 54 00  | $... VERWENDET.|
00000150: 71 5B 64 00 2E 8F 50 52  49 4E 54 3D 24 46 46 44  |q[d...PRINT=$FFD|
00000160: 32 3B 42 49 4C 44 53 43  48 49 52 4D 41 55 53 47  |2;BILDSCHIRMAUSG|
00000170: 41 42 45 00 77 5B 6E 00  3B 00 BF 5B 78 00 3B 49  |ABE.w[n.;..[x.;I|
00000180: 4E 20 4D 56 45 4C 45 4E  20 57 49 52 44 20 44 49  |N MVELEN WIRD DI|
00000190: 45 20 4C 41 45 4E 47 45  20 44 45 52 20 5A 55 20  |E LAENGE DER ZU |
000001A0: 56 45 52 54 41 55 53 43  48 45 4E 44 45 4E 20 42  |VERTAUSCHENDEN B|
000001B0: 45 52 45 49 43 48 45 20  41 4E 47 45 47 45 42 45  |EREICHE ANGEGEBE|
000001C0: 4E 00 F7 5B 82 00 3B 49  4E 20 4D 56 44 45 53 54  |N..[..;IN MVDEST|
000001D0: 20 44 49 45 20 53 54 41  52 54 41 44 52 45 53 53  | DIE STARTADRESS|
000001E0: 45 20 44 45 53 20 31 2E  20 42 45 52 45 49 43 48  |E DES 1. BEREICH|
000001F0: 45 53 20 55 4E 44 20 49  4E 00 26 5C 8C 00 3B 4D  |ES UND IN.&\..;M|
00000200: 56 53 52 43 45 20 44 49  45 20 53 54 41 52 54 41  |VSRCE DIE STARTA|
00000210: 44 52 45 53 53 45 20 44  45 53 20 32 2E 20 42 45  |DRESSE DES 2. BE|
00000220: 52 45 49 43 48 45 53 2E  00 2C 5C 96 00 3B 00 6F  |REICHES..,\..;.o|
00000230: 5C A0 00 3B 2D 2D 2D 2D  2D 2D 20 50 52 4F 47 52  |\..;------ PROGR|
00000240: 41 4D 4D 20 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |AMM ------------|
00000250: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000260: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000270: 2D 00 AE 5C AA 00 3B 41  4C 53 20 45 52 53 54 45  |-..\..;ALS ERSTE|
00000280: 53 20 57 49 52 44 20 42  45 53 54 49 4D 4D 54 2C  |S WIRD BESTIMMT,|
00000290: 20 4F 42 20 44 45 52 20  5A 49 45 4C 42 45 52 45  | OB DER ZIELBERE|
000002A0: 49 43 48 20 4F 42 45 52  48 41 4C 42 20 44 45 53  |ICH OBERHALB DES|
000002B0: 00 F0 5C B4 00 3B 20 51  55 45 4C 4C 42 45 52 45  |..\..; QUELLBERE|
000002C0: 49 43 48 45 53 20 4C 49  45 47 54 20 55 4E 44 20  |ICHES LIEGT UND |
000002D0: 4F 42 20 53 49 43 48 20  44 49 45 20 42 45 49 44  |OB SICH DIE BEID|
000002E0: 45 4E 20 42 45 52 45 49  43 48 45 20 55 45 42 45  |EN BEREICHE UEBE|
000002F0: 52 2D 00 33 5D BE 00 3B  20 4C 41 50 50 45 4E 2E  |R-.3]..; LAPPEN.|
00000300: 20 45 49 4E 45 20 55 45  42 45 52 4C 41 50 50 55  | EINE UEBERLAPPU|
00000310: 4E 47 20 4C 49 45 47 54  20 44 41 4E 4E 20 56 4F  |NG LIEGT DANN VO|
00000320: 52 2C 20 57 45 4E 4E 20  44 49 45 20 44 49 46 46  |R, WENN DIE DIFF|
00000330: 45 52 45 4E 5A 00 77 5D  C8 00 3B 20 56 4F 4E 20  |ERENZ.w]..; VON |
00000340: 5A 49 45 4C 41 44 52 45  53 53 45 20 4D 49 4E 55  |ZIELADRESSE MINU|
00000350: 53 20 51 55 45 4C 4C 41  44 52 45 53 53 45 20 4B  |S QUELLADRESSE K|
00000360: 4C 45 49 4E 45 52 20 41  4C 53 20 44 49 45 20 41  |LEINER ALS DIE A|
00000370: 4E 5A 41 48 4C 20 44 45  52 00 9A 5D D2 00 3B 20  |NZAHL DER..]..; |
00000380: 5A 55 20 56 45 52 53 43  48 49 45 42 45 4E 44 45  |ZU VERSCHIEBENDE|
00000390: 4E 20 42 59 54 45 53 20  49 53 54 2E 00 A0 5D DC  |N BYTES IST...].|
000003A0: 00 3B 00 CF 5D E6 00 53  54 41 52 54 20 81 4D 56  |.;..]..START .MV|
000003B0: 44 45 53 54 3B 42 45 52  45 43 48 4E 55 4E 47 20  |DEST;BERECHNUNG |
000003C0: 5A 49 45 4C 20 4D 49 4E  55 53 20 51 55 45 4C 4C  |ZIEL MINUS QUELL|
000003D0: 45 00 D6 5D F0 00 20 A7  00 E3 5D FA 00 20 92 4D  |E..].. ...].. .M|
000003E0: 56 53 52 43 45 00 EA 5D  04 01 20 99 00 F9 5D 0E  |VSRCE..].. ...].|
000003F0: 01 20 81 4D 56 44 45 53  54 2B 31 00 08 5E 18 01  |. .MVDEST+1..^..|
00000400: 20 92 4D 56 53 52 43 45  2B 31 00 0F 5E 22 01 20  | .MVSRCE+1..^". |
00000410: 9B 00 43 5E 2C 01 20 98  3B 56 45 52 47 4C 45 49  |..C^,. .;VERGLEI|
00000420: 43 48 20 4D 49 54 20 4C  41 45 4E 47 45 20 44 45  |CH MIT LAENGE DE|
00000430: 53 20 56 45 52 53 43 48  49 45 42 45 42 45 52 45  |S VERSCHIEBEBERE|
00000440: 49 43 48 45 53 00 50 5E  36 01 20 85 4D 56 45 4C  |ICHES.P^6. .MVEL|
00000450: 45 4E 00 57 5E 40 01 20  9A 00 66 5E 4A 01 20 92  |EN.W^@. ..f^J. .|
00000460: 4D 56 45 4C 45 4E 2B 31  00 97 5E 54 01 20 B6 44  |MVELEN+1..^T. .D|
00000470: 4F 4C 45 46 54 3B 56 45  52 5A 57 45 49 47 45 4E  |OLEFT;VERZWEIGEN|
00000480: 2C 20 57 45 4E 4E 20 4B  45 49 4E 45 20 55 45 42  |, WENN KEINE UEB|
00000490: 45 52 4C 41 50 50 55 4E  47 00 C6 5E 5E 01 20 97  |ERLAPPUNG..^^. .|
000004A0: 4D 45 4C 44 45 4E 3B 53  4F 4E 53 54 20 41 55 53  |MELDEN;SONST AUS|
000004B0: 47 41 42 45 20 45 49 4E  45 52 20 46 45 48 4C 45  |GABE EINER FEHLE|
000004C0: 52 4D 45 4C 44 55 4E 47  00 D1 5E 68 01 20 96 45  |RMELDUNG..^h. .E|
000004D0: 58 49 54 00 FD 5E 72 01  44 4F 4C 45 46 54 20 97  |XIT..^r.DOLEFT .|
000004E0: 4D 56 45 4C 46 54 3B 5A  55 4D 20 55 50 20 4F 48  |MVELFT;ZUM UP OH|
000004F0: 4E 45 20 55 45 42 45 52  4C 41 50 50 55 4E 47 00  |NE UEBERLAPPUNG.|
00000500: 08 5F 7C 01 45 58 49 54  20 A4 00 0E 5F 86 01 3B  |._|.EXIT ..._..;|
00000510: 00 4A 5F 90 01 3B 2A 2A  2A 2A 20 55 50 20 5A 55  |.J_..;**** UP ZU|
00000520: 4D 20 56 45 52 53 43 48  49 45 42 45 4E 20 4F 48  |M VERSCHIEBEN OH|
00000530: 4E 45 20 55 45 42 45 52  4C 41 50 50 55 4E 47 3A  |NE UEBERLAPPUNG:|
00000540: 20 4D 56 45 4C 46 54 20  2A 2A 2A 2A 00 50 5F 9A  | MVELFT ****.P_.|
00000550: 01 3B 00 6E 5F A4 01 4D  56 45 4C 46 54 20 84 23  |.;.n_..MVELFT .#|
00000560: 30 3B 49 4E 44 45 58 20  41 55 46 20 4E 55 4C 4C  |0;INDEX AUF NULL|
00000570: 00 8F 5F AE 01 20 83 4D  56 45 4C 45 4E 2B 31 3B  |.._.. .MVELEN+1;|
00000580: 41 4E 5A 41 48 4C 20 50  41 47 45 53 20 49 4E 20  |ANZAHL PAGES IN |
00000590: 58 00 BF 5F B8 01 20 B8  4D 4C 50 41 52 54 3B 46  |X.._.. .MLPART;F|
000005A0: 41 4C 4C 53 20 4B 45 49  4E 45 20 47 41 4E 5A 45  |ALLS KEINE GANZE|
000005B0: 4E 20 50 41 47 45 53 20  44 41 4E 4E 20 52 45 53  |N PAGES DANN RES|
000005C0: 54 00 E5 5F C2 01 4D 4C  50 41 47 45 20 81 28 4D  |T.._..MLPAGE .(M|
000005D0: 56 53 52 43 45 29 2C 59  3B 45 49 4E 20 42 59 54  |VSRCE),Y;EIN BYT|
000005E0: 45 20 4C 45 53 45 4E 00  FD 5F CC 01 20 A0 3B 53  |E LESEN.._.. .;S|
000005F0: 49 43 48 45 52 4E 20 44  45 53 20 42 59 54 45 00  |ICHERN DES BYTE.|
00000600: 2D 60 D6 01 20 81 28 4D  56 44 45 53 54 29 2C 59  |-`.. .(MVDEST),Y|
00000610: 3B 42 59 54 45 20 41 55  53 20 41 4E 44 45 52 45  |;BYTE AUS ANDERE|
00000620: 4D 20 42 45 52 45 49 43  48 20 4C 45 53 45 4E 00  |M BEREICH LESEN.|
00000630: 4B 60 E0 01 20 82 28 4D  56 53 52 43 45 29 2C 59  |K`.. .(MVSRCE),Y|
00000640: 3B 55 4E 44 20 55 4D 54  52 41 47 45 4E 00 6B 60  |;UND UMTRAGEN.k`|
00000650: EA 01 20 A1 3B 42 59 54  45 20 57 49 45 44 45 52  |.. .;BYTE WIEDER|
00000660: 20 5A 55 52 55 45 43 4B  48 4F 4C 45 4E 00 89 60  | ZURUECKHOLEN..`|
00000670: F4 01 20 82 28 4D 56 44  45 53 54 29 2C 59 3B 55  |.. .(MVDEST),Y;U|
00000680: 4E 44 20 55 4D 54 52 41  47 45 4E 00 9F 60 FE 01  |ND UMTRAGEN..`..|
00000690: 20 9E 3B 4E 41 45 43 48  53 54 45 53 20 42 59 54  | .;NAECHSTES BYT|
000006A0: 45 00 CA 60 08 02 20 B7  4D 4C 50 41 47 45 3B 42  |E..`.. .MLPAGE;B|
000006B0: 49 53 20 32 35 36 20 42  59 54 45 53 20 56 45 52  |IS 256 BYTES VER|
000006C0: 53 43 48 4F 42 45 4E 20  53 49 4E 44 00 F2 60 12  |SCHOBEN SIND..`.|
000006D0: 02 20 8A 4D 56 53 52 43  45 2B 31 3B 4E 41 45 43  |. .MVSRCE+1;NAEC|
000006E0: 48 53 54 45 20 50 41 47  45 20 44 45 52 20 51 55  |HSTE PAGE DER QU|
000006F0: 45 4C 4C 45 00 18 61 1C  02 20 8A 4D 56 44 45 53  |ELLE..a.. .MVDES|
00000700: 54 2B 31 3B 20 55 4E 44  20 44 45 53 20 5A 49 45  |T+1; UND DES ZIE|
00000710: 4C 42 45 52 45 49 43 48  45 53 00 3B 61 26 02 20  |LBEREICHES.;a&. |
00000720: AF 3B 50 41 47 45 5A 41  45 48 4C 45 52 20 48 45  |.;PAGEZAEHLER HE|
00000730: 52 55 4E 54 45 52 5A 41  45 48 4C 45 4E 00 72 61  |RUNTERZAEHLEN.ra|
00000740: 30 02 20 B7 4D 4C 50 41  47 45 3B 57 45 49 54 45  |0. .MLPAGE;WEITE|
00000750: 52 4D 41 43 48 45 4E 20  42 49 53 20 41 4C 4C 45  |RMACHEN BIS ALLE|
00000760: 20 56 4F 4C 4C 45 4E 20  50 41 47 45 53 20 46 45  | VOLLEN PAGES FE|
00000770: 52 54 49 47 00 A3 61 3A  02 4D 4C 50 41 52 54 20  |RTIG..a:.MLPART |
00000780: 83 4D 56 45 4C 45 4E 3B  4C 41 45 4E 47 45 20 44  |.MVELEN;LAENGE D|
00000790: 45 53 20 52 45 53 54 42  45 52 45 49 43 48 45 53  |ES RESTBEREICHES|
000007A0: 20 49 4E 20 58 00 CF 61  44 02 20 B8 4D 4C 45 58  | IN X..aD. .MLEX|
000007B0: 49 54 3B 5A 55 52 55 45  43 4B 2C 20 57 45 4E 4E  |IT;ZURUECK, WENN|
000007C0: 20 52 45 53 54 20 47 4C  45 49 43 48 20 4E 55 4C  | REST GLEICH NUL|
000007D0: 4C 00 F5 61 4E 02 4D 4C  4C 41 53 54 20 81 28 4D  |L..aN.MLLAST .(M|
000007E0: 56 53 52 43 45 29 2C 59  3B 45 49 4E 20 42 59 54  |VSRCE),Y;EIN BYT|
000007F0: 45 20 4C 45 53 45 4E 00  0D 62 58 02 20 A0 3B 53  |E LESEN..bX. .;S|
00000800: 49 43 48 45 52 4E 20 44  45 53 20 42 59 54 45 00  |ICHERN DES BYTE.|
00000810: 3D 62 62 02 20 81 28 4D  56 44 45 53 54 29 2C 59  |=bb. .(MVDEST),Y|
00000820: 3B 42 59 54 45 20 41 55  53 20 41 4E 44 45 52 45  |;BYTE AUS ANDERE|
00000830: 4D 20 42 45 52 45 49 43  48 20 4C 45 53 45 4E 00  |M BEREICH LESEN.|
00000840: 5B 62 6C 02 20 82 28 4D  56 53 52 43 45 29 2C 59  |[bl. .(MVSRCE),Y|
00000850: 3B 55 4E 44 20 55 4D 54  52 41 47 45 4E 00 7B 62  |;UND UMTRAGEN.{b|
00000860: 76 02 20 A1 3B 42 59 54  45 20 57 49 45 44 45 52  |v. .;BYTE WIEDER|
00000870: 20 5A 55 52 55 45 43 4B  48 4F 4C 45 4E 00 99 62  | ZURUECKHOLEN..b|
00000880: 80 02 20 82 28 4D 56 44  45 53 54 29 2C 59 3B 55  |.. .(MVDEST),Y;U|
00000890: 4E 44 20 55 4D 54 52 41  47 45 4E 00 AF 62 8A 02  |ND UMTRAGEN..b..|
000008A0: 20 9E 3B 4E 41 45 43 48  53 54 45 53 20 42 59 54  | .;NAECHSTES BYT|
000008B0: 45 00 CE 62 94 02 20 AF  3B 5A 41 45 48 4C 45 52  |E..b.. .;ZAEHLER|
000008C0: 20 48 45 52 55 4E 54 45  52 5A 41 45 48 4C 45 4E  | HERUNTERZAEHLEN|
000008D0: 00 FF 62 9E 02 20 B7 4D  4C 4C 41 53 54 3B 57 45  |..b.. .MLLAST;WE|
000008E0: 49 54 45 52 20 42 49 53  20 52 45 53 54 20 44 55  |ITER BIS REST DU|
000008F0: 52 43 48 47 45 41 52 42  45 49 54 45 54 20 49 53  |RCHGEARBEITET IS|
00000900: 54 00 26 63 A8 02 4D 4C  45 58 49 54 20 A4 3B 5A  |T.&c..MLEXIT .;Z|
00000910: 55 52 55 45 43 4B 20 5A  55 4D 20 48 41 55 50 54  |URUECK ZUM HAUPT|
00000920: 50 52 4F 47 52 41 4D 4D  00 2C 63 B2 02 3B 00 66  |PROGRAMM.,c..;.f|
00000930: 63 BC 02 3B 2A 2A 2A 2A  20 55 50 20 5A 55 52 20  |c..;**** UP ZUR |
00000940: 41 55 53 47 41 42 45 20  45 49 4E 45 52 20 46 45  |AUSGABE EINER FE|
00000950: 48 4C 45 52 4D 45 4C 44  55 4E 47 3A 20 4D 45 4C  |HLERMELDUNG: MEL|
00000960: 44 45 4E 20 2A 2A 2A 2A  00 6C 63 C6 02 3B 00 8A  |DEN ****.lc..;..|
00000970: 63 D0 02 4D 45 4C 44 45  4E 20 84 23 30 3B 49 4E  |c..MELDEN .#0;IN|
00000980: 44 45 58 20 41 55 46 20  4E 55 4C 4C 00 AF 63 DA  |DEX AUF NULL..c.|
00000990: 02 57 45 49 54 45 52 20  81 54 45 58 54 2C 59 3B  |.WEITER .TEXT,Y;|
000009A0: 54 45 58 54 5A 45 49 43  48 45 4E 20 4C 41 44 45  |TEXTZEICHEN LADE|
000009B0: 4E 00 E8 63 E4 02 20 B8  45 4E 44 45 3B 57 45 4E  |N..c.. .ENDE;WEN|
000009C0: 4E 20 4E 55 4C 4C 42 59  54 45 2C 20 44 41 4E 4E  |N NULLBYTE, DANN|
000009D0: 20 5A 55 52 55 45 43 4B  20 5A 55 4D 20 48 41 55  | ZURUECK ZUM HAU|
000009E0: 50 54 50 52 4F 47 52 41  4D 4D 00 12 64 EE 02 20  |PTPROGRAMM..d.. |
000009F0: 97 50 52 49 4E 54 3B 53  4F 4E 53 54 20 41 55 46  |.PRINT;SONST AUF|
00000A00: 20 42 49 4C 44 53 43 48  49 52 4D 20 41 55 53 47  | BILDSCHIRM AUSG|
00000A10: 45 42 45 4E 00 28 64 F8  02 20 9E 3B 49 4E 44 45  |EBEN.(d.. .;INDE|
00000A20: 58 20 45 52 48 4F 45 48  45 4E 00 50 64 02 03 20  |X ERHOEHEN.Pd.. |
00000A30: 96 57 45 49 54 45 52 3B  4E 41 45 43 48 53 54 45  |.WEITER;NAECHSTE|
00000A40: 53 20 5A 45 49 43 48 45  4E 20 41 55 53 47 45 42  |S ZEICHEN AUSGEB|
00000A50: 45 4E 00 75 64 0C 03 45  4E 44 45 20 A4 3B 5A 55  |EN.ud..ENDE .;ZU|
00000A60: 52 55 45 43 4B 20 5A 55  4D 20 48 41 55 50 54 50  |RUECK ZUM HAUPTP|
00000A70: 52 4F 47 52 41 4D 4D 00  7B 64 16 03 3B 00 9C 64  |ROGRAMM.{d..;..d|
00000A80: 20 03 54 45 58 54 20 2E  91 31 33 3B 48 59 50 52  | .TEXT ..13;HYPR|
00000A90: 41 2D 41 53 53 3A 20 20  2E 42 59 20 31 33 00 DA  |A-ASS:  .BY 13..|
00000AA0: 64 2A 03 20 2E 91 22 55  45 42 45 52 53 43 48 4E  |d*. .."UEBERSCHN|
00000AB0: 45 49 44 55 4E 47 20 21  22 3B 48 59 50 52 41 2D  |EIDUNG !";HYPRA-|
00000AC0: 41 53 53 3A 20 2E 54 58  20 22 55 45 42 45 52 53  |ASS: .TX "UEBERS|
00000AD0: 43 48 4E 45 49 44 55 4E  47 20 21 22 00 FA 64 34  |CHNEIDUNG !"..d4|
00000AE0: 03 20 2E 91 31 33 2C 30  3B 48 59 50 52 41 2D 41  |. ..13,0;HYPRA-A|
00000AF0: 53 53 3A 20 2E 42 59 20  31 33 2C 30 00 00 65 3E  |SS: .BY 13,0..e>|
00000B00: 03 3B 00 06 65 52 03 3B  00 00 00 5A              |.;..eR.;...Z    |

.Y.Z..;..Z..;./Z....$1300;IN HYPRA-ASS: 
.BA $C000.AZ(.;*************************
*******************..Z2.; VERTAUSCHEN ZW
EIER SPEICHERBEREICHE (SWAP).DZ<.;******
**************************************..
ZF...MVELEN=$FA;IN HYPRA-ASS WIRD STATT 
DER.&[P...MVDEST=$FC; .DEFINE BEFEHLE JE
WEILS DER BEFEHL.M[Z...MVSRCE=$FE; .EQ =
 $... VERWENDET.Q[D...PRINT=$FFD2;BILDSC
HIRMAUSGABE.W[N.;..[X.;IN MVELEN WIRD DI
E LAENGE DER ZU VERTAUSCHENDEN BEREICHE 
ANGEGEBEN..[..;IN MVDEST DIE STARTADRESS
E DES 1. BEREICHES UND IN.&\..;MVSRCE DI
E STARTADRESSE DES 2. BEREICHES..,\..;.O
\ .;------ PROGRAMM --------------------
-------------------------..\..;ALS ERSTE
S WIRD BESTIMMT, OB DER ZIELBEREICH OBER
HALB DES..\..; QUELLBEREICHES LIEGT UND 
OB SICH DIE BEIDEN BEREICHE UEBER-.3]..;
 LAPPEN. EINE UEBERLAPPUNG LIEGT DANN VO
R, WENN DIE DIFFERENZ.W]H.; VON ZIELADRE
SSE MINUS QUELLADRESSE KLEINER ALS DIE A
NZAHL DER..]R.; ZU VERSCHIEBENDEN BYTES 
IST.. ]..;.O]..START .MVDEST;BERECHNUNG 
ZIEL MINUS QUELLE.V].. ...].. .MVSRCE..]
.. ...].. .MVDEST+1..^.. .MVSRCE+1..^". 
..C^,. .;VERGLEICH MIT LAENGE DES VERSCH
IEBEBEREICHES.P^6. .MVELEN.W^@. ..F^J. .
MVELEN+1..^T. .DOLEFT;VERZWEIGEN, WENN K
EINE UEBERLAPPUNG.F^^. .MELDEN;SONST AUS
GABE EINER FEHLERMELDUNG.Q^H. .EXIT..^R.
DOLEFT .MVELFT;ZUM UP OHNE UEBERLAPPUNG.
._|.EXIT ..._..;.J_..;**** UP ZUM VERSCH
IEBEN OHNE UEBERLAPPUNG: MVELFT ****.P_.
.;.N_..MVELFT .#0;INDEX AUF NULL.._.. .M
VELEN+1;ANZAHL PAGES IN X.._.. .MLPART;F
ALLS KEINE GANZEN PAGES DANN REST.._B.ML
PAGE .(MVSRCE),Y;EIN BYTE LESEN.._L.  ;S
ICHERN DES BYTE.-`V. .(MVDEST),Y;BYTE AU
S ANDEREM BEREICH LESEN.K`.. .(MVSRCE),Y
;UND UMTRAGEN.K`.. .;BYTE WIEDER ZURUECK
HOLEN..`.. .(MVDEST),Y;UND UMTRAGEN..`..
 .;NAECHSTES BYTE.J`.. .MLPAGE;BIS 256 B
YTES VERSCHOBEN SIND..`.. .MVSRCE+1;NAEC
HSTE PAGE DER QUELLE..A.. .MVDEST+1; UND
 DES ZIELBEREICHES.;A&. .;PAGEZAEHLER HE
RUNTERZAEHLEN.RA0. .MLPAGE;WEITERMACHEN 
BIS ALLE VOLLEN PAGES FERTIG..A:.MLPART 
.MVELEN;LAENGE DES RESTBEREICHES IN X.OA
D. .MLEXIT;ZURUECK, WENN REST GLEICH NUL
L..AN.MLLAST .(MVSRCE),Y;EIN BYTE LESEN.
.BX.  ;SICHERN DES BYTE.=BB. .(MVDEST),Y
;BYTE AUS ANDEREM BEREICH LESEN.[BL. .(M
VSRCE),Y;UND UMTRAGEN.{BV. .;BYTE WIEDER
 ZURUECKHOLEN..B.. .(MVDEST),Y;UND UMTRA
GEN..B.. .;NAECHSTES BYTE.NB.. .;ZAEHLER
 HERUNTERZAEHLEN..B.. .MLLAST;WEITER BIS
 REST DURCHGEARBEITET IST.&C..MLEXIT .;Z
URUECK ZUM HAUPTPROGRAMM.,C..;.FC..;****
 UP ZUR AUSGABE EINER FEHLERMELDUNG: MEL
DEN ****.LCF.;..CP.MELDEN .#0;INDEX AUF 
NULL..CZ.WEITER .TEXT,Y;TEXTZEICHEN LADE
N..C.. .ENDE;WENN NULLBYTE, DANN ZURUECK
 ZUM HAUPTPROGRAMM..D.. .PRINT;SONST AUF
 BILDSCHIRM AUSGEBEN.(D.. .;INDEX ERHOEH
EN.PD.. .WEITER;NAECHSTES ZEICHEN AUSGEB
EN.UD..ENDE .;ZURUECK ZUM HAUPTPROGRAMM.
{D..;..D .TEXT ..13;HYPRA-ASS:  .BY 13.Z
D*. .."UEBERSCHNEIDUNG !";HYPRA-ASS: .TX
 "UEBERSCHNEIDUNG !"..D4. ..13,0;HYPRA-A
SS: .BY 13,0..E>.;..ER.;...Z

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL