BLOCKVERSCH. II
FILE INFORMATION
FILENAME(S): BLOCKVERSCH. II
FILE TYPE(S): PRG
FILE SIZE: 814b
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 2 disk(s)
FILE HASH
ae7b0f4c9fb59de32e5185b7c9fe11e69e9a8e2286e68e627f2e2933e8c80a6b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | BLOCKVERSCH. II | PRG | Treasure Chest - ToGuMi | 10 | 14 | DOWNLOAD FILE |
| SONDERHEFT ASS | BLOCKVERSCH. II | PRG | C64er | 10 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 64 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |....d.;---------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 00 16 20 6E 00 3B 20 42 4C |-------.. n.; BL| 00000030: 4F 43 4B 56 45 52 53 43 48 49 45 42 55 4E 47 00 |OCKVERSCHIEBUNG.| 00000040: 32 20 78 00 3B 20 4F 48 4E 45 20 45 49 4E 53 43 |2 x.; OHNE EINSC| 00000050: 48 52 41 45 4E 4B 55 4E 47 45 4E 00 58 20 82 00 |HRAENKUNGEN.X ..| 00000060: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000080: 2D 00 74 20 8C 00 20 2E 42 41 24 43 30 30 30 3B |-.t .. .BA$C000;| 00000090: 50 52 4F 47 52 41 4D 4D 53 54 41 52 54 00 86 20 |PROGRAMMSTART.. | 000000A0: 96 00 20 2E 45 51 56 4F 4E 3D 24 41 30 39 45 00 |.. .EQVON=$A09E.| 000000B0: 98 20 A0 00 20 2E 45 51 42 49 53 3D 24 41 33 32 |. .. .EQBIS=$A32| 000000C0: 37 00 AA 20 AA 00 20 2E 45 51 5A 49 45 4C 3D 24 |7.. .. .EQZIEL=$| 000000D0: 34 30 30 00 BE 20 B4 00 20 2E 45 51 5A 45 49 47 |400.. .. .EQZEIG| 000000E0: 45 52 31 3D 24 46 42 00 D2 20 BE 00 20 2E 45 51 |ER1=$FB.. .. .EQ| 000000F0: 5A 45 49 47 45 52 32 3D 24 46 44 00 D8 20 C8 00 |ZEIGER2=$FD.. ..| 00000100: 3B 00 E8 20 D2 00 20 4C 44 41 23 3C 28 56 4F 4E |;.. .. LDA#<(VON| 00000110: 29 00 F8 20 DC 00 20 53 54 41 5A 45 49 47 45 52 |).. .. STAZEIGER| 00000120: 31 00 08 21 E6 00 20 4C 44 41 23 3E 28 56 4F 4E |1..!.. LDA#>(VON| 00000130: 29 00 1A 21 F0 00 20 53 54 41 5A 45 49 47 45 52 |)..!.. STAZEIGER| 00000140: 31 2B 31 00 2B 21 FA 00 20 4C 44 41 23 3C 28 5A |1+1.+!.. LDA#<(Z| 00000150: 49 45 4C 29 00 3B 21 04 01 20 53 54 41 5A 45 49 |IEL).;!.. STAZEI| 00000160: 47 45 52 32 00 4C 21 0E 01 20 4C 44 41 23 3E 28 |GER2.L!.. LDA#>(| 00000170: 5A 49 45 4C 29 00 5E 21 18 01 20 53 54 41 5A 45 |ZIEL).^!.. STAZE| 00000180: 49 47 45 52 32 2B 31 00 69 21 22 01 20 4C 44 59 |IGER2+1.i!". LDY| 00000190: 23 30 00 81 21 2C 01 4C 4F 4F 50 20 4C 44 41 28 |#0..!,.LOOP LDA(| 000001A0: 5A 45 49 47 45 52 31 29 2C 59 00 95 21 36 01 20 |ZEIGER1),Y..!6. | 000001B0: 53 54 41 28 5A 45 49 47 45 52 32 29 2C 59 00 B9 |STA(ZEIGER2),Y..| 000001C0: 21 40 01 3B 20 5A 45 49 47 45 52 31 20 4D 49 54 |!@.; ZEIGER1 MIT| 000001D0: 20 22 42 49 53 22 20 56 45 52 47 4C 45 49 43 48 | "BIS" VERGLEICH| 000001E0: 45 4E 00 C9 21 4A 01 20 4C 44 41 5A 45 49 47 45 |EN..!J. LDAZEIGE| 000001F0: 52 31 00 D9 21 54 01 20 43 4D 50 23 3C 28 42 49 |R1..!T. CMP#<(BI| 00000200: 53 29 00 E8 21 5E 01 20 42 4E 45 57 45 49 54 45 |S)..!^. BNEWEITE| 00000210: 52 00 21 22 68 01 3B 20 4C 4F 57 2D 42 59 54 45 |R.!"h.; LOW-BYTE| 00000220: 53 20 53 54 49 4D 4D 45 4E 20 55 45 42 45 52 45 |S STIMMEN UEBERE| 00000230: 49 4E 2C 20 48 49 47 48 2D 42 59 54 45 53 20 56 |IN, HIGH-BYTES V| 00000240: 45 52 47 4C 45 49 43 48 45 4E 00 33 22 72 01 20 |ERGLEICHEN.3"r. | 00000250: 4C 44 41 5A 45 49 47 45 52 31 2B 31 00 43 22 7C |LDAZEIGER1+1.C"|| 00000260: 01 20 43 4D 50 23 3E 28 42 49 53 29 00 50 22 86 |. CMP#>(BIS).P".| 00000270: 01 20 42 45 51 45 4E 44 45 00 7A 22 90 01 3B 20 |. BEQENDE.z"..; | 00000280: 20 20 20 20 20 20 20 20 42 45 49 44 45 20 5A 45 | BEIDE ZE| 00000290: 49 47 45 52 20 49 4E 4B 52 45 4D 45 4E 54 49 45 |IGER INKREMENTIE| 000002A0: 52 45 4E 00 90 22 9A 01 57 45 49 54 45 52 20 49 |REN.."..WEITER I| 000002B0: 4E 43 5A 45 49 47 45 52 31 00 A0 22 A4 01 20 42 |NCZEIGER1..".. B| 000002C0: 4E 45 57 45 49 54 45 52 32 00 B2 22 AE 01 20 49 |NEWEITER2..".. I| 000002D0: 4E 43 5A 45 49 47 45 52 31 2B 31 00 C9 22 B8 01 |NCZEIGER1+1.."..| 000002E0: 57 45 49 54 45 52 32 20 49 4E 43 5A 45 49 47 45 |WEITER2 INCZEIGE| 000002F0: 52 32 00 D6 22 C2 01 20 42 4E 45 4C 4F 4F 50 00 |R2..".. BNELOOP.| 00000300: E8 22 CC 01 20 49 4E 43 5A 45 49 47 45 52 32 2B |.".. INCZEIGER2+| 00000310: 31 00 F5 22 D6 01 20 4A 4D 50 4C 4F 4F 50 00 02 |1..".. JMPLOOP..| 00000320: 23 E0 01 45 4E 44 45 20 52 54 53 00 00 00 |#..ENDE RTS... |
X...D.;--------------------------------.
. N.; BLOCKVERSCHIEBUNG.2 X.; OHNE EINSC
HRAENKUNGEN.X ..;-----------------------
---------.T .. .BA$C000;PROGRAMMSTART..
.. .EQVON=$A09E.. . .EQBIS=$A327.. .. .
EQZIEL=$400.. .. .EQZEIGER1=$FB.R .. .EQ
ZEIGER2=$FD.X H.;.. R. LDA#<(VON).. .. S
TAZEIGER1..!.. LDA#>(VON)..!.. STAZEIGER
1+1.+!.. LDA#<(ZIEL).;!.. STAZEIGER2.L!.
. LDA#>(ZIEL).^!.. STAZEIGER2+1.I!". LDY
#0..!,.LOOP LDA(ZEIGER1),Y..!6. STA(ZEIG
ER2),Y..!@.; ZEIGER1 MIT "BIS" VERGLEICH
EN.I!J. LDAZEIGER1.Y!T. CMP#<(BIS)..!^.
BNEWEITER.!"H.; LOW-BYTES STIMMEN UEBERE
IN, HIGH-BYTES VERGLEICHEN.3"R. LDAZEIGE
R1+1.C"|. CMP#>(BIS).P".. BEQENDE.Z"..;
BEIDE ZEIGER INKREMENTIEREN.."..
WEITER INCZEIGER1. ".. BNEWEITER2..".. I
NCZEIGER1+1.I"..WEITER2 INCZEIGER2.V"B.
BNELOOP.."L. INCZEIGER2+1.."V. JMPLOOP..
#..ENDE RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL