Multiple names: BLOCK, LISTING 24

FILE INFORMATION

FILENAME(S):
• BLOCK<br>• LISTING&nbsp24

FILE TYPE(S): PRG

FILE SIZE: 3K

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

APPEARS ON: 5 disk(s)

FILE HASH

9ef0abefccf310cf8a6b2aa63c0aee6d1722f9d191a0e26c626f50096d198bbb

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COM	BLOCK	PRG	Treasure Chest - Plattfuss	8	8	DOWNLOAD FILE
AUSGABE 6 86	BLOCK	PRG	C64er	23	0	DOWNLOAD FILE
15721 SEITE A	LISTING 24	PRG	C64er	34	1	DOWNLOAD FILE
AUSGABE 6 86	BLOCK	PRG	DuncanTwain	23	0	DOWNLOAD FILE
AUSGABE 6 86	BLOCK	PRG	hedning, Austria	23	0	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 5D 5A 28 00 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |0.]Z(.;*********|
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 00  |***************.|
00000060: 86 5A 32 00 3B 20 42 4C  4F 43 4B 56 45 52 53 43  |.Z2.; BLOCKVERSC|
00000070: 48 49 45 42 45 52 4F 55  54 49 4E 45 20 4F 48 4E  |HIEBEROUTINE OHN|
00000080: 45 20 46 45 48 4C 45 52  00 B4 5A 3C 00 3B 2A 2A  |E FEHLER..Z<.;**|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000B0: 2A 2A 2A 2A 2A 2A 00 E1  5A 46 00 2E 8F 4D 56 45  |******..ZF...MVE|
000000C0: 4C 45 4E 3D 24 46 41 3B  49 4E 20 48 59 50 52 41  |LEN=$FA;IN HYPRA|
000000D0: 2D 41 53 53 20 57 49 52  44 20 53 54 41 54 54 20  |-ASS WIRD STATT |
000000E0: 44 45 52 00 16 5B 50 00  2E 8F 4D 56 44 45 53 54  |DER..[P...MVDEST|
000000F0: 3D 24 46 43 3B 20 2E 44  45 46 49 4E 45 20 42 45  |=$FC; .DEFINE BE|
00000100: 46 45 48 4C 45 20 4A 45  57 45 49 4C 53 20 44 45  |FEHLE JEWEILS DE|
00000110: 52 20 42 45 46 45 48 4C  00 3D 5B 5A 00 2E 8F 4D  |R BEFEHL.=[Z...M|
00000120: 56 53 52 43 45 3D 24 46  45 3B 20 2E 45 51 20 3D  |VSRCE=$FE; .EQ =|
00000130: 20 24 2E 2E 2E 20 56 45  52 57 45 4E 44 45 54 00  | $... VERWENDET.|
00000140: 43 5B 64 00 3B 00 8C 5B  6E 00 3B 49 4E 20 4D 56  |C[d.;..[n.;IN MV|
00000150: 45 4C 45 4E 20 57 49 52  44 20 44 49 45 20 4C 41  |ELEN WIRD DIE LA|
00000160: 45 4E 47 45 20 44 45 52  20 5A 55 20 56 45 52 53  |ENGE DER ZU VERS|
00000170: 43 48 49 45 42 45 4E 44  45 4E 20 42 45 52 45 49  |CHIEBENDEN BEREI|
00000180: 43 48 45 53 20 41 4E 47  45 47 45 42 45 4E 00 C5  |CHES ANGEGEBEN..|
00000190: 5B 78 00 3B 49 4E 20 4D  56 44 45 53 54 20 44 49  |[x.;IN MVDEST DI|
000001A0: 45 20 53 54 41 52 54 41  44 52 45 53 53 45 20 44  |E STARTADRESSE D|
000001B0: 45 53 20 5A 49 45 4C 42  45 52 45 49 43 48 45 53  |ES ZIELBEREICHES|
000001C0: 20 55 4E 44 20 49 4E 00  F6 5B 82 00 3B 4D 56 53  | UND IN..[..;MVS|
000001D0: 52 43 45 20 44 49 45 20  53 54 41 52 54 41 44 52  |RCE DIE STARTADR|
000001E0: 45 53 53 45 20 44 45 53  20 51 55 45 4C 4C 42 45  |ESSE DES QUELLBE|
000001F0: 52 45 49 43 48 45 53 2E  00 FC 5B 8C 00 3B 00 3F  |REICHES...[..;.?|
00000200: 5C 96 00 3B 2D 2D 2D 2D  2D 2D 20 50 52 4F 47 52  |\..;------ PROGR|
00000210: 41 4D 4D 20 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |AMM ------------|
00000220: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000230: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000240: 2D 00 7E 5C A0 00 3B 41  4C 53 20 45 52 53 54 45  |-.~\..;ALS ERSTE|
00000250: 53 20 57 49 52 44 20 42  45 53 54 49 4D 4D 54 2C  |S WIRD BESTIMMT,|
00000260: 20 4F 42 20 44 45 52 20  5A 49 45 4C 42 45 52 45  | OB DER ZIELBERE|
00000270: 49 43 48 20 4F 42 45 52  48 41 4C 42 20 44 45 53  |ICH OBERHALB DES|
00000280: 00 C0 5C AA 00 3B 20 51  55 45 4C 4C 42 45 52 45  |..\..; QUELLBERE|
00000290: 49 43 48 45 53 20 4C 49  45 47 54 20 55 4E 44 20  |ICHES LIEGT UND |
000002A0: 4F 42 20 53 49 43 48 20  44 49 45 20 42 45 49 44  |OB SICH DIE BEID|
000002B0: 45 4E 20 42 45 52 45 49  43 48 45 20 55 45 42 45  |EN BEREICHE UEBE|
000002C0: 52 2D 00 03 5D B4 00 3B  20 4C 41 50 50 45 4E 2E  |R-..]..; LAPPEN.|
000002D0: 20 45 49 4E 45 20 55 45  42 45 52 4C 41 50 50 55  | EINE UEBERLAPPU|
000002E0: 4E 47 20 4C 49 45 47 54  20 44 41 4E 4E 20 56 4F  |NG LIEGT DANN VO|
000002F0: 52 2C 20 57 45 4E 4E 20  44 49 45 20 44 49 46 46  |R, WENN DIE DIFF|
00000300: 45 52 45 4E 5A 00 47 5D  BE 00 3B 20 56 4F 4E 20  |ERENZ.G]..; VON |
00000310: 5A 49 45 4C 41 44 52 45  53 53 45 20 4D 49 4E 55  |ZIELADRESSE MINU|
00000320: 53 20 51 55 45 4C 4C 41  44 52 45 53 53 45 20 4B  |S QUELLADRESSE K|
00000330: 4C 45 49 4E 45 52 20 41  4C 53 20 44 49 45 20 41  |LEINER ALS DIE A|
00000340: 4E 5A 41 48 4C 20 44 45  52 00 6A 5D C8 00 3B 20  |NZAHL DER.j]..; |
00000350: 5A 55 20 56 45 52 53 43  48 49 45 42 45 4E 44 45  |ZU VERSCHIEBENDE|
00000360: 4E 20 42 59 54 45 53 20  49 53 54 2E 00 70 5D D2  |N BYTES IST..p].|
00000370: 00 3B 00 9F 5D DC 00 53  54 41 52 54 20 81 4D 56  |.;..]..START .MV|
00000380: 44 45 53 54 3B 42 45 52  45 43 48 4E 55 4E 47 20  |DEST;BERECHNUNG |
00000390: 5A 49 45 4C 20 4D 49 4E  55 53 20 51 55 45 4C 4C  |ZIEL MINUS QUELL|
000003A0: 45 00 A6 5D E6 00 20 A7  00 B3 5D F0 00 20 92 4D  |E..].. ...].. .M|
000003B0: 56 53 52 43 45 00 BA 5D  FA 00 20 99 00 C9 5D 04  |VSRCE..].. ...].|
000003C0: 01 20 81 4D 56 44 45 53  54 2B 31 00 D8 5D 0E 01  |. .MVDEST+1..]..|
000003D0: 20 92 4D 56 53 52 43 45  2B 31 00 DF 5D 18 01 20  | .MVSRCE+1..].. |
000003E0: 9B 00 13 5E 22 01 20 98  3B 56 45 52 47 4C 45 49  |...^". .;VERGLEI|
000003F0: 43 48 20 4D 49 54 20 4C  41 45 4E 47 45 20 44 45  |CH MIT LAENGE DE|
00000400: 53 20 56 45 52 53 43 48  49 45 42 45 42 45 52 45  |S VERSCHIEBEBERE|
00000410: 49 43 48 45 53 00 20 5E  2C 01 20 85 4D 56 45 4C  |ICHES. ^,. .MVEL|
00000420: 45 4E 00 27 5E 36 01 20  9A 00 36 5E 40 01 20 92  |EN.'^6. ..6^@. .|
00000430: 4D 56 45 4C 45 4E 2B 31  00 67 5E 4A 01 20 B6 44  |MVELEN+1.g^J. .D|
00000440: 4F 4C 45 46 54 3B 56 45  52 5A 57 45 49 47 45 4E  |OLEFT;VERZWEIGEN|
00000450: 2C 20 57 45 4E 4E 20 4B  45 49 4E 45 20 55 45 42  |, WENN KEINE UEB|
00000460: 45 52 4C 41 50 50 55 4E  47 00 93 5E 54 01 20 97  |ERLAPPUNG..^T. .|
00000470: 4D 56 45 52 48 54 3B 53  4F 4E 53 54 20 5A 55 4D  |MVERHT;SONST ZUM|
00000480: 20 55 50 20 46 55 45 52  20 55 45 42 45 52 4C 41  | UP FUER UEBERLA|
00000490: 50 50 55 4E 47 00 9E 5E  5E 01 20 96 45 58 49 54  |PPUNG..^^. .EXIT|
000004A0: 00 CA 5E 68 01 44 4F 4C  45 46 54 20 97 4D 56 45  |..^h.DOLEFT .MVE|
000004B0: 4C 46 54 3B 5A 55 4D 20  55 50 20 4F 48 4E 45 20  |LFT;ZUM UP OHNE |
000004C0: 55 45 42 45 52 4C 41 50  50 55 4E 47 00 D5 5E 72  |UEBERLAPPUNG..^r|
000004D0: 01 45 58 49 54 20 A4 00  DB 5E 7C 01 3B 00 17 5F  |.EXIT ...^|.;.._|
000004E0: 86 01 3B 2A 2A 2A 2A 20  55 50 20 5A 55 4D 20 56  |..;**** UP ZUM V|
000004F0: 45 52 53 43 48 49 45 42  45 4E 20 4F 48 4E 45 20  |ERSCHIEBEN OHNE |
00000500: 55 45 42 45 52 4C 41 50  50 55 4E 47 3A 20 4D 56  |UEBERLAPPUNG: MV|
00000510: 45 4C 46 54 20 2A 2A 2A  2A 00 1D 5F 90 01 3B 00  |ELFT ****.._..;.|
00000520: 3B 5F 9A 01 4D 56 45 4C  46 54 20 84 23 30 3B 49  |;_..MVELFT .#0;I|
00000530: 4E 44 45 58 20 41 55 46  20 4E 55 4C 4C 00 5C 5F  |NDEX AUF NULL.\_|
00000540: A4 01 20 83 4D 56 45 4C  45 4E 2B 31 3B 41 4E 5A  |.. .MVELEN+1;ANZ|
00000550: 41 48 4C 20 50 41 47 45  53 20 49 4E 20 58 00 8C  |AHL PAGES IN X..|
00000560: 5F AE 01 20 B8 4D 4C 50  41 52 54 3B 46 41 4C 4C  |_.. .MLPART;FALL|
00000570: 53 20 4B 45 49 4E 45 20  47 41 4E 5A 45 4E 20 50  |S KEINE GANZEN P|
00000580: 41 47 45 53 20 44 41 4E  4E 20 52 45 53 54 00 B8  |AGES DANN REST..|
00000590: 5F B8 01 4D 4C 50 41 47  45 20 81 28 4D 56 53 52  |_..MLPAGE .(MVSR|
000005A0: 43 45 29 2C 59 3B 45 49  4E 20 42 59 54 45 20 56  |CE),Y;EIN BYTE V|
000005B0: 45 52 53 43 48 49 45 42  45 4E 00 C9 5F C2 01 20  |ERSCHIEBEN.._.. |
000005C0: 82 28 4D 56 44 45 53 54  29 2C 59 00 DF 5F CC 01  |.(MVDEST),Y.._..|
000005D0: 20 9E 3B 4E 41 45 43 48  53 54 45 53 20 42 59 54  | .;NAECHSTES BYT|
000005E0: 45 00 0A 60 D6 01 20 B7  4D 4C 50 41 47 45 3B 42  |E..`.. .MLPAGE;B|
000005F0: 49 53 20 32 35 36 20 42  59 54 45 53 20 56 45 52  |IS 256 BYTES VER|
00000600: 53 43 48 4F 42 45 4E 20  53 49 4E 44 00 32 60 E0  |SCHOBEN SIND.2`.|
00000610: 01 20 8A 4D 56 53 52 43  45 2B 31 3B 4E 41 45 43  |. .MVSRCE+1;NAEC|
00000620: 48 53 54 45 20 50 41 47  45 20 44 45 52 20 51 55  |HSTE PAGE DER QU|
00000630: 45 4C 4C 45 00 58 60 EA  01 20 8A 4D 56 44 45 53  |ELLE.X`.. .MVDES|
00000640: 54 2B 31 3B 20 55 4E 44  20 44 45 53 20 5A 49 45  |T+1; UND DES ZIE|
00000650: 4C 42 45 52 45 49 43 48  45 53 00 7B 60 F4 01 20  |LBEREICHES.{`.. |
00000660: AF 3B 50 41 47 45 5A 41  45 48 4C 45 52 20 48 45  |.;PAGEZAEHLER HE|
00000670: 52 55 4E 54 45 52 5A 41  45 48 4C 45 4E 00 B2 60  |RUNTERZAEHLEN..`|
00000680: FE 01 20 B7 4D 4C 50 41  47 45 3B 57 45 49 54 45  |.. .MLPAGE;WEITE|
00000690: 52 4D 41 43 48 45 4E 20  42 49 53 20 41 4C 4C 45  |RMACHEN BIS ALLE|
000006A0: 20 56 4F 4C 4C 45 4E 20  50 41 47 45 53 20 46 45  | VOLLEN PAGES FE|
000006B0: 52 54 49 47 00 E3 60 08  02 4D 4C 50 41 52 54 20  |RTIG..`..MLPART |
000006C0: 83 4D 56 45 4C 45 4E 3B  4C 41 45 4E 47 45 20 44  |.MVELEN;LAENGE D|
000006D0: 45 53 20 52 45 53 54 42  45 52 45 49 43 48 45 53  |ES RESTBEREICHES|
000006E0: 20 49 4E 20 58 00 0F 61  12 02 20 B8 4D 4C 45 58  | IN X..a.. .MLEX|
000006F0: 49 54 3B 5A 55 52 55 45  43 4B 2C 20 57 45 4E 4E  |IT;ZURUECK, WENN|
00000700: 20 52 45 53 54 20 47 4C  45 49 43 48 20 4E 55 4C  | REST GLEICH NUL|
00000710: 4C 00 3B 61 1C 02 4D 4C  4C 41 53 54 20 81 28 4D  |L.;a..MLLAST .(M|
00000720: 56 53 52 43 45 29 2C 59  3B 45 49 4E 20 42 59 54  |VSRCE),Y;EIN BYT|
00000730: 45 20 56 45 52 53 43 48  49 45 42 45 4E 00 4C 61  |E VERSCHIEBEN.La|
00000740: 26 02 20 82 28 4D 56 44  45 53 54 29 2C 59 00 62  |&. .(MVDEST),Y.b|
00000750: 61 30 02 20 9E 3B 4E 41  45 43 48 53 54 45 53 20  |a0. .;NAECHSTES |
00000760: 42 59 54 45 00 81 61 3A  02 20 AF 3B 5A 41 45 48  |BYTE..a:. .;ZAEH|
00000770: 4C 45 52 20 48 45 52 55  4E 54 45 52 5A 41 45 48  |LER HERUNTERZAEH|
00000780: 4C 45 4E 00 B2 61 44 02  20 B7 4D 4C 4C 41 53 54  |LEN..aD. .MLLAST|
00000790: 3B 57 45 49 54 45 52 20  42 49 53 20 52 45 53 54  |;WEITER BIS REST|
000007A0: 20 44 55 52 43 48 47 45  41 52 42 45 49 54 45 54  | DURCHGEARBEITET|
000007B0: 20 49 53 54 00 D9 61 4E  02 4D 4C 45 58 49 54 20  | IST..aN.MLEXIT |
000007C0: A4 3B 5A 55 52 55 45 43  4B 20 5A 55 4D 20 48 41  |.;ZURUECK ZUM HA|
000007D0: 55 50 54 50 52 4F 47 52  41 4D 4D 00 DF 61 58 02  |UPTPROGRAMM..aX.|
000007E0: 3B 00 1B 62 62 02 3B 2A  2A 2A 2A 20 55 50 20 5A  |;..bb.;**** UP Z|
000007F0: 55 4D 20 56 45 52 53 43  48 49 45 42 45 4E 20 4D  |UM VERSCHIEBEN M|
00000800: 49 54 20 55 45 42 45 52  4C 41 50 50 55 4E 47 20  |IT UEBERLAPPUNG |
00000810: 3A 20 4D 56 45 52 48 54  20 2A 2A 2A 2A 00 21 62  |: MVERHT ****.!b|
00000820: 6C 02 3B 00 5A 62 76 02  4D 56 45 52 48 54 20 81  |l.;.Zbv.MVERHT .|
00000830: 4D 56 45 4C 45 4E 2B 31  3B 5A 45 49 47 45 52 20  |MVELEN+1;ZEIGER |
00000840: 41 55 46 20 4C 45 54 5A  54 45 20 51 55 45 4C 4C  |AUF LETZTE QUELL|
00000850: 50 41 47 45 20 52 49 43  48 54 45 4E 00 61 62 80  |PAGE RICHTEN.ab.|
00000860: 02 20 A6 00 70 62 8A 02  20 86 4D 56 53 52 43 45  |. ..pb.. .MVSRCE|
00000870: 2B 31 00 A2 62 94 02 20  82 4D 56 53 52 43 45 2B  |+1..b.. .MVSRCE+|
00000880: 31 3B 46 55 45 52 20 44  41 53 20 4D 53 42 20 44  |1;FUER DAS MSB D|
00000890: 45 52 20 4D 41 58 2E 20  51 55 45 4C 4C 41 44 52  |ER MAX. QUELLADR|
000008A0: 45 53 53 45 00 D4 62 9E  02 20 81 4D 56 45 4C 45  |ESSE..b.. .MVELE|
000008B0: 4E 2B 31 3B 5A 45 49 47  45 52 20 41 55 46 20 4C  |N+1;ZEIGER AUF L|
000008C0: 45 54 5A 54 45 20 5A 49  45 4C 50 41 47 45 20 52  |ETZTE ZIELPAGE R|
000008D0: 49 43 48 54 45 4E 00 DB  62 A8 02 20 A6 00 EA 62  |ICHTEN..b.. ...b|
000008E0: B2 02 20 86 4D 56 44 45  53 54 2B 31 00 1B 63 BC  |.. .MVDEST+1..c.|
000008F0: 02 20 82 4D 56 44 45 53  54 2B 31 3B 46 55 45 52  |. .MVDEST+1;FUER|
00000900: 20 44 41 53 20 4D 53 42  20 44 45 52 20 4D 41 58  | DAS MSB DER MAX|
00000910: 2E 20 5A 49 45 4C 41 44  52 45 53 53 45 00 3A 63  |. ZIELADRESSE.:c|
00000920: C6 02 20 84 4D 56 45 4C  45 4E 3B 4C 41 45 4E 47  |.. .MVELEN;LAENG|
00000930: 45 20 44 45 53 20 52 45  53 54 45 53 00 67 63 D0  |E DES RESTES.gc.|
00000940: 02 20 B8 4D 52 50 41 47  45 3B 57 45 4E 4E 20 4E  |. .MRPAGE;WENN N|
00000950: 55 4C 4C 2C 20 44 41 4E  4E 20 4E 55 52 20 47 41  |ULL, DANN NUR GA|
00000960: 4E 5A 45 20 50 41 47 45  53 00 84 63 DA 02 4D 52  |NZE PAGES..c..MR|
00000970: 30 20 A3 3B 5A 41 45 48  4C 45 52 20 4D 49 4E 55  |0 .;ZAEHLER MINU|
00000980: 53 20 45 49 4E 53 00 AA  63 E4 02 20 81 28 4D 56  |S EINS..c.. .(MV|
00000990: 53 52 43 45 29 2C 59 3B  45 49 4E 20 42 59 54 45  |SRCE),Y;EIN BYTE|
000009A0: 20 56 45 52 53 43 48 49  45 42 45 4E 00 BB 63 EE  | VERSCHIEBEN..c.|
000009B0: 02 20 82 28 4D 56 44 45  53 54 29 2C 59 00 D8 63  |. .(MVDEST),Y..c|
000009C0: F8 02 20 93 23 30 3B 52  45 53 54 20 53 43 48 4F  |.. .#0;REST SCHO|
000009D0: 4E 20 46 45 52 54 49 47  20 3F 00 0B 64 02 03 20  |N FERTIG ?..d.. |
000009E0: B7 4D 52 30 3B 57 45 49  54 45 52 20 42 49 53 20  |.MR0;WEITER BIS |
000009F0: 44 45 52 20 47 41 4E 5A  45 20 52 45 53 54 20 56  |DER GANZE REST V|
00000A00: 45 52 53 43 48 4F 42 45  4E 20 49 53 54 00 40 64  |ERSCHOBEN IST.@d|
00000A10: 0C 03 4D 52 50 41 47 45  20 83 4D 56 45 4C 45 4E  |..MRPAGE .MVELEN|
00000A20: 2B 31 3B 41 4E 5A 41 48  4C 20 50 41 47 45 53 20  |+1;ANZAHL PAGES |
00000A30: 41 4C 53 20 5A 41 45 48  4C 45 52 20 4E 41 43 48  |ALS ZAEHLER NACH|
00000A40: 20 58 00 6F 64 16 03 20  B8 4D 52 45 58 49 54 3B  | X.od.. .MREXIT;|
00000A50: 57 45 4E 4E 20 4B 45 49  4E 45 20 47 41 4E 5A 45  |WENN KEINE GANZE|
00000A60: 4E 20 50 41 47 45 53 20  44 41 4E 4E 20 45 4E 44  |N PAGES DANN END|
00000A70: 45 00 A2 64 20 03 4D 52  31 20 94 4D 56 53 52 43  |E..d .MR1 .MVSRC|
00000A80: 45 2B 31 3B 4D 53 42 20  51 55 45 4C 4C 41 44 52  |E+1;MSB QUELLADR|
00000A90: 45 53 53 45 20 48 45 52  55 4E 54 45 52 5A 41 45  |ESSE HERUNTERZAE|
00000AA0: 48 4C 45 4E 00 D0 64 2A  03 20 94 4D 56 44 45 53  |HLEN..d*. .MVDES|
00000AB0: 54 2B 31 3B 45 42 45 4E  53 4F 20 44 41 53 20 4D  |T+1;EBENSO DAS M|
00000AC0: 53 42 20 44 45 52 20 5A  49 45 4C 41 44 52 45 53  |SB DER ZIELADRES|
00000AD0: 53 45 00 F2 64 34 03 4D  52 32 20 A3 3B 49 4E 44  |SE..d4.MR2 .;IND|
00000AE0: 45 58 20 59 20 48 45 52  55 4E 54 45 52 5A 41 45  |EX Y HERUNTERZAE|
00000AF0: 48 4C 45 4E 00 18 65 3E  03 20 81 28 4D 56 53 52  |HLEN..e>. .(MVSR|
00000B00: 43 45 29 2C 59 3B 45 49  4E 20 42 59 54 45 20 56  |CE),Y;EIN BYTE V|
00000B10: 45 52 53 43 48 49 45 42  45 4E 00 29 65 48 03 20  |ERSCHIEBEN.)eH. |
00000B20: 82 28 4D 56 44 45 53 54  29 2C 59 00 47 65 52 03  |.(MVDEST),Y.GeR.|
00000B30: 20 93 23 30 3B 5A 41 45  48 4C 45 52 20 53 43 48  | .#0;ZAEHLER SCH|
00000B40: 4F 4E 20 4E 55 4C 4C 20  3F 00 76 65 5C 03 20 B7  |ON NULL ?.ve\. .|
00000B50: 4D 52 32 3B 57 45 49 54  45 52 20 42 49 53 20 47  |MR2;WEITER BIS G|
00000B60: 41 4E 5A 45 20 50 41 47  45 20 56 45 52 53 43 48  |ANZE PAGE VERSCH|
00000B70: 4F 42 45 4E 20 49 53 54  00 99 65 66 03 20 AF 3B  |OBEN IST..ef. .;|
00000B80: 50 41 47 45 5A 41 45 48  4C 45 52 20 48 45 52 55  |PAGEZAEHLER HERU|
00000B90: 4E 54 45 52 5A 41 45 48  4C 45 4E 00 C9 65 70 03  |NTERZAEHLEN..ep.|
00000BA0: 20 B7 4D 52 31 3B 57 45  49 54 45 52 20 42 49 53  | .MR1;WEITER BIS|
00000BB0: 20 41 4C 4C 45 20 50 41  47 45 53 20 56 45 52 53  | ALLE PAGES VERS|
00000BC0: 43 48 4F 42 45 4E 20 53  49 4E 44 00 F0 65 7A 03  |CHOBEN SIND..ez.|
00000BD0: 4D 52 45 58 49 54 20 A4  3B 5A 55 52 55 45 43 4B  |MREXIT .;ZURUECK|
00000BE0: 20 5A 55 4D 20 48 41 55  50 54 50 52 4F 47 52 41  | ZUM HAUPTPROGRA|
00000BF0: 4D 4D 00 F6 65 84 03 3B  00 00 00 56              |MM..e..;...V    |

.Y.Z..;..Z..;./Z....$1300;IN HYPRA-ASS: 
.BA $C000.]Z(.;*************************
***************..Z2.; BLOCKVERSCHIEBEROU
TINE OHNE FEHLER..Z<.;******************
**********************..ZF...MVELEN=$FA;
IN HYPRA-ASS WIRD STATT DER..[P...MVDEST
=$FC; .DEFINE BEFEHLE JEWEILS DER BEFEHL
.=[Z...MVSRCE=$FE; .EQ = $... VERWENDET.
C[D.;..[N.;IN MVELEN WIRD DIE LAENGE DER
 ZU VERSCHIEBENDEN BEREICHES ANGEGEBEN.E
[X.;IN MVDEST DIE STARTADRESSE DES ZIELB
EREICHES UND IN..[..;MVSRCE DIE STARTADR
ESSE DES QUELLBEREICHES...[..;.?\..;----
-- PROGRAMM ----------------------------
-----------------.~\ .;ALS ERSTES WIRD B
ESTIMMT, OB DER ZIELBEREICH OBERHALB DES
..\..; QUELLBEREICHES LIEGT UND OB SICH 
DIE BEIDEN BEREICHE UEBER-..]..; LAPPEN.
 EINE UEBERLAPPUNG LIEGT DANN VOR, WENN 
DIE DIFFERENZ.G]..; VON ZIELADRESSE MINU
S QUELLADRESSE KLEINER ALS DIE ANZAHL DE
R.J]H.; ZU VERSCHIEBENDEN BYTES IST..P]R
.;..]..START .MVDEST;BERECHNUNG ZIEL MIN
US QUELLE..].. ...].. .MVSRCE..].. ..I].
. .MVDEST+1.X].. .MVSRCE+1..].. ...^". .
;VERGLEICH MIT LAENGE DES VERSCHIEBEBERE
ICHES. ^,. .MVELEN.'^6. ..6^@. .MVELEN+1
.G^J. .DOLEFT;VERZWEIGEN, WENN KEINE UEB
ERLAPPUNG..^T. .MVERHT;SONST ZUM UP FUER
 UEBERLAPPUNG..^^. .EXIT.J^H.DOLEFT .MVE
LFT;ZUM UP OHNE UEBERLAPPUNG.U^R.EXIT ..
.^|.;.._..;**** UP ZUM VERSCHIEBEN OHNE 
UEBERLAPPUNG: MVELFT ****.._..;.;_..MVEL
FT .#0;INDEX AUF NULL.\_.. .MVELEN+1;ANZ
AHL PAGES IN X.._.. .MLPART;FALLS KEINE 
GANZEN PAGES DANN REST.._..MLPAGE .(MVSR
CE),Y;EIN BYTE VERSCHIEBEN.I_B. .(MVDEST
),Y.._L. .;NAECHSTES BYTE..`V. .MLPAGE;B
IS 256 BYTES VERSCHOBEN SIND.2`.. .MVSRC
E+1;NAECHSTE PAGE DER QUELLE.X`.. .MVDES
T+1; UND DES ZIELBEREICHES.{`.. .;PAGEZA
EHLER HERUNTERZAEHLEN..`.. .MLPAGE;WEITE
RMACHEN BIS ALLE VOLLEN PAGES FERTIG..`.
.MLPART .MVELEN;LAENGE DES RESTBEREICHES
 IN X..A.. .MLEXIT;ZURUECK, WENN REST GL
EICH NULL.;A..MLLAST .(MVSRCE),Y;EIN BYT
E VERSCHIEBEN.LA&. .(MVDEST),Y.BA0. .;NA
ECHSTES BYTE..A:. .;ZAEHLER HERUNTERZAEH
LEN..AD. .MLLAST;WEITER BIS REST DURCHGE
ARBEITET IST.YAN.MLEXIT .;ZURUECK ZUM HA
UPTPROGRAMM..AX.;..BB.;**** UP ZUM VERSC
HIEBEN MIT UEBERLAPPUNG : MVERHT ****.!B
L.;.ZBV.MVERHT .MVELEN+1;ZEIGER AUF LETZ
TE QUELLPAGE RICHTEN.AB.. ..PB.. .MVSRCE
+1..B.. .MVSRCE+1;FUER DAS MSB DER MAX. 
QUELLADRESSE.TB.. .MVELEN+1;ZEIGER AUF L
ETZTE ZIELPAGE RICHTEN..B.. ...B.. .MVDE
ST+1..C.. .MVDEST+1;FUER DAS MSB DER MAX
. ZIELADRESSE.:CF. .MVELEN;LAENGE DES RE
STES.GCP. .MRPAGE;WENN NULL, DANN NUR GA
NZE PAGES..CZ.MR0 .;ZAEHLER MINUS EINS..
C.. .(MVSRCE),Y;EIN BYTE VERSCHIEBEN..C.
. .(MVDEST),Y.XC.. .#0;REST SCHON FERTIG
 ?..D.. .MR0;WEITER BIS DER GANZE REST V
ERSCHOBEN IST.@D..MRPAGE .MVELEN+1;ANZAH
L PAGES ALS ZAEHLER NACH X.OD.. .MREXIT;
WENN KEINE GANZEN PAGES DANN ENDE..D .MR
1 .MVSRCE+1;MSB QUELLADRESSE HERUNTERZAE
HLEN.PD*. .MVDEST+1;EBENSO DAS MSB DER Z
IELADRESSE..D4.MR2 .;INDEX Y HERUNTERZAE
HLEN..E>. .(MVSRCE),Y;EIN BYTE VERSCHIEB
EN.)EH. .(MVDEST),Y.GER. .#0;ZAEHLER SCH
ON NULL ?.VE\. .MR2;WEITER BIS GANZE PAG
E VERSCHOBEN IST..EF. .;PAGEZAEHLER HERU
NTERZAEHLEN.IEP. .MR1;WEITER BIS ALLE PA
GES VERSCHOBEN SIND..EZ.MREXIT .;ZURUECK
 ZUM HAUPTPROGRAMM..E..;...V

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL