BLOCK QU HYPRA

FILE INFORMATION

FILENAME(S): BLOCK QU HYPRA

FILE TYPE(S): PRG

FILE SIZE: 2.9K

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

APPEARS ON: 3 disk(s)

FILE HASH

2d2f3700d968da7d4e1322a7209e6f6178771d66f78b44266c71f01cdf4e93d0

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COM	BLOCK QU HYPRA	PRG	Treasure Chest - Plattfuss	28	3	DOWNLOAD FILE
AUSGABE 6 86	BLOCK QU HYPRA	PRG	C64er	24	0	DOWNLOAD FILE
15721 SEITE A	BLOCK QU HYPRA	PRG	C64er	1	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F DE 1F 0A 00 3B 00  E4 1F 14 00 3B 00 0B 20  |......;.....;.. |
00000010: 1E 00 2E 42 41 20 24 43  30 30 30 20 3B 49 4E 20  |...BA $C000 ;IN |
00000020: 54 4F 50 2D 41 53 53 3A  20 2E 42 41 53 45 20 24  |TOP-ASS: .BASE $|
00000030: 31 33 30 30 00 39 20 28  00 3B 2A 2A 2A 2A 2A 2A  |1300.9 (.;******|
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 00 62 20 32 00 3B  20 42 4C 4F 43 4B 56 45  |**.b 2.; BLOCKVE|
00000070: 52 53 43 48 49 45 42 45  52 4F 55 54 49 4E 45 20  |RSCHIEBEROUTINE |
00000080: 4F 48 4E 45 20 46 45 48  4C 45 52 00 90 20 3C 00  |OHNE FEHLER.. <.|
00000090: 3B 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 2A 2A  2A 00 B7 20 46 00 2E 45  |*********.. F..E|
000000C0: 51 20 4D 56 45 4C 45 4E  20 3D 20 24 46 41 20 3B  |Q MVELEN = $FA ;|
000000D0: 49 4E 20 54 4F 50 2D 41  53 53 20 53 54 41 54 54  |IN TOP-ASS STATT|
000000E0: 00 E0 20 50 00 2E 45 51  20 4D 56 44 45 53 54 20  |.. P..EQ MVDEST |
000000F0: 3D 20 24 46 43 20 3B 20  2E 45 51 20 2E 2E 2E 20  |= $FC ; .EQ ... |
00000100: 4E 55 4E 20 49 4D 4D 45  52 00 03 21 5A 00 2E 45  |NUN IMMER..!Z..E|
00000110: 51 20 4D 56 53 52 43 45  20 3D 20 24 46 45 20 3B  |Q MVSRCE = $FE ;|
00000120: 20 2E 44 45 46 49 4E 45  20 2E 2E 2E 00 09 21 64  | .DEFINE .....!d|
00000130: 00 3B 00 52 21 6E 00 3B  49 4E 20 4D 56 45 4C 45  |.;.R!n.;IN MVELE|
00000140: 4E 20 57 49 52 44 20 44  49 45 20 4C 41 45 4E 47  |N WIRD DIE LAENG|
00000150: 45 20 44 45 52 20 5A 55  20 56 45 52 53 43 48 49  |E DER ZU VERSCHI|
00000160: 45 42 45 4E 44 45 4E 20  42 45 52 45 49 43 48 45  |EBENDEN BEREICHE|
00000170: 53 20 41 4E 47 45 47 45  42 45 4E 00 8B 21 78 00  |S ANGEGEBEN..!x.|
00000180: 3B 49 4E 20 4D 56 44 45  53 54 20 44 49 45 20 53  |;IN MVDEST DIE S|
00000190: 54 41 52 54 41 44 52 45  53 53 45 20 44 45 53 20  |TARTADRESSE DES |
000001A0: 5A 49 45 4C 42 45 52 45  49 43 48 45 53 20 55 4E  |ZIELBEREICHES UN|
000001B0: 44 20 49 4E 00 BC 21 82  00 3B 4D 56 53 52 43 45  |D IN..!..;MVSRCE|
000001C0: 20 44 49 45 20 53 54 41  52 54 41 44 52 45 53 53  | DIE STARTADRESS|
000001D0: 45 20 44 45 53 20 51 55  45 4C 4C 42 45 52 45 49  |E DES QUELLBEREI|
000001E0: 43 48 45 53 2E 00 C2 21  8C 00 3B 00 05 22 96 00  |CHES...!..;.."..|
000001F0: 3B 2D 2D 2D 2D 2D 2D 20  50 52 4F 47 52 41 4D 4D  |;------ PROGRAMM|
00000200: 20 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  | ---------------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000220: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 00 44  |--------------.D|
00000230: 22 A0 00 3B 41 4C 53 20  45 52 53 54 45 53 20 57  |"..;ALS ERSTES W|
00000240: 49 52 44 20 42 45 53 54  49 4D 4D 54 2C 20 4F 42  |IRD BESTIMMT, OB|
00000250: 20 44 45 52 20 5A 49 45  4C 42 45 52 45 49 43 48  | DER ZIELBEREICH|
00000260: 20 4F 42 45 52 48 41 4C  42 20 44 45 53 00 86 22  | OBERHALB DES.."|
00000270: AA 00 3B 20 51 55 45 4C  4C 42 45 52 45 49 43 48  |..; QUELLBEREICH|
00000280: 45 53 20 4C 49 45 47 54  20 55 4E 44 20 4F 42 20  |ES LIEGT UND OB |
00000290: 53 49 43 48 20 44 49 45  20 42 45 49 44 45 4E 20  |SICH DIE BEIDEN |
000002A0: 42 45 52 45 49 43 48 45  20 55 45 42 45 52 2D 00  |BEREICHE UEBER-.|
000002B0: C9 22 B4 00 3B 20 4C 41  50 50 45 4E 2E 20 45 49  |."..; LAPPEN. EI|
000002C0: 4E 45 20 55 45 42 45 52  4C 41 50 50 55 4E 47 20  |NE UEBERLAPPUNG |
000002D0: 4C 49 45 47 54 20 44 41  4E 4E 20 56 4F 52 2C 20  |LIEGT DANN VOR, |
000002E0: 57 45 4E 4E 20 44 49 45  20 44 49 46 46 45 52 45  |WENN DIE DIFFERE|
000002F0: 4E 5A 00 0D 23 BE 00 3B  20 56 4F 4E 20 5A 49 45  |NZ..#..; VON ZIE|
00000300: 4C 41 44 52 45 53 53 45  20 4D 49 4E 55 53 20 51  |LADRESSE MINUS Q|
00000310: 55 45 4C 4C 41 44 52 45  53 53 45 20 4B 4C 45 49  |UELLADRESSE KLEI|
00000320: 4E 45 52 20 41 4C 53 20  44 49 45 20 41 4E 5A 41  |NER ALS DIE ANZA|
00000330: 48 4C 20 44 45 52 00 30  23 C8 00 3B 20 5A 55 20  |HL DER.0#..; ZU |
00000340: 56 45 52 53 43 48 49 45  42 45 4E 44 45 4E 20 42  |VERSCHIEBENDEN B|
00000350: 59 54 45 53 20 49 53 54  2E 00 36 23 D2 00 3B 00  |YTES IST..6#..;.|
00000360: 67 23 DC 00 53 54 41 52  54 20 4C 44 41 4D 56 44  |g#..START LDAMVD|
00000370: 45 53 54 3B 42 45 52 45  43 48 4E 55 4E 47 20 5A  |EST;BERECHNUNG Z|
00000380: 49 45 4C 20 4D 49 4E 55  53 20 51 55 45 4C 4C 45  |IEL MINUS QUELLE|
00000390: 00 70 23 E6 00 20 53 45  43 00 7F 23 F0 00 20 53  |.p#.. SEC..#.. S|
000003A0: 42 43 4D 56 53 52 43 45  00 88 23 FA 00 20 54 41  |BCMVSRCE..#.. TA|
000003B0: 58 00 99 23 04 01 20 4C  44 41 4D 56 44 45 53 54  |X..#.. LDAMVDEST|
000003C0: 2B 31 00 AA 23 0E 01 20  53 42 43 4D 56 53 52 43  |+1..#.. SBCMVSRC|
000003D0: 45 2B 31 00 B3 23 18 01  20 54 41 59 00 E9 23 22  |E+1..#.. TAY..#"|
000003E0: 01 20 54 58 41 3B 56 45  52 47 4C 45 49 43 48 20  |. TXA;VERGLEICH |
000003F0: 4D 49 54 20 4C 41 45 4E  47 45 20 44 45 53 20 56  |MIT LAENGE DES V|
00000400: 45 52 53 43 48 49 45 42  45 42 45 52 45 49 43 48  |ERSCHIEBEBEREICH|
00000410: 45 53 00 F8 23 2C 01 20  43 4D 50 4D 56 45 4C 45  |ES..#,. CMPMVELE|
00000420: 4E 00 01 24 36 01 20 54  59 41 00 12 24 40 01 20  |N..$6. TYA..$@. |
00000430: 53 42 43 4D 56 45 4C 45  4E 2B 31 00 45 24 4A 01  |SBCMVELEN+1.E$J.|
00000440: 20 42 43 53 44 4F 4C 45  46 54 3B 56 45 52 5A 57  | BCSDOLEFT;VERZW|
00000450: 45 49 47 45 4E 2C 20 57  45 4E 4E 20 4B 45 49 4E  |EIGEN, WENN KEIN|
00000460: 45 20 55 45 42 45 52 4C  41 50 50 55 4E 47 00 73  |E UEBERLAPPUNG.s|
00000470: 24 54 01 20 4A 53 52 4D  56 45 52 48 54 3B 53 4F  |$T. JSRMVERHT;SO|
00000480: 4E 53 54 20 5A 55 4D 20  55 50 20 46 55 45 52 20  |NST ZUM UP FUER |
00000490: 55 45 42 45 52 4C 41 50  50 55 4E 47 00 80 24 5E  |UEBERLAPPUNG..$^|
000004A0: 01 20 4A 4D 50 45 58 49  54 00 AE 24 68 01 44 4F  |. JMPEXIT..$h.DO|
000004B0: 4C 45 46 54 20 4A 53 52  4D 56 45 4C 46 54 3B 5A  |LEFT JSRMVELFT;Z|
000004C0: 55 4D 20 55 50 20 4F 48  4E 45 20 55 45 42 45 52  |UM UP OHNE UEBER|
000004D0: 4C 41 50 50 55 4E 47 00  BB 24 72 01 45 58 49 54  |LAPPUNG..$r.EXIT|
000004E0: 20 52 54 53 00 C1 24 7C  01 3B 00 FD 24 86 01 3B  | RTS..$|.;..$..;|
000004F0: 2A 2A 2A 2A 20 55 50 20  5A 55 4D 20 56 45 52 53  |**** UP ZUM VERS|
00000500: 43 48 49 45 42 45 4E 20  4F 48 4E 45 20 55 45 42  |CHIEBEN OHNE UEB|
00000510: 45 52 4C 41 50 50 55 4E  47 3A 20 4D 56 45 4C 46  |ERLAPPUNG: MVELF|
00000520: 54 20 2A 2A 2A 2A 00 03  25 90 01 3B 00 23 25 9A  |T ****..%..;.#%.|
00000530: 01 4D 56 45 4C 46 54 20  4C 44 59 23 30 3B 49 4E  |.MVELFT LDY#0;IN|
00000540: 44 45 58 20 41 55 46 20  4E 55 4C 4C 00 46 25 A4  |DEX AUF NULL.F%.|
00000550: 01 20 4C 44 58 4D 56 45  4C 45 4E 2B 31 3B 41 4E  |. LDXMVELEN+1;AN|
00000560: 5A 41 48 4C 20 50 41 47  45 53 20 49 4E 20 58 00  |ZAHL PAGES IN X.|
00000570: 78 25 AE 01 20 42 45 51  4D 4C 50 41 52 54 3B 46  |x%.. BEQMLPART;F|
00000580: 41 4C 4C 53 20 4B 45 49  4E 45 20 47 41 4E 5A 45  |ALLS KEINE GANZE|
00000590: 4E 20 50 41 47 45 53 20  44 41 4E 4E 20 52 45 53  |N PAGES DANN RES|
000005A0: 54 00 A6 25 B8 01 4D 4C  50 41 47 45 20 4C 44 41  |T..%..MLPAGE LDA|
000005B0: 28 4D 56 53 52 43 45 29  2C 59 3B 45 49 4E 20 42  |(MVSRCE),Y;EIN B|
000005C0: 59 54 45 20 56 45 52 53  43 48 49 45 42 45 4E 00  |YTE VERSCHIEBEN.|
000005D0: B9 25 C2 01 20 53 54 41  28 4D 56 44 45 53 54 29  |.%.. STA(MVDEST)|
000005E0: 2C 59 00 D1 25 CC 01 20  49 4E 59 3B 4E 41 45 43  |,Y..%.. INY;NAEC|
000005F0: 48 53 54 45 53 20 42 59  54 45 00 F8 25 D6 01 20  |HSTES BYTE..%.. |
00000600: 42 4E 45 4D 4C 50 41 47  45 3B 42 49 53 20 32 35  |BNEMLPAGE;BIS 25|
00000610: 36 20 56 45 52 53 43 48  4F 42 45 4E 20 53 49 4E  |6 VERSCHOBEN SIN|
00000620: 44 00 1C 26 E0 01 20 49  4E 43 4D 56 53 52 43 45  |D..&.. INCMVSRCE|
00000630: 2B 31 3B 4E 41 45 43 48  53 54 45 20 51 55 45 4C  |+1;NAECHSTE QUEL|
00000640: 4C 50 41 47 45 00 3F 26  EA 01 20 49 4E 43 4D 56  |LPAGE.?&.. INCMV|
00000650: 44 45 53 54 2B 31 3B 4E  41 45 43 48 53 54 45 20  |DEST+1;NAECHSTE |
00000660: 5A 49 45 4C 50 41 47 45  00 64 26 F4 01 20 44 45  |ZIELPAGE.d&.. DE|
00000670: 58 3B 50 41 47 45 5A 41  45 48 4C 45 52 20 48 45  |X;PAGEZAEHLER HE|
00000680: 52 55 4E 54 45 52 5A 41  45 48 4C 45 4E 00 97 26  |RUNTERZAEHLEN..&|
00000690: FE 01 20 42 4E 45 4D 4C  50 41 47 45 3B 57 45 49  |.. BNEMLPAGE;WEI|
000006A0: 54 45 52 20 42 49 53 20  41 4C 4C 45 20 56 4F 4C  |TER BIS ALLE VOL|
000006B0: 4C 45 4E 20 50 41 47 45  53 20 46 45 52 54 49 47  |LEN PAGES FERTIG|
000006C0: 00 BE 26 08 02 4D 4C 50  41 52 54 20 4C 44 58 4D  |..&..MLPART LDXM|
000006D0: 56 45 4C 45 4E 3B 4C 41  45 4E 47 45 20 44 45 53  |VELEN;LAENGE DES|
000006E0: 20 52 45 53 54 45 53 00  E4 26 12 02 20 42 45 51  | RESTES..&.. BEQ|
000006F0: 4D 4C 45 58 49 54 3B 5A  55 52 55 45 43 4B 20 57  |MLEXIT;ZURUECK W|
00000700: 45 4E 4E 20 52 45 53 54  20 4E 55 4C 4C 00 12 27  |ENN REST NULL..'|
00000710: 1C 02 4D 4C 4C 41 53 54  20 4C 44 41 28 4D 56 53  |..MLLAST LDA(MVS|
00000720: 52 43 45 29 2C 59 3B 45  49 4E 20 42 59 54 45 20  |RCE),Y;EIN BYTE |
00000730: 56 45 52 53 43 48 49 45  42 45 4E 00 25 27 26 02  |VERSCHIEBEN.%'&.|
00000740: 20 53 54 41 28 4D 56 44  45 53 54 29 2C 59 00 3D  | STA(MVDEST),Y.=|
00000750: 27 30 02 20 49 4E 59 3B  4E 41 45 43 48 53 54 45  |'0. INY;NAECHSTE|
00000760: 53 20 42 59 54 45 00 56  27 3A 02 20 44 45 58 3B  |S BYTE.V':. DEX;|
00000770: 5A 41 45 48 4C 45 52 20  4D 49 4E 55 53 20 31 00  |ZAEHLER MINUS 1.|
00000780: 7C 27 44 02 20 42 4E 45  4D 4C 4C 41 53 54 3B 57  ||'D. BNEMLLAST;W|
00000790: 45 49 54 45 52 20 42 49  53 20 52 45 53 54 20 46  |EITER BIS REST F|
000007A0: 45 52 54 49 47 00 A5 27  4E 02 4D 4C 45 58 49 54  |ERTIG..'N.MLEXIT|
000007B0: 20 52 54 53 3B 5A 55 52  55 45 43 4B 20 5A 55 4E  | RTS;ZURUECK ZUN|
000007C0: 20 48 41 55 50 54 50 52  4F 47 52 41 4D 4D 00 AB  | HAUPTPROGRAMM..|
000007D0: 27 58 02 3B 00 E7 27 62  02 3B 2A 2A 2A 2A 20 55  |'X.;..'b.;**** U|
000007E0: 50 20 5A 55 4D 20 56 45  52 53 43 48 49 45 42 45  |P ZUM VERSCHIEBE|
000007F0: 4E 20 4D 49 54 20 55 45  42 45 52 4C 41 50 50 55  |N MIT UEBERLAPPU|
00000800: 4E 47 20 3A 20 4D 56 45  52 48 54 20 2A 2A 2A 2A  |NG : MVERHT ****|
00000810: 00 ED 27 6C 02 3B 00 20  28 76 02 4D 56 45 52 48  |..'l.;. (v.MVERH|
00000820: 54 20 4C 44 41 4D 56 45  4C 45 4E 2B 31 3B 5A 45  |T LDAMVELEN+1;ZE|
00000830: 49 47 45 52 20 41 55 46  20 4C 45 54 5A 54 45 20  |IGER AUF LETZTE |
00000840: 51 55 45 4C 4C 50 41 47  45 00 29 28 80 02 20 43  |QUELLPAGE.)(.. C|
00000850: 4C 43 00 3A 28 8A 02 20  41 44 43 4D 56 53 52 43  |LC.:(.. ADCMVSRC|
00000860: 45 2B 31 00 65 28 94 02  20 53 54 41 4D 56 53 52  |E+1.e(.. STAMVSR|
00000870: 43 45 2B 31 3B 4D 53 42  20 48 4F 45 43 48 53 54  |CE+1;MSB HOECHST|
00000880: 45 20 51 55 45 4C 4C 41  44 52 45 53 53 45 00 91  |E QUELLADRESSE..|
00000890: 28 9E 02 20 4C 44 41 4D  56 45 4C 45 4E 2B 31 3B  |(.. LDAMVELEN+1;|
000008A0: 5A 45 49 47 45 52 20 41  55 46 20 4C 45 54 5A 54  |ZEIGER AUF LETZT|
000008B0: 45 20 5A 49 45 4C 50 41  47 45 00 9A 28 A8 02 20  |E ZIELPAGE..(.. |
000008C0: 43 4C 43 00 AB 28 B2 02  20 41 44 43 4D 56 44 45  |CLC..(.. ADCMVDE|
000008D0: 53 54 2B 31 00 D5 28 BC  02 20 53 54 41 4D 56 44  |ST+1..(.. STAMVD|
000008E0: 45 53 54 2B 31 3B 4D 53  42 20 48 4F 45 43 48 53  |EST+1;MSB HOECHS|
000008F0: 54 45 20 5A 49 45 4C 41  44 52 45 53 53 45 00 EF  |TE ZIELADRESSE..|
00000900: 28 C6 02 20 4C 44 59 4D  56 45 4C 45 4E 3B 52 45  |(.. LDYMVELEN;RE|
00000910: 53 54 4C 41 45 4E 47 45  00 1D 29 D0 02 20 42 45  |STLAENGE..).. BE|
00000920: 51 4D 52 50 41 47 45 3B  52 45 53 54 20 3D 20 30  |QMRPAGE;REST = 0|
00000930: 3F 20 44 41 4E 4E 20 4E  55 52 20 47 41 4E 5A 45  |? DANN NUR GANZE|
00000940: 20 50 41 47 45 53 00 29  29 DA 02 4D 52 30 20 44  | PAGES.))..MR0 D|
00000950: 45 59 00 51 29 E4 02 20  4C 44 41 28 4D 56 53 52  |EY.Q).. LDA(MVSR|
00000960: 43 45 29 2C 59 3B 45 49  4E 20 42 59 54 45 20 56  |CE),Y;EIN BYTE V|
00000970: 45 52 53 43 48 49 45 42  45 4E 00 64 29 EE 02 20  |ERSCHIEBEN.d).. |
00000980: 53 54 41 28 4D 56 44 45  53 54 29 2C 59 00 7C 29  |STA(MVDEST),Y.|)|
00000990: F8 02 20 43 50 59 23 30  3B 52 45 53 54 20 46 45  |.. CPY#0;REST FE|
000009A0: 52 54 49 47 3F 00 A3 29  02 03 20 42 4E 45 4D 52  |RTIG?..).. BNEMR|
000009B0: 30 3B 57 45 49 54 45 52  20 42 49 53 20 52 45 53  |0;WEITER BIS RES|
000009C0: 54 20 56 45 52 53 43 48  4F 42 45 4E 00 CF 29 0C  |T VERSCHOBEN..).|
000009D0: 03 4D 52 50 41 47 45 20  4C 44 58 4D 56 45 4C 45  |.MRPAGE LDXMVELE|
000009E0: 4E 2B 31 3B 50 41 47 45  5A 41 48 4C 20 41 4C 53  |N+1;PAGEZAHL ALS|
000009F0: 20 5A 41 45 48 4C 45 52  00 FA 29 16 03 20 42 45  | ZAEHLER..).. BE|
00000A00: 51 4D 52 45 58 49 54 3B  4B 45 49 4E 45 20 50 41  |QMREXIT;KEINE PA|
00000A10: 47 45 53 20 4D 45 48 52  2C 20 44 41 4E 4E 20 45  |GES MEHR, DANN E|
00000A20: 4E 44 45 00 1D 2A 20 03  4D 52 31 20 44 45 43 4D  |NDE..* .MR1 DECM|
00000A30: 56 53 52 43 45 2B 31 3B  51 55 45 4C 4C 50 41 47  |VSRCE+1;QUELLPAG|
00000A40: 45 53 20 2D 20 31 00 3B  2A 2A 03 20 44 45 43 4D  |ES - 1.;**. DECM|
00000A50: 56 44 45 53 54 2B 31 3B  5A 49 45 4C 50 41 47 45  |VDEST+1;ZIELPAGE|
00000A60: 53 20 2D 31 00 5D 2A 34  03 4D 52 32 20 44 45 59  |S -1.]*4.MR2 DEY|
00000A70: 3B 49 4E 44 45 58 20 48  45 52 55 4E 54 45 52 5A  |;INDEX HERUNTERZ|
00000A80: 41 45 48 4C 45 4E 00 85  2A 3E 03 20 4C 44 41 28  |AEHLEN..*>. LDA(|
00000A90: 4D 56 53 52 43 45 29 2C  59 3B 45 49 4E 20 42 59  |MVSRCE),Y;EIN BY|
00000AA0: 54 45 20 56 45 52 53 43  48 49 45 42 45 4E 00 98  |TE VERSCHIEBEN..|
00000AB0: 2A 48 03 20 53 54 41 28  4D 56 44 45 53 54 29 2C  |*H. STA(MVDEST),|
00000AC0: 59 00 B4 2A 52 03 20 43  50 59 23 30 3B 5A 41 45  |Y..*R. CPY#0;ZAE|
00000AD0: 48 4C 45 52 20 53 43 48  4F 4E 20 30 3F 00 E1 2A  |HLER SCHON 0?..*|
00000AE0: 5C 03 20 42 4E 45 4D 52  32 3B 57 45 49 54 45 52  |\. BNEMR2;WEITER|
00000AF0: 20 42 49 53 20 47 41 4E  5A 45 20 50 41 47 45 20  | BIS GANZE PAGE |
00000B00: 56 45 52 53 43 48 4F 42  45 4E 00 FA 2A 66 03 20  |VERSCHOBEN..*f. |
00000B10: 44 45 58 3B 50 41 47 45  5A 41 45 48 4C 45 52 20  |DEX;PAGEZAEHLER |
00000B20: 2D 20 31 00 27 2B 70 03  20 42 4E 45 4D 52 31 3B  |- 1.'+p. BNEMR1;|
00000B30: 57 45 49 54 45 52 20 42  49 53 20 41 4C 4C 45 20  |WEITER BIS ALLE |
00000B40: 50 41 47 45 53 20 56 45  52 53 43 48 4F 42 45 4E  |PAGES VERSCHOBEN|
00000B50: 00 50 2B 7A 03 4D 52 45  58 49 54 20 52 54 53 3B  |.P+z.MREXIT RTS;|
00000B60: 5A 55 52 55 45 43 4B 20  5A 55 4D 20 48 41 55 50  |ZURUECK ZUM HAUP|
00000B70: 54 50 52 4F 47 52 41 4D  4D 00 56 2B 84 03 3B 00  |TPROGRAMM.V+..;.|
00000B80: 62 2B 8E 03 2E 53 59 20  31 2C 33 00 00 00 20     |b+...SY 1,3...  |

X.....;.....;.. ...BA $C000 ;IN TOP-ASS:
 .BASE $1300.9 (.;**********************
******************.B 2.; BLOCKVERSCHIEBE
ROUTINE OHNE FEHLER.. <.;***************
*************************.. F..EQ MVELEN
 = $FA ;IN TOP-ASS STATT.. P..EQ MVDEST 
= $FC ; .EQ ... NUN IMMER..!Z..EQ MVSRCE
 = $FE ; .DEFINE .....!D.;.R!N.;IN MVELE
N WIRD DIE LAENGE DER ZU VERSCHIEBENDEN 
BEREICHES ANGEGEBEN..!X.;IN MVDEST DIE S
TARTADRESSE DES ZIELBEREICHES UND IN..!.
.;MVSRCE DIE STARTADRESSE DES QUELLBEREI
CHES..B!..;.."..;------ PROGRAMM -------
--------------------------------------.D
" .;ALS ERSTES WIRD BESTIMMT, OB DER ZIE
LBEREICH OBERHALB DES.."..; QUELLBEREICH
ES LIEGT UND OB SICH DIE BEIDEN BEREICHE
 UEBER-.I"..; LAPPEN. EINE UEBERLAPPUNG 
LIEGT DANN VOR, WENN DIE DIFFERENZ..#..;
 VON ZIELADRESSE MINUS QUELLADRESSE KLEI
NER ALS DIE ANZAHL DER.0#H.; ZU VERSCHIE
BENDEN BYTES IST..6#R.;.G#..START LDAMVD
EST;BERECHNUNG ZIEL MINUS QUELLE.P#.. SE
C.#.. SBCMVSRCE..#.. TAX..#.. LDAMVDEST
+1..#.. SBCMVSRCE+1..#.. TAY..#". TXA;VE
RGLEICH MIT LAENGE DES VERSCHIEBEBEREICH
ES..#,. CMPMVELEN..$6. TYA..$@. SBCMVELE
N+1.E$J. BCSDOLEFT;VERZWEIGEN, WENN KEIN
E UEBERLAPPUNG.S$T. JSRMVERHT;SONST ZUM 
UP FUER UEBERLAPPUNG..$^. JMPEXIT..$H.DO
LEFT JSRMVELFT;ZUM UP OHNE UEBERLAPPUNG.
.$R.EXIT RTS.A$|.;..$..;**** UP ZUM VERS
CHIEBEN OHNE UEBERLAPPUNG: MVELFT ****..
%..;.#%..MVELFT LDY#0;INDEX AUF NULL.F%.
. LDXMVELEN+1;ANZAHL PAGES IN X.X%.. BEQ
MLPART;FALLS KEINE GANZEN PAGES DANN RES
T..%..MLPAGE LDA(MVSRCE),Y;EIN BYTE VERS
CHIEBEN..%B. STA(MVDEST),Y.Q%L. INY;NAEC
HSTES BYTE..%V. BNEMLPAGE;BIS 256 VERSCH
OBEN SIND..&.. INCMVSRCE+1;NAECHSTE QUEL
LPAGE.?&.. INCMVDEST+1;NAECHSTE ZIELPAGE
.D&.. DEX;PAGEZAEHLER HERUNTERZAEHLEN..&
.. BNEMLPAGE;WEITER BIS ALLE VOLLEN PAGE
S FERTIG..&..MLPART LDXMVELEN;LAENGE DES
 RESTES..&.. BEQMLEXIT;ZURUECK WENN REST
 NULL..'..MLLAST LDA(MVSRCE),Y;EIN BYTE 
VERSCHIEBEN.%'&. STA(MVDEST),Y.='0. INY;
NAECHSTES BYTE.V':. DEX;ZAEHLER MINUS 1.
|'D. BNEMLLAST;WEITER BIS REST FERTIG..'
N.MLEXIT RTS;ZURUECK ZUN HAUPTPROGRAMM..
'X.;..'B.;**** UP ZUM VERSCHIEBEN MIT UE
BERLAPPUNG : MVERHT ****..'L.;. (V.MVERH
T LDAMVELEN+1;ZEIGER AUF LETZTE QUELLPAG
E.)(.. CLC.:(.. ADCMVSRCE+1.E(.. STAMVSR
CE+1;MSB HOECHSTE QUELLADRESSE..(.. LDAM
VELEN+1;ZEIGER AUF LETZTE ZIELPAGE..(.. 
CLC..(.. ADCMVDEST+1.U(.. STAMVDEST+1;MS
B HOECHSTE ZIELADRESSE..(F. LDYMVELEN;RE
STLAENGE..)P. BEQMRPAGE;REST = 0? DANN N
UR GANZE PAGES.))Z.MR0 DEY.Q).. LDA(MVSR
CE),Y;EIN BYTE VERSCHIEBEN.D).. STA(MVDE
ST),Y.|).. CPY#0;REST FERTIG?..).. BNEMR
0;WEITER BIS REST VERSCHOBEN.O)..MRPAGE 
LDXMVELEN+1;PAGEZAHL ALS ZAEHLER..).. BE
QMREXIT;KEINE PAGES MEHR, DANN ENDE..* .
MR1 DECMVSRCE+1;QUELLPAGES - 1.;**. DECM
VDEST+1;ZIELPAGES -1.]*4.MR2 DEY;INDEX H
ERUNTERZAEHLEN..*>. LDA(MVSRCE),Y;EIN BY
TE VERSCHIEBEN..*H. STA(MVDEST),Y..*R. C
PY#0;ZAEHLER SCHON 0?..*\. BNEMR2;WEITER
 BIS GANZE PAGE VERSCHOBEN..*F. DEX;PAGE
ZAEHLER - 1.'+P. BNEMR1;WEITER BIS ALLE 
PAGES VERSCHOBEN.P+Z.MREXIT RTS;ZURUECK 
ZUM HAUPTPROGRAMM.V+..;.B+...SY 1,3...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL