SWAP QU HYPRA

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 3D 20 28  00 3B 2A 2A 2A 2A 2A 2A  |1300.= (.;******|
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 2A 2A 2A 00 6E  20 32 00 3B 20 56 45 52  |******.n 2.; VER|
00000070: 54 41 55 53 43 48 45 4E  20 5A 57 45 49 45 52 20  |TAUSCHEN ZWEIER |
00000080: 53 50 45 49 43 48 45 52  42 45 52 45 49 43 48 45  |SPEICHERBEREICHE|
00000090: 20 28 53 57 41 50 29 00  A0 20 3C 00 3B 2A 2A 2A  | (SWAP).. <.;***|
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 2A 2A  2A 00 CD 20 46 00 2E 45  |*********.. F..E|
000000D0: 51 20 4D 56 45 4C 45 4E  3D 24 46 41 3B 49 4E 20  |Q MVELEN=$FA;IN |
000000E0: 54 4F 50 2D 41 53 53 20  57 49 52 44 20 53 54 41  |TOP-ASS WIRD STA|
000000F0: 54 54 20 44 45 52 00 00  21 50 00 2E 45 51 20 4D  |TT DER..!P..EQ M|
00000100: 56 44 45 53 54 3D 24 46  43 3B 20 2E 45 51 2D 42  |VDEST=$FC; .EQ-B|
00000110: 45 46 45 48 4C 45 20 4A  45 57 45 49 4C 53 20 44  |EFEHLE JEWEILS D|
00000120: 45 52 20 42 45 46 45 48  4C 00 26 21 5A 00 2E 45  |ER BEFEHL.&!Z..E|
00000130: 51 20 4D 56 53 52 43 45  3D 24 46 45 3B 20 2E 44  |Q MVSRCE=$FE; .D|
00000140: 45 46 49 4E 45 20 56 45  52 57 45 4E 44 45 54 00  |EFINE VERWENDET.|
00000150: 4C 21 64 00 2E 45 51 20  50 52 49 4E 54 3D 24 46  |L!d..EQ PRINT=$F|
00000160: 46 44 32 3B 42 49 4C 44  53 43 48 49 52 4D 41 55  |FD2;BILDSCHIRMAU|
00000170: 53 47 41 42 45 00 52 21  6E 00 3B 00 9A 21 78 00  |SGABE.R!n.;..!x.|
00000180: 3B 49 4E 20 4D 56 45 4C  45 4E 20 57 49 52 44 20  |;IN MVELEN WIRD |
00000190: 44 49 45 20 4C 41 45 4E  47 45 20 44 45 52 20 5A  |DIE LAENGE DER Z|
000001A0: 55 20 56 45 52 54 41 55  53 43 48 45 4E 44 45 4E  |U VERTAUSCHENDEN|
000001B0: 20 42 45 52 45 49 43 48  45 20 41 4E 47 45 47 45  | BEREICHE ANGEGE|
000001C0: 42 45 4E 00 D2 21 82 00  3B 49 4E 20 4D 56 44 45  |BEN..!..;IN MVDE|
000001D0: 53 54 20 44 49 45 20 53  54 41 52 54 41 44 52 45  |ST DIE STARTADRE|
000001E0: 53 53 45 20 44 45 53 20  31 2E 20 42 45 52 45 49  |SSE DES 1. BEREI|
000001F0: 43 48 45 53 20 55 4E 44  20 49 4E 00 01 22 8C 00  |CHES UND IN.."..|
00000200: 3B 4D 56 53 52 43 45 20  44 49 45 20 53 54 41 52  |;MVSRCE DIE STAR|
00000210: 54 41 44 52 45 53 53 45  20 44 45 53 20 32 2E 20  |TADRESSE DES 2. |
00000220: 42 45 52 45 49 43 48 45  53 2E 00 07 22 96 00 3B  |BEREICHES..."..;|
00000230: 00 4A 22 A0 00 3B 2D 2D  2D 2D 2D 2D 20 50 52 4F  |.J"..;------ PRO|
00000240: 47 52 41 4D 4D 20 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |GRAMM ----------|
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 2D 2D 00 89 22 AA 00  3B 41 4C 53 20 45 52 53  |---.."..;ALS ERS|
00000280: 54 45 53 20 57 49 52 44  20 42 45 53 54 49 4D 4D  |TES WIRD BESTIMM|
00000290: 54 2C 20 4F 42 20 44 45  52 20 5A 49 45 4C 42 45  |T, OB DER ZIELBE|
000002A0: 52 45 49 43 48 20 4F 42  45 52 48 41 4C 42 20 44  |REICH OBERHALB D|
000002B0: 45 53 00 CB 22 B4 00 3B  20 51 55 45 4C 4C 42 45  |ES.."..; QUELLBE|
000002C0: 52 45 49 43 48 45 53 20  4C 49 45 47 54 20 55 4E  |REICHES LIEGT UN|
000002D0: 44 20 4F 42 20 53 49 43  48 20 44 49 45 20 42 45  |D OB SICH DIE BE|
000002E0: 49 44 45 4E 20 42 45 52  45 49 43 48 45 20 55 45  |IDEN BEREICHE UE|
000002F0: 42 45 52 2D 00 0E 23 BE  00 3B 20 4C 41 50 50 45  |BER-..#..; LAPPE|
00000300: 4E 2E 20 45 49 4E 45 20  55 45 42 45 52 4C 41 50  |N. EINE UEBERLAP|
00000310: 50 55 4E 47 20 4C 49 45  47 54 20 44 41 4E 4E 20  |PUNG LIEGT DANN |
00000320: 56 4F 52 2C 20 57 45 4E  4E 20 44 49 45 20 44 49  |VOR, WENN DIE DI|
00000330: 46 46 45 52 45 4E 5A 00  52 23 C8 00 3B 20 56 4F  |FFERENZ.R#..; VO|
00000340: 4E 20 5A 49 45 4C 41 44  52 45 53 53 45 20 4D 49  |N ZIELADRESSE MI|
00000350: 4E 55 53 20 51 55 45 4C  4C 41 44 52 45 53 53 45  |NUS QUELLADRESSE|
00000360: 20 4B 4C 45 49 4E 45 52  20 41 4C 53 20 44 49 45  | KLEINER ALS DIE|
00000370: 20 41 4E 5A 41 48 4C 20  44 45 52 00 75 23 D2 00  | ANZAHL DER.u#..|
00000380: 3B 20 5A 55 20 56 45 52  53 43 48 49 45 42 45 4E  |; ZU VERSCHIEBEN|
00000390: 44 45 4E 20 42 59 54 45  53 20 49 53 54 2E 00 7B  |DEN BYTES IST..{|
000003A0: 23 DC 00 3B 00 AC 23 E6  00 53 54 41 52 54 20 4C  |#..;..#..START L|
000003B0: 44 41 4D 56 44 45 53 54  3B 42 45 52 45 43 48 4E  |DAMVDEST;BERECHN|
000003C0: 55 4E 47 20 5A 49 45 4C  20 4D 49 4E 55 53 20 51  |UNG ZIEL MINUS Q|
000003D0: 55 45 4C 4C 45 00 B5 23  F0 00 20 53 45 43 00 C4  |UELLE..#.. SEC..|
000003E0: 23 FA 00 20 53 42 43 4D  56 53 52 43 45 00 CD 23  |#.. SBCMVSRCE..#|
000003F0: 04 01 20 54 41 58 00 DE  23 0E 01 20 4C 44 41 4D  |.. TAX..#.. LDAM|
00000400: 56 44 45 53 54 2B 31 00  EF 23 18 01 20 53 42 43  |VDEST+1..#.. SBC|
00000410: 4D 56 53 52 43 45 2B 31  00 F8 23 22 01 20 54 41  |MVSRCE+1..#". TA|
00000420: 59 00 28 24 2C 01 20 54  58 41 3B 56 45 52 47 4C  |Y.($,. TXA;VERGL|
00000430: 45 49 43 48 20 4D 49 54  20 4C 41 45 4E 47 45 20  |EICH MIT LAENGE |
00000440: 56 45 52 53 43 48 49 45  42 45 42 45 52 45 49 43  |VERSCHIEBEBEREIC|
00000450: 48 00 37 24 36 01 20 43  4D 50 4D 56 45 4C 45 4E  |H.7$6. CMPMVELEN|
00000460: 00 40 24 40 01 20 54 59  41 00 51 24 4A 01 20 53  |.@$@. TYA.Q$J. S|
00000470: 42 43 4D 56 45 4C 45 4E  2B 31 00 85 24 54 01 20  |BCMVELEN+1..$T. |
00000480: 42 43 53 44 4F 4C 45 46  54 3B 56 45 52 5A 57 45  |BCSDOLEFT;VERZWE|
00000490: 49 47 45 4E 2C 20 57 45  4E 4E 20 4B 45 4F 49 4E  |IGEN, WENN KEOIN|
000004A0: 45 20 55 45 42 45 52 4C  41 50 50 55 4E 47 00 AB  |E UEBERLAPPUNG..|
000004B0: 24 5E 01 20 4A 53 52 4D  45 4C 44 45 4E 3B 53 4F  |$^. JSRMELDEN;SO|
000004C0: 4E 53 54 20 4D 45 4C 44  55 4E 47 20 41 55 53 47  |NST MELDUNG AUSG|
000004D0: 45 42 45 4E 00 B8 24 68  01 20 4A 4D 50 45 58 49  |EBEN..$h. JMPEXI|
000004E0: 54 00 E6 24 72 01 44 4F  4C 45 46 54 20 4A 53 52  |T..$r.DOLEFT JSR|
000004F0: 4D 56 45 4C 46 54 3B 5A  55 4E 20 55 50 20 4F 48  |MVELFT;ZUN UP OH|
00000500: 4E 45 20 55 45 42 45 52  4C 41 50 50 55 4E 47 00  |NE UEBERLAPPUNG.|
00000510: F3 24 7C 01 45 58 49 54  20 52 54 53 00 F9 24 86  |.$|.EXIT RTS..$.|
00000520: 01 3B 00 35 25 90 01 3B  2A 2A 2A 2A 20 55 50 20  |.;.5%..;**** UP |
00000530: 5A 55 4D 20 56 45 52 53  43 48 49 45 42 45 4E 20  |ZUM VERSCHIEBEN |
00000540: 4F 48 4E 45 20 55 45 42  45 52 4C 41 50 50 55 4E  |OHNE UEBERLAPPUN|
00000550: 47 3A 20 4D 56 45 4C 46  54 20 2A 2A 2A 2A 00 3B  |G: MVELFT ****.;|
00000560: 25 9A 01 3B 00 5B 25 A4  01 4D 56 45 4C 46 54 20  |%..;.[%..MVELFT |
00000570: 4C 44 59 23 30 3B 49 4E  44 45 58 20 41 55 46 20  |LDY#0;INDEX AUF |
00000580: 4E 55 4C 4C 00 79 25 AE  01 20 4C 44 58 4D 56 45  |NULL.y%.. LDXMVE|
00000590: 4C 45 4E 2B 31 3B 41 4E  5A 41 48 4C 20 50 41 47  |LEN+1;ANZAHL PAG|
000005A0: 45 53 00 A4 25 B8 01 20  42 45 51 4D 4C 50 41 52  |ES..%.. BEQMLPAR|
000005B0: 54 3B 46 41 4C 4C 53 20  4B 45 49 4E 45 20 50 41  |T;FALLS KEINE PA|
000005C0: 47 45 53 20 44 41 4E 4E  20 52 45 53 54 00 CC 25  |GES DANN REST..%|
000005D0: C2 01 4D 4C 50 41 47 45  20 4C 44 41 28 4D 56 53  |..MLPAGE LDA(MVS|
000005E0: 52 43 45 29 2C 59 3B 45  49 4E 20 42 59 54 45 20  |RCE),Y;EIN BYTE |
000005F0: 4C 45 53 45 4E 00 DD 25  CC 01 20 50 48 41 3B 53  |LESEN..%.. PHA;S|
00000600: 49 43 48 45 52 4E 00 09  26 D6 01 20 4C 44 41 28  |ICHERN..&.. LDA(|
00000610: 4D 56 44 45 53 54 29 2C  59 3B 42 59 54 45 20 41  |MVDEST),Y;BYTE A|
00000620: 55 53 20 32 2E 42 45 52  45 49 43 48 20 4C 45 53  |US 2.BEREICH LES|
00000630: 45 4E 00 29 26 E0 01 20  53 54 41 28 4D 56 53 52  |EN.)&.. STA(MVSR|
00000640: 43 45 29 2C 59 3B 55 4E  44 20 55 4D 54 52 41 47  |CE),Y;UND UMTRAG|
00000650: 45 4E 00 44 26 EA 01 20  50 4C 41 3B 42 59 54 45  |EN.D&.. PLA;BYTE|
00000660: 20 5A 55 52 55 45 43 4B  48 4F 4C 45 4E 00 64 26  | ZURUECKHOLEN.d&|
00000670: F4 01 20 53 54 41 28 4D  56 44 45 53 54 29 2C 59  |.. STA(MVDEST),Y|
00000680: 3B 55 4E 44 20 55 4D 54  52 41 47 45 4E 00 7C 26  |;UND UMTRAGEN.|&|
00000690: FE 01 20 49 4E 59 3B 4E  41 45 43 48 53 54 45 53  |.. INY;NAECHSTES|
000006A0: 20 42 59 54 45 00 9E 26  08 02 20 42 4E 45 4D 4C  | BYTE..&.. BNEML|
000006B0: 50 41 47 45 3B 42 49 53  20 32 35 36 20 56 45 52  |PAGE;BIS 256 VER|
000006C0: 53 43 48 4F 42 45 4E 00  BD 26 12 02 20 49 4E 43  |SCHOBEN..&.. INC|
000006D0: 4D 56 53 52 43 45 2B 31  3B 51 55 45 4C 4C 50 41  |MVSRCE+1;QUELLPA|
000006E0: 47 45 20 2B 20 31 00 DC  26 1C 02 20 49 4E 43 4D  |GE + 1..&.. INCM|
000006F0: 56 44 45 53 54 2B 31 3B  20 5A 49 45 4C 50 41 47  |VDEST+1; ZIELPAG|
00000700: 45 20 2B 20 31 00 F6 26  26 02 20 44 45 58 3B 50  |E + 1..&&. DEX;P|
00000710: 41 47 45 20 5A 41 45 48  4C 45 52 20 2D 20 31 00  |AGE ZAEHLER - 1.|
00000720: 1B 27 30 02 20 42 4E 45  4D 4C 50 41 47 45 3B 42  |.'0. BNEMLPAGE;B|
00000730: 49 53 20 41 4C 4C 45 20  50 41 47 45 53 20 46 45  |IS ALLE PAGES FE|
00000740: 52 54 49 47 00 43 27 3A  02 4D 4C 50 41 52 54 20  |RTIG.C':.MLPART |
00000750: 4C 44 58 4D 56 45 4C 45  4E 3B 4C 41 45 4E 47 45  |LDXMVELEN;LAENGE|
00000760: 20 52 45 53 54 42 45 52  45 49 43 48 00 6F 27 44  | RESTBEREICH.o'D|
00000770: 02 20 42 45 51 4D 4C 45  58 49 54 3B 46 45 52 54  |. BEQMLEXIT;FERT|
00000780: 49 47 20 57 45 4E 4E 20  52 45 53 54 20 47 4C 45  |IG WENN REST GLE|
00000790: 49 43 48 20 4E 55 4C 4C  00 97 27 4E 02 4D 4C 4C  |ICH NULL..'N.MLL|
000007A0: 41 53 54 20 4C 44 41 28  4D 56 53 52 43 45 29 2C  |AST LDA(MVSRCE),|
000007B0: 59 3B 45 49 4E 20 42 59  54 45 20 4C 45 53 45 4E  |Y;EIN BYTE LESEN|
000007C0: 00 AC 27 58 02 20 50 48  41 3B 55 4E 44 20 53 49  |..'X. PHA;UND SI|
000007D0: 43 48 45 52 4E 00 D9 27  62 02 20 4C 44 41 28 4D  |CHERN..'b. LDA(M|
000007E0: 56 44 45 53 54 29 2C 59  3B 42 59 54 45 20 41 55  |VDEST),Y;BYTE AU|
000007F0: 53 20 32 2E 20 42 45 52  45 49 43 48 20 4C 45 53  |S 2. BEREICH LES|
00000800: 45 4E 00 06 28 6C 02 20  53 54 41 28 4D 56 53 52  |EN..(l. STA(MVSR|
00000810: 43 45 29 2C 59 3B 55 4E  44 20 49 4E 20 31 2E 42  |CE),Y;UND IN 1.B|
00000820: 45 52 45 49 43 48 20 55  4D 54 52 41 47 45 4E 00  |EREICH UMTRAGEN.|
00000830: 21 28 76 02 20 50 4C 41  3B 42 59 54 45 20 5A 55  |!(v. PLA;BYTE ZU|
00000840: 52 55 45 43 4B 48 4F 4C  45 4E 00 41 28 80 02 20  |RUECKHOLEN.A(.. |
00000850: 53 54 41 28 4D 56 44 45  53 54 29 2C 59 3B 55 4E  |STA(MVDEST),Y;UN|
00000860: 44 20 55 4D 54 52 41 47  45 4E 00 59 28 8A 02 20  |D UMTRAGEN.Y(.. |
00000870: 49 4E 59 3B 4E 41 45 43  48 53 54 45 53 20 42 59  |INY;NAECHSTES BY|
00000880: 54 45 00 72 28 94 02 20  44 45 58 3B 5A 41 45 48  |TE.r(.. DEX;ZAEH|
00000890: 4C 45 52 20 4D 49 4E 55  53 20 31 00 98 28 9E 02  |LER MINUS 1..(..|
000008A0: 20 42 4E 45 4D 4C 4C 41  53 54 3B 57 45 49 54 45  | BNEMLLAST;WEITE|
000008B0: 52 20 42 49 53 20 52 45  53 54 20 46 45 52 54 49  |R BIS REST FERTI|
000008C0: 47 00 C1 28 A8 02 4D 4C  45 58 49 54 20 52 54 53  |G..(..MLEXIT RTS|
000008D0: 3B 5A 55 52 55 45 43 4B  20 5A 55 4D 20 48 41 55  |;ZURUECK ZUM HAU|
000008E0: 50 54 50 52 4F 47 52 41  4D 4D 00 C7 28 B2 02 3B  |PTPROGRAMM..(..;|
000008F0: 00 01 29 BC 02 3B 2A 2A  2A 2A 20 55 50 20 5A 55  |..)..;**** UP ZU|
00000900: 52 20 41 55 53 47 41 42  45 20 45 49 4E 45 52 20  |R AUSGABE EINER |
00000910: 46 45 48 4C 45 52 4D 45  4C 44 55 4E 47 3A 20 4D  |FEHLERMELDUNG: M|
00000920: 45 4C 44 45 4E 20 2A 2A  2A 2A 00 07 29 C6 02 3B  |ELDEN ****..)..;|
00000930: 00 27 29 D0 02 4D 45 4C  44 45 4E 20 4C 44 59 23  |.')..MELDEN LDY#|
00000940: 30 3B 49 4E 44 45 58 20  41 55 46 20 4E 55 4C 4C  |0;INDEX AUF NULL|
00000950: 00 4E 29 DA 02 57 45 49  54 45 52 20 4C 44 41 54  |.N)..WEITER LDAT|
00000960: 45 58 54 2C 59 3B 54 45  58 54 5A 45 49 43 48 45  |EXT,Y;TEXTZEICHE|
00000970: 4E 20 4C 41 44 45 4E 00  77 29 E4 02 20 42 45 51  |N LADEN.w).. BEQ|
00000980: 45 4E 44 45 3B 57 45 4E  4E 20 4E 55 4C 4C 42 59  |ENDE;WENN NULLBY|
00000990: 54 45 2C 20 44 41 4E 4E  20 5A 55 52 55 45 43 4B  |TE, DANN ZURUECK|
000009A0: 00 A3 29 EE 02 20 4A 53  52 50 52 49 4E 54 3B 53  |..).. JSRPRINT;S|
000009B0: 4F 4E 53 54 20 41 55 46  20 42 49 4C 44 53 43 48  |ONST AUF BILDSCH|
000009C0: 49 52 4D 20 41 55 53 47  45 42 45 4E 00 BE 29 F8  |IRM AUSGEBEN..).|
000009D0: 02 20 49 4E 59 3B 4E 41  45 43 48 53 54 45 53 20  |. INY;NAECHSTES |
000009E0: 5A 45 49 43 48 45 4E 00  CD 29 02 03 20 4A 4D 50  |ZEICHEN..).. JMP|
000009F0: 57 45 49 54 45 52 00 F4  29 0C 03 45 4E 44 45 20  |WEITER..)..ENDE |
00000A00: 52 54 53 3B 5A 55 52 55  45 43 4B 20 5A 55 4D 20  |RTS;ZURUECK ZUM |
00000A10: 48 41 55 50 54 50 52 4F  47 52 41 4D 4D 00 FA 29  |HAUPTPROGRAMM..)|
00000A20: 16 03 3B 00 1B 2A 20 03  54 45 58 54 20 2E 42 59  |..;..* .TEXT .BY|
00000A30: 31 33 3B 54 4F 50 2D 41  53 53 3A 20 2E 42 59 54  |13;TOP-ASS: .BYT|
00000A40: 45 20 31 33 00 5A 2A 2A  03 20 2E 54 58 22 55 45  |E 13.Z**. .TX"UE|
00000A50: 42 45 52 53 43 48 4E 45  49 44 55 4E 47 20 21 22  |BERSCHNEIDUNG !"|
00000A60: 3B 54 4F 50 2D 41 53 53  3A 20 2E 42 59 54 45 20  |;TOP-ASS: .BYTE |
00000A70: 22 55 45 42 45 52 53 43  48 4E 45 49 44 55 4E 47  |"UEBERSCHNEIDUNG|
00000A80: 20 21 22 00 7B 2A 34 03  20 2E 42 59 31 33 2C 30  | !".{*4. .BY13,0|
00000A90: 3B 54 4F 50 2D 41 53 53  3A 20 2E 42 59 54 45 20  |;TOP-ASS: .BYTE |
00000AA0: 31 33 2C 30 00 81 2A 3E  03 3B 00 87 2A 52 03 3B  |13,0..*>.;..*R.;|
00000AB0: 00 00 00 45                                       |...E            |

X.....;.....;.. ...BA $C000 ;IN TOP-ASS:
 .BASE $1300.= (.;**********************
**********************.N 2.; VERTAUSCHEN
 ZWEIER SPEICHERBEREICHE (SWAP).  <.;***
****************************************
*.M F..EQ MVELEN=$FA;IN TOP-ASS WIRD STA
TT DER..!P..EQ MVDEST=$FC; .EQ-BEFEHLE J
EWEILS DER BEFEHL.&!Z..EQ MVSRCE=$FE; .D
EFINE VERWENDET.L!D..EQ PRINT=$FFD2;BILD
SCHIRMAUSGABE.R!N.;..!X.;IN MVELEN WIRD 
DIE LAENGE DER ZU VERTAUSCHENDEN BEREICH
E ANGEGEBEN.R!..;IN MVDEST DIE STARTADRE
SSE DES 1. BEREICHES UND IN.."..;MVSRCE 
DIE STARTADRESSE DES 2. BEREICHES..."..;
.J" .;------ PROGRAMM ------------------
---------------------------.."..;ALS ERS
TES WIRD BESTIMMT, OB DER ZIELBEREICH OB
ERHALB DES.K"..; QUELLBEREICHES LIEGT UN
D OB SICH DIE BEIDEN BEREICHE UEBER-..#.
.; LAPPEN. EINE UEBERLAPPUNG LIEGT DANN 
VOR, WENN DIE DIFFERENZ.R#H.; VON ZIELAD
RESSE MINUS QUELLADRESSE KLEINER ALS DIE
 ANZAHL DER.U#R.; ZU VERSCHIEBENDEN BYTE
S IST..{#..;..#..START LDAMVDEST;BERECHN
UNG ZIEL MINUS QUELLE..#.. SEC.D#.. SBCM
VSRCE.M#.. TAX..#.. LDAMVDEST+1..#.. SBC
MVSRCE+1..#". TAY.($,. TXA;VERGLEICH MIT
 LAENGE VERSCHIEBEBEREICH.7$6. CMPMVELEN
.@$@. TYA.Q$J. SBCMVELEN+1..$T. BCSDOLEF
T;VERZWEIGEN, WENN KEOINE UEBERLAPPUNG..
$^. JSRMELDEN;SONST MELDUNG AUSGEBEN..$H
. JMPEXIT..$R.DOLEFT JSRMVELFT;ZUN UP OH
NE UEBERLAPPUNG..$|.EXIT RTS..$..;.5%..;
**** UP ZUM VERSCHIEBEN OHNE UEBERLAPPUN
G: MVELFT ****.;%..;.[%..MVELFT LDY#0;IN
DEX AUF NULL.Y%.. LDXMVELEN+1;ANZAHL PAG
ES..%.. BEQMLPART;FALLS KEINE PAGES DANN
 REST.L%B.MLPAGE LDA(MVSRCE),Y;EIN BYTE 
LESEN..%L. PHA;SICHERN..&V. LDA(MVDEST),
Y;BYTE AUS 2.BEREICH LESEN.)&.. STA(MVSR
CE),Y;UND UMTRAGEN.D&.. PLA;BYTE ZURUECK
HOLEN.D&.. STA(MVDEST),Y;UND UMTRAGEN.|&
.. INY;NAECHSTES BYTE..&.. BNEMLPAGE;BIS
 256 VERSCHOBEN..&.. INCMVSRCE+1;QUELLPA
GE + 1..&.. INCMVDEST+1; ZIELPAGE + 1..&
&. DEX;PAGE ZAEHLER - 1..'0. BNEMLPAGE;B
IS ALLE PAGES FERTIG.C':.MLPART LDXMVELE
N;LAENGE RESTBEREICH.O'D. BEQMLEXIT;FERT
IG WENN REST GLEICH NULL..'N.MLLAST LDA(
MVSRCE),Y;EIN BYTE LESEN..'X. PHA;UND SI
CHERN.Y'B. LDA(MVDEST),Y;BYTE AUS 2. BER
EICH LESEN..(L. STA(MVSRCE),Y;UND IN 1.B
EREICH UMTRAGEN.!(V. PLA;BYTE ZURUECKHOL
EN.A(.. STA(MVDEST),Y;UND UMTRAGEN.Y(.. 
INY;NAECHSTES BYTE.R(.. DEX;ZAEHLER MINU
S 1..(.. BNEMLLAST;WEITER BIS REST FERTI
G.A(..MLEXIT RTS;ZURUECK ZUM HAUPTPROGRA
MM.G(..;..)..;**** UP ZUR AUSGABE EINER 
FEHLERMELDUNG: MELDEN ****..)F.;.')P.MEL
DEN LDY#0;INDEX AUF NULL.N)Z.WEITER LDAT
EXT,Y;TEXTZEICHEN LADEN.W).. BEQENDE;WEN
N NULLBYTE, DANN ZURUECK..).. JSRPRINT;S
ONST AUF BILDSCHIRM AUSGEBEN..).. INY;NA
ECHSTES ZEICHEN.M).. JMPWEITER..)..ENDE 
RTS;ZURUECK ZUM HAUPTPROGRAMM..)..;..* .
TEXT .BY13;TOP-ASS: .BYTE 13.Z**. .TX"UE
BERSCHNEIDUNG !";TOP-ASS: .BYTE "UEBERSC
HNEIDUNG !".{*4. .BY13,0;TOP-ASS: .BYTE 
13,0..*>.;..*R.;...E

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL